terminate.pas

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

unit terminate;

interface

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

type
  TTerminal_inf = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    PicButton1: TPicButton;
    PicButton2: TPicButton;
    PicButton3: TPicButton;
    PicButton7: TPicButton;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ListView1: TListView;
    Query1: TADOQuery;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    ComboBox2: TComboBox;
    Label11: TLabel;
    ComboBox3: TComboBox;
    PicButton5: TPicButton;
    ADOTable1: TADOTable;
    procedure PicButton7Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PicButton1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure PicButton2Click(Sender: TObject);
    procedure PicButton3Click(Sender: TObject);
    procedure PicButton5Click(Sender: TObject);
  private
    { Private declarations }
    
  public
    { Public declarations }
  end;

var
  Terminal_inf: TTerminal_inf;

  strID:string;
implementation

{$R *.dfm}
uses Common,PrinterRpt;

procedure TTerminal_inf.PicButton7Click(Sender: TObject);
begin
    close;
end;

procedure TTerminal_inf.Image2Click(Sender: TObject);
begin
  close;
end;

procedure TTerminal_inf.FormCreate(Sender: TObject);
begin
      ShowPloyForm(image1.picture.Bitmap,handle);
      edit1.Text:=inttostr(getrscount(query1,'Terminal_Info')+1);
      FillValueToControl(query1,'SELECT  DISTINCT Name  FROM  clerkTable','Name',combobox2);
      FillValueToControl(query1,'SELECT  DISTINCT param0  FROM  sysTable','Param0',combobox1);
       ///初始化listview1控件列的宽度///

       combobox3.Items.Add('辽阳');
       combobox3.Items.Add('沈阳');
       combobox3.Items.Add('本溪');
       combobox3.Items.Add('大连');
       combobox3.Items.Add('鞍山');
       combobox3.Items.Add('抚顺');
       combobox3.Items.Add('丹东');
       combobox3.Items.Add('北京');
       combobox3.text:='辽阳';
       /////显示记录///
       FillValueToListView(query1,'select * from Terminal_info',0,listview1);
end;

procedure TTerminal_inf.PicButton1Click(Sender: TObject);
var
   strSql:string;
   strInsert:string;
begin
      strSql:='SELECT * FROM  Terminal_Info  WHERE CODE="'+TRIM(EDIT1.Text)+'"';

    if edit1.text<>'' then
    begin
       if Messagedlg('确定是否存盘？',mtconfirmation,[mbyes,mbno],0)=mryes then
       begin
          if isRunSql(query1,strSql) then
          begin
             showmessage('此编号记录已经存在...');
          end
          else
             begin
                 strInsert:='Insert into  Terminal_Info(code,areaName,tradername,phone1,phone2,address,carStyle,carNum,clerkName,City) values("'+trim(edit1.Text)+'","'+trim(combobox1.Text)+'","'+trim(edit2.text)+'","'+trim(edit3.Text)+'","'+trim(edit4.Text)+'","'+trim(edit5.Text)+'","'+trim(edit6.text)+'","'+trim(edit7.text)+'","'+trim(combobox2.text)+'","'+trim(combobox3.text)+'")';
                 runNonSql(query1,strInsert);
                 FillValueToListView(query1,'select * from Terminal_info',0,listview1);

             end;
       end;
       edit1.Text:=inttostr(getrscount(query1,'Terminal_Info')+1);
    end
    else
       begin
           showmessage('请输入编号...');
       end;
end;

procedure TTerminal_inf.ListView1DblClick(Sender: TObject);
var
    listitem:Tlistitem;
begin
     listitem:=listview1.Items.Add;
      edit1.Text:=listview1.Selected.Caption;
      strID:=listview1.Selected.Caption;
      combobox1.Text:=listview1.Selected.SubItems.Strings[0];
      edit2.Text:=listview1.Selected.SubItems.Strings[1];
      edit3.Text:=listview1.Selected.SubItems.Strings[2];
      edit4.Text:=listview1.Selected.SubItems.Strings[3];
      edit5.Text:=listview1.Selected.SubItems.Strings[4];
      edit6.Text:=listview1.Selected.SubItems.Strings[5];
      edit7.Text:=listview1.Selected.SubItems.Strings[6];
      combobox2.Text:=listview1.Selected.SubItems.Strings[7];
      combobox3.Text:=listview1.Selected.SubItems.Strings[8];
end;

procedure TTerminal_inf.PicButton2Click(Sender: TObject);
var
   strUpdate:string;
   listitem:Tlistitem;
begin
    if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
       strUpdate:='Update Terminal_Info  set  code="'+trim(edit1.Text)+'",areaName="'+trim(combobox1.Text)+'",tradername="'+trim(edit2.Text)+'",phone1="'+trim(edit3.Text)+'",phone2="'+trim(edit4.Text)+'",address="'+trim(edit5.Text)+'",carStyle="'+trim(edit6.Text)+'",carNum="'+trim(edit7.text)+'",ClerkName="'+trim(combobox2.Text)+'",city="'+trim(combobox3.Text)+'"  where  code="'+strID+'"';
       showmessage(strUpdate);
       RunNonSql(query1,strUpdate);
       FillValueToListView(query1,'select * from Terminal_info',0,listview1);
    end;
end;

procedure TTerminal_inf.PicButton3Click(Sender: TObject);
var
   strDelete:string;
begin
       if Messagedlg('确定是否删除?',mtconfirmation,[mbyes,mbno],0)=mryes then
     begin
        strDelete:='DELETE *  FROM  Terminal_Info  WHERE  CODE="'+strID+'"';
        RunNonSql(query1,strDelete);
        FillValueToListView(query1,'select * from Terminal_info',0,listview1);
     end;
end;

procedure TTerminal_inf.PicButton5Click(Sender: TObject);
var
   TitleName:TStringList;
   ColWidth,ColumnWidth:Array of Integer;
   i:integer;
   LineWidth:integer;
begin
      TitleName:=TStringList.Create;
      //ColWidth:=TStringList.Create;
      TitleName.Add('编号');
      TitleName.Add('所属区域');
      TitleName.Add('二级商名称');
      TitleName.Add('电话1');
      TitleName.Add('电话2');
      TitleName.Add('地址');
      TitleName.Add('车型');
      TitleName.Add('车号');
      TitleName.Add('业务员');
      TitleName.Add('所属市');

      //TitleName.Add('搭赠金额');
      SetReportTitle('二级商人员情况报表');
      SetTableName('Terminal_info'); ////设置报表的表名
      SetColumnTitle(TitleName);////设置报表列的标题
      /////设置动态数组的长度////
      setlength(colwidth,GetFieldCount(AdoTable1));
      setlength(columnwidth,GetFieldCount(AdoTable1)+1);
      for i:=0 to  GetFieldCount(AdoTable1)-1 do
      begin
          Colwidth[i]:=10;
          //ColumnWidth[i]:=60;
      end;
      ////设置输出内容的列宽度
      ColumnWidth[1]:=50;
      ColumnWidth[2]:=60;
      ColumnWidth[3]:=70;
      ColumnWidth[4]:=90;
      ColumnWidth[5]:=90;
      ColumnWidth[6]:=90;
      ColumnWidth[7]:=70;
      ColumnWidth[8]:=70;
      ColumnWidth[9]:=70;
      ColumnWidth[10]:=70;
      //ColumnWidth[14]:=80;
      ////计算表格水平线的宽度
      lineWidth:=0;
      for i:=1 to GetFieldCount(AdoTable1) do
      begin
          LineWidth:=LineWidth+ColumnWidth[i];
      end;
      SetHorizontalLineWidth(LineWidth); ///设置表格水平线的宽度
      SetIntegerCol(false);
      CreateList(sender,AdoTable1,picbutton5,colwidth,columnWidth);
end;

end.