uy_yycx.pas

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

unit uy_yycx;

interface

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

type
  Ty_yycx = class(TForm)
    sb: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    mb: TToolButton;
    yl: TToolButton;
    dy: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    CoolBar2: TCoolBar;
    ToolBar2: TToolBar;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    cd: TToolButton;
    zl: TToolButton;
    ToolButton4: TToolButton;
    N1: TMenuItem;
    P1: TMenuItem;
    C1: TMenuItem;
    y_yycx_zl: TMenuItem;
    y_yycx_mb: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    Label1: TLabel;
    c_mb: TComboBox;
    cd1: TTable;
    cd1Cdbh: TStringField;
    DateTimeField1: TDateTimeField;
    DateTimeField2: TDateTimeField;
    cd1YyLX: TStringField;
    cd1yylx1: TStringField;
    cd1Srlb: TStringField;
    cd1srlb1: 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;
    FloatField6: TFloatField;
    cd1Jzrq: TDateTimeField;
    DateTimeField3: TDateTimeField;
    cd1JZFS: TStringField;
    cd1jzfs1: TStringField;
    cd1Qdjz: TStringField;
    cd1qdjz1: TStringField;
    FloatField9: TFloatField;
    StringField19: TStringField;
    StringField20: TStringField;
    cd1Pzrh: TStringField;
    cd1Qdrm: TStringField;
    StringField12: TStringField;
    StringField13: TStringField;
    d_cd1: TDataSource;
    srlb: TTable;
    srlbBH: TStringField;
    srlbSrlb: TStringField;
    srlbD_yn: TBooleanField;
    d_srlb: TDataSource;
    yylx: TTable;
    yylxBH: TStringField;
    yylxYylx: TStringField;
    yylxSJ1: TDateTimeField;
    yylxSJ2: TDateTimeField;
    yylxD_yn: TBooleanField;
    d_yylx: TDataSource;
    y_jzfs: TTable;
    y_jzfsJZFSH: TStringField;
    y_jzfsJzfs: TStringField;
    y_jzfsD_yn: TBooleanField;
    dy_jzfs: TDataSource;
    ToolButton1: TToolButton;
    procedure tcClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cdClick(Sender: TObject);
    procedure mbClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure ylClick(Sender: TObject);
    procedure dyClick(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure zlClick(Sender: TObject);
    procedure xsClick(Sender: TObject);
    procedure c_mbChange(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yycx: Ty_yycx;

implementation

uses ug_dcd, ug_mb, uabout, ug_wait, uyp_1;

{$R *.DFM}

procedure Ty_yycx.tcClick(Sender: TObject);
begin
 close;
end;

procedure Ty_yycx.FormShow(Sender: TObject);
begin
 if not srlb.Active then srlb.Active:=true;
 if not yylx.Active then yylx.Active:=true;
 if not y_jzfs.Active then y_jzfs.Active:=true;
 if not cd1.Active then cd1.Active:=true;
 if g_mb=NIL then g_mb:=Tg_mb.Create(self);
 if yp_1=NIL then yp_1:=Typ_1.Create(self);
 with main.query1 do
  begin
   active:=false;
   sql.Clear;
   sql.add('SELECT count(cdbh) as ds,sum(zj) as zj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje,sum(krs) as krs  FROM cd1');
   active:=true;
   sb.panels[2].text:=inttostr(fieldbyname('ds').value);
   sb.panels[4].text:=Format('%*.*f', [8, 2,fieldbyname('zj').ascurrency]);
   sb.panels[6].text:=Format('%*.*f', [8, 2,fieldbyname('xj').ascurrency]);
   sb.panels[8].text:=Format('%*.*f', [8, 2,fieldbyname('fwf').ascurrency]);
   sb.panels[10].text:=Format('%*.*f', [8, 2,fieldbyname('zkf').ascurrency]);
   sb.panels[12].text:=Format('%*.*f', [8, 2,fieldbyname('zsje').ascurrency]);
   sb.panels[14].text:=inttostr(fieldbyname('krs').asinteger);
  end;
 with g_mb.mb do
  begin
   s_mb:='01';
   filter:='bm='+s_mb;
   first;
   c_mb.Items.Clear;
   while not Eof do
    begin
      c_mb.Items.Add(fieldbyname('bh').asstring+'.'+fieldbyname('mbmc').asstring);
      g_mb.mb.next;
    end;
  end;
 zl.Down:=true;
 g_wait.close;
end;

procedure Ty_yycx.cdClick(Sender: TObject);
begin
 if g_dcd=NIL then g_dcd:=Tg_dcd.Create(self);
 with cd1 do
  begin
   c_zj:=FieldByName('zj').ascurrency;
   c_xj:=FieldByName('xj').ascurrency;
   c_fwf:=FieldByName('fwf').ascurrency;
   c_zkf:=FieldByName('zkf').ascurrency;
   c_zsje:=FieldByName('zsje').ascurrency;
   s_th:=FieldByName('th').asstring;
   s_tht:=FieldByName('tht').asstring;
   s_krs:=FieldByName('krs').asstring;
   s_ycrq:=formatdatetime('yyyy.mm.dd',FieldByName('ycrq').value);
   s_ycsj:=formatdatetime('hh:mm',FieldByName('ycsj').value);
   s_fwyh:=FieldByName('fwyh').asstring;
   g_dcd.cdmx1.Filter:='cdbh='+FieldByName('cdbh').asstring;
  end;
 g_dcd.db.datasource:=g_dcd.d_cdmx1;
 g_dcd.showmodal;
 zl.Down:=true;
 y_yycx_zl.Checked:=true;
end;

procedure Ty_yycx.mbClick(Sender: TObject);
var
 st:string;
begin
 if not mb.Down then
  begin
   mb.Down:=true;
   y_yycx_mb.Checked:=true;
  end;
 y_n:=0;
 g_mb.showmodal;
 if y_n=0 then
  begin
   zl.Down:=true;
   y_yycx_zl.Checked:=true;
   exit;
  end; 
 st:=g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring;
 g_mb.mb.first;
 c_mb.Items.Clear;
 while not g_mb.mb.Eof do
  begin
    c_mb.Items.Add(g_mb.mb.fieldbyname('bh').asstring+'.'+g_mb.mb.fieldbyname('mbmc').asstring);
    g_mb.mb.next;
  end;
 c_mb.ItemIndex:=c_mb.Items.IndexOf(st);
 c_mbChange(Sender);  
end;

procedure Ty_yycx.MenuItem18Click(Sender: TObject);
begin
PrinterSetup.Execute;
end;

procedure Ty_yycx.ylClick(Sender: TObject);
begin
 cd1.DisableControls;
 yp_1.QuickRep1.preview;
 cd1.EnableControls;
end;

procedure Ty_yycx.dyClick(Sender: TObject);
begin
 cd1.DisableControls;
 yp_1.QuickRep1.print;
 cd1.EnableControls;
end;

procedure Ty_yycx.bzClick(Sender: TObject);
begin
//
end;

procedure Ty_yycx.zlClick(Sender: TObject);
begin
 cd1.filter:='';
 if not zl.Down then
  begin
   zl.Down:=true;
   y_yycx_zl.Checked:=true;
  end;
 FormShow(Sender);
end;

procedure Ty_yycx.xsClick(Sender: TObject);
begin
//
end;

procedure Ty_yycx.c_mbChange(Sender: TObject);
var
 i,ii,i_krs:integer;
 s_filter:string;
 cc_zj,cc_xj,cc_fwf,cc_zkf,cc_zsje:currency;
begin
 i:=1;ii:=1;i_krs:=0;cc_zj:=0;cc_xj:=0;cc_fwf:=0;cc_zkf:=0;cc_zsje:=0;
 repeat
   try
     strtoint(copy(c_mb.text,i,i+1));
     i:=i+1;
    except
      ii:=0;
   end;
 until ii = 0;
 if not g_mb.mb.FindKey([copy(c_mb.text,1,i)]) then
   begin
     messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 s_filter:=cd1.Filter;
 try
   cd1.Filter:=g_mb.mb.fieldbyname('mbnr2').asstring;
  except
   messagebox(handle,'模板查询操作有误!请删除此模板，然后重新生成！','系统提示信息',MB_OK+MB_ICONWARNING);
   cd1.Filter:=s_filter;  
 end;
 with cd1 do
  begin
   DisableControls;
   first;
   while not eof do
     begin
      i_krs:=i_krs+fieldbyname('krs').asinteger;
      cc_zj:=cc_zj+fieldbyname('zj').ascurrency;
      cc_xj:=cc_xj+fieldbyname('xj').ascurrency;
      cc_fwf:=cc_fwf+fieldbyname('fwf').ascurrency;
      cc_zkf:=cc_zkf+fieldbyname('zkf').ascurrency;
      cc_zsje:=cc_zsje+fieldbyname('zsje').ascurrency;
      next;
     end;
    sb.panels[2].text:=inttostr(recordcount);
    sb.panels[4].text:=Format('%*.*f', [8, 2,cc_zj]);
    sb.panels[6].text:=Format('%*.*f', [8, 2,cc_xj]);
    sb.panels[8].text:=Format('%*.*f', [8, 2,cc_fwf]);
    sb.panels[10].text:=Format('%*.*f', [8, 2,cc_zkf]);
    sb.panels[12].text:=Format('%*.*f', [8, 2,cc_zsje]);
    sb.panels[14].text:=inttostr(i_krs);
   EnableControls
  end;
 mb.Down:=true;
 y_yycx_mb.Checked:=true;
end;

procedure Ty_yycx.ComboBox1Change(Sender: TObject);
begin
with cd1 do
  case  ComboBox1.itemindex of
   0:IndexName:='';
   1:IndexName:='cd1_ycrq';
   2:IndexName:='cd1_ycsj';
   3:IndexName:='cd1_srlx';
   4:IndexName:='cd1_th';
   5:IndexName:='cd1_tht';
   6:IndexName:='cd1_krs';
   7:IndexName:='cd1_fwyh';
   8:IndexName:='cd1_skyh';
   9:IndexName:='cd1_jzfs';
   10:IndexName:='cd1_zj';
   11:IndexName:='cd1_xj';
   12:IndexName:='cd1_fwf';
   13:IndexName:='cd1_zkf';
   14:IndexName:='cd1_zsje';
   15:IndexName:='cd1_pzrh';
   16:IndexName:='cd1_ckbh';
   end;
end;

procedure Ty_yycx.MenuItem76Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Ty_yycx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 y_yycx:=NIL;
 g_mb.release;
 g_mb:=NIL;
 yp_1.release;
 yp_1:=NIL;
end;

end.