returnbottleinfo.pas

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

unit returnBottleInfo;

interface

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

type
  TreturnBottle = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label2: TLabel;
    Label3: 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;
    Label4: TLabel;
    procedure PicButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    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
  returnBottle: TreturnBottle;
  strID:string;
implementation

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

procedure TreturnBottle.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.picture.bitmap,handle);
     edit1.Text:=intToStr(getrscount(query1,'returnBottle')+1);;
     //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';
     //edit1.Text:=intToStr(getrscount(query1,'returnBottle')+1);
     FillValueToListView(query1,'select * from returnBottle',0,listview1);
end;

procedure TreturnBottle.Image2Click(Sender: TObject);
begin
     defWindowProc(handle,WM_SYSCOMMAND,SC_CLOSE,0);
end;

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

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

procedure TreturnBottle.PicButton1Click(Sender: TObject);
var
   strSql,strInsert:string;
   PriceLid,returnLidSum:string;
begin
      strSql:='SELECT * FROM  returnBottle  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  returnBottle(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 returnBottle',0,listview1);

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

procedure TreturnBottle.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 TreturnBottle.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 returnBottle  set  returnCode="'+trim(edit1.Text)+'",returnDate="'+DateTostr(returnDate.Date)+'",areaName="'+trim(combobox1.Text)+'",tradername="'+trim(combobox3.Text)+'",returnNum='+trim(edit3.Text)+',price='+trim(edit4.Text)+',returnSum='+trim(edit5.Text)+',city="'+trim(combobox2.Text)+'"   where  returnCode="'+strID+'"';
       //showmessage(strUpdate);
       RunNonSql(query1,strUpdate);
       FillValueToListView(query1,'select * from returnBottle',0,listview1);
    end;
    edit1.Text:=intToStr(getrscount(query1,'returnBottle')+1);
end;

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

procedure TreturnBottle.PicButton4Click(Sender: TObject);
begin
     returnBottleFind:=TreturnBottleFind.Create(Application);
     returnBottleFind.ShowModal;  
end;

end.