uz_ctyx.pas

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

unit uz_ctyx;

interface

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

type
  Tz_ctyx = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    print: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    xx: TComboBox;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    H1: TMenuItem;
    H2: TMenuItem;
    N11: TMenuItem;
    A1: TMenuItem;
    dr: TToolButton;
    ImageList1: TImageList;
    preview: TToolButton;
    ToolButton6: TToolButton;
    DBGrid1: TDBGrid;
    tsc: TTable;
    tscBH: TIntegerField;
    tscCh: TStringField;
    tscCm: TStringField;
    tscDj: TFloatField;
    tscBZ: TStringField;
    d_tsc: TDataSource;
    zxc: TTable;
    zxcBH: TIntegerField;
    zxcCh: TStringField;
    zxcCM: TStringField;
    zxcDj: TFloatField;
    zxcBZ: TStringField;
    d_zxc: TDataSource;
    tjc: TTable;
    tjcBH: TIntegerField;
    tjcCh: TStringField;
    tjcCM: TStringField;
    tjcDj: TFloatField;
    tjcBZ: TStringField;
    d_tjc: TDataSource;
    dzc: TTable;
    dzcBH: TIntegerField;
    dzcCh: TStringField;
    dzcCm: TStringField;
    dzcDj: TFloatField;
    dzcBZ: TStringField;
    d_dzc: TDataSource;
    ToolButton5: TToolButton;
    N2: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure ToolButton3Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure xxChange(Sender: TObject);
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure bcClick(Sender: TObject);
    procedure drClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure previewClick(Sender: TObject);
    procedure printClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure H2Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_ctyx: Tz_ctyx;
  mytable:Ttable;
implementation

uses uabout,u_main, ug_dc, ug_wait, uzp_ctyx;

{$R *.DFM}
procedure Tz_ctyx.ToolButton3Click(Sender: TObject);
begin
 close;
end;

procedure Tz_ctyx.N9Click(Sender: TObject);
begin
 close;
end;
procedure Tz_ctyx.xxChange(Sender: TObject);
begin
 case xx.itemindex of
   0:begin
      mytable:=zxc;
      DBGrid1.DataSource:=d_zxc;
      dr.enabled:=true;
     end;
   1:begin
      mytable:=dzc;
      DBGrid1.DataSource:=d_dzc;
      dr.enabled:=false;
     end;
   2:begin
      mytable:=tjc;
      DBGrid1.DataSource:=d_tjc;
      dr.enabled:=false;
     end;
   3:begin
      mytable:=tsc;
      DBGrid1.DataSource:=d_tsc;
      dr.enabled:=false;
     end;
 end;
end;

procedure Tz_ctyx.xzClick(Sender: TObject);
begin
 case xx.itemindex of
   0:zxc.append;
   1:dzc.append;
   2:tjc.append;
   3:tsc.append;
 end;
end;

procedure Tz_ctyx.bjClick(Sender: TObject);
begin
 case xx.itemindex of
   0:zxc.edit;
   1:dzc.edit;
   2:tjc.edit;
   3:tsc.edit;
 end;
end;

procedure Tz_ctyx.scClick(Sender: TObject);
begin
 case xx.itemindex of
   0:zxc.delete;
   1:dzc.delete;
   2:tjc.delete;
   3:tsc.delete;
 end;
end;

procedure Tz_ctyx.bcClick(Sender: TObject);
begin
 mytable.edit;
 mytable.post;
end;

procedure Tz_ctyx.drClick(Sender: TObject);
begin
 case xx.itemindex of
   0:begin
     end;
   2:begin
     end;
  end;
end;

procedure Tz_ctyx.FormShow(Sender: TObject);
begin
 if not tsc.Active then tsc.Active:=true;
 if not zxc.Active then zxc.Active:=true;
 if not dzc.Active then dzc.Active:=true;
 if not tjc.Active then tjc.Active:=true;
 if g_dc=NIL then g_dc:=Tg_dc.create(self);
 if zp_ctyx=NIL then zp_ctyx:=Tzp_ctyx.create(self);
 xx.text:='畅销菜排名';
 xx.ItemIndex:=0;
 mytable:=zxc;
 DBGrid1.DataSource:=d_zxc;
 g_wait.close;
end;


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

procedure Tz_ctyx.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
with mytable do
 begin
 if key=13 then append;
 if (key=46) and (trim(fieldbyname('cm').asstring)<>'')then
  if messagebox(z_ctyx.handle,'您真的要删除该菜吗','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    edit;
    Delete;
   end;
 if ((key>=65) and (key<=90) and (trim(fieldbyname('cm').asstring)=''))  or ((key<=57) and (key>=48) and (trim(fieldbyname('cm').asstring)=''))  or ((key<=105) and (key>=96) and (trim(fieldbyname('cm').asstring)='')) then
  begin
   c_key:=chr(key);
   esc_enter:=0;
   g_dc.showmodal;
   if esc_enter=0 then  exit;
   edit;
   if mytable=zxc then
     fieldbyname('bh').value:=main.h_n_bh('select max(bh) as bh from zxc');
   if mytable=dzc then
     fieldbyname('bh').value:=main.h_n_bh('select max(bh) as bh from dzc');
   if mytable=tjc then
     fieldbyname('bh').value:=main.h_n_bh('select max(bh) as bh from tjc');
   if mytable=tsc then
     fieldbyname('bh').value:=main.h_n_bh('select max(bh) as bh from tsc');
   fieldbyname('ch').value:=g_dc.q_dc.fieldbyname('ch').asstring;
   fieldbyname('cm').value:=g_dc.q_dc.fieldbyname('mc').asstring;
   fieldbyname('dj').value:=g_dc.q_dc.fieldbyname('dj').asfloat;
   post;
  end;
 end;
end;

procedure Tz_ctyx.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if mytable.fieldbyname('cm').asstring='' then
    DBGrid1.ReadOnly:=true
  else
    DBGrid1.ReadOnly:=false;
end;

procedure Tz_ctyx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 z_ctyx:=NIl;
 g_dc.release;
 g_dc:=NIL;
 zp_ctyx.release;
 zp_ctyx:=NIL;
end;

procedure Tz_ctyx.previewClick(Sender: TObject);
begin
 case xx.ItemIndex of
  0:zp_ctyx.QuickRep1.preview;
  1:zp_ctyx.QuickRep2.preview;
  2:zp_ctyx.QuickRep3.preview;
  3:zp_ctyx.QuickRep4.preview;
 end;
end;

procedure Tz_ctyx.printClick(Sender: TObject);
begin
 case xx.ItemIndex of
  0:zp_ctyx.QuickRep1.print;
  1:zp_ctyx.QuickRep2.print;
  2:zp_ctyx.QuickRep3.print;
  3:zp_ctyx.QuickRep4.print;
 end;
end;

procedure Tz_ctyx.N2Click(Sender: TObject);
begin
  PrinterSetup.Execute;
end;

procedure Tz_ctyx.H2Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Tz_ctyx.ToolButton2Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tasctyx');
end;

procedure Tz_ctyx.N4Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

end.