Разработка программного средства автоматизации учета работы автотранспорта на предприятии
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Text+) AND ((Рап_осн.Отметка_об_отработке)=False)););_ot.ADOQuery1.Open;_ot.QuickRep1.Preview;;;TVid_napr.BitBtn2Click(Sender: TObject);;.Show;;TVid_napr.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;.Unit18;TNaprav_ot.FormClose(Sender: TObject; var Action: TCloseAction);_napr.DBLookupComboBox2.Field.Clear;;.Unit21;TVib_sprav.BitBtn2Click(Sender: TObject);;.Show;;TVib_sprav.BitBtn1Click(Sender: TObject);length(DBLookUpComboBox1.Text)=#
+DateToStr(Vib_sprav.DateTimePicker1.Date)
+# and дата<=#
+DateToStr(Vib_sprav.DateTimePicker2.Date)
+# and Фамилия_преподавателя=#
+Vib_sprav.DBLookupComboBox1.Text
=#">+#;.ADOQuery1.Filtered:=true;.QuickRep1.DataSet:=Spravka.ADOQuery1;.ADOQuery1.Active:=true;.QuickRep1.Preview;;;TVib_sprav.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TVib_sprav.BitBtn3Click(Sender: TObject);length(DBLookUpComboBox1.Text)=#
+DateToStr(Vib_sprav.DateTimePicker1.Date)
+# and дата<=#
+DateToStr(Vib_sprav.DateTimePicker2.Date)
+# and Фамилия_преподавателя=#
+Vib_sprav.DBLookupComboBox1.Text
=#">+#;.ADOQuery2.Filtered:=true;.ADOQuery2.Active:=true;.QuickRep1.Preview;;;.Unit22;TSpravka.FormClose(Sender: TObject; var Action: TCloseAction);_sprav.Show;;TSpravka.Timer1Timer(Sender: TObject);Data: TDateTime;:= Date;.Caption := Formatdatetime(dd.mm.yyyy, Data);;.Unit23;TVid_rap.BitBtn1Click(Sender: TObject);_ot.QRLabel5.Caption:=datetostr(DateTimePicker1.Date);_ot.QRLabel6.Caption:=datetostr(DateTimePicker2.Date);_ot.ADOQuery1.Filtered:=True;_ot.ADOQuery1.Active:=false;_ot.ADOQuery1.Active:=true;_ot.ADOQuery1.Filter:=дата>=#
+DateToStr(Vid_rap.DateTimePicker1.Date)
+# and дата<=#
+DateToStr(Vid_rap.DateTimePicker2.Date)+#;_ot.ADOQuery1.Filtered:=true;_ot.QuickRep1.Preview;;TVid_rap.BitBtn2Click(Sender: TObject);;.Show;;TVid_rap.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;.Unit24;TVid_napr_s.BitBtn2Click(Sender: TObject);;.Show;;TVid_napr_s.BitBtn1Click(Sender: TObject);((length(DBLookUpComboBox1.Text)=0) or (length(DBLookUpComboBox1.Text)=0))then begin(Введите данные для отчёта,mtInformation,[mbOK],0); exit; end;((length(DBLookUpComboBox1.Text)=0) and (length(DBLookUpComboBox1.Text)=0))then begin(Введите данные для отчёта,mtInformation,[mbOK],0); exit; end_ot_s.ADOQuery1.SQL.Clear;_ot_s.ADOQuery1.SQL.Add(Select Приказ_осн.№_направления_приказ, Приказ_осн.№_группы, Приказ_осн.Фамилия_учащегося, Приказ_осн.Фамилия_преподавателя, Приказ_осн.Наименование_диiиплины, Приказ_осн.[Кол-во_часов], Приказ_осн.Срок_сдачи);_ot_s.ADOQuery1.SQL.Add(FROM Приказ_осн,Приказ_шапка);_ot_s.ADOQuery1.SQL.Add(WHERE (((Приказ_осн.Отметка_об_отработке)=False)) and (Приказ_осн.№_приказа = Приказ_шапка.№_приказа));_ot_s.ADOQuery1.SQL.Add(GROUP BY Приказ_осн.№_направления_приказ, Приказ_осн.№_группы, Приказ_осн.Фамилия_учащегося, Приказ_осн.Фамилия_преподавателя, Приказ_осн.Наименование_диiиплины, Приказ_осн.[Кол-во_часов], Приказ_осн.Срок_сдачи);_ot_s.ADOQuery1.SQL.Add(HAVING (((Приказ_осн.[№_группы])=+DBLookupComboBox1.Text+) AND ((Приказ_осн.Фамилия_учащегося) Like +DBLookupComboBox2.Text+)));_ot_s.ADOQuery1.Open;_ot_s.QuickRep1.Preview;;TVid_napr_s.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;.Unit25;TSpr_Naprav.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TSpr_Naprav.ComboBox1Change(Sender: TObject);COmboBox1.ItemIndex=0 then begin.Visible:=true;.Visible:=false;;COmboBox1.ItemIndex=1 then begin.Visible:=true;.Visible:=false;;;TSpr_Naprav.BitBtn1Click(Sender: TObject);(ComboBox1.ItemIndex=0) and
(messagedlg(Подтвердите отработку,mtinformation,[mbOK,mbCancel],0)=idOK)begin.Edit;.FieldByName(Отметка_об_отработке).Value:=true;.Post;.Active:=false;.Active:=true;;(ComboBox1.ItemIndex=1) and
(messagedlg(Подтвердите отработку,mtinformation,[mbOK,mbCancel],0)=idOK)begin.Edit;.FieldByName(Отметка_об_отработке).Value:=true;.Post;.Active:=false;.Active:=true;;;TSpr_Naprav.FormActivate(Sender: TObject);.Active:=false;.Active:=false;.Filtered:=false;.Filtered:=false;.Filter:=(Отметка_об_отработке=+Edit1.Text+);.Filter:=(Отметка_об_отработке=+Edit1.Text+);.Filtered:=true;.Filtered:=true;.Active:=true;.Active:=true;;TSpr_Naprav.BitBtn2Click(Sender: TObject);(ComboBox1.ItemIndex=0) then begin.Filtered:=false;.Filter:=(№_направления_рап=+Edit2.Text+);.Filtered:=true;;(ComboBox1.ItemIndex=1)then begin.Filtered:=false;.Filter:=(№_направления_приказ=+Edit2.Text+);.Filtered:=true;;.Visible:=false;.Visible:=true;;TSpr_Naprav.BitBtn3Click(Sender: TObject);.Active:=false;.Active:=false;.Filtered:=false;.Filtered:=false;.Filter:=(Отметка_об_отработке=+Edit1.Text+);.Filter:=(Отметка_об_отработке=+Edit1.Text+);.Filtered:=true;.Filtered:=true;.Active:=true;.Active:=true;.Active:=false;.Active:=false;.Active:=true;.Active:=true;.Visible:=false;.Visible:=true;
end;.Unit27;
procedure TVid_prikaz.BitBtn2Click(Sender: TObject);_prikaz.Hide;.Show;;TVid_prikaz.BitBtn1Click(Sender: TObject);_1.ADOQuery1.Filtered:=false;_1.ADOQuery1.Active:=false;_1.ADOQuery1.Filter:=№_приказа=+ IntToStr(ADOTable1.FieldByName(№_приказа).Value) +;_1.ADOQuery1.Filtered:=true;_1.ADOQuery1.Active:=true;_1.QuickRep1.Preview;;TVid_prikaz.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TVid_prikaz.BitBtn3Click(Sender: TObject);_2.ADOQuery1.Filtered:=false;_2.ADOQuery1.Active:=false;_2.ADOQuery1.Filter:=№_приказа=+ IntToStr(ADOTable1.FieldByName(№_приказа).Value) +;_2.ADOQuery1.Filtered:=true;_2.ADOQuery1.Active:=true;_2.QuickRep1.Preview;;.