Geum.ru


Разработка программного средства автоматизации учета работы автотранспорта на предприятии

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



rt;;TPrikaz.BitBtn8Click(Sender: TObject);_prikaz.Show;_prikaz.DBGrid1.Enabled:=true;.Hide;.ADOTable2.Edit;_rap.DBGrid1.Enabled:=true;_rap.DBLookUpComboBox3.Enabled:=false;_rap.DBEdit1.Enabled:=false;_rap.DBLookUpComboBox4.Enabled:=false;_rap.DBLookUpComboBox5.Enabled:=false;;TPrikaz.BitBtn7Click(Sender: TObject);

0) then.Filter:=(№_приказа=+Edit1.Text+);(length(MaskEdit1.Text)>0) then.Filter:=(дата=+MaskEdit1.Text+);(length(Edit1.Text)=0) and (length(MaskEdit1.Text)=0) then">beginmessagedlg(Имеются связанные данные. Продолжить?,mtinformation,[mbOK,mbCancel],0)=idOKbeginPrikaz.ADOTable2 do.ADOTable2.DisableControls;.ADOTable2.First;not Eof do;.ADOTable2.EnableControls;.ADOTable1.Delete;; endexit;;TPrikaz.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TPrikaz.BitBtn2Click(Sender: TObject);.Filtered:=false;(length(Edit1.Text)>0) then.Filter:=(№_приказа=+Edit1.Text+);(length(MaskEdit1.Text)>0) then.Filter:=(дата=+MaskEdit1.Text+);(length(Edit1.Text)=0) and (length(MaskEdit1.Text)=0) then

messagedlg(Введите хотя бы одно значение для поиска,mtInformation,[mbOK],0);

0)and(length(MaskEdit1.Text)>0)then.Filter:=(_=+Edit1.Text+)and(=+MaskEdit1.Text+);.Filtered:=true;.Visible:=false;.Visible:=true;;TPrikaz.ComboBox1Change(Sender:TObject);length(ComboBox1.Text)>0thencombobox1.ItemIndex=0thenADOTable1.Sort:=_;combobox1.ItemIndex=1thenADOTable1.Sort:=;combobox1.ItemIndex=2then.Active:=false;.Active:=true;;;;TPrikaz.BitBtn6Click(Sender:TObject);.Active:=false;.Active:=true;.Visible:=false;.Visible:=true;;TPrikaz.BitBtn3Click(Sender:TObject);.Hide;.Show;;.Unit10;TSpr_spec.FormClose(Sender:TObject;varAction:TCloseAction);.Show;;TSpr_spec.BitBtn1Click(Sender:TObject);_spec.Hide;.Show;;.Unit11;TDob_prikaz.FormClose(Sender:TObject;varAction:TCloseAction);_prikaz.DBGrid1.Enabled:=false;_prikaz.Hide;.Show;;TDob_prikaz.DateTimePicker1Change(Sender:TObject);.Text:=DateToStr(DateTimePicker1.Date);;TDob_prikaz.FormActivate(Sender:TObject);.ADOTable2.Filtered:=false;.ADOTable2.Filter:=_=+IntToStr(Prikaz.ADOTable1.FieldByName(_).Value)+;.ADOTable2.Filtered:=true;.ADOTable2.Active:=false;.ADOTable2.Active:=true;;TDob_prikaz.BitBtn2Click(Sender:TObject);.ADOTable2.Insert;.Enabled:=false;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;TDob_prikaz.BitBtn1Click(Sender:TObject);.ADOTable2.Cancel;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=true;;TDob_prikaz.BitBtn3Click(Sender:TObject);.ADOTable2.Delete;.ADOTable2.Refresh;;TDob_prikaz.BitBtn4Click(Sender:TObject);.ADOTable2.Edit;.ADOTable2.FieldByName(_).AsInteger:=Prikaz.ADOTable1.FieldByName(_).AsInteger;.ADOTable2.FieldByName(__).Value:=false;.ADOTable2.FieldByName(-_).Value:=1,25;.ADOTable2.Post;.Enabled:=true;.Enabled:=false;.Enabled:=false;.Enabled:=true;;.Unit12;TDob_prep.BitBtn1Click(Sender:TObject);(length(DBEdit1.Text)=0)or(length(DBEdit2.Text)=0)or(length(DBEdit3.Text)=0)then">If (length(Edit1.Text)>0) and (length(MaskEdit1.Text)>0) then.Filter:=(№_приказа=+Edit1.Text+) and (дата=+MaskEdit1.Text+);.Filtered:=true;.Visible:=false;.Visible:=true;;TPrikaz.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:=№_приказа;combobox1.ItemIndex=1 then ADOTable1.Sort:=дата;combobox1.ItemIndex=2 then.Active:=false;.Active:=true;;;;TPrikaz.BitBtn6Click(Sender: TObject);.Active:=false;.Active:=true;.Visible:=false;.Visible:=true;;TPrikaz.BitBtn3Click(Sender: TObject);.Hide;.Show;;.Unit10;TSpr_spec.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TSpr_spec.BitBtn1Click(Sender: TObject);_spec.Hide;.Show;;.Unit11;TDob_prikaz.FormClose(Sender: TObject; var Action: TCloseAction);_prikaz.DBGrid1.Enabled:=false;_prikaz.Hide;.Show;;TDob_prikaz.DateTimePicker1Change(Sender: TObject);.Text:=DateToStr(DateTimePicker1.Date);;TDob_prikaz.FormActivate(Sender: TObject);.ADOTable2.Filtered:=false;.ADOTable2.Filter:=№_приказа=+ IntToStr(Prikaz.ADOTable1.FieldByName(№_приказа).Value) +;.ADOTable2.Filtered:=true;.ADOTable2.Active:=false;.ADOTable2.Active:=true;;TDob_prikaz.BitBtn2Click(Sender: TObject);.ADOTable2.Insert;.Enabled:=false;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;TDob_prikaz.BitBtn1Click(Sender: TObject);.ADOTable2.Cancel;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=true;;TDob_prikaz.BitBtn3Click(Sender: TObject);.ADOTable2.Delete;.ADOTable2.Refresh;;TDob_prikaz.BitBtn4Click(Sender: TObject);.ADOTable2.Edit;.ADOTable2.FieldByName(№_приказа).AsInteger:=Prikaz.ADOTable1.FieldByName(№_приказа).AsInteger;.ADOTable2.FieldByName(Отметка_об_отработке).Value:=false;.ADOTable2.FieldByName(Кол-во_часов).Value:=1,25;.ADOTable2.Post;.Enabled:=true;.Enabled:=false;.Enabled:=false;.Enabled:=true;;.Unit12;TDob_prep.BitBtn1Click(Sender: TObject);(length(DBEdit1.Text)=0) or (length(DBEdit2.Text)=0) or (length(DBEdit3.Text)=0)then

messagedlg(Должны быть заполнены все поля,mtinformation,[mbOK],0)

else begin_prep_disc.ADOTable1.Post;_prep.Hide;_prep_disc.Show;;;TDob_prep.BitBtn2Click(Sender: TObject);_prep_disc.ADOTable1.Cancel;_prep.Hide;_prep_disc.Show;;TDob_prep.FormClose(Sender: TObject; var Action: TCloseAction);_prep_disc.Show;;.Unit13;TDob_disc.BitBtn1Click(Sender: TObject);(length(DBEdit1.Text)=0) then

messagedlg(Должны быть заполнены все поля,mtinformation,[mbOK],0)

else begin_prep_disc.ADOTable2.Edit;_prep_disc.ADOTable2.FieldByName(код_преподавателя).AsString:=Spr_prep_disc.ADOTable1.FieldByName(код_преподавателя).AsString;_prep_disc.ADOTable2.Post;_disc.Hide;_prep_disc.Show;;;TDob_disc.BitBtn2Click(Sender: TObject);_prep_disc.ADOTable2.Cancel;_disc.Hide;_prep_disc.Show;;.Unit14;TDob_rap_shap.BitBtn2Click(Sender: TObject);.ADOTable1.Cancel;.Show;_rap_shap.Hide;;TDob_rap_shap.BitBtn1Click(Sender: TObject);(length(DBLookUpComboBox1.Text)=0) or (length(DBEdit2.Text)=0)then

messagedlg(Для продолжения должны быть заполнены все поля,mtinformation,[mbOK],0)

=#">else begin.ADOTable1.Post;.Hide;_rap_shap.Hide;_rap.show;;;TDob_rap_shap.DateTimePicker1Change(Sender: TObject);.Text:=DateToStr(DateTimePicker1.Date);;TDob_rap_shap.FormClose(Sender: TObject;Action: TCloseAction);.ADOTable1.Cancel;.Show;;.Unit15;TDob_prik_shap.DateTimePicker1Change(Sender: TObject);.Text:=DateToStr(DateTimePicker1.Date);;TDob_prik_shap.BitBtn1Click(Sender: TObject);length(DBEdit2.Text)<0 then begin(Введите №приказа,mtInformation,[mbOK],0); exit; end;.ADOTable1.Post;.Hide;_prik_shap.Hide;_prikaz.show;;TDob_prik_shap.BitBtn2Click(Sender: TObject);.ADOTable1.Cancel;.Show;_prik_shap.Hide;;TDob_prik_shap.FormClose(Sender: TObject;Action: TCloseAction);.ADOTable1.Cancel;.Show;_prik_shap.Hide;;.Unit17;TVid_napr.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; endbegin_ot.ADOQuery1.SQL.Clear;_ot.ADOQuery1.SQL.Add(SELECT Рап_осн.№_направления_рап,Рап_осн.[№_группы], Рап_осн.Фамилия_учащегося, Рап_осн.Фамилия_преподавателя, Рап_осн.[Кол-во_часов], Рап_осн.Наименование_диiиплины, Рап_осн.Отметка_об_отработке);_ot.ADOQuery1.SQL.Add(FROM Рап_осн INNER JOIN Рап_шапка ON Рап_осн.код_рап = Рап_шапка.код_рап);_ot.ADOQuery1.SQL.Add(GROUP BY Рап_осн.№_направления_рап,Рап_осн.[№_группы], Рап_осн.Фамилия_учащегося, Рап_осн.Фамилия_преподавателя, Рап_осн.[Кол-во_часов], Рап_осн.Наименование_диiиплины, Рап_осн.Отметка_об_отработке);_ot.ADOQuery1.SQL.Add(HAVING (((Рап_осн.[№_группы])=+DBLookupComboBox1.Text+) AND ((Рап_осн.Фамилия_учащегося) Like +DBLookupComboBox2.