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); (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 ;;
ShowMessage ( Ви не ввели всі дані );
end; 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 ;;
. unit Unit5; .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, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls;=class (TForm): TPanel ;: TDBGrid ;: TDBGrid ;: TLabel ;: TEdit ;: TDBLookupComboBox ;: TDateTimePicker ;: TComboBox ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TADOQuery ;: TDataSource ;: TDataSource; id_vedom: TAutoIncField; id_stud: TIntegerField; data: TWideStringField; summa: TIntegerField ;: TADOQuery; id_stud: TAutoIncField; id_grup: TIntegerField; fio_stud: TStringField ; id_grup_1: TAutoIncField; name_grup: TStringField; Edit1Change (Sender: TObject); ADOQuery1AfterScroll (DataSet: TDataSet); DBLookupComboBox1Click (Sender: TObject); Button1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm5 ;: TDateTime ;: TDateTime;: Integer;: integer ;, myMonth, myDay: Word;
{$ R * .dfm} Unit1, Unit3; TForm5.ADOQuery1AfterScroll (DataSet: TDataSet) ;. ADOQuery2.Filtered:=False; .ADOQuery2.Filter:= id_stud =raquo;+IntToStr(ADOQuery1.FieldByName(laquo;id_studraquo;).AsInteger);.ADOQuery2.Filtered:=True;;
TForm5.Button1Click (Sender: TObject);:=now;:=Form5.DateTimePicker1.Date; (myDate lt;=tmDate) then ( Введена дата більше існуючої ) ;. DateTimePicker1.Date :=now;
exit ;;
//перевірка оплади групи за місяць
if(Form5.DBLookupComboBox1.Textlt;gt;laquo;raquo;)and(Form5.ComboBox1.Textlt;gt;laquo;raquo;)and(Form5.ADOQuery1.RecordCountgt;0) then begin:=Form5.DateTimePicker1.Date; (myDate, myYear, myMonth, myDay) ;. ADOQuery1.First;:=Form5.ADOQuery1.RecordCount; i:=1 to kol do begin.ADOQuery2.Insert; .ADOQuery2.FieldByName ( id_stud ). AsInteger:=Form5.ADOQuery1.FieldByName(laquo;id_studraquo;).AsInteger;.ADOQuery2.FieldByName(laquo;summaraquo;).AsInteger: =StrToInt (Form5.ComboBox1.text) ;. ADOQuery2.FieldByName ( data ). AsDateTime:=EncodeDate (myYear, myMonth, myDay) ;;. ADOQuery2.Post; .ADOQuery1.Next ;; ( Не всі заповнене !!! ) ;;
TForm5.DBLookupComboBox1Click (Sender: TObject) ;. ADOQuery1.Active:=false;.ADOQuery1.SQL.Text:=laquo;select * from grup, stud where grup.id_grup=stud.id_grup and grup.id_grup= + IntToStr (Form5.DBLookupComboBox1.KeyValue) ;. ADOQuery1.Active:=...
