uy_qdjz.pas

阳光餐饮收银管理系统源码

unit uy_qdjz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Grids, DBGrids,
  Db, DBTables,u_main, Tabs, se_controls, KsSkinForms;

type
  Ty_qdjz = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    jz: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Q1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tc: TToolButton;
    DBGrid1: TDBGrid;
    ToolButton9: TToolButton;
    cd: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    cx: TEdit;
    TabSet1: TTabSet;
    PopupMenu1: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    sb: TStatusBar;
    C1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    q_qd: TQuery;
    q_qddwmc: TStringField;
    q_qdCKBH: TStringField;
    q_qdDBXM: TStringField;
    q_qdYCRQ: TDateTimeField;
    q_qdYcsj: TDateTimeField;
    q_qdcdbh: TStringField;
    q_qdZJ: TFloatField;
    q_qdXJ: TFloatField;
    q_qdFWF: TFloatField;
    q_qdZKf: TFloatField;
    q_qdzsje: TFloatField;
    q_qdQdrm: TStringField;
    q_qdzjm: TStringField;
    q_qdqdjz: TStringField;
    q_qdth: TStringField;
    q_qdtht: TStringField;
    q_qdkrs: TIntegerField;
    q_qdfwyh: TStringField;
    dq_qd: TDataSource;
    ckzl: TTable;
    ckzlCkbh: TStringField;
    ckzlDwmc: TStringField;
    ckzlZjm: TStringField;
    ckzlXfcs: TIntegerField;
    ckzlXfze: TFloatField;
    ckzlXydj: TStringField;
    ckzlDwxz: TStringField;
    ckzldwxz1: TStringField;
    ckzlDwdz: TStringField;
    ckzlYzbm: TStringField;
    ckzlKhyh: TStringField;
    ckzlZh: TStringField;
    ckzlDbxm: TStringField;
    ckzlXb: TStringField;
    ckzlDh: TStringField;
    ckzlChh: TStringField;
    ckzlSj: TStringField;
    ckzlEmail: TStringField;
    ckzlCsrq: TDateTimeField;
    ckzlQldj: TStringField;
    ckzlZw: TStringField;
    d_ckzl: TDataSource;
    dwxz: TTable;
    dwxzBh: TStringField;
    dwxzDwxz: TStringField;
    d_dwxz: TDataSource;
    N13: TMenuItem;
    N14: TMenuItem;
    SeSkinForm1: TSeSkinForm;
    procedure tcClick(Sender: TObject);
    procedure jzClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cdClick(Sender: TObject);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure N10Click(Sender: TObject);
    procedure cxChange(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N7Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure cx_js;  //查询、计算
  end;

var
  y_qdjz: Ty_qdjz;
  cx_sql1,cx_sql2,js_sql1,js_sql2:string;
implementation

uses uy_qdjz_jz,ug_dcd,uabout, ug_wait, uyp_1;

{$R *.DFM}
procedure Ty_qdjz.cx_js;
begin
 with q_qd do
   begin
     DisableControls;
     sql.Clear;
     if i_key=48 then
         sql.add(cx_sql1)
       else
         sql.add(cx_sql2);
     ParamByName('s_zjm').asstring:=trim(cx.text)+'%';
     active:=false;
     active:=true;
     EnableControls;
  end;
 with main.query1 do
   begin
     DisableControls;
     sql.Clear;
     if i_key=48 then
         sql.add(js_sql1)
       else
         sql.add(js_sql2);
     ParamByName('s_zjm').asstring:=trim(cx.text)+'%';
     active:=false;
     active:=true;
     EnableControls;
//     ze.caption:=Format('%*.*f', [8, 2,fieldbyname('hj_all').ascurrency]);
 //    ds.caption:=inttostr(fieldbyname('ds_all').asinteger);
     sb.panels[2].text:=Format('%*.*f', [8, 2,fieldbyname('xj_all').ascurrency]);
     sb.panels[4].text:=Format('%*.*f', [8, 2,fieldbyname('fwf_all').ascurrency]);
     sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('zkf_all').ascurrency]);
     sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('zsje_all').ascurrency]);
  end;
end;
procedure Ty_qdjz.tcClick(Sender: TObject);
begin
  close;
end;

procedure Ty_qdjz.jzClick(Sender: TObject);
begin
 if (trim(cx.text)='') or (tabset1.TabIndex<>2) then
   begin
     messagebox(handle,'请确认将要结帐的签单常客!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
  y_n:=0;
  y_qdjz_jz.showmodal;
end;

procedure Ty_qdjz.FormShow(Sender: TObject);
begin
 if not dwxz.Active then dwxz.Active:=true;
 if not ckzl.Active then ckzl.Active:=true;
 if y_qdjz_jz=NIL then y_qdjz_jz:=Ty_qdjz_jz.Create(self);
 if yp_1=NIL then yp_1:=Typ_1.Create(self);
 TabSet1.TabIndex:=2;
 cx.text:='';
 i_key:=48;
 cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+' and qdjz is  null';
 js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+'  and qdjz is  null';
 cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is  null';