Приложение 2

Листинг программы

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses unit5, unit6, unit7, unit3;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

begin

if not assigned(table_edit) then

table_edit:=Ttable_edit.create(self);

table_edit.Show;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if not assigned(cost_edit) then

cost_edit:=Tcost_edit.create(self);

cost_edit.Show;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if not assigned(recost_edit) then

recost_edit:=Trecost_edit.create(self);

recost_edit.Show;

end;

end.

Листинг одного из модулей редактора:

unit Unit5;

interface

uses

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

Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls;

type

Ttable_edit = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DBGrid1: TDBGrid;

table_list: TComboBox;

Button2: TButton;

OpenDialog1: TOpenDialog;

Button1: TButton;

Panel3: TPanel;

Edit1: TEdit;

Button6: TButton;

Button7: TButton;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

procedure FormShow(Sender: TObject);

procedure table_listSelect(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

table_edit: Ttable_edit;

implementation

uses unit3, Unit2;

{$R *.dfm}

procedure Ttable_edit.FormShow(Sender: TObject);

begin

DataBase.ADOConnection1.GetTableNames(table_list.Items);

end;

procedure Ttable_edit.table_listSelect(Sender: TObject);

begin

DataBase.ADOTable1.Active:=false;

DataBase.ADOTable1.TableName:=table_list.Text;

DataBase.ADOTable1.Active:=true;

end;

procedure Ttable_edit.Button2Click(Sender: TObject);

begin

if opendialog1.Execute=true then

begin

DataBase.ADOConnection1.Connected:=false;

DataBase.ADOTable1.Active:=false;

DataBase.ADOConnection1.ConnectionString:=opendialog1.FileName;

DataBase.ADOConnection1.GetTableNames(table_list.Items);

DataBase.ADOConnection1.Connected:=true;

DataBase.ADOTable1.Active:=true;

end

end;

procedure Ttable_edit.Button1Click(Sender: TObject);

begin

if DataBase.ADOTable1.Modified=true then

DataBase.ADOTable1.Post;

end;

procedure Ttable_edit.Button7Click(Sender: TObject);

var i:integer; // Счетчик

Edit:array [0..6] of string; // Поля данных

begin

i:=0;

Edit [0]:=edit1.Text;

Edit [1]:=edit2.Text;

Edit [2]:=edit3.Text;

Edit [3]:=edit4.Text;

Edit [4]:=edit5.Text;

Edit [5]:=edit6.Text;

Edit [6]:=edit6.Text;

DataBase.ADOTable1.Open;

DataBase.ADOTable1.Edit;

DataBase.ADOTable1.Insert;

for i:=0 to 6 do

begin

DataBase.ADOTable1.Fields[i+1].AsString:=list[i];

end;

DataBase.ADOTable1.Post;

DataBase.ADOTable1.Close;

DataBase.ADOTable1.Active:=true; // В активную фазу

end;

procedure Ttable_edit.Button6Click(Sender: TObject);

begin

DataBase.ADOTable1.Open; // Открыть

DataBase.ADOTable1.Edit; // Редактировать

DataBase.ADOTable1.Delete; // Удалить

DataBase.ADOTable1.Close; // Закрыли

DataBase.ADOTable1.Active:=true; // В активную фазу

end;

procedure Ttable_edit.FormCreate(Sender: TObject);

begin

DataBase.ADOConnection1.Connected:=false;

DataBase.ADOTable1.Active:=false; // Перешли в не активную фазу

DataBase.ADOConnection1.ConnectionString:='cadr.mdb'; // Имя базы

DataBase.ADOConnection1.GetTableNames(table_list.Items);

DataBase.ADOTable1.TableName:= table_list.Items.Strings[0];

DataBase.ADOConnection1.Connected:=true;

DataBase.ADOTable1.Active:=true; // Переходим в активную фазу

form2.Visible:=false; // Скрываем обьект

end;

procedure Ttable_edit.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Close; // Выход из программы

end;

end.