uy_yyt_jb.pas

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

unit uy_yyt_jb;

interface

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

type
  Ty_yyt_jb = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label16: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Bevel1: TBevel;
    xj: TLabel;
    zp: TLabel;
    xyk: TLabel;
    qd: TLabel;
    md: TLabel;
    qt: TLabel;
    xssr: TLabel;
    lc: TLabel;
    rc: TLabel;
    mdd: TLabel;
    js: TLabel;
    qtt: TLabel;
    fwf: TLabel;
    zkf: TLabel;
    tcje: TLabel;
    zcje: TLabel;
    jcje: TLabel;
    krs: TLabel;
    szl: TLabel;
    jzje: TLabel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    skyh: TLabel;
    rq: TLabel;
    sj: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label20: TLabel;
    Label21: TLabel;
    fdmc: TLabel;
    Image1: TImage;
    Bevel2: TBevel;
    Label26: TLabel;
    gdje: TLabel;
    Label27: TLabel;
    gdds: TLabel;
    Label28: TLabel;
    jzds: TLabel;
    Shape3: TShape;
    Shape4: TShape;
    cd1: TTable;
    cd1Cdbh: TStringField;
    DateTimeField1: TDateTimeField;
    DateTimeField2: TDateTimeField;
    cd1YyLX: TStringField;
    cd1Srlb: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    StringField11: TStringField;
    IntegerField1: TIntegerField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    cd1ZJ: TFloatField;
    FloatField10: TFloatField;
    FloatField7: TFloatField;
    FloatField8: TFloatField;
    FloatField11: TFloatField;
    cd1Sfbz: TFloatField;
    cd1zj1: TFloatField;
    FloatField6: TFloatField;
    cd1Jzrq: TDateTimeField;
    DateTimeField3: TDateTimeField;
    cd1JZFS: TStringField;
    cd1Qdjz: TStringField;
    FloatField9: TFloatField;
    StringField19: TStringField;
    StringField20: TStringField;
    cd1Pzrh: TStringField;
    cd1Qdrm: TStringField;
    StringField12: TStringField;
    StringField13: TStringField;
    d_cd1: TDataSource;
    cdmx1: TTable;
    cdmx1Bh: TIntegerField;
    cdmx1CDBH: TStringField;
    StringField24: TStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    FloatField12: TFloatField;
    FloatField13: TFloatField;
    cdmx1hj: TFloatField;
    cdmx1Dzl: TFloatField;
    StringField27: TStringField;
    StringField28: TStringField;
    StringField29: TStringField;
    StringField30: TStringField;
    StringField31: TStringField;
    cdmx1Pzrh: TStringField;
    FloatField14: TFloatField;
    StringField33: TStringField;
    d_cdmx1: TDataSource;
    q_cdjb: TQuery;
    q_cdjbCdbh: TStringField;
    q_cdjbYCRQ: TDateTimeField;
    q_cdjbYcsj: TDateTimeField;
    q_cdjbYyLX: TStringField;
    q_cdjbSrlb: TStringField;
    q_cdjbFdbh: TStringField;
    q_cdjbTh: TStringField;
    q_cdjbTht: TStringField;
    q_cdjbKrs: TIntegerField;
    q_cdjbFwyh: TStringField;
    q_cdjbSkyh: TStringField;
    q_cdjbDCYH: TStringField;
    q_cdjbZJ: TFloatField;
    q_cdjbSsje: TFloatField;
    q_cdjbJzrq: TDateTimeField;
    q_cdjbJZsj: TDateTimeField;
    q_cdjbJZFS: TStringField;
    q_cdjbQdjz: TStringField;
    q_cdjbFWF: TFloatField;
    q_cdjbZKf: TFloatField;
    q_cdjbSKJE: TFloatField;
    q_cdjbZT: TStringField;
    q_cdjbSKTH: TStringField;
    q_cdjbXJ: TFloatField;
    q_cdjbZsje: TFloatField;
    q_cdjbSfbz: TFloatField;
    q_cdjbPzrh: TStringField;
    q_cdjbQdrm: TStringField;
    q_cdjbCKBH: TStringField;
    q_cdjbDBXM: TStringField;
    q_cdmxjb: TQuery;
    q_cdmxjbbh: TIntegerField;
    q_cdmxjbcdbh: TStringField;
    q_cdmxclh: TStringField;
    StringField18: TStringField;
    q_cdmxcm: TStringField;
    q_cdmxdj: TFloatField;
    q_cdmxsl: TFloatField;
    q_cdmxjbhj: TFloatField;
    q_cdmxjbdzl: TFloatField;
    q_cdmxgg: TStringField;
    q_cdmxsrlb: TStringField;
    q_cdmxcz: TStringField;
    q_cdmxtcyyh: TStringField;
    q_cdmxtcyy: TStringField;
    q_cdmxjbpzrh: TStringField;
    q_cdmxtsl: TFloatField;
    q_cdmxlbh: TStringField;
    jb1: TBatchMove;
    jb2: TBatchMove;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_jb: Ty_yyt_jb;

implementation

uses uxtxx, uhbjd, ug_xtxx, ubp, uy_yyt;

{$R *.DFM}
procedure Ty_yyt_jb.FormShow(Sender: TObject);
var
 f_szl:currency;
 s_mess1,s_mess2:string;
begin
 if not cd1.Active then cd1.Active:=true;
 if not cdmx1.Active then cdmx1.Active:=true;
  g_xtxx.show;
  g_xtxx.Update;
  rq.caption:=formatdatetime('yyyy.mm.dd',date());
  sj.caption:=formatdatetime('hh:mm',time());
  fdmc.caption:=s_fdmc;
  skyh.caption:=s_czyh;
  try
  g_xtxx.ProgressBar1.StepBy(2);
  s_mess1:='系统正在计算汇总"';
  s_mess2:='挂单金额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj from cdmx,cd where cd.cdbh=cdmx.cdbh and jzfs is NULL';
  gdje.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='挂单单数';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select count(cdbh) as hj from cd where jzfs is NULL';
  gdds.caption:=floattostr(main.h_count(s_sql));

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='结帐金额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj from cd where jzfs is not NULL';
  jzje.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='结帐单数';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select count(cdbh) as hj from cd where jzfs is not NULL';
  jzds.caption:=floattostr(main.h_count(s_sql));

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='小计金额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj  FROM cd where jzfs="1"';
  xj.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='支票总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj  FROM cd where jzfs="2"';