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

ShowModal ;;

TForm1.N8Click (Sender: TObject) ;. ShowModal ;;

TForm1.N9Click (Sender: TObject) ;. ShowModal ;;. Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, .Controls, Vcl.Forms , Vcl.Dialogs, Vcl.StdCtrls;=class (TForm): TLabel ;: TEdit ;: TLabel ;: TEdit ;: TCheckBox ;: TButton; CheckBox1Click (Sender: TObject); FormCreate (Sender: TObject); Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm2;

{$ R * .dfm} Unit1; TForm2.Button1Click (Sender: TObject);

if (form2.Edit1.Text lt; gt; ) and (Form2.Edit2.Text lt; gt; ) and (Form2.Edit1.Text lt; gt; ) and (Form2.Edit2.Text lt; gt; ) then begin (Form1.ADOConnection1.Connected=false) then begin.ADOConnection1.Connected:=false;.ADOConnection1.ConnectionString:=laquo;Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False; Initial Catalog= + Form2.Edit2.Text + laquo ;; Data Source= + Form2.Edit1.Text + laquo ;; Use Procedure for Prepare=1; Auto Translate= True; Packet Size=4 096; Workstation ID=ADMINKA; Use Encryption for Data=False; Tag with column collation when possible=False; raquo ;;. ADOConnection1.Connected:=True;:=true;

except:=false; ( Ім'я сервера або назва бд невірні );

Form2.Edit1.Clear; .Edit2.Clear ;;

(ler=true) then begin_b:=Form1.ADOConnection1.ConnectionString; (file_i, conf.txt );// Зв'язок змінної з файлом. (File_i);// Створення нового файлу (file_i, file_b);// Запис рядка в файл. (File_i); ( База Підключена ) ;. Label1.Caption:= База даних підключена raquo ;;. Close ;; else begin (Form1.ADOConnection1.Connected=false) then begin

Form1.Label1.Caption:= База даних не підключена raquo ;;

Form1.Label1.Font.Color:=clRed;.Label1.Color:=clRed;.Cursor:=crAppStart;.Label1.Caption:=laquo;База даних підключена raquo ;;. Label1.Color:=clGreen; .Edit1.Clear; .Edit2.Clear; ( База Підключена ) ;. Close ;;

( Ви не ввели всі дані ) ;;

TForm2.CheckBox1Click (Sender: TObject); (Form2.CheckBox1.Checked=true) then begin.Edit2.Enabled:=false;.Edit2.Text:=laquo;svetaraquo;;begin.Edit2.Enabled:=true;.Edit2.Clear;;;TForm2.FormCreate(Sender: TObject) ;. Edit2.Text:= sveta raquo ;;. Edit2.Enabled:=false ;;. Unit2; .Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics ,. Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;=class (TForm): TLabel ;: TEdit ;: TLabel ;: TEdit ;: TCheckBox ;: TButton; CheckBox1Click (Sender: TObject); FormCreate (Sender: TObject) ; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};

: TForm2;

{$ R * .dfm} Unit1;

TForm2.Button1Click (Sender: TObject);

if (form2.Edit1.Text lt; gt; ) and (Form2.Edit2.Text lt; gt; ) and (Form2.Edit1.Text lt; gt; ) and (Form2.Edit2.Text lt; gt; ) then begin (Form1.ADOConnection1.Connected=false) then begin.ADOConnection1.Connected:=false;.ADOConnection1.ConnectionString:=laquo;Provider=SQLOLEDB.1;Integrated Security=SSPI; Persist Security Info=False; Initial Catalog= + Form2.Edit2.Text + laquo ;; Data Source= + Form2.Edit1.Text + laquo ;; Use Procedure for Prepare=1; Auto Translate= True; Packet Size=4 096; Workstation ID=ADMINKA; Use Encryption for Data=False; Tag with column collation when possible=False; raquo ;;. ADOConnection1.Connected:=True;:=true;

except:=false; ( Ім'я сервера або назва бд невірні );

Form2.Edit1.Clear; .Edit2.Clear ;;

(ler=true) then begin_b:=Form1.ADOConnection1.ConnectionString; (file_i, conf.txt );// Зв'язок змінної з файлом. (File_i);// Створення нового файлу (file_i, file_b);// Запис рядка в файл. (File_i); ( База Підключена ) ;. Label1.Caption:= База даних підключена raquo ;;. Close ;; else begin (Form1.ADOConnection1.Connected=false) then begin

Form1.Label1.Caption:= База даних не підключена raquo ;;

Form1.Label1.Font.Color:=clRed;.Label1.Color:=clRed;.Cursor:=crAppStart;.Label1.Caption:=laquo;База даних підключена raquo ;;. Label1.Color:=clGreen; .Edit1.Clear; .Edit2.Clear; ( База Підключена ) ;. Close ;;

( Ви не ввели всі дані ) ;;

TForm2.CheckBox1Click (Sender: TObject); (Form2.CheckBox1.Checked=true) then begin.Edit2.Enabled:=false;.Edit2.Text:=laquo;svetaraquo;;begin.Edit2.Enabled:=true;.Edit2.Clear;;

TForm2.FormCreate (Sender: TObject) ;. Edit2.Text:= sveta raquo ;;. ...