unit8.pas

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

unit Unit8;

interface

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

type
  TFormget = class(TForm)
    Editreceive: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Editgive: TEdit;
    Label3: TLabel;
    Editdate: TEdit;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Query1: TQuery;
    Label10: TLabel;
    Edittotal: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure EditgiveKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditgiveChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formget: TFormget;

implementation
uses unit1, Unit2,Unit9;
{$R *.DFM}

procedure TFormget.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 tmpsql:string;
 tmpdatetime:string;
begin
 if key=VK_ESCAPE then
  formget.Close;
 if key=VK_RETURN then
 begin
  if (edit1.text<>'') and (edit2.text<>'') and (edit3.text<>'') and (edit4.text<>'') and (edit5.text<>'') and (edit6.text<>'') then
  begin
   with query1 do
   begin
    tmpdatetime:=formatdatetime('yyyy-mm-dd hh:mm',now);
    tmpsql:='insert into casher(receiver,giver,date,total,pay1,pay2,pay3,pay4,pay5,pay6)';
    tmpsql:=tmpsql+'values('''+trim(editreceive.text)+''','''+trim(editgive.text)+''','''+tmpdatetime+''',:total,:pay1,';
    tmpsql:=tmpsql+':pay2,:pay3,:pay4,:pay5,:pay6)';
    close;
    sql.clear;
    sql.add(tmpsql);
    parambyname('total').asfloat:=strtofloat(edittotal.text);
    parambyname('pay1').asfloat:=strtofloat(edit1.text);
    parambyname('pay2').asfloat:=strtofloat(edit2.text);
    parambyname('pay3').asfloat:=strtofloat(edit3.text);
    parambyname('pay4').asfloat:=strtofloat(edit4.text);
    parambyname('pay5').asfloat:=strtofloat(edit5.text);
    parambyname('pay6').asfloat:=strtofloat(edit6.text);
    prepare;
    try
     execsql;
    except
     messagebox(mainform.handle,'数据库连接失败','错误',MB_OK);
     exit;
    end;
   end;
    messagebox(mainform.handle,'交款成功','提示',MB_OK+MB_ICONINFORMATION);
    formcash.Queryselect.Active:=false;
    formcash.Queryselect.Active:=true;
    editgive.text:='';
    edittotal.Text:='';
    edit1.text:='';
    edit2.text:='';
    edit3.text:='';
    edit4.text:='';
    edit5.text:='';
    edit6.text:='';
    formget.SetFocus;
  end;
 end;
end;

procedure TFormget.FormShow(Sender: TObject);
begin
 editreceive.Text:=clerk;
 editdate.Text:=formatdatetime('yyyy-mm-dd',now);
 editgive.SetFocus;
end;

procedure TFormget.EditgiveKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 tmpsql:string;
 pay1,pay2,pay3,pay4,pay5,pay6,total:real;
 tmpdate:string;
begin
 if key=VK_RETURN then
  begin
   if editgive.Text<>'' then
    begin
     with query1 do
     begin
      tmpdate:=trim(editdate.text)+'%';
      tmpsql:='select sum(orgtotal) as total,sum(pay1) as spay1,sum(pay2) as spay2,sum(pay3) as spay3,sum(pay4) as spay4,sum(pay5) as spay5,sum(pay6) as spay6 from trade where clerk='''+trim(editgive.text)+''' and op=''T'' and saledate like '''+tmpdate+'''';
      close;
      sql.clear;
      sql.add(tmpsql);
      prepare;
      try
       open;
      except
       messagebox(mainform.handle,'数据库连接失败','错误',MB_OK);
       exit;
      end;
     end;
      if query1['total']=null then
        total:=0.00
      else
        total:=query1['total'];
      if query1['spay1']=null then
        pay1:=0.00
      else
        pay1:=query1['spay1'];
      if query1['spay2']=null then
        pay2:=0.00
      else
        pay2:=query1['spay2'];
      if query1['spay3']=null then
        pay3:=0.00
      else
        pay3:=query1['spay3'];
      if query1['spay4']=null then
        pay4:=0.00
      else
        pay4:=query1['spay4'];
      if query1['spay5']=null then
        pay5:=0.00
      else
        pay5:=query1['spay5'];
      if query1['spay6']=null then
        pay6:=0.00
      else
        pay6:=query1['spay6'];
      edittotal.Text:=formatfloat('0.00',total);
      edit1.text:=formatfloat('0.00',pay1);
      edit2.text:=formatfloat('0.00',pay2);
      edit3.text:=formatfloat('0.00',pay3);
      edit4.text:=formatfloat('0.00',pay4);
      edit5.text:=formatfloat('0.00',pay5);
      edit6.text:=formatfloat('0.00',pay6);
    end;
  end;
end;

procedure TFormget.EditgiveChange(Sender: TObject);
begin
    edittotal.Text:='';
    edit1.text:='';
    edit2.text:='';
    edit3.text:='';
    edit4.text:='';
    edit5.text:='';
    edit6.text:='';
end;

end.