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

rmZ.ADOQuery2CalcFields(DataSet: TDataSet) ;. Value:=roundto ((ADOQUERY2DSDesigner3.Value * (1+ (ADOQUERY2DSDesigner4.Value/100))), - 2) ;;. UnitO ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , StdCtrls, Buttons, RpCon, RpConDS, RpBase, RpSystem, RpDefine ,, RpRender, RpRenderHTML, jpeg, ExtCtrls, DB, ADODB, RpRenderPDF ,, DBGrids, math;=class (TForm): TRvProject ;: TRvSystem ;: TRvDataSetConnection ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TRvRenderHTML ;: TImage ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TADOQuery ;: TADOQuery ;: TADOQuery ;: TRvDataSetConnection ;: TRvDataSetConnection ;: TImage; N_tren: TIntegerField; FIO: TWideStringField; Oklad: TBCDField; Nadb: TSmallintField ;: TFloatField; BitBtn4Click (Sender: TObject); BitBtn5Click (Sender: TObject); BitBtn6Click (Sender: TObject); BitBtn7Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn1Click ( Sender: TObject); BitBtn2Click (Sender: TObject); ADOQuery3CalcFields (DataSet: TDataSet);

{Private declarations}

{Public declarations} ;: TFormO; UnitMain, UnitF, UnitZ;

{$ R * .dfm} TFormO.BitBtn4Click (Sender: TObject) ;. Show ;; TFormO.BitBtn5Click (Sender: TObject) ;. Show ;; TFormO.BitBtn6Click (Sender: TObject);.Show ;; TFormO.BitBtn7Click (Sender: TObject) ;;; TFormO.BitBtn3Click (Sender: TObject) ;. ExecuteReport ( ReportTren ) ;; TFormO.BitBtn1Click (Sender: TObject) ;. ExecuteReport ( ReportRasp ) ;; TFormO.BitBtn2Click (Sender: TObject) ;. ExecuteReport ( ReportSpis ) ;; TFormO.ADOQuery3CalcFields (DataSet: TDataSet) ;. Value:=roundto ((ADOQUERY3OKLAD.Value * (1+ (ADOQUERY3nadb.Value/ 100))), - 2) ;;. UnitA; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls ,, ExtCtrls;=class (TForm): TTimer ;: TShape ;: TImage ;: TImage ;: TImage;:TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TLabel ;: TLabel ;: TLabel; FormShow (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); Timer1Timer (Sender: TObject);

{Private declarations}

{Public declarations} ;: TAboutBox;

{$ R * .dfm} Delay (dwMilliseconds: Word) ;, iStop: DWORD;:=GetTickCount;:=GetTickCount; .ProcessMessages; ((iStop - iStart) gt;=dwMilliseconds); ; TAboutBox.FormShow (Sender: TObject) ;. Enabled:=true ;; TAboutBox.FormClose (Sender: TObject; var Action: TCloseAction); i: integer; i:=60 downto 1 do.AlphaBlendValue:=AboutBox.AlphaBlendValue -4; (10) ;;; TAboutBox.Timer1Timer (Sender: TObject) ;. Enabled:=false ;;;. UnitP ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm ): TGroupBox ;: TGroupBox ;: TGroupBox ;: TButton ;: TButton ;: TButton ;: TEdit ;: TEdit ;: TEdit; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); FormCreate (Sender: TObject); Edit2Change (Sender: TObject);

{Private declarations}

{Public declarations} ;: TFormP;: boolean=true; UnitMain, UnitA;

{$ R * .dfm} test (a: string): boolean; f: file of char;: array of char;: array of char;: char;: integer;: integer ;: integer;

//p: string;: string [3];

//r: integer;

//rc: string [1]; (f, hdrdata.base ); (f);:=0; not EOF (f) do (s); (m, ( s)); (m1, (s)); (f, b); [s - 1]:=b; [s - 1]:=b ;; (f); s lt; gt; 131 + Length (a ) * 3 then:=false ;;; i:=1 to Length (a) do:=inttostr (758-ord (a [i])); j:=1 to 3 do [j + 3 * (i -1) +130]:=c [j];// blockwrite (f, c [j], 1) ;;:=true; i:=0 to s - 1 dom [i] lt; gt; m1 [i] then result:=false ;; setp (p: string); f: file {of string [3]} ;: integer;: integer;

//p: string;: string [3] ;: integer;: string [1]; (f, hdrdata.base ); (f, 1);

//showmessage (p [1]) ;; i:=1 to 131 do:=random (10);

//showmessage (inttostr (r));:=inttostr (r); (f, rc [1], 1) ;; i:=1 to Length (p) do:=inttostr (758-ord (p [i])); j:=1 to 3 do (f, c [j], 1) ;; (f) ;; TFormP.Button1Click (Sender: TObject); test (Edit1.Text ) then close else showmessage ( access denied; -) ) ;; TFormP.Button2Click (Sender: TObject); aut then FormMain.Close else close ;; TFormP.Button3Click (Sender: TObject); not test (Edit1. Text) then showmessage ( access denied; -) ) Edit2.Text lt; gt; Edit3.Text then showmessage ( Новий пароль не збігається з підтвердженням! ) (Edit2.Text); ( Пароль змінений raquo ;) ;;;; TFormP.FormCreate (Sender: TObject);.Visible:=true;.Visible:=true;.Visible:=false;.Visible:=false;.Visible:=false;.Text:=laquo;raquo;;;TFormP.Edit2Change(Sender: TObject); length (Edit2.Text) lt; 6 then Button3.Enabled:=false else Button3.Enabled:=true;

end;.