t (DataSet: TDataSet); ADOTable4AfterCancel (DataSet: TDataSet); ADOTable4AfterPost (DataSet: TDataSet); BitBtn3Click (Sender: TObject); BitBtn4Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFormF; UnitMain, UnitZ, UnitO;
{$ R * .dfm} CreateSpGr;
{заповнює список ComboBox номерами груп з таблиці группы}i:integer;.ADOTable01.Open;.ADOTable01.Sort:=laquo;N_grraquo;;.DBComboBox1.Items.Clear;.ADOTable01.First;i:=1 to FormF.ADOTable01.RecordCount do.DBComboBox1.Items.Append(FormF.ADOTable01.FieldValues[laquo;N_grraquo;]);.ADOTable01.Next;;.ADOTable01.Close;;TFormF.BitBtn2Click(Sender: TObject) ;;; TFormF.BitBtn1Click (Sender: TObject) ;. Show ;; TFormF.BitBtn3Click (Sender: TObject) ;. Show ;; TFormF.BitBtn4Click (Sender: TObject) ;. Show ;; TFormF.FormCreate (Sender: TObject) ;. Caption:= Форма + + PageControl1.ActivePage.Caption + raquo ;;. Sort:= N_gr raquo ;;. Sort:= N_tren ;
//ADOTable3.Sort:= N raquo ;; Разом з сортуванням починає глючити
//ADOTable4.Sort:= N_day raquo ;;;. Refresh ;; TFormF.PageControl1Change (Sender: TObject) ;. Caption:= Форма + + PageControl1.ActivePage.Caption + raquo ;;; TFormF.DBNavigator1Click (Sender: TObject; Button: TNavigateBtn); Button of: .SetFocus; .Insert ;;;; TFormF.DBNavigator2Click (Sender: TObject; Button: TNavigateBtn); Button of: .SetFocus; .Insert ;;;; TFormF.DBNavigator3Click (Sender: TObject; Button: TNavigateBtn); Button of: .SetFocus; .Insert ;;;; TFormF.DBNavigator4Click (Sender: TObject; Button: TNavigateBtn); Button of: .SetFocus; .Insert ;;;; TFormF.DBComboBox1DropDown (Sender: TObject) ;;; TFormF.pst1Click (Sender: TObject);////(ADOTable1.FieldValues[laquo;N_trenraquo;]=null) Or (ADOTable1.FieldValues ??[ N_gr ]=null) or (ADOTable1.FieldValues ??[ V_sport ]=null) then
begin//( Не всі обов'язкові поля заповнені );//
end //////.Post;//.Refresh;//;// кнопка pst1 виконує функцію;// кнопки Post DBNavigator1
//TFormF.ADOTable1AfterEdit (DataSet: TDataSet);////.Enabled:=true;//;//
//TFormF.ADOTable1AfterInsert (DataSet: TDataSet);////.Enabled:=true;//;//
//TFormF.ADOTable1AfterPost (DataSet: TDataSet);////.Enabled:=false;//;//
//TFormF.ADOTable1AfterCancel (DataSet: TDataSet);////.Enabled:=false;//;//TFormF.pst2Click(Sender: TObject);////(ADOTable2.FieldValues[laquo;N_trenraquo;]=null) Or (ADOTable2.FieldValues ??[ FIO ]=null) or (ADOTable2.FieldValues ??[ Oklad ]=null) then
begin//( Не всі обов'язкові поля заповнені );//// Кнопка pst2 виконує функцію//кнопки Post DBNavigator2
begin //ADOTable2.FieldValues[laquo;Nadbraquo;]=null then ADOTable2.FieldValues ??[ Nadb ]:=0; .Post;//.Refresh;//;//;//
//TFormF.ADOTable2AfterEdit (DataSet: TDataSet);////.Enabled:=true;//;//
//TFormF.ADOTable2AfterInsert (DataSet: TDataSet);////.Enabled:=true;//;//
//TFormF.ADOTable2AfterCancel (DataSet: TDataSet);////.Enabled:=false;//;//
//TFormF.ADOTable2AfterPost (DataSet: TDataSet);////.Enabled:=false;//;//TFormF.pst3Click(Sender: TObject);////(ADOTable3.FieldValues[laquo;Nraquo;]=null) Or (ADOTable3.FieldValues ??[ FIO ]=null) or (ADOTable3.FieldValues ??[ N_gr ]=null) {or (ADOTable3. FieldValues ??[ Oklad ]=null)} then
begin//( Не всі обов'язкові поля заповнені );//// Кнопка pst3 виконує функцію//кнопки Post DBNavigator3
begin //.Post;//.Refresh;//;//;//
//TFormF.ADOTable3AfterEdit (DataSet: TDataSet);////.Enabled:=true;//;//
//TFormF.ADOTable3AfterInsert (DataSet: TDataSet);////.Enabled:=true;//;//
//TFormF.ADOTable3AfterCancel (DataSet: TDataSet);////.Enabled:=false;//;//
//TFormF.ADOTable3AfterPost (DataSet: TDataSet);////.Enabled:=false;//;//TFormF.pst4Click(Sender: TObject);////(ADOTable4.FieldValues[laquo;Dayraquo;]=null) Or (ADOTable4.FieldValues ??[ BeginT ]=null) or (ADOTable4.FieldValues ??[ Mesto ]=null) then
begin//( Не всі обов'язкові поля заповнені );//// Кнопка pst4 виконує функцію
else//кнопки Post DBNavigator4
beginADOTable4.FieldValues ??[ Day ]= понеділок then ADOTable4.FieldValues ??[ N_Day ]:=1 elseADOTable4.FieldValues ??[ Day ]= вівторок then ADOTable4.FieldValues ??[ N_Day ]:=2 elseADOTable4.FieldValues ??[ Day ]= середу then ADOTable4.FieldValues ??[ N_Day ]:=3 elseADOTable4.FieldValues ??[ Day ]= четвер then ADOTable4.FieldValues ??[ N_Day ]:=4 elseADOTable4.FieldValues ??[ Day ]= п'ятницю then ADOTable4.FieldValues ??[...
