Реферат Автоматизація контролю навчання студентів

;

DataModule2.tbStudent.Sort: = 'ПІБ';

with DataModule2.tbGruppa do begin

First;

while not eof do begin

ListBox1.Items.Add (FieldByName ('НГ'). AsString);

Next;

end;

end;

with DataModule2.qFirstDate do begin

Active: = true;

First;

Unit2.Filter.fDate: = Fields [0]. AsDateTime;

Active: = false;

end;

Filter.ldate: = date ();

ListBox1.ItemIndex: = 0;

ListBox1Click (nil);; TForm1.ListBox1Click (Sender: TObject);

Filter.Group: = ListBox1.Items [ListBox1.ItemIndex];

DBGrid1.DataSource.DataSet.Filtered: = false;

DBGrid1.DataSource.DataSet.Filtered: = true;;. Unit2;

SysUtils, Classes, DB, ADODB;

TDataModule2 = class (TDataModule)

dsUspev: TDataSource;

ADOConnection1: TADOConnection;

tbPredm: TADOTable;

tbGruppa: TADOTable;

tbStudent: TADOTable;

qFirstDate: TADOQuery;

dsStudent: TDataSource;

dsPredm: TDataSource;

qPrilDipl: TADOQuery;

qAvgMark: TADOQuery;

qVed: TADOQuery;

tbUspev: TADOQuery;

tbUspevDSDesigner: TIntegerField;

tbUspevDSDesigner2: TIntegerField;

tbUspevDSDesigner3: TDateTimeField;

tbUspevDSDesigner4: TIntegerField;

tbUspevDSDesigner5: TWideStringField;

tbUspevDSDesigner6: TWideStringField;

tbUspevStringField: TStringField;

tbUspevField: TStringField;

procedure DataModuleCreate (Sender: TObject);

procedure tbUspevFilterRecord (DataSet: TDataSet; var Accept: Boolean);

end;

TFilterRec = record

Group,

FIO,

Subject: String;

fDate,

lDate: TDateTime;

end; DataModule2: TDataModule2;

Filter: TFilterRec;

{$ R *. dfm} TDataModule2.DataModuleCreate (Sender: TObject);

tbStudent.Sort: = 'ПІБ';; TDataModule2.tbUspevFilterRecord (DataSet: TDataSet;

var Accept: B...