Реферат Програма &Студентський гуртожиток&

(Sender: TObject); ComboBox1Change (Sender: TObject); ComboBox2Change (Sender: TObject); BitBtn2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm2; Unit1;

{$ R * .dfm} TForm2.BitBtn1Click (Sender: TObject);.Locate(laquo;FIOstraquo;,edit1.Text,[loCaseInsensitive,loPartialKey]);TForm2.ComboBox1Change(Sender: TObject) ;: string; combobox1.ItemIndex=0 then form2.Table1.Filter:=laquo;raquo;form2.Table1.Filter:=laquo;IDgroup=raquo;+QuotedStr(combobox1.Text);:=QuotedStr(combobox1.Text);;TForm2.ComboBox2Change(Sender: TObject); ComboBox2.ItemIndex=0 then table1.IndexName:= table1.IndexName:= Komnata ;; TForm2.BitBtn2Click (Sender: TObject) ;. Preview ;;. Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;=class (TForm ): TDataSource ;: TDBGrid ;: TDBNavigator ;: TTable;

{Private declarations}

{Public declarations} ;: TForm3;

{$ R * .dfm} .Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,;= class (TForm): TDataSource ;: TDBGrid ;: TDBNavigator ;: TTable ;: TTable ;: TDBGrid ;: TDBNavigator ;: TDataSource; IDgroup: TStringField; Kurs: TSmallintField; Spec: TStringField; special: TStringField;

{Private declarations}

{Public declarations} ;: TForm4;

{$ R * .dfm}