Реферат Розробка програми автоматизації обліку виплат учнями профспілкових внесків

true ;;

TForm5.Edit1Change (Sender: TObject) ;. ADOQuery1.Close () ;. ADOQuery1.SQL.text:= select * from grup, stud where grup.id_grup=stud.id_grup and grup.id_grup= + IntToStr (Form5.DBLookupComboBox1.KeyValue) + and stud.fio_stud like % + Form5.Edit1.Text + % raquo ;;. ADOQuery1.Open () ;;

TForm5.FormCreate (Sender: TObject) ;. ComboBox1.ItemIndex:=0; .ADOQuery2.Active:=true ;;

. Unit6; .Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, .Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls, .ComCtrls, Vcl.DBCtrls, frxClass, frxDBSet;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBLookupComboBox ;: TDateTimePicker ;: TDateTimePicker ;: TButton ;: TADOQuery ;: TfrxDBDataset ;: TDataSource ;: TfrxReport; DBLookupComboBox1Click (Sender: TObject); Button1Click (Sender: TObject); DateTimePicker1Change (Sender: TObject); DateTimePicker2Change (Sender: TObject); FormCreate (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm6 ;: TDateTime ;: TDateTime ;, myMonth, myDay: Word ;, tmMonth, tmDay: Word;: TDateTime ;, gupMonth, gupDay: Word;

{$ R * .dfm} Unit1, Unit4, Unit3; TForm6.Button1Click (Sender: TObject); (Form6.DBLookupComboBox1.Text lt; gt; ) then begin:=Form6.DateTimePicker1.Date;:=Form6.DateTimePicker2.Date;.ADOQuery1.Active:=False;(myDate,myYear, myMonth, myDay); (tmDate, tmYear, tmMonth, tmDay);.ADOQuery1.Parameters.ParamByName(laquo;D1raquo;).Value:=EncodeDate(myYear,myMonth,01);.ADOQuery1.Parameters.ParamByName(laquo;D2raquo;).Value:=EncodeDate(tmYear, tmMonth, tmDay) ;. ADOQuery1.Active:=true;.frxReport1.ShowReport;

ShowMessage ( Ви не ввели групу );

end;

TForm6.Button2Click (Sender: TObject) ;. frxReport1.ShowReport ;;

TForm6.DateTimePicker1Change (Sender: TObject);:=now;:=Form6.DateTimePicker1.Date; (myDate, myYear, myMonth, myDay); (gupDate, gupYear, gupMonth, gupDay); ( myDate lt; tmDate) then ( Введена дата більше існуючої ) ;. DateTimePicker1.Date:=now ;;;

TForm6.DateTimePicker2Change (Sender: TObject);:=now;:=Form6.DateTimePicker2.Date; (myDate, myYear, myMonth, myDay); (gupDate, gupYear, gupMonth, gupDay); ( myDate lt; tmDate) then ( Введена дата більше існуючої ) ;. DateTimePicker2.Date:=now;;;TForm6.DBLookupComboBox1Click(Sender: TObject);.ADOQuery1.Parameters.ParamByName(laquo;draquo;).Value:=Form6.DBLookupComboBox1.KeyValue;;

TForm6.FormCreate (Sender: TObject) ;. ADOQuery1.Active:=true;

end;