begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * from Postavshiki';

ADODataSet1. Active:=true;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

form10. Show;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * from transport';

ADODataSet1. Active:=true;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * from zakazi';

ADODataSet1. Active:=true;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin

AdoDataset1.insert;

end;

procedure TForm1. Button8Click (Sender: TObject);

begin

ADODataSet1.delete;

end;

procedure TForm1. Button9Click (Sender: TObject);

begin

ADODataSet1. Post;

end;

procedure TForm1.N10Click (Sender: TObject);

begin

Form3.show;

end;

procedure TForm1.N11Click (Sender: TObject);

begin

Form4. Show;

end;

procedure TForm1.N12Click (Sender: TObject);

begin

Form5. Show;

end;

procedure TForm1.N13Click (Sender: TObject);

begin

Form6.show;

end;

procedure TForm1.N14Click (Sender: TObject);

var

WordApp, Table: Variant;

i, j: Integer;

begin

WordApp:= CreateOleObject ('Word. Application');

WordApp. Documents. Add;

WordApp. ActiveDocument. Tables. Add (WordApp. ActiveDocument. Range,

Form1.DBGrid1. DataSource. DataSet. RecordCount, Form1.DBGrid1. DataSource. DataSet. FieldCount);

Table:= WordApp. ActiveDocument. Tables. Item(1);

Table. Style:= 'Сетка таблицы';

Form1.DBGrid1. DataSource. DataSet. First;

for i:= 0 to Form1.DBGrid1. DataSource. DataSet. RecordCount-1 do

begin

for j:= 0 to Form1.DBGrid1. DataSource. DataSet. FieldCount - 1 do

Table. Cell (i+1, j+1).Range. InsertBefore (Form1.DBGrid1. DataSource. DataSet. Fields[j].AsString);

Form1.DBGrid1. DataSource. DataSet. Next;

end;

WordApp. Visible:=true;

end;

procedure TForm1.N16Click (Sender: TObject);

begin

ShellExecute (0,'open', 'помощь.chm', nil, nil, SW_SHOWNORMAL);

end;

procedure TForm1.N1Click (Sender: TObject);

begin

Form7. Show;

end;

procedure TForm1.N3Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:= 'select * from Postavshiki';

ADODataSet1. Active:=true;

end;

procedure TForm1.N5Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * from Gruzi';

ADODataSet1. Active:=true;

end;

procedure TForm1.N6Click (Sender: TObject);

begin

Form2.show;

end;

procedure TForm1.N7Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * From klienti';

ADODataSet1. Active:=true;

end;

procedure TForm1.N8Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * from transport';

ADODataSet1. Active:=true;

end;

procedure TForm1.N9Click (Sender: TObject);

begin

ADODataSet1. Active:=false;

ADODataSet1. CommandText:='select * from zakazi';

ADODataSet1. Active:=true;

end;

end.

Форма 2

unit Unit2;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, pngimage, Unit1;

type

TForm2 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form2: TForm2;

implementation

 //uses Unit1;

{$R *.dfm}

procedure TForm2. Button1Click (Sender: TObject);

var a:string;

begin

A:=edit1. Text;

Form1.ADODataSet1. Active:=false;

Form1.ADODataSet1. CommandText:='select * From klienti where Код_клиента like '+quotedstr (' % '+a+' % ')+'';

Form1.ADODataSet1. Active:=true;

end;

procedure TForm2. Button2Click (Sender: TObject);

begin

Form2.close;

end;

end.

Форма 3

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Unit1;

type

TForm3 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3. Button1Click (Sender: TObject);

var a:string;

begin

A:=edit1. Text;

Form1.ADODataSet1. Active:=false;

Form1.ADODataSet1. CommandText:='select * From postavshiki where Код_поставщика like '+quotedstr (' % '+a+' % ')+'';

Form1.ADODataSet1. Active:=true;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

Form3. Close;

end;

end.

Форма 4

unit Unit4;

interface

uses

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

Dialogs, Unit1, StdCtrls;

type

TForm4 = class(TForm)

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4. Button1Click (Sender: TObject);

var a:string;

begin

A:=edit1. Text;

Form1.ADODataSet1. Active:=false;

Form1.ADODataSet1. CommandText:='select * From zakazi where №_Заказа like '+quotedstr (' % '+a+' % ')+'';

Form1.ADODataSet1. Active:=true;

end;

procedure TForm4. Button2Click (Sender: TObject);

begin

Form4. Close;

end;

end.

Форма 5

unit Unit5;

interface

uses

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

Dialogs, Unit1, StdCtrls;

type

TForm5 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form5: TForm5;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

Form5.close;

end;

procedure TForm5. Button2Click (Sender: TObject);

var a:string;

begin

A:=edit1. Text;

Form1.ADODataSet1. Active:=false;

Form1.ADODataSet1. CommandText:='select * From transport where Вид_транспорта like '+quotedstr (' % '+a+' % ')+'';

Form1.ADODataSet1. Active:=true;

end;

end.

Форма 6

unit Unit6;

interface

uses

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

Dialogs, StdCtrls, Unit1;

type

TForm6 = class(TForm)

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6. Button1Click (Sender: TObject);

begin

Form6. Close;

end;

procedure TForm6. Button2Click (Sender: TObject);

var a:string;

begin

A:=edit1. Text;

Form1.ADODataSet1. Active:=false;

Form1.ADODataSet1. CommandText:='select * From Gruzi where Тип_груза like '+quotedstr (' % '+a+' % ')+'';

Form1.ADODataSet1. Active:=true;

end;

end.

Форма 7

unit Unit7;

interface

uses

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

Dialogs, StdCtrls;

type

TForm7 = class(TForm)

Edit1: TEdit;

Button1: TButton;

OpenDialog1: TOpenDialog;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form7: TForm7;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TForm7. Button1Click (Sender: TObject);

begin

 // если соединение установлено

if Form1.ADODataSet1. Active=true then begin

 // выводим сообщение

showmessage ('Отключите БД!!!')

end

 // если не установлено

else begin

 // очищаем строку подключения

Form1.ADODataSet1. ConnectionString:=' ';

 // если файл БД существует

if OpenDialog1. Execute then begin

 // добавляем путь к файлу в эдит1

Edit1. Text:=OpenDialog1. FileName;

 // задаем провайдер и путь к файлу БД

Form1.ADODataSet1. ConnectionString:='Provider=Microsoft. Jet.OLEDB.4.0; Data Source='+(Edit1. Text);

form7. Close;

end

else

end;

end;

procedure TForm7. Button2Click (Sender: TObject);

begin

begin

 // отключаем файл

Form1.ADODataSet1. Active:=false;

Edit1. Clear;

end;

end;

end.

Форма 9

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, Mask, Unit1, DBCtrls;

type

TForm9 = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

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

private

{Private declarations}

public

{Public declarations}

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9. Button1Click (Sender: TObject);

begin

Form1. AdoDataSet1. Insert;

DBEdit1. DataField:='Код_клиента';

DBEdit2. DataField:='Фамилия';

DBEdit3. DataField:='Имя';

DBEdit4. DataField:='Отчество';

DBEdit5. DataField:='Тип_лица';

DBEdit6. DataField:='Адрес_клиента';

end;

procedure TForm9. Button2Click (Sender: TObject);

begin

form1.ADODataSet1. Post;

form9. Close;

end;

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

begin

DBEdit1. DataField:='';

DBEdit2. DataField:='';

DBEdit3. DataField:='';

DBEdit4. DataField:='';

DBEdit5. DataField:='';

DBEdit6. DataField:='';

end;

end.

Форма 10

unit Unit10;

interface

uses

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

Dialogs, StdCtrls;

type

TForm10 = class(TForm)

Button1: TButton;

Button2: TButton;

Label1: TLabel;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form10: TForm10;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm10. Button1Click (Sender: TObject);

begin

Form1.close;

end;

procedure TForm10. Button2Click (Sender: TObject);

begin

Form10. Close;

end;

end.

Размещено на Allbest.ru