uy_qdjz.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

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;

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;
    Label2: TLabel;
    Label3: TLabel;
    ds: TLabel;
    ze: TLabel;
    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;
    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').ascurrency]);
     ds.caption:=inttostr(fieldbyname('ds').asinteger);
     sb.panels[2].text:=Format('%*.*f', [8, 2,fieldbyname('xj').ascurrency]);
     sb.panels[4].text:=Format('%*.*f', [8, 2,fieldbyname('fwf').ascurrency]);
     sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('zkf').ascurrency]);
     sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('zsje').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 ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is  null';