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

="justify"> {Public declarations} ;: TForm1;: string;: boolean; Unit2, Unit3, Unit6;

{$ R * .dfm} TForm1.Button1Click (Sender: TObject); (LoginEdit.Text lt; gt; ) and (PasswordEdit.Text lt; gt; ) then// поля НЕ пустые.Active:=false;.Parameters.ParamByName(laquo;lograquo;).Value:=LoginEdit.Text;.Active:=true;UserQuery.RecordCountlt;gt;0 thenUserQuery.FieldByName ( Password1 ). AsString=PasswordEdit.Text then begin:=LowerCase(LoginEdit.Text);UserQuery.FieldByName(laquo;Dostup1raquo;).AsString=laquo;Trueraquo; then Dostup:=true//є доступ

//then Form2.Show; Dostup:=false; .Show//Close; MessageBox (handle, PChar ( Пароль невірний! ), PChar ( Увага ), 16 ) ;; MessageBox (handle, PChar ( Введіть ім'я користувача та пароль ), PChar ( Увага ), 48);//порожні поля; TForm1.Button3Click (Sender: TObject); (handle, PChar ( laquo ; Введіть Ваше ім'я користувача та пароль! ), PChar ( Увага ), 64) ;; TForm1.Button2Click (Sender: TObject) ;. Terminate ;; TForm1.Button4Click (Sender: TObject);

//MiProgressBar.Show ;;.

Form Glawn;

unit Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, jpeg, ExtCtrls, XPMan;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TXPManifest ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage; N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); N7Click (Sender: TObject) ; Image1Click (Sender: TObject); N2Click (Sender: TObject); N6Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TGlawn; Unit1, zayavlenie, Bxod, Unit5, Unit8, Unit9;

{$ R * .dfm} TGlawn.N3Click (Sender: TObject) ;. show ;; TGlawn.N4Click (Sender: TObject) ;. show ;; TGlawn.N5Click (Sender: TObject);.show ;; TGlawn.N7Click (Sender: TObject) ;. show; Form1.LoginEdit.text= admin then Glawn.N7.Visible:=trueGlawn.n7.Visible:=false ;; TGlawn.Image1Click (Sender: TObject); Form1.LoginEdit.text= admin then Glawn.N7.Visible:=trueGlawn.n7.Visible:=false ;; TGlawn.N2Click (Sender: TObject) ;. show ;; TGlawn.N6Click (Sender: TObject); () ;;.

Form Zayav

unit zayavlenie ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, StdCtrls, Mask, DBCtrls, ComCtrls, ExtCtrls, DB, ADODB;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TMenuItem ;: TDateTimePicker ;: TDateTimePicker ;: TButton ;: TEdit ;: TEdit ;: TADOTable ;: TDataSource ;: TDBComboBox ;: TLabel ;: TDBNavigator ;: TEdit ;: TEdit; N2Click (Sender: TObject); N6Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); N7Click (Sender: TObject); N8Click (Sender: TObject); N10Click (Sender: TObject); N11Click (Sender: TObject); N13Click (Sender: TObject); N14Click (Sender: TObject); N12Click (Sender: TObject); Button3Click (Sender: TObject); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations} ;: Tzayav; ComObj, Unit1;

{$ R * .dfm} Tzayav.N2Click (Sender: TObject) ;, Doc: variant;:=CreateOleObject ( Word.Application ); ( Word не встановлено! ) ;;;. Visible:=true;:=Wordapp.Documents.Add;

//WordApp.Selection.TypeParagraph;.Selection.Paragraphs.Alignment:=2;.Selection.Font.Size:=14;.Selection.Font.Bold:=true;

WordApp.Selection.TypeText ( Начальнику ОВО при + # 13 + # 10 + ОВС по Боровському району + # 13 + # 10 + підполковнику міліції + # 13 + # 10 + Лузгачеву С.І. + # 13 + # 10);

WordApp.Selection.TypeText ( від + Edit1.Text + # 13 + # 10 + # 13 + # 10) ;. Selection.TypeText ( + # 13 + # 10 + # 13 + # 10 + # 13 +#10);.Selection.Paragraphs.Alignment:=1;.Selection.Font.Size:=14;.Selection.TypeText(laquo;Заявлениеraquo;+#13 + # 10) ;. Selection.Paragraphs.Alignment:=0; .Selection.Font.Size:=15; .Selection.Font.Bold:=false;

WordApp.Selection.TypeText ( Прошу Вас вжити під охорону об'єкт + Edit2.Text); .Selection.TypeText ( розташований за адресою: + Edit3.Text) ;. Selection.TypeText ( з + DateToStr (DateTimePicker2.Date) + року. Час охорони об'єкта щодня з ______ годин до ______ годин. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10) ;. Selection.TypeText ( Оплату гарантую. + # 13 + # 10 + # 13 + # 10 + # 13 + # 10 + # 13 + # 10);

WordApp.Selection.Paragraphs.Alignment:=2; .Selection.TypeText ( _______________ _____________ + # 13 + # 10) ;. Selection.TypeText (...