unitxianjinjinhuo.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit Unitxianjinjinhuo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, Buttons, Db, DBTables;

type
  Tfrmxianjinjinhuo = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
     i:integer;{ Public declarations }
  end;

var
  frmxianjinjinhuo: Tfrmxianjinjinhuo;

implementation

uses main;

{$R *.DFM}

procedure Tfrmxianjinjinhuo.FormCreate(Sender: TObject);
var
   tmpsql:string;
begin
   tmpsql:='select * from goodsbase where id='''+inttostr(mainfm.tmpqueryspe2['id'])+'''';
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add(tmpsql);
   query1.Prepare;
   query1.Open ;
   if query1['结账方式']<>'现金进货' then
      begin
         messagebox(handle,'不是现金进货，不能使用本功能！','提示',mb_iconinformation);
         i:=0;
         exit;
      end;
   if query1['品名']=NULL then edit1.Text:='空'
   else edit1.text:=query1['品名'];
   if query1['销售部门']=NUll then edit2.Text:='空'
   else edit2.Text:=query1['销售部门'];
   datetimepicker1.DateTime:=now;
   i:=1;
end;

procedure Tfrmxianjinjinhuo.BitBtn2Click(Sender: TObject);
begin
   frmxianjinjinhuo.Close;
   mainfm.tabdepappend.Active:=false;
   mainfm.tabdepappend.Active:=true;
end;

procedure Tfrmxianjinjinhuo.BitBtn1Click(Sender: TObject);
var
   tmpsql:string;
   shuliang,jiliangdanwei,tiaoma,guige,dengji,gonghushang,tongzhidan,fenlei,shuilv,jinhuoshangxian,zhuanlihao,jiancebianhao:string;
   gonghuoshang,sunhaoxianebi,jinjia,shoujia,shangbiaodaima,hetonghao,jinhuoshuliang,yijiesuan,yingjiesuan,kucun,daokoubili,jiezhangfangshishoujiakoulv:string;
   jiezhangfangshi,shoujiakoulv,jinhuojine,xiaoshoujine:string;
begin
   if trim(edit3.Text)='' then
      begin
         messagebox(handle,'请输入进货金额','提示',mb_iconinformation);
         exit;
      end;
   if trim(edit4.Text)='' then
      begin
         messagebox(handle,'请输入销售金额','提示',mb_iconinformation);
         exit;
      end;
   jinhuojine:=trim(edit3.Text);
   xiaoshoujine:=trim(edit4.Text);
   tmpsql:='select * from goodsbase where id='''+inttostr(mainfm.tmpqueryspe2['id'])+'''';
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add(tmpsql);
   query1.Prepare;
   query1.Open ;
   shuliang:='1';
   jiliangdanwei:=query1['计量单位'];
   tiaoma:=query1['条码'];
   guige:=query1['规格'];
   dengji:=query1['等级'];
   gonghuoshang:=query1['供货商'];
   if query1['新增商品通知单来源']=null then tongzhidan:=''
     else tongzhidan:=query1['新增商品通知单来源'];
   fenlei:=query1['分类'];
   if query1['税率']=null then shuilv:='1'
     else shuilv:=query1['税率'];
   if query1['进货上限']=null then jinhuoshangxian:='null'
     else jinhuoshangxian:=query1['进货上限'];
   if query1['损耗限额比']=null then sunhaoxianebi:='null'
     else sunhaoxianebi:=query1['损耗限额比'];
   if (query1['专利号']=null) or (query1['专利号']='') then zhuanlihao:='null'
     else zhuanlihao:=query1['专利号'];
   if (query1['检测报告编号']=null) or (query1['检测报告编号']='') then jiancebianhao:='null'
     else jiancebianhao:=query1['检测报告编号'];
   if (query1['商标代码']=null) or (query1['商标代码']='') then  shangbiaodaima:='null'
     else shangbiaodaima:=query1['商标代码'];
   if (query1['合同号']=null) or (query1['合同号']='') then hetonghao:='null'
     else hetonghao:=query1['合同号'];
   if query1['进货数量']=null then jinhuoshuliang:='0'
     else jinhuoshuliang:=query1['进货数量'];
   if query1['已结算金额']=null then yijiesuan:='0'
     else yijiesuan:=query1['已结算金额'];
   if query1['应结算金额']=null then yingjiesuan:='0'
     else yingjiesuan:=query1['应结算金额'];
   if query1['当前库存']=null then kucun:='0'
     else kucun:=query1['当前库存'];
   if query1['进价']=null then jinjia:='0'
     else jinjia:=query1['进价'];
   if query1['售价']=null then shoujia:='0'
     else shoujia:=query1['售价'];
   if query1['倒扣比例']=null then daokoubili:='0'
     else daokoubili:=query1['倒扣比例'];
   if (query1['结账方式']=null) or (query1['结账方式']='') then jiezhangfangshi:=''
     else jiezhangfangshi:=query1['结账方式'];
   if query1['售价扣率']=null then shoujiakoulv:='0'
     else shoujiakoulv:=query1['售价扣率'];
   tmpsql:='insert into goodsbase(品名,牌号,条码,规格,分类,等级,厂家,供货商,销售部门,新增商品通知单来源,进货上限,损耗限额比,专利号,检测报告编号,商标代码,';
   tmpsql:=tmpsql+'进货数量,当前库存,进价,售价,结账方式,物价员,最后更新日期,备注,厂家经手人,经手人,合同号,结账日期,已结算金额,应结算金额,库存结算金额,销售结算金额,销售数量,税率,计量单位,结算数量,交易更新时间,倒扣比例,折扣折让,销售金额,售价扣率,选择,进货金额)';
   tmpsql:=tmpsql+'values('''+trim(edit1.Text)+''','''+trim(query1['牌号'])+''','''+trim(tiaoma)+''','''+trim(guige)+''','''+trim(fenlei)+''','''+trim(dengji)+''',';
   tmpsql:=tmpsql+''''+trim(query1['厂家'])+''','''+trim(gonghuoshang)+''','''+trim(query1['销售部门'])+''','''+trim(tongzhidan)+''','+jinhuoshangxian+','+sunhaoxianebi+','+zhuanlihao+','+jiancebianhao+','+shangbiaodaima+',';
   tmpsql:=tmpsql+'1,1,'+jinjia+','+shoujia+','''+trim(jiezhangfangshi)+''','''+trim(query1['物价员'])+''','''+formatdatetime('20yy-mm-dd',datetimepicker1.DateTime)+''',null,null,'''+trim(edit5.Text)+''',1,null,0,'+yingjiesuan+',0,0,0,'+shuilv+',';
   tmpsql:=tmpsql+''''+trim(jiliangdanwei)+''',0,'''+formatdatetime('20yy-mm-dd',now)+''','+trim(daokoubili)+',0,'+xiaoshoujine+',';
   tmpsql:=tmpsql+'null,0,'+jinhuojine+')';
   query2.Close;
   query2.SQL.Clear;
   query2.SQL.Add(tmpsql);
   query2.Prepare;
   try
      query2.ExecSQL;
   except
      on  EDatabaseError do
         begin
            messagebox(handle,'写入数据库失败！','警告',mb_iconwarning);
            exit;
         end;   
   end;
   tmpsql:='insert into purchaserecordbase (厂家,品名,条码,牌号,规格,分类编码,等级,进价,售价,数量,原库存数量,厂家经手人,经手人,合同号,结账日期,进货批次,进价折扣,进价折扣方式,进货日期,出库单号,选择)';
   tmpsql:=tmpsql+' values ('''+trim(gonghuoshang)+''','''+trim(edit1.Text)+''','''+trim(tiaoma)+''','''+trim(query1['牌号'])+''','''+trim(guige)+''','''+trim(fenlei)+''','''+trim(dengji)+''',';
   tmpsql:=tmpsql+''+jinjia+','+shoujia+',1,0,'''+trim('无')+''','''+trim(edit5.Text)+''',1,null,1,null,null,'''+formatdatetime('20yy-mm-dd',datetimepicker1.DateTime)+''',null,0)';
   query2.Close;
   query2.SQL.Clear;
   query2.SQL.Add(tmpsql);
   query2.Prepare;
   try
      query2.ExecSQL;
   except
      on  EDatabaseError do
         begin
            messagebox(handle,'写入数据库失败！','警告',mb_iconwarning);
            exit;
         end;
   end;   
   showmessage('现金进货完毕');

end;

end.