unit10.pas

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

unit Unit10;

interface

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

type
  Tfrmdepbackchange = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edpinming: TEdit;
    Edpaihao: TEdit;
    Edfenlei: TEdit;
    edshuliang: TEdit;
    edjingshouren: TEdit;
    edchangjiadaibiao: TEdit;
    dsdepback: TDataSource;
    Querydepback: TQuery;
    dtPicker1: TDateTimePicker;
    edguige: TEdit;
    edkucunshuliang: TEdit;
    procedure formcreate(sender:tobject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
  sum:integer;
    { Public declarations }
  end;

var
  frmdepbackchange: Tfrmdepbackchange;

implementation
uses unit1,unit9,unit7, main;
{$R *.DFM}

procedure tfrmdepbackchange.formcreate(sender:tobject);
var
  tmpsql:string;
  
begin
//showmessage(inttostr(mainfm.id));
with Querydepback do
begin
close;
sql.clear;
tmpSql:='select * from goodsbase where id='''+inttostr(mainfm.tmpqueryspe2['id'])+'''';
sql.add(tmpSql);
prepare;
open;
end;
if Querydepback['品名']=null then edpinming.Text:=''
else edpinming.Text:=Querydepback['品名'];
if Querydepback['牌号']=null then edpaihao.Text:=''
else edpaihao.Text:=Querydepback['牌号'];
//if Querydepback['厂家']=null then edchangjia.Text:=''
//else edchangjia.Text:=Querydepback['厂家'];
if Querydepback['分类']=null then edpaihao.Text:=''
else edfenlei.Text:=Querydepback['分类'];
if Querydepback['当前库存']=null then sum:=0
else sum:=strtoint(Querydepback['当前库存']);
edkucunshuliang.Text:=inttostr(sum);
if querydepback['规格']=null then edguige.Text:=''
else edguige.Text:=querydepback['规格'];
dtPicker1.DateTime:=now;
end;
procedure Tfrmdepbackchange.SpeedButton1Click(Sender: TObject);
  var
     jinjia,shoujia,cbje,xsje,tmpsql,kucunjie:string;
     tmpsum:integer;
     tmpquery:tquery;
begin
 if edshuliang.text='' then
  begin
      showmessage('请输入数量');
      edshuliang.SetFocus;
      exit;
   end;

if edjingshouren.text='' then
   begin
       showmessage('请输入经手人的名字');
       edjingshouren.setfocus;
       exit;
   end;
{if edbumenbianma.Text='' then
   begin
       showmessage('请输入部门编码');
       edjingshouren.setfocus;
       exit;
   end;}
 tmpsum:=sum-strtoint(edshuliang.Text);
with querydepback do
begin
close;
sql.clear;
tmpsql:='select 当前库存 from goodsbase where id='''+inttostr(mainfm.tmpqueryspe2['id'])+'''';
//showmessage(tmpsql);
sql.add(tmpsql);
open
end;
if querydepback['当前库存']=null then
   begin
      showmessage('当前库存是0,您不能对此项货物进行返货');
      exit;
   end
else if tmpsum<0 then
   begin
     showmessage('您库中的商品数量小于您要返货的数量,请你重新输入您要返货的数量');
     exit;
   end
     else
     begin
      tmpsql:='update goodsbase set 当前库存='''+trim(inttostr(tmpsum))+''', 经手人='''+trim(edjingshouren.Text)+''',厂家经手人='''+trim(edchangjiadaibiao.Text)+''',最后更新日期='''+formatdatetime('20yy-mm-dd',now)+''' where  id='''+inttostr(mainfm.tmpqueryspe2['id'])+'''';
      with querydepback do
       begin
       close;
       sql.clear;
       //showmessage(tmpsql);
       sql.add(tmpsql);
       prepare;
       execsql;
       end;
   showmessage('退货完成');
   edkucunshuliang.Text:=inttostr(tmpsum);
       {with querydepback do
begin
close;
sql.clear;
tmpsql:=('select * from goodsbase where id='''+inttostr(mainfm.tabdepback['id'])+'''');
//showmessage(tmpsql);
sql.add(tmpsql);
open
end;
//showmessage(querydepback['进价']);
jinjia:=querydepback['进价'];
shoujia:=querydepback['售价'];
cbje:=floattostr(strtofloat(edshuliang.text)* querydepback['进价']);
xsje:=floattostr(strtofloat(edshuliang.text)* querydepback['售价']);
tmpsql:='insert into goodsflowbase(品名,牌号,规格,分类编码,等级,物流方向标记,物流来源,';
tmpsql:=tmpsql+'物流目标,数量,单位,成本单价,销售单价,成本金额,销售金额,支付方式,操作员,操作日期,备注,保质期,部门编码,经手人,厂家代表,返货日期)';
tmpsql:=tmpsql+' values('''+trim(Edpinming.text)+''''+',';
tmpsql:=tmpsql+''''+trim(edpaihao.text)+''',';
tmpsql:=tmpsql+''''+trim(querydepback['规格'])+''',';
tmpsql:=tmpsql+''''+trim(querydepback['条码'])+''',';
tmpsql:=tmpsql+''''+trim(querydepback['等级'])+''',';
tmpsql:=tmpsql+''''+trim('返货')+''','''+trim(edbumenbianma.text)+''','''+trim('厂家')+''',';
tmpsql:=tmpsql+edshuliang.text+',';
tmpsql:=tmpsql+''''+trim(querydepback['计量单位'])+''',';
tmpsql:=tmpsql+jinjia+',';
tmpsql:=tmpsql+shoujia+',';
tmpsql:=tmpsql+cbje+',';
tmpsql:=tmpsql+xsje+',';
tmpsql:=tmpsql+''''+trim(querydepback['支付方式'])+''',';
tmpsql:=tmpsql+''''+trim(edcaozuoyuan.text)+''',';
tmpsql:=tmpsql+''''+formatdatetime('yyyy-mm-dd',dtpicker1.datetime)+''',';
if edbeizhu.text='' then tmpsql:=tmpsql+'null,'
else tmpsql:=tmpsql+''''+trim(edbeizhu.text)+''',';
tmpsql:=tmpsql+'null,';
if edbumenbianma.text='' then tmpsql:=tmpsql+'null,'
else tmpsql:=tmpsql+''''+trim(edbumenbianma.text)+''',';
if edjingshouren.text='' then tmpsql:=tmpsql+'null,'
else tmpsql:=tmpsql+''''+trim(edjingshouren.text)+''',';
if edchangjiadaibiao.text='' then tmpsql:=tmpsql+'null,'
else tmpsql:=tmpsql+''''+trim(edchangjiadaibiao.text)+''',';
tmpsql:=tmpsql+'null)';

with querydepback do
begin
close;
sql.clear;
//showmessage(tmpsql);
sql.add(tmpsql);
prepare;
execsql;
end;
    kucunjie:=floattostr(tmpsum*strtofloat(jinjia));
    tmpsql:='update copebase set 库存数量= '''+trim(inttostr(tmpsum))+''' where  id='''+inttostr(mainfm.tabdepback['id'])+'''';
    tmpquery:=tquery.create(self);
    tmpquery.databasename:='guohua1';
    tmpquery.close;
    tmpquery.sql.clear;
    tmpquery.sql.add(tmpsql);
    tmpquery.prepare;
    tmpquery.execsql; }
   end;
   end;
procedure Tfrmdepbackchange.SpeedButton2Click(Sender: TObject);
begin
frmdepbackchange.Close;
mainfm.tabdepback.Active:=false;
mainfm.tabdepback.Active:=true;
mainfm.DBGrid6.DataSource.DataSet:=mainfm.tabdepback;
//mainfm.tmpqueryspe2.Free
end;

end.