Компьютерные комплектующие

    tMatboardPrice: TSmallintField;

    tMatboardFirm: TStringField;

    tMatboardShop: TStringField;

    tHardId: TAutoIncField;

    tHardFirmId: TSmallintField;

    tHardShopId: TSmallintField;

    tHardVolume: TSmallintField;

    tHardSpeed: TSmallintField;

    tHardPrice: TSmallintField;

    tHardShop: TStringField;

    tHardFirm: TStringField;

    tVideoId: TAutoIncField;

    tVideoFirmId: TSmallintField;

    tVideoShopId: TSmallintField;

    tVideoVolume: TSmallintField;

    tVideoPrice: TSmallintField;

    tVideoFirm: TStringField;

    tVideoShop: TStringField;

    tCDROMId: TAutoIncField;

    tCDROMFirmId: TSmallintField;

    tCDROMShopId: TSmallintField;

    tCDROMSpeed: TSmallintField;

    tCDROMPrice: TSmallintField;

    tCDROMFirm: TStringField;

    tCDROMShop: TStringField;

    tMonitorId: TAutoIncField;

    tMonitorFirmId: TSmallintField;

    tMonitorShopId: TSmallintField;

    tMonitorDiagonal: TSmallintField;

    tMonitorModel: TStringField;

    tMonitorPrice: TSmallintField;

    tMonitorFirm: TStringField;

    tMonitorShop: TStringField;

    tFirmaId: TAutoIncField;

    tFirmaFirmname: TStringField;

    tShopId: TAutoIncField;

    tShopShopname: TStringField;

    dsSellers: TDataSource;

    tSellers: TTable;

    tSellersIds: TAutoIncField;

    tSellersFIO: TStringField;

    tSellersAdress: TStringField;

    tSellersTel: TFloatField;

    dsSale: TDataSource;

    tSale: TTable;

    tSaleId: TAutoIncField;

    tSaleIdproc: TFloatField;

    tSaleIdmatboard: TFloatField;

    tSaleIdhard: TFloatField;

    tSaleIdvideo: TFloatField;

    tSaleIdcdrom: TFloatField;

    tSaleIdmonitor: TFloatField;

    tSaleIdsaller: TFloatField;

    tSaleDate: TDateField;

    tSaleProc: TStringField;

    tSaleMatboard: TStringField;

    tSaleHard: TStringField;

    tSaleVideo: TStringField;

    tSaleCDROM: TStringField;

    tSaleMonitor: TStringField;

    tSaleSeller: TStringField;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  DM: TDM;

 

implementation

 

{$R *.dfm}

 

end.

 

unit uComputer;

 

interface

 

uses

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

  Dialogs, Grids, StdCtrls, ComObj, DBCtrls;

 

type

  TComputer = class(TForm)

    StringGrid1: TStringGrid;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    btPrint: TButton;

    DBLCBSellers: TDBLookupComboBox;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    btSave: TButton;

    procedure FormCreate(Sender: TObject);

    procedure btPrintClick(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure btSaveClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Computer: TComputer;

 

implementation

 

uses uDM;

 

{$R *.dfm}

 

procedure TComputer.FormCreate(Sender: TObject);

begin

  StringGrid1.Cells[0,1] := 'Процессор';

  StringGrid1.Cells[0,2] := 'Материнская плата';

  StringGrid1.Cells[0,3] := 'Жесткий диск';

  StringGrid1.Cells[0,4] := 'Видеокарта';

  StringGrid1.Cells[0,5] := 'CD-ROM';

  StringGrid1.Cells[0,6] := 'Монитор';

  StringGrid1.Cells[1,0] := 'Код';

  StringGrid1.Cells[2,0] := 'Фирма';

  StringGrid1.Cells[3,0] := 'Модель';

  StringGrid1.Cells[4,0] := 'Параметры';

  StringGrid1.Cells[5,0] := 'Магазин';

  StringGrid1.Cells[6,0] := 'Цена(руб.)';

end;

 

procedure TComputer.btPrintClick(Sender: TObject);

var i,k,x,y,sum:integer;

    Excel: Variant;

    sampl, temp: string;

begin

  sampl := GetCurrentDir + '\КвитS.xls';          //Шаблон

  temp := GetCurrentDir + '\КвитT.xls';           //Копия

  Excel := CreateOleObject('Excel.Application');

  try

    Excel.Workbooks.Open(sampl);

    Excel.ActiveWorkBook.SaveAs(temp);

    x:=1; y:=1;

    Excel.Cells[2,2] := DBLCBSellers.Text;

    Excel.Cells[3,2] := Label6.Caption;

    For i:=6 to 12 do begin

      For k:=2 to 7 do begin

        Excel.Cells[i,k] := StringGrid1.Cells[x,y];

        x:=x+1;

      end;

      y:=y+1;

      x:=1;

    end;

    Excel.Cells[13,2] := Label5.Caption;

    Excel.Visible := True;

  except

    Excel.Quit;

  end;

end;

 

procedure TComputer.FormActivate(Sender: TObject);

var i,sum: integer;

begin

  Label6.Caption := DateTimeToStr(Now);

  sum:=0;

  For i:=1 to 6 do begin

    if StringGrid1.Cells[6,i] <> '' then

      sum:= sum + StrToInt(StringGrid1.Cells[6,i]);

  end;

  Label5.Caption := IntToStr(sum);

end;

 

procedure TComputer.btSaveClick(Sender: TObject);

begin

  with DM do begin

    tSale.Insert;

    tSaleIdproc.Value := StrToInt(StringGrid1.Cells[1,1]);

    tSaleIdmatboard.Value := StrToInt(StringGrid1.Cells[1,2]);

    tSaleIdhard.Value := StrToInt(StringGrid1.Cells[1,3]);

    tSaleIdvideo.Value := StrToInt(StringGrid1.Cells[1,4]);

    tSaleIdcdrom.Value := StrToInt(StringGrid1.Cells[1,5]);

    tSaleIdmonitor.Value := StrToInt(StringGrid1.Cells[1,6]);

    tSaleIdsaller.Value := DBLCBSellers.KeyValue;

    tSaleDate.Value := StrToDateTime(Label6.Caption);

    tSale.Post;

  end;

end;

 

end.

 

unit uSale;

 

interface

 

uses

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

  Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls;

 

type

  TSale = class(TForm)

    DBGrid1: TDBGrid;

    Bevel1: TBevel;

    btClose: TButton;

    procedure btCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Sale: TSale;

 

implementation

 

{$R *.dfm}

 

procedure TSale.btCloseClick(Sender: TObject);

begin

  Close;

end;

 

end.

 

unit uSellers;

 

interface

 

uses

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

  Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls;

 

type

  TSellers = class(TForm)

    DBGrid1: TDBGrid;

    Bevel1: TBevel;

    btClose: TButton;

    DBNavigator1: TDBNavigator;

    procedure btCloseClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Sellers: TSellers;

 

implementation

 

{$R *.dfm}

 

procedure TSellers.btCloseClick(Sender: TObject);

begin

  Close;

end;

 

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

Приложение Б

(обязательное)

 

 

Рисунок Б.1

 

Рисунок Б.2

Рисунок Б.3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ЭКРАННЫЕ ФОРМЫ

Приложение В

(рекомендуемое)

 

Рисунок В.1 – Главная  форма

 

Рисунок В.2 – Форма  списков магазинов и фирм

Рисунок В.3 – Форма  списка продавцов

Рисунок В.4 – Форма списка выбранных комплектующих

 Рисунок В.5 – Форма истории продаж

 

Рисунок В.6 – Справка