Реферат Бази даних

it1.Text);.PrepareReport;.ShowPreparedReport;;TForm3.Button2Click(Sender: TObject) ;. Open; .Open; .PrepareReport; .ShowPreparedReport ;;

Форма Вибірка

Viborka;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Grids, DBGrids;=class (TForm): TDBGrid ;: TButton; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm8; Stud;

{$ R * .dfm} TForm8.Button1Click (Sender: TObject) ;. Close ;;. 1: TDBGrid;

DBNavigator1: TDBNavigator; FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations} ;: TForm14;

{$ R * .dfm} Main, Data; TForm14.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;;.

Форма Спеціальність

Spec ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, ExtCtrls, DBCtrls, StdCtrls, Mask;=class (TForm): TMainMenu ;: TMenuItem ;: TDBEdit;:TDBMemo ;: TLabel ;: TLabel ;: TDBNavigator; N1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations} ;: TForm5; Main, Data;

{$ R * .dfm} TForm5.N1Click (Sender: TObject) ;. Close; .Show ;; TForm5.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;;.

Форма Викладачі

unit Prepod; .Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, .Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.DBCtrls, .Grids, Vcl.DBGrids;=class (TForm): TMainMenu ;: TMenuItem ;: TDBGrid ;: TDBNavigator; FormClose (Sender: TObject; var Action: TCloseAction); N1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm11;

{$ R * .dfm} Data, Main; TForm11.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;; TForm11.N1Click (Sender: TObject) ;. Close ;;.

Форма Предмети

Predmet ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, StdCtrls, ExtCtrls, DBCtrls, Mask;=class (TForm): TMainMenu ;: TMenuItem ;: TDBEdit;:TDBNavigator ;: TLabel; N1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations};

var

Form4: TForm4; Main, Data;

{$ R * .dfm} TForm4.N1Click (Sender: TObject) ;. Close; .Show ;; TForm4.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;;.

Форма Переклад студента

perevod;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DBCtrls, DB, ADODB;=class (TForm): TDBLookupComboBox ;: TButton ;: TLabel ;: TADOQuery; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm9; Data, Stud;

{$ R * .dfm} TForm9.Button1Click (Sender: TObject) ;. Close; .SQL.Clear; .SQL.Add ( Update Student Set Id_gruppi= + IntToStr (DBLookupComboBox1.KeyValue) + Where Student.id_student=raquo;+Form2.DBGrid1.DataSource.DataSet.FieldByName(laquo;id_studentraquo;).AsString);.ExecSQL;.Student.Close;.Student.Open;.Close;.Show;;.

Форма Кафедра

Kafedra;

interface.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, .Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls , Vcl.Grids, .DBGrids;=class (TForm): TDBGrid ;: TDBNavigator; FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations} ;: TForm12;

{$ R * .dfm} Data, Main; TForm12.FormClose (Sender: TObject; var Action: TCloseAction) ;. Show ;;.

Форма Оцінка

Ocenka ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, Grids, DBGrids, DB, ADODB, StdCtrls, DBCtrls, ExtCtrls ,, frxClass, frxDBSet;=class ( TForm): TMainMenu ;: TMenuItem ;: TGroupBox ;: TADOQuery ;: TDataSource ;: TDBGrid ;: TPanel ;: TLabel ;: TLabel ;: TDBLookupComboBox ;: TDBLookupComboBox ;: TButton ;: TButton ;: TADOQuery ;: TGroupBox ;: TLabel;:TLabel ;: TDateTimePicker ;: TDateTimePicker ;: TGro...