Теми рефератів

> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти

Реферати, твори, дипломи, практика » Статьи » Розробка додатків баз даних

Реферат Розробка додатків баз даних

Тема: Статьи

public

{Public declarations}

end;

Form5: TForm5; Unit11;

{$ R * .dfm} TForm5.ComboBox1Change (Sender: TObject) ;. Active:=true ;; TForm5.Edit1Change (Sender: TObject) ;. Open ;; TForm5.Button1Click (Sender: TObject) ;. show; .Close ;;

Опис модуля Unit 6

unit Unit6;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

TForm6=class (TForm)

Button1: TButton;

Edit1: TEdit;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

Label1: TLabel;

DBNavigator1: TDBNavigator;

Label2: TLabel;

Memo1: TMemo;

Button2: TButton;

Label3: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form6: TForm6; Unit11;

{$ R * .dfm} TForm6.Button1Click (Sender: TObject) ;. Close; not Query1.Prepared then.Prepare; length (edit1.text) lt; gt; 0 then.Params [ 0] .Value:=edit1.Text.Params [0] .Value:=0; .Text:= Введіть номер семестру! raquo ;;;. Open ;; TForm6.Button2Click (Sender: TObject) ;. show;.Close ;;

Опис модуля Unit 7

Unit7;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, DBGrids, DBTables, DB, Mask, DBCtrls, ExtCtrls,

QRCtrls, QuickRpt;

TForm7=class (TForm)

Label1: TLabel;

Label2: TLabel;

DataSource1: TDataSource;

Query1: TQuery;

Edit2: TEdit;

Button1: TButton;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label3: TLabel;

DBGrid1: TDBGrid;

Label4: TLabel;

Label5: TLabel;

DBNavigator1: TDBNavigator;

Button2: TButton;

Label6: TLabel;

Label7: TLabel;

Memo1: TMemo;

ComboBox1: TComboBox;

Label8: TLabel;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form7: TForm7; Unit5, Unit11;

{$ R * .dfm} TForm7.Button1Click (Sender: TObject) ;. Close; not Query1.Prepared then.Prepare; length (edit2.text) lt; gt; 0 then.Params [ 0] .Value:=edit2.Text.Params [0] .Value:=0; .Text:= Введіть назву! raquo ;;;. Open ;; TForm7.Button2Click (Sender: TObject) ;. show ;. close ;; TForm7.Button3Click (Sender: TObject) ;. show; .close ;;

Опис модуля Unit 8

unit Unit8;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, Mask, DBCtrls, ExtCtrls;

TForm8=class (TForm)

Label4: TLabel;

DataSource1: TDataSource;

Query1: TQuery;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Memo1: TMemo;