returnpayinfo.pas

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

unit returnPayINfo;

interface

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

type
  TreturnPayIN = 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;
    Label8: TLabel;
    PicButton1: TPicButton;
    PicButton2: TPicButton;
    PicButton3: TPicButton;
    PicButton4: TPicButton;
    PicButton7: TPicButton;
    Label9: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ListView1: TListView;
    ComboBox2: TComboBox;
    Query1: TADOQuery;
    returnDate: TDateTimePicker;
    ComboBox3: TComboBox;
    Edit2: TEdit;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    procedure Image2Click(Sender: TObject);
    procedure PicButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PicButton1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure PicButton2Click(Sender: TObject);
    procedure PicButton3Click(Sender: TObject);
    procedure PicButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  returnPayIN: TreturnPayIN;
  strID:string;
implementation

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

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

procedure TreturnPayIN.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.Picture.Bitmap,handle);
     combobox5.Items.Add('辽阳');
     combobox5.Items.Add('沈阳');
     combobox5.Items.Add('本溪');
     combobox5.Items.Add('大连');
     combobox5.Items.Add('鞍山');
     combobox5.Items.Add('抚顺');
     combobox5.Items.Add('丹东');
     combobox5.Items.Add('北京');
     combobox5.text:='辽阳';
     FillValueToControl(query1,'SELECT distinct tradername  FROM  TRADER','traderName',combobox1);
     FillValueToControl(query1,'SELECT distinct param0  FROM  systable ','param0',combobox2);
     FillValueToControl(query1,'SELECT distinct productName  FROM  producttable ','productName',combobox3);

     FillValueToControl(query1,'SELECT distinct Name  FROM  clerkTable ','Name',combobox4);
     edit1.Text:=inttostr(getrscount(query1,'returnPayTable')+1);
     FillValueToListView(query1,'select * from returnPayTable',0,listview1);
end;

procedure TreturnPayIN.PicButton1Click(Sender: TObject);
var
  strSql,strInsert:string;
  paySum:string;
begin
       strSql:='SELECT * FROM  returnPayTable  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
                PaySum:=formatFloat('0.00',strToFloat(edit2.text));
                 strInsert:='Insert into  returnPayTable(Code,Paydate,traderName,areaName,productName,paySum,clerkName,city)  VALUES("'+trim(edit1.Text)+'","'+trim(DateTostr(returnDate.Date))+'","'+trim(combobox1.Text)+'","'+trim(combobox2.Text)+'","'+trim(combobox3.Text)+'",'+trim(PaySum)+',"'+trim(combobox4.Text)+'","'+trim(combobox5.text)+'")';
                 //showmessage(strInsert);

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

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

procedure TreturnPayIN.ListView1DblClick(Sender: TObject);
begin
     edit1.Text:=listview1.Selected.caption;
     strID:=listview1.Selected.caption;
     returnDate.Date:=strToDate(listview1.Selected.SubItems.strings[0]);
     combobox1.Text:=listview1.Selected.SubItems.strings[1];
     combobox2.Text:=listview1.Selected.SubItems.strings[2];
     combobox3.Text:=listview1.Selected.SubItems.strings[3];
     edit2.Text:=listview1.Selected.SubItems.strings[4];
     combobox4.Text:=listview1.Selected.SubItems.strings[5];
     combobox5.Text:=listview1.Selected.SubItems.strings[6];
end;

procedure TreturnPayIN.PicButton2Click(Sender: TObject);
var
  strUpdate:string;
  PaySum:string;
begin
     if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
       PaySum:=FormatFloat('0.00',strToFloat(edit2.text));
       strUpdate:='Update returnPayTable  set  code="'+trim(edit1.Text)+'",PayDate="'+trim(DateToStr(returnDate.Date))+'",traderName="'+trim(combobox1.text)+'",areaName="'+trim(combobox2.Text)+'",productName="'+trim(combobox3.Text)+'",PaySum='+trim(PaySum)+',clerkName="'+trim(combobox4.Text)+'",city="'+trim(combobox5.Text)+'"    where  code="'+strID+'"';
       RunNonSql(query1,strUpdate);
       FillValueToListView(query1,'select * from returnPayTable',0,listview1);
    end;
end;

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

procedure TreturnPayIN.PicButton4Click(Sender: TObject);
begin
     returnpayFind:=TreturnPayFind.Create(Application);
     returnpayFind.ShowModal; 
end;

end.