clerkininfo.~pas

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

unit ClerkInInfo;

interface

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

type
  TClerkIn = 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;
    PicButton4: TPicButton;
    PicButton7: TPicButton;
    Label9: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ListView1: TListView;
    ComboBox2: TComboBox;
    Query1: TADOQuery;
    Label10: TLabel;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Edit9: TEdit;
    Label12: TLabel;
    Edit10: TEdit;
    Label13: TLabel;
    PicButton5: TPicButton;
    ADOTable1: TADOTable;
    procedure Image2Click(Sender: TObject);
    procedure PicButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PicButton1Click(Sender: TObject);
    procedure PicButton2Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure PicButton3Click(Sender: TObject);
    procedure PicButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClerkIn: TClerkIn;
  strID:string;
implementation

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

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

procedure TClerkIn.FormCreate(Sender: TObject);
begin
    ShowPloyForm(image1.Picture.Bitmap,handle);
    edit1.Text:=InttoStr(GetRsCount(query1,'clerkTable')+1);
    combobox1.Items.Add('男');
    combobox1.Items.add('女');
    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:='辽阳';
    edit9.Text:='0';
    edit10.Text:='0';
    FillValueToListView(query1,'select * from clerkTable',0,listview1);
end;

procedure TClerkIn.PicButton1Click(Sender: TObject);
var
  strSql:string;
  strInsert:string;
begin
      strSql:='SELECT * FROM  clerkTable  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  clerkTable(Code,Name,Sex,Iden,Phone1,Phone2,Mobile1,Mobile2,Wage,Prize,Address,city)  VALUES("'+trim(edit1.Text)+'","'+trim(edit2.text)+'","'+trim(combobox1.Text)+'","'+trim(edit3.text)+'","'+trim(edit4.Text)+'","'+trim(edit7.Text)+'","'+trim(edit8.Text)+'","'+trim(edit6.text)+'",'+trim(edit9.text)+','+trim(edit10.text)+',"'+trim(edit5.text)+'","'+trim(combobox2.text)+'")';
                 showmessage(strInsert);

                 runNonSql(query1,strInsert);
                 FillValueToListView(query1,'select * from clerkTable',0,listview1);

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

procedure TClerkIn.PicButton2Click(Sender: TObject);
var
   strUpdate:string;
begin
    if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
       strUpdate:='Update clerkTable  set  code="'+trim(edit1.Text)+'",Name="'+trim(edit2.Text)+'",sex="'+trim(combobox1.text)+'",Iden="'+trim(edit3.Text)+'",phone1="'+trim(edit4.Text)+'",phone2="'+trim(edit7.Text)+'",mobile1="'+trim(edit8.Text)+'",mobile2="'+trim(edit6.Text)+'",wage='+trim(edit9.Text)+',prize='+trim(edit10.Text)+',address="'+trim(edit5.Text)+'",city="'+trim(combobox2.Text)+'"    where  code="'+strID+'"';
       RunNonSql(query1,strUpdate);
       FillValueToListView(query1,'select * from clerkTable',0,listview1);
    end;

end;

procedure TClerkIn.ListView1DblClick(Sender: TObject);
begin
     edit1.Text:=listview1.Selected.Caption;
     strID:=listview1.Selected.Caption;
     edit2.Text:=listview1.Selected.SubItems.Strings[0];
     combobox1.Text:=listview1.Selected.SubItems.Strings[1];
     edit3.Text:=listview1.Selected.SubItems.Strings[2];
     edit4.Text:=listview1.Selected.SubItems.Strings[3];
     edit7.Text:=listview1.Selected.SubItems.Strings[4];
     edit8.Text:=listview1.Selected.SubItems.Strings[5];
     edit6.Text:=listview1.Selected.SubItems.Strings[6];
     edit9.Text:=listview1.Selected.SubItems.Strings[7];
     edit10.Text:=listview1.Selected.SubItems.Strings[8];
     edit5.Text:=listview1.Selected.SubItems.Strings[9];
     combobox2.Text:=listview1.Selected.SubItems.Strings[10];
end;

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

procedure TClerkIn.PicButton5Click(Sender: TObject);
var
   TitleName:TStringList;
   ColWidth,ColumnWidth:Array of Integer;
   i:integer;
   LineWidth:integer;
   //strSql:string;
begin
      //strSql:='INSERT INTO  ';
      TitleName:=TStringList.Create;
      //ColWidth:=TStringList.Create;
      TitleName.Add('编号');
      TitleName.Add('姓名');
      TitleName.Add('性别');
      TitleName.Add('身份证号');
      TitleName.Add('电话1');
      TitleName.Add('电话2');
      TitleName.Add('手机1');
      TitleName.Add('手机2');
      TitleName.Add('工资');
      TitleName.Add('奖金');
      TitleName.Add('地址');
      TitleName.Add('所属市');

      //TitleName.Add('搭赠金额');
      SetReportTitle('业务员人员名单情况报表');
      SetTableName('clerktable'); ////设置报表的表名
      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]:=40;
      ColumnWidth[2]:=70;
      ColumnWidth[3]:=50;
      ColumnWidth[4]:=120;
      ColumnWidth[5]:=80;
      ColumnWidth[6]:=80;
      ColumnWidth[7]:=80;
      ColumnWidth[8]:=80;
      ColumnWidth[9]:=70;
      ColumnWidth[10]:=70;
      ColumnWidth[11]:=100;
      ColumnWidth[12]:=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.