Разработка программного средства автоматизации учета работы автотранспорта на предприятии
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
k(Sender: TObject);.Filtered:=false;.Active:=false;.Active:=true;.Refresh;.Visible:=false;.Visible:=true;;TSpr_ych.BitBtn6Click(Sender: TObject);_ych.Hide;.Show;;.Unit3;TSpr_gr.BitBtn3Click(Sender: TObject);n:integer;messagedlg(Удалить данные?,mtinformation,[mbOK,mbCancel],0)=idOKbegin:=ADOQuery1.FieldByName(№_группы).AsInteger;.Filtered:=false;.Filter:=№_группы=+ IntToStr(n) +;.Filtered:=true;.Delete;.Active:=false;.Active:=true;exit;;TSpr_gr.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOQuery1.Sort:=№_группы;combobox1.ItemIndex=1 then ADOQuery1.Sort:=Специальность;combobox1.ItemIndex=2 then.Active:=false;.Active:=true;;;;TSpr_gr.BitBtn1Click(Sender: TObject);.Insert;_gr.Show;;TSpr_gr.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TSpr_gr.BitBtn6Click(Sender: TObject);_gr.Hide;.Show;;.Unit4;TSpr_prep_disc.FormClose(Sender: TObject;Action: TCloseAction);.Show;;TSpr_prep_disc.BitBtn1Click(Sender: TObject);.Insert;_prep.Show;;TSpr_prep_disc.BitBtn2Click(Sender: TObject);.Edit;_prep_disc.Hide;_prep.Show;;TSpr_prep_disc.ComboBox1Change(Sender: TObject);length(ComboBox1.Text) > 0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:=Фамилия_преподавателя;combobox1.ItemIndex=1 then ADOTable1.Sort:=Имя_преподавателя;combobox1.ItemIndex=2 then ADOTable1.Sort:=Отчество_преподавателя;combobox1.ItemIndex=3 then.Active:=false;.Active:=true;;;;TSpr_prep_disc.BitBtn6Click(Sender: TObject);messagedlg(Удалить данные?,mtinformation,[mbOK,mbCancel],0)=idOK then ADOTable2.Delete else exit;;TSpr_prep_disc.BitBtn4Click(Sender: TObject);.Insert;_disc.Show;;TSpr_prep_disc.BitBtn3Click(Sender: TObject);
beginmessagedlg(Имеются связанные данные. Продолжить?,mtinformation,[mbOK,mbCancel],0)=idOKbeginSpr_prep_disc.ADOTable2 do_prep_disc.ADOTable2.DisableControls;_prep_disc.ADOTable2.First;not Eof do;_prep_disc.ADOTable2.EnableControls;_prep_disc.ADOTable1.Delete;; endexit;;.Unit5;TDob_ych.BitBtn1Click(Sender: TObject);(length(DBEdit1.Text)=0) or (length(DBEdit2.Text)=0) or (length(DBEdit3.Text)=0) or(length(DBLookUpComboBox1.Text)=0) then
messagedlg(Должны быть заполнены все поля,mtinformation,[mbOK],0)
else begin_ych.ADOTable1.Post;_ych.Hide;_ych.Show;;;TDob_ych.BitBtn2Click(Sender: TObject);_ych.ADOTable1.Cancel;_ych.Hide;_ych.Show;;TDob_ych.FormClose(Sender: TObject; var Action: TCloseAction);_ych.Show;;.Unit6;TDob_gr.BitBtn1Click(Sender: TObject);(length(DBEdit1.Text)=0) or (length(DBLookUpComboBox1.Text)=0) then
messagedlg(Должны быть заполнены все поля,mtinformation,[mbOK],0)
else begin_gr.ADOTable1.Post;_gr.ADOQuery1.Active:=false;_gr.ADOQuery1.Active:=true;_gr.Hide;_gr.Show;;;TDob_gr.BitBtn2Click(Sender: TObject);_gr.ADOTable1.Cancel;_gr.Hide;_gr.Show;;TDob_gr.FormClose(Sender: TObject; var Action: TCloseAction);_gr.Show;;.Unit7;TRaport.BitBtn4Click(Sender: TObject);_rap_shap.Show;.ADOTable1.Insert;;TRaport.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;TRaport.BitBtn3Click(Sender: TObject);
0 thencombobox1.ItemIndex=0 then ADOTable1.Sort:=№_группы;combobox1.ItemIndex=1 then ADOTable1.Sort:=дата;combobox1.ItemIndex=2 then.Active:=false;.Active:=true;;;;TRaport.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">beginmessagedlg(Имеются связанные данные. Продолжить?,mtinformation,[mbOK,mbCancel],0)=idOKbeginRaport.ADOTable2 do.ADOTable2.DisableControls;.ADOTable2.First;not Eof do;.ADOTable2.EnableControls;.ADOTable1.Delete;; endexit;;TRaport.BitBtn1Click(Sender: TObject);_rap.Show;.Hide;.ADOTable2.Edit;_rap.DBGrid1.Enabled:=true;_rap.DBLookUpComboBox3.Enabled:=false;_rap.DBEdit1.Enabled:=false;_rap.DBLookUpComboBox4.Enabled:=false;_rap.DBLookUpComboBox5.Enabled:=false;;TRaport.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;;;;TRaport.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;;TRaport.BitBtn5Click(Sender:TObject);.Hide;.Hide;;TRaport.BitBtn6Click(Sender:TObject);.Active:=false;.Active:=true;.Visible:=false;.Visible:=true;;.Unit8;TDob_rap.BitBtn1Click(Sender:TObject);.ADOTable2.Cancel;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=false;;TDob_rap.BitBtn2Click(Sender:TObject);.ADOTable2.Insert;.Enabled:=false;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;TDob_rap.BitBtn3Click(Sender:TObject);.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=false;.ADOTable2.Delete;.ADOTable2.Refresh;;TDob_rap.BitBtn4Click(Sender:TObject);(length(DBLookUpComboBox3.Text)=0)or(length(DBLookUpComboBox4.Text)=0)or(length(DBLookUpComboBox5.Text)=0)or(length(DBEdit1.Text)=0)messagedlg(,mtInformation,[mbOK],0)begin.ADOTable2.Edit;.ADOTable2.FieldByName(_).AsInteger:=Raport.ADOTable1.FieldByName(_).AsInteger;.ADOTable2.FieldByName(_).AsInteger:=Raport.ADOTable1.FieldByName(_).AsInteger;.ADOTable2.FieldByName(__).Value:=false;.ADOTable2.Post;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=false;;;TDob_rap.FormClose(Sender:TObject;varAction:TCloseAction);_rap.DBGrid1.Enabled:=false;_rap.Hide;.Show;;TDob_rap.FormActivate(Sender:TObject);.ADOTable2.Filtered:=false;.ADOTable2.Filter:=_=+IntToStr(Raport.ADOTable1.FieldByName(_).Value)+;.ADOTable2.Filtered:=true;.ADOTable2.Active:=false;.ADOTable2.Active:=true;;.Unit9;TPrikaz.BitBtn1Click(Sender:TObject);_prik_shap.Show;.ADOTable1.Insert;;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);">If (length(Edit1.Text)>0) and (length(MaskEdit1.Text)>0) then.Filter:=(№_группы=+Edit1.Text+) and (дата=+MaskEdit1.Text+);.Filtered:=true;.Visible:=false;.Visible:=true;;TRaport.BitBtn5Click(Sender: TObject);.Hide;.Hide;;TRaport.BitBtn6Click(Sender: TObject);.Active:=false;.Active:=true;.Visible:=false;.Visible:=true;;.Unit8;TDob_rap.BitBtn1Click(Sender: TObject);.ADOTable2.Cancel;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=false;;TDob_rap.BitBtn2Click(Sender: TObject);.ADOTable2.Insert;.Enabled:=false;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;.Enabled:=true;;TDob_rap.BitBtn3Click(Sender: TObject);.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=false;.ADOTable2.Delete;.ADOTable2.Refresh;;TDob_rap.BitBtn4Click(Sender: TObject);(length(DBLookUpComboBox3.Text)=0) or (length(DBLookUpComboBox4.Text)=0) or (length(DBLookUpComboBox5.Text)=0) or (length(DBEdit1.Text)=0)messagedlg(Необходимозаполнить все поля,mtInformation,[mbOK],0)begin.ADOTable2.Edit;.ADOTable2.FieldByName(код_рап).AsInteger:=Raport.ADOTable1.FieldByName(код_рап).AsInteger;.ADOTable2.FieldByName(№_группы).AsInteger:=Raport.ADOTable1.FieldByName(№_группы).AsInteger;.ADOTable2.FieldByName(отметка_об_отработке).Value:=false;.ADOTable2.Post;.Enabled:=true;.Enabled:=false;.Enabled:=true;.Enabled:=false;;;TDob_rap.FormClose(Sender: TObject; var Action: TCloseAction);_rap.DBGrid1.Enabled:=false;_rap.Hide;.Show;;TDob_rap.FormActivate(Sender: TObject);.ADOTable2.Filtered:=false;.ADOTable2.Filter:=код_рап=+ IntToStr(Raport.ADOTable1.FieldByName(код_рап).Value) +;.ADOTable2.Filtered:=true;.ADOTable2.Active:=false;.ADOTable2.Active:=true;;.Unit9;TPrikaz.BitBtn1Click(Sender: TObject);_prik_shap.Show;.ADOTable1.Inse