uz_gtsp_sx.pas

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

unit uz_gtsp_sx;

interface

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

type
  Tz_gtsp_sx = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    xz: TToolButton;
    bj: TToolButton;
    sc: TToolButton;
    mb: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    bz: TToolButton;
    tc: TToolButton;
    CoolBar2: TCoolBar;
    ToolBar2: TToolBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    MenuItem11: TMenuItem;
    MenuItem12: TMenuItem;
    MenuItem13: TMenuItem;
    N2: TMenuItem;
    MenuItem14: TMenuItem;
    MenuItem18: TMenuItem;
    MenuItem19: TMenuItem;
    MenuItem20: TMenuItem;
    MenuItem73: TMenuItem;
    MenuItem74: TMenuItem;
    MenuItem75: TMenuItem;
    MenuItem76: TMenuItem;
    ImageList1: TImageList;
    fg1: TToolButton;
    fg2: TToolButton;
    fg3: TToolButton;
    C1: TMenuItem;
    M1: TMenuItem;
    PrinterSetup: TPrinterSetupDialog;
    procedure xzClick(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure tcClick(Sender: TObject);
    procedure scClick(Sender: TObject);
    procedure mbClick(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure bzClick(Sender: TObject);
    procedure MenuItem18Click(Sender: TObject);
    procedure MenuItem76Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  z_gtsp_sx: Tz_gtsp_sx;

implementation

uses uz_gtspsx_xz, uzp_gtsp, uz_gtsp, uabout;

{$R *.DFM}


procedure Tz_gtsp_sx.xzClick(Sender: TObject);
begin
  y_n:=1;
  z_gtspsx_xz.showmodal;
end;

procedure Tz_gtsp_sx.bjClick(Sender: TObject);
begin
  y_n:=0;
  z_gtspsx_xz.showmodal;
end;

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



procedure Tz_gtsp_sx.scClick(Sender: TObject);
begin
 if messagebox(handle,'您真的要删除该商品的编码信息吗?','系统提示信息',MB_OKCANCEL+MB_ICONQUESTION)=IDOK then
   begin
    z_gtsp.gtspsx.delete;
//    z_ckgl.FormShow(Sender);
   end;
end;

procedure Tz_gtsp_sx.mbClick(Sender: TObject);
begin
// dm.ckgl.
end;

procedure Tz_gtsp_sx.ToolButton8Click(Sender: TObject);
begin
 zp_gtsp.QuickRep1.preview;
end;

procedure Tz_gtsp_sx.ToolButton6Click(Sender: TObject);
begin
 zp_gtsp.QuickRep1.print;
end;

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

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

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

end.