Реферат Розробка елементів інформаційної системи автоматизації документообігу в спортивній школі

N_Day ]:=5 elseADOTable4.FieldValues ??[ Day ]= субота then ADOTable4.FieldValues ??[ N_Day ]:=6 elseADOTable4.FieldValues ??[ Day ]= воскресіння then ADOTable4.FieldValues ??[ N_Day ]:=7;

//. Post;//.Refresh;//;//;//

//TFormF.ADOTable4AfterEdit (DataSet: TDataSet);////.Enabled:=true;//;//

//TFormF.ADOTable4AfterInsert (DataSet: TDataSet);////.Enabled:=true;//;//

//TFormF.ADOTable4AfterCancel (DataSet: TDataSet);////.Enabled:=false;//;//

//TFormF.ADOTable4AfterPost (DataSet: TDataSet);////.Enabled:=false;//;//.UnitZ ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, Buttons, math;=class (TForm): TDBGrid ;: TDBNavigator;:TGroupBox ;: TGroupBox ;: TGroupBox ;: TGroupBox ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TADOQuery ;: TADOQuery ;: TADOQuery ;: TADOQuery ;: TADOQuery ;: TADOQuery ;: TDataSource ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TLabel ;: TBitBtn ;: TComboBox ;: TLabel ;: TComboBox ;: TBitBtn ;: TBitBtn ;: TBevel ;: TBitBtn ;: TBitBtn; DSDesigner: TWideStringField; DSDesigner2: TDateTimeField; DSDesigner3: TDateTimeField; DSDesigner4: TWideStringField; N_Day: TIntegerField ; DSDesigner: TWideStringField; DSDesigner2: TBooleanField; DSDesigner3: TBCDField; DSDesigner4: TSmallintField ;: TFloatField; BitBtn5Click (Sender: TObject); BitBtn6Click (Sender: TObject); BitBtn1Click (Sender: TObject); BitBtn4Click (Sender: TObject); BitBtn3Click ( Sender: TObject); ComboBox1DropDown (Sender: TObject); ComboBox2DropDown (Sender: TObject); BitBtn10Click (Sender: TObject); BitBtn11Click (Sender: TObject); BitBtn7Click (Sender: TObject); BitBtn8Click (Sender: TObject); BitBtn9Click (Sender:TObject); BitBtn2Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); ADOQuery2CalcFields (DataSet: TDataSet);

{Private declarations}

{Public declarations} ;: TFormZ; UnitMain, UnitF, UnitO;

{$ R * .dfm} TFormZ.BitBtn5Click (Sender: TObject) ;. Show ;; TFormZ.BitBtn6Click (Sender: TObject) ;;; TFormZ.BitBtn10Click (Sender: TObject) ;. Show ;; TFormZ.BitBtn11Click (Sender: TObject) ;. Show ;; TFormZ.ComboBox1DropDown (Sender: TObject);

{заповнює список ComboBox видами спорту з таблиці групи}

var i,code:integer;:string;:=laquo;raquo;;.ADOTable01.Open;.ADOTable01.Sort:=laquo;V_sportraquo;;.ComboBox1.Items.Clear;.ADOTable01.First;i:=1 to FormF.ADOTable01.RecordCount do:=pos (FormF.ADOTable01.FieldValues ??[ V_sport ], S); code=0 then FormZ.ComboBox1.Items.Append(FormF.ADOTable01.FieldValues[laquo;V_sportraquo;]);:=S+FormF.ADOTable01.FieldValues[laquo;V_sportraquo;];.ADOTable01.Next;;.ADOTable01.Close;;TFormZ.ComboBox2DropDown(Sender: TObject);

{заповнює список ComboBox номерами груп з таблиці групи}

var i:integer;.ADOTable01.Open;.ADOTable01.Sort:=laquo;N_grraquo;;.ComboBox2.Items.Clear;.ADOTable01.First;i:=1 to FormF.ADOTable01.RecordCount do.ComboBox2.Items.Append(FormF.ADOTable01.FieldValues[laquo;N_grraquo;]);.ADOTable01.Next;;.ADOTable01.Close;;TFormZ.BitBtn4Click(Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.Caption:=laquo;Запросыraquo;;;TFormZ.BitBtn1Click(Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.DataSet:=ADOQuery1;.Open;.Caption:=laquo;Запрос Список спортсменів raquo ;;; TFormZ.BitBtn2Click (Sender: TObject) ;. Close; .Close; .Close; .Close; .Close; .Close; .DataSet:=ADOQuery2;

ADOQuery2.Open; .Caption:= Запит Заслужені тренери raquo ;;

end; TFormZ.BitBtn3Click (Sender: TObject) ;. Close; .Close; .Close; .Close; .Close; .Close; .DataSet:=ADOQuery3;

ADOQuery3.Open; .Caption:= Запит Кількість в групах raquo ;;

end; TFormZ.BitBtn7Click (Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.DataSet:=ADOQuery4;.Parameters.ParamValues[laquo;ParamSPORTraquo;]:=ComboBox1.Text;

ADOQuery4.Open; .Caption:= Запит Відомості про групах raquo ;;

end; TFormZ.BitBtn8Click (Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.DataSet:=ADOQuery5;.Parameters.ParamValues[laquo;ParamNGRraquo;]:=ComboBox2.Text;.Open;.Caption:=laquo;Запрос Розклад групи № + ComboBox2.Text + raquo ;;

//ADOQuery5.Sort:= nDay raquo ;;; TFormZ.BitBtn9Click (Sender: TObject);.Close;.Close;.Close;.Close;.Close;.Close;.DataSet:=ADOQuery6;.Parameters.ParamValues[laquo;ParamNGRraquo;]:=ComboBox2.Text;.Open;.Caption:=laquo;Запрос Список спортсменів групи № + ComboBox2.Text + raquo ;;; TFormZ.FormClose (Sender: TObject; var Action: TCloseAction);.Close;.Close;.Close;.Close;.Close;.Close;.Caption:=laquo;Запросыraquo;;;TFo...