handin.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit HandIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFrm_HandIN = class(TForm)
    LB_title: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Bevel1: TBevel;
    LB_YJ: TLabel;
    LB_CZ: TLabel;
    LB_YP: TLabel;
    LB_XY: TLabel;
    LB_QT: TLabel;
    LB_HT: TLabel;
    Label14: TLabel;
    LB_YYJE: TLabel;
    Label16: TLabel;
    Btn_Prt: TButton;
    Btn_HandIn: TButton;
    Btn_Close: TButton;
    Label1: TLabel;
    LB_ZS: TLabel;
    Bevel2: TBevel;
    LB_Date: TLabel;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Btn_HandInClick(Sender: TObject);
    procedure Btn_PrtClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_HandIN: TFrm_HandIN;

implementation

uses sys_dm, sys_global, Rpt1, ShowMxb1 ;

{$R *.dfm}
var
  YJ, CZ, ZS, YP, XY, QT, HT: real ;
  YYJE: real ;
procedure TFrm_HandIN.FormShow(Sender: TObject);
begin
  LB_date.caption := dateTostr(date);
  
  if m_mode = 'b' then
  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''YJ'' and flag=''0''';
    open;
    YJ := fields[0].asfloat ;
    LB_YJ.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''CZ'' and flag=''0''';
    open;
    CZ := fields[0].asfloat ;
    LB_CZ.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''YP'' and flag=''0''';
    open;
    YP := fields[0].asfloat ;
    LB_YP.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''XY'' and flag=''0''';
    open;
    XY := fields[0].asfloat ;
    LB_XY.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''QT'' and flag=''0''';
    open;
    QT := fields[0].asfloat ;
    LB_QT.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''ZS'' and flag=''0''';
    open;
    ZS := fields[0].asfloat ;
    LB_ZS.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(DF) from Pbill where ItemName=''HT'' and flag=''0''';
    open;
    HT := fields[0].asfloat ;
    LB_HT.Caption := floatTostr((fields[0].asfloat)*-1);
    if LB_HT.Caption='0' then LB_HT.Caption := '' ;

    YYJE := YJ+ CZ+ YP+ XY+ QT- HT ;
    LB_YYJE.Caption := floatTostrF(YYJE,ffnumber,8,2);
 end;

  if m_mode = 'k' then
  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''YJ'' and flag<>''2''';
    open;
    YJ := fields[0].asfloat ;
    LB_YJ.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''CZ'' and flag<>''2''';
    open;
    CZ := fields[0].asfloat ;
    LB_CZ.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''YP'' and flag<>''2''';
    open;
    YP := fields[0].asfloat ;
    LB_YP.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''XY'' and flag<>''2''';
    open;
    XY := fields[0].asfloat ;
    LB_XY.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''QT'' and flag<>''2''';
    open;
    QT := fields[0].asfloat ;
    LB_QT.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(JF) from Pbill where ItemName=''ZS'' and flag<>''2''';
    open;
    ZS := fields[0].asfloat ;
    LB_ZS.Caption := fields[0].AsString ;

    sql.clear;
    sql.text := 'select sum(DF) from Pbill where ItemName=''HT'' and flag<>''2''';
    open;
    HT := fields[0].asfloat ;
    LB_HT.Caption := floatTostr((fields[0].asfloat)*-1);
    if LB_HT.Caption='0' then LB_HT.Caption := '' ;

    YYJE := YJ+ CZ+ YP+ XY+ QT- HT ;
    LB_YYJE.Caption := floatTostrF(YYJE,ffnumber,8,2);
 end;

end;

procedure TFrm_HandIN.Btn_HandInClick(Sender: TObject);
begin
  // 交班
  if m_mode = 'b' then begin
    if messagebox(handle,'您要交班吗?', '提示', MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=IDCANCEL then
       exit;
    if YYJE=0 then begin
       messagebox(handle,'没有营业款!', '提示', MB_OK);
       exit;
    end;
    with frm_sys_dm.Qr_tmp1 do
    begin
      close;
      sql.clear;
      sql.text := 'update Pbill  set flag=''1'', jbdate = CONVERT(DATETIME,'''+FORMATDateTime('yyyy"-"mm"-"dd" "hh":"nn":"ss',now)+''',120)'
                   + ', JBoptor='''+m_OpName+''''
                   + '  where flag=''0''' ;
      try
        ExecSQL ;
      except
        messagebox(handle,'电脑出错,交班不成功','提示',mb_ok+mb_iconstop);
        exit;
      end;
    end;
    messagebox(handle,'交班成功!','提示',mb_ok+MB_ICONINFORMATION);
    FormShow(Sender);
  end;
  // 交款
  if m_mode = 'k' then begin
    if messagebox(handle,'您要交款吗?', '提示', MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=IDCANCEL then
       exit;
    if YYJE=0 then begin
       messagebox(handle,'没有营业款!', '提示', MB_OK);
       exit;
    end;

    with frm_sys_dm.Qr_tmp1 do
    begin
      close;
      sql.clear;
      sql.text := 'update Pbill  set flag=''2'', JKdate = CONVERT(DATETIME,'''+FORMATDateTime('yyyy"-"mm"-"dd" "hh":"nn":"ss',now)+''',120)'
                   + ', JKoptor='''+m_OpName+''''
                   + '  where flag<>''2''' ;
      try
        ExecSQL ;
      except
        messagebox(handle,'电脑出错,交款A不成功','提示',mb_ok+mb_iconstop);
        exit;
      end;

      close;
      sql.text := 'select * from GRP where Edate=:Edate' ;
      Parameters.parambyname('Edate').Value := date ;
      open;

      if RecordCount=0 then begin
         close;
         sql.clear;
         sql.Add('insert into GRP (Edate, YJ, CZ, ZS, YP, XY, QT, HT, YYJE)') ;
         sql.Add('values (:Edate, :YJ, :CZ, :ZS, :YP, :XY, :QT, :HT, :YYJE)');
         Parameters.parambyname('Edate').Value := date ;
         Parameters.parambyname('YJ').value := YJ ;
         Parameters.parambyname('CZ').value := CZ ;
         Parameters.parambyname('ZS').value := ZS ;
         Parameters.parambyname('YP').value := YP ;
         Parameters.parambyname('XY').value := XY ;
         Parameters.parambyname('QT').value := QT ;
         Parameters.parambyname('HT').value := HT ;
         Parameters.parambyname('YYJE').value := YYJE ;
         try
           ExecSQL ;
         except
           messagebox(handle,'电脑出错,交款B不成功','提示',mb_ok+mb_iconstop);
           exit;
         end;
       end else begin
         close;
         sql.clear;
         sql.text := 'Update GRP set YJ=YJ+:YJ, CZ=CZ+:CZ, ZS=ZS+:ZS, YP=YP+:YP, XY=XY+:XY, QT=QT+:QT, HT=HT+:HT, YYJE=YYJE+:YYJE where Edate=:Edate' ;
         Parameters.parambyname('YJ').value := YJ ;
         Parameters.parambyname('CZ').value := CZ ;
         Parameters.parambyname('ZS').value := ZS ;
         Parameters.parambyname('YP').value := YP ;
         Parameters.parambyname('XY').value := XY ;
         Parameters.parambyname('QT').value := QT ;
         Parameters.parambyname('HT').value := HT ;
         Parameters.parambyname('YYJE').value := YYJE ;
         Parameters.parambyname('Edate').Value := date ;
         try
           ExecSQL ;
         except
           messagebox(handle,'电脑出错,交款不成功','提示',mb_ok+mb_iconstop);
           exit;
         end;
       end;
    end;
    messagebox(handle,'交款成功!','提示',mb_ok+MB_ICONINFORMATION);
    FormShow(Sender);
  end;

end;

procedure TFrm_HandIN.Btn_PrtClick(Sender: TObject);
begin
  if messagebox(handle,'你要打印吗?','提示',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2)=mrno then
     exit ;
  Frm_Rpt1 := TFrm_Rpt1.create(application);
  Frm_Rpt1.QuickRep1.Print ;
  Frm_Rpt1.free ;
end;

procedure TFrm_HandIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frm_sys_dm.Qr_tmp1.Close ;
end;

procedure TFrm_HandIN.Button1Click(Sender: TObject);
begin
  Frm_ShowMxb1 := TFrm_ShowMxb1.Create(application);
  Frm_ShowMxb1.showmodal ;
  Frm_ShowMxb1.free ;
end;

end.