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

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

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

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

Тема: Статьи

1Click (Sender: TObject) ;. show; .close ;;

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

unit Unit9;

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

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

TForm9=class (TForm)

Edit1: TEdit;

Query1: TQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button1: TButton;

Query2: TQuery;

DataSource2: TDataSource;

Button2: TButton;

DBEdit1: TDBEdit;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Name: TComboBox;

Button3: TButton;

Memo1: TMemo;

Label4: TLabel;

Button4: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form9: TForm9; Unit11, Unit13;

{$ R * .dfm} TForm9.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 ;; TForm9.Button2Click (Sender: TObject) ;. Close; not Query2.Prepared then.Prepare; length (edit1.text) lt; gt; 0 then.Params [0] .Value:=edit1.Text.Params [0] .Value:=0; .Text:= Введіть номер семестру! raquo ;;;. Open ;; TForm9.Button3Click (Sender: TObject) ;. show; .close ;; TForm9.Button4Click (Sender: TObject) ;. QuickRep1.Preview ;;

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

unit Unit10;

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

Dialogs, ExtCtrls, QuickRpt, StdCtrls, DB, DBTables, Mask, DBCtrls,

Grids, DBGrids;

TForm10=class (TForm)

Button1: TButton;

Query1: TQuery;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Button2: TButton;

Label3: TLabel;

ComboBox1: TComboBox;

Label4: TLabel;

Label5: TLabel;

Memo1: TMemo;

Label6: TLabel;

Label7: TLabel;

Button3: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

{Private declarations}

public

{Public declarations}

end;

Form10: TForm10; Unit3, Unit7, Unit12, Unit11;

{$ R * .dfm} TForm10.Button1Click (Sender: TObject) ;. QuickRep1.Preview ;; TForm10.Button2Click (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 ;; TForm10.Button3Click (Sender: TObject) ;. show ;;

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

unit Unit11;

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

Dialogs, StdCtrls;

TForm11=class (TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Memo1: TMemo;