returnlidinfo.pas

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

unit returnLidInfo;

interface

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

type
  TreturnLid = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    PicButton1: TPicButton;
    PicButton2: TPicButton;
    PicButton3: TPicButton;
    PicButton4: TPicButton;
    PicButton7: TPicButton;
    Label9: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ListView1: TListView;
    ComboBox2: TComboBox;
    Query1: TADOQuery;
    ComboBox3: TComboBox;
    Label10: TLabel;
    returnDate: TDateTimePicker;
    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 Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure PicButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  returnLid: TreturnLid;
  strID:string;
implementation

{$R *.dfm}
uses common,returnLidFindInfo;
procedure TreturnLid.PicButton7Click(Sender: TObject);
begin
   close;
end;

procedure TreturnLid.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.picture.Bitmap,handle);
     edit1.Text:=intToStr(getrscount(query1,'returnLid')+1);
     FillValueToControl(query1,'SELECT * FROM trader','traderName',combobox3);
     FillValueToControl(query1,'SELECT * FROM sysTable','param0',combobox1);
     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:='辽阳';
     edit3.Text:='0';
     edit4.Text:='0';
     edit5.Text:='0';
     FillValueToListView(query1,'select * from returnLid',0,listview1);
end;

procedure TreturnLid.PicButton1Click(Sender: TObject);
var
    strSql,strInsert:string;
    priceLid:string;
    returnLidSum:string;
begin
    strSql:='SELECT * FROM  returnLid  WHERE returnCODE="'+TRIM(EDIT1.Text)+'"';
    if edit1.text<>'' then
    begin
       if Messagedlg('确定是否存盘？',mtconfirmation,[mbyes,mbno],0)=mryes then
       begin
          if isRunSql(query1,strSql) then
          begin
             showmessage('此编号记录已经存在...');
             //exit;
          end
          else
             begin
                 priceLid:=formatFloat('0.00',strToFloat(edit4.text));
                 returnLidSum:=formatFloat('0.00',strToFloat(edit5.text));
                 strInsert:='Insert into  returnLid(returnCode,returnDate,traderName,areaName,returnNum,price,returnSum,city) values("'+trim(edit1.Text)+'","'+trim(DateToStr(returnDate.Date))+'","'+trim(combobox3.text)+'","'+trim(combobox1.Text)+'",'+trim(edit3.Text)+','+trim(priceLid)+','+trim(returnLidSum)+',"'+trim(combobox2.text)+'")';
                 runNonSql(query1,strInsert);
                 FillValueToListView(query1,'select * from returnLid',0,listview1);

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

procedure TreturnLid.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[2];
    combobox3.Text:=listview1.Selected.SubItems.strings[1];
    edit3.Text:=listview1.Selected.SubItems.strings[3];
    edit4.Text:=listview1.Selected.SubItems.strings[4];
    edit5.Text:=listview1.Selected.SubItems.strings[5];
    combobox2.Text:=listview1.Selected.SubItems.strings[6];
end;

procedure TreturnLid.PicButton2Click(Sender: TObject);
var
   strUpdate:string;
   PriceLid,returnLidSum:string;
begin
    if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
        priceLid:=formatFloat('0.00',strToFloat(edit4.text));
        returnLidSum:=formatFloat('0.00',strToFloat(edit5.text));
       strUpdate:='Update returnLid  set  returnCode="'+trim(edit1.Text)+'",returnDate="'+DateTostr(returnDate.Date)+'",areaName="'+trim(combobox1.Text)+'",tradername="'+trim(combobox3.Text)+'",returnNum='+trim(edit3.Text)+',price='+trim(PriceLid)+',returnSum='+trim(returnLidSum)+',city="'+trim(combobox2.Text)+'"   where  returnCode="'+strID+'"';
       //showmessage(strUpdate);
       RunNonSql(query1,strUpdate);
       FillValueToListView(query1,'select * from returnLid',0,listview1);
    end;
    edit1.Text:=intToStr(getrscount(query1,'returnLid')+1);
end;

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

procedure TreturnLid.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
       edit4.SetFocus;
       edit4.SelectAll;  
    end;
end;

procedure TreturnLid.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
       edit5.SetFocus;
       edit5.SelectAll;  
    end;
end;

procedure TreturnLid.PicButton4Click(Sender: TObject);
begin
      returnLidFind:=TreturnLIdFind.Create(Application); 
      returnLidFind.ShowModal;
end;

end.