saleterminal.~pas

是一款针对啤酒行业的销售进销存管理系统,包括基本的进货,销售,库存

unit saleTerminal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, ComCtrls, Grids, PicButton, ExtCtrls;

type
  Tsale_Terminal = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label7: TLabel;
    PicButton1: TPicButton;
    PicButton7: TPicButton;
    Label9: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    DBgrid: TStringGrid;
    JHDate: TDateTimePicker;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    ListView1: TListView;
    Button1: TButton;
    ComboBox2: TComboBox;
    Edit2: TEdit;
    ListView2: TListView;
    Button2: TButton;
    ComboBox3: TComboBox;
    Query1: TADOQuery;
    procedure Image2Click(Sender: TObject);
    procedure PicButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBgridDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListView2DblClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure DBgridKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3Click(Sender: TObject);
    procedure PicButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sale_Terminal: Tsale_Terminal;
   m_storeNum:integer;
implementation

{$R *.dfm}
uses common,PrinterRpt;
procedure Tsale_Terminal.Image2Click(Sender: TObject);
begin
  close;
end;

procedure Tsale_Terminal.PicButton7Click(Sender: TObject);
begin
DefWindowProc(handle,WM_syscommand,sc_close,0);
end;

procedure Tsale_Terminal.FormCreate(Sender: TObject);
begin
    ShowPloyForm(image1.Picture.Bitmap,handle);
    FillValueToListView(query1,'select * from  productTable',0,listview1);
    ///设置控件stringGrid的标题//////
       DBgrid.Cells[0,0]:='终端名称';
       DBgrid.Cells[1,0]:='所属区域';
       DBgrid.Cells[2,0]:='产品编码';
       DBgrid.Cells[3,0]:='产品名称';
       DBgrid.Cells[4,0]:='规格';
       DBgrid.Cells[5,0]:='容量';
       DBgrid.Cells[6,0]:='单位';
       DBgrid.Cells[7,0]:='单价';
       DBgrid.Cells[8,0]:='数量(箱)';
       Dbgrid.Cells[9,0]:='数量(瓶)';
       DBgrid.Cells[10,0]:='金额';
       DBgrid.Cells[11,0]:='库存';
       DBgrid.Cells[12,0]:='搭赠政策';
       DBgrid.Cells[13,0]:='搭赠数量';
       DBgrid.Cells[14,0]:='搭赠金额';
       //DBgrid.Cells[14,0]:='库存';
       DBgrid.Cells[15,0]:='销售日期';
       /////添加城市///
       combobox2.Items.Add('辽阳');
       combobox2.Items.Add('沈阳');
       combobox2.Items.Add('本溪');
       combobox2.Items.Add('大连');
       combobox2.Items.Add('鞍山');
       combobox2.Items.Add('抚顺');
       combobox2.Items.Add('丹东');
       combobox2.Items.Add('北京');
       combobox2.text:='辽阳';
       ///搭赠政策/////
       combobox3.Items.Add('无'); 
       combobox3.Items.add('1赠1');
       combobox3.Items.add('2赠1');
       combobox3.Items.add('3赠1');
       combobox3.Items.add('4赠1');
       combobox3.Items.add('5赠1');
       combobox3.Items.add('6赠1');
       combobox3.Items.add('7赠1');
       combobox3.Items.add('8赠1');
       combobox3.Items.add('9赠1');
       combobox3.Items.add('10赠1');
       combobox3.Items.add('11赠1');
       combobox3.Items.add('12赠1');
       combobox1.Items.add('李光辉');
       combobox1.Text:='李光辉';
       dbgrid.ColWidths[0]:=110;
       FillValuetoListview(query1,'SELECT *  FROM  trader',0,listview2);
       //JHdate.Format:='yyyy-mm-dd';
       edit1.Text:='XST'+trim(FloatTostr(strToFloat(formatdatetime('yyyymmdd',now)+'0000')+GetrsCount(query1,'sale_TraderTable')+1));
       edit2.Text:='0';
       FillValueToControl(query1,'SELECT * FROM ClerkTable','name',combobox1);
       //edit3.SetFocus;
end;

procedure Tsale_Terminal.DBgridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
       if (gdFocused in state) then
    begin
       ///在11列处插入下拉控件///
       if dbgrid.col=12 then
       begin
           dbgrid.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goColSizing,goEditing];
           combobox3.left:=rect.Left+dbgrid.Left;
           combobox3.top:=rect.Top+dbgrid.Top;
           
           combobox3.Visible:=true;
       end
       else
           combobox3.Visible:=false; 
       ///在第零列插入listview2控件
       if dbgrid.col=0 then
       begin
          dbgrid.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goColSizing,goEditing];
          button2.left:=rect.Left+dbgrid.Left+94;
          button2.Top:=rect.Top+dbgrid.Top;
          button2.Visible:=true;
       end
       else
          begin
              button2.Visible:=false;
              listview2.Visible:=false;
          end;
       ///在第二列处插入按钮控件/////   
       if dbgrid.col=2 then
       begin
          dbgrid.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goColSizing,goEditing];
          button1.left:=rect.Left+dbgrid.Left+50;
          button1.Top:=rect.Top+dbgrid.Top;
          button1.Visible:=true;
          //CreateButton(dbgrid,rect.Left+dbgrid.Left+50,rect.Top+dbgrid.Top,10,10,true);
       end
       else
           //CreateButton(dbgrid,rect.Left+dbgrid.Left+50,rect.Top+dbgrid.Top,10,10,false);
          button1.Visible:=false;
          listview1.Visible:=false;
    end;
end;

procedure Tsale_Terminal.Button2Click(Sender: TObject);
begin
    listview2.Left:=button2.Left-90;
        listview2.Top:=button2.Top+20;
        listview2.Visible:=true;
end;

procedure Tsale_Terminal.Button1Click(Sender: TObject);
begin
      listview1.Left:=button1.Left-47;
        listview1.Top:=button1.Top+20;
        listview1.Visible:=true;
end;

procedure Tsale_Terminal.ListView2DblClick(Sender: TObject);
begin
      dbgrid.RowCount:=dbgrid.RowCount+1;
     dbgrid.Cells[dbgrid.Col,dbgrid.row]:=listview2.Selected.SubItems.Strings[1];
     dbgrid.Cells[dbgrid.Col+1,dbgrid.row]:=listview2.Selected.SubItems.Strings[0];
     listview2.Visible:=false;   
end;

procedure Tsale_Terminal.ListView1DblClick(Sender: TObject);
var
  strsql:string;