if Button=mbRight then PM1.Popup(p.X,p.Y);

end; 

procedure TForm1.N1Click(Sender: TObject);

begin

  Form2.ShowModal;

end; 

procedure TForm1.N3Click(Sender: TObject);

begin

  Form3.ShowModal;

end; 

end. 
 
 
 

2. Unit2.pas

 

unit Unit2; 

interface 

uses

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

  Dialogs, StdCtrls, DB, DBTables; 

type

  TForm2 = class(TForm)

    Label1: TLabel;

    txtFam: TEdit;

    Label2: TLabel;

    lblMarka: TLabel;

    Label4: TLabel;

    lblModel: TLabel;

    cmdOk: TButton;

    cmdClose: TButton;

    Label3: TLabel;

    lblCena: TLabel;

    Query1: TQuery;

    procedure FormShow(Sender: TObject);

    procedure cmdCloseClick(Sender: TObject);

    procedure cmdOkClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form2: TForm2; 

implementation 

uses Unit1; 

{$R *.dfm} 

procedure TForm2.FormShow(Sender: TObject);

begin

  lblMarka.Caption:=Form1.CB1.Text;

  lblModel.Caption:=Form1.DBGrid1.Fields[0].Text;

  lblCena.Caption:=Form1.DBGrid1.Fields[5].Text;

end; 

procedure TForm2.cmdCloseClick(Sender: TObject);

begin

  Close;

end; 

procedure TForm2.cmdOkClick(Sender: TObject);

  var

    sql_str:string;

begin

  sql_str:='INSERT INTO Zakaz(Marka,Model,Cena,Fam) VALUES('+QuotedStr(lblMarka.Caption)+

  ','+QuotedStr(lblModel.Caption)+','+QuotedStr(copy(lblCena.Caption,0,length(lblCena.Caption)-3))+','+QuotedStr(txtFam.Text)+')';

  Query1.SQL.Clear;

  Query1.SQL.Add(sql_str);

  Query1.ExecSQL;

  MessageDlg('Поздравляем  с покупкой нового автомобиля!',mtInformation,[mbOk],0);

  Close;

end; 

end. 

3. Unit3.pas

 

unit Unit3; 

interface 

uses

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

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

type

  TForm3 = class(TForm)

    DBGrid1: TDBGrid;

    Query1: TQuery;

    DataSource1: TDataSource;

    txtFilter: TEdit;

    Label1: TLabel;

    procedure txtFilterChange(Sender: TObject);

    procedure FormShow(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.txtFilterChange(Sender: TObject);

begin

  Query1.Filter:='';

  if txtFilter.Text='' then

    Query1.Filtered:=false

  else

    begin

      Query1.Filter:='Fam='+QuotedStr(txtFilter.Text+'*');

      Query1.Filtered:=true;

    end;

end;

procedure TForm3.FormShow(Sender: TObject);

  var

    sql_str:string;

begin

  sql_str:='SELECT * FROM Zakaz';

  Query1.SQL.Clear;

  Query1.SQL.Add(sql_str);

  Query1.Open;

end;

end.

 

Заключение

 

      При проектировании данной курсовой работы, были использованы материалы по теоретической части, а именно SQL запросы. Которая дает возможность ссылаться на единую базу, как через локальную сеть, так и через Интернет. Так как сейчас Интернет  имеет глобальную значимость, то ее вероятности безграничны, и всегда можно быть в курсе данных. На примере, сеть компьютерных магазинов, которая основана в нескольких городах. Если заказчик, требует подборку «железа», которой в данный момент не присутствует в магазине, то есть возможность произвести его заказ из основного склада, например с другого города, которую должны, в короткие сроки, доставит к заказчику.

      В данной курсовой работе, так же были учтены такие услуги как,  «Архив», где идет учет продаваемой продукции.

      Данную  программу можно уже полномасштабно использовать в сетях магазинах  или в начальном бизнесе, но со временем как появятся новые требования, и с течением времени эта программа  избавиться от некоторых изъян, перейдя на новый уровень, и станет приносить хот, какую либо пользу в виде финансов и сэкономленного времени.

 

Использованная  литература

 

1. Галисеев  Г. В. “Компоненты  в Delphi 7.”

     Санкт-Петербург: “Вильямс”, 2004 год. - 642 стр. 

2. Коржинский  С.Н. “Изучаем Delphi”

   SNK Press Online (электронное издание), 2007год. cтр.- 344 

3. Петров  К.Д.  “Delphi.Help.”

       Казань: “Пром”, 2004 год. - 230 cтр. 

4. Пиренеев  А.Н. “Delphi:Самоучитель.”

     Казань: “Абри”, 2005 год. - 120 стр. 

5. Поган А. “Delphi: Руководство  программиста.”

       Москва: “Эксмо”, 2006. - 480 cтр. 

6. Стив Тейксейр, Ксавье Пачеко “Borland Delphi 6. Руководство разработчика.“

Санкт-Петербург: “Вильямс”, 2002 год. - 1120 стр. 

7. Хомкин  Б.А. “Delphi: Сделай сам.”

Москва  “Эксмо”, 2005 год. - 110 стр. 

8. Чиртик  А. “Delphi: Трюки и эффекты”

     Санкт-Петербург: “Питер”; 2007 год. – 400 стр. 

9. Шабров  В.Н. “Delphi: Программируй сам.”

Казань: “Абри”; 2006 год. -  200 стр.