Geum.ru

Проектирование программы формирования заказов по грузоперевозкам

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

e. InsertBefore (Form1.DBGrid1. DataSource. DataSet. Fields[j].AsString);.DBGrid1. DataSource. DataSet. Next;;. Visible:=true;;TForm1.N16Click (Sender: TObject);(0,open, помощь.chm, nil, nil, SW_SHOWNORMAL);;TForm1.N1Click (Sender: TObject);. Show;;TForm1.N3Click (Sender: TObject);. Active:=false;. CommandText:= select * from Postavshiki;. Active:=true;;TForm1.N5Click (Sender: TObject);. Active:=false;. CommandText:=select * from Gruzi;. Active:=true;;TForm1.N6Click (Sender: TObject);.show;;TForm1.N7Click (Sender: TObject);. Active:=false;. CommandText:=select * From klienti;. Active:=true;;TForm1.N8Click (Sender: TObject);. Active:=false;. CommandText:=select * from transport;. Active:=true;;TForm1.N9Click (Sender: TObject);. Active:=false;. CommandText:=select * from zakazi;. Active:=true;;.

Форма 2Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls, pngimage, Unit1;= class(TForm): TEdit;: TButton;: TButton;: TLabel;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;

//uses Unit1;

{$R *.dfm}TForm2. Button1Click (Sender: TObject);a:string;:=edit1. Text;.ADODataSet1. Active:=false;.ADODataSet1. CommandText:=select * From klienti where Код_клиента like +quotedstr ( % +a+ % )+;.ADODataSet1. Active:=true;;TForm2. Button2Click (Sender: TObject);.close;;.

Форма 3Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Unit1;= class(TForm): TEdit;: TButton;: TButton;: TLabel;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm3;

{$R *.dfm}TForm3. Button1Click (Sender: TObject);a:string;:=edit1. Text;.ADODataSet1. Active:=false;.ADODataSet1. CommandText:=select * From postavshiki where Код_поставщика like +quotedstr ( % +a+ % )+;.ADODataSet1. Active:=true;;TForm3. Button2Click (Sender: TObject);. Close;;.

Форма 4Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Unit1, StdCtrls;= class(TForm): TEdit;: TLabel;: TButton;: TButton;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4;

{$R *.dfm}TForm4. Button1Click (Sender: TObject);a:string;:=edit1. Text;.ADODataSet1. Active:=false;.ADODataSet1. CommandText:=select * From zakazi where №_Заказа like +quotedstr ( % +a+ % )+;.ADODataSet1. Active:=true;;TForm4. Button2Click (Sender: TObject);. Close;;.

Форма 5Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Unit1, StdCtrls;= class(TForm): TButton;: TButton;: TEdit;: TLabel;Button2Click (Sender: TObject);Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm5;Unit4;

{$R *.dfm}TForm5. Button1Click (Sender: TObject);.close;;TForm5. Button2Click (Sender: TObject);a:string;:=edit1. Text;.ADODataSet1. Active:=false;.ADODataSet1. CommandText:=select * From transport where Вид_транспорта like +quotedstr ( % +a+ % )+;.ADODataSet1. Active:=true;;.

Форма 6Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Unit1;= class(TForm): TButton;: TButton;: TEdit;: TLabel;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm6;

{$R *.dfm}TForm6. Button1Click (Sender: TObject);. Close;;TForm6. Button2Click (Sender: TObject);a:string;:=edit1. Text;.ADODataSet1. Active:=false;.ADODataSet1. CommandText:=select * From Gruzi where Тип_груза like +quotedstr ( % +a+ % )+;.ADODataSet1. Active:=true;;.

Форма 7Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TEdit;: TButton;: TOpenDialog;: TButton;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm7;Unit1, Unit2;

{$R *.dfm}TForm7. Button1Click (Sender: TObject);

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

if Form1.ADODataSet1. Active=true then begin

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

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

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

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

Form1.ADODataSet1. ConnectionString:= ;

// если файл БД существуетOpenDialog1. Execute then begin

// добавляем путь к файлу в эдит1. Text:=OpenDialog1. FileName;

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

Form1.ADODataSet1. ConnectionString:=Provider=Microsoft. Jet.OLEDB.4.0; Data Source=+(Edit1. Text);. Close;;;TForm7. Button2Click (Sender: TObject);

// отключаем файл.ADODataSet1. Active:=false;. Clear;;;.

Форма 9Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, Unit1, DBCtrls;= class(TForm): TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;Button1Click (Sender: TObject);Button2Click (Sender: TObject);FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations};: TForm9;

{$R *.dfm}TForm9. Button1Click (Sender: TObject);. AdoDataSet1. Insert;. DataField:=Код_клиента;. DataField:=Фамилия;. DataField:=Имя;. DataField:=Отчество;. DataField:=Тип_лица;. DataField:=Адрес_клиента;;TForm9. Button2Click (Sender: TObject);.ADODataSet1. Post;. Close;;TForm9. FormClose (Sender: TObject; var Action: TCloseAction);. DataField:=;. DataField:=;. DataField:=;. DataField:=;. DataField:=;. DataField:=;;.

Форма 10Unit10;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TButton;: TButton;: TLabel;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm10;Unit1;

{$R *.dfm}TForm10. Button1Click (Sender: TObject);.close;;TForm10. Button2Click (Sender: TObject);. Close;;.