us_qtsz.pas

Delphi写的餐饮系统

unit us_qtsz;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, Tabs, ExtCtrls, Grids, DBGrids, Mask,
  DBCtrls, Tabnotbk, ToolWin, Menus;

type
  Ts_qtsz = class(TForm)
    Label1: TLabel;
    skbj: TDBCheckBox;
    gtbh: TDBEdit;
    Label2: TLabel;
    qtbh: TDBEdit;
    BitBtn2: TBitBtn;
    bj: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure ToolButton6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure bcClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure xzClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure bjClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  s_qtsz: Ts_qtsz;

implementation

uses  u_main;

{$R *.DFM}

procedure Ts_qtsz.ToolButton6Click(Sender: TObject);
begin
end;

procedure Ts_qtsz.N8Click(Sender: TObject);
begin
end;
procedure Ts_qtsz.ToolButton4Click(Sender: TObject);
begin
end;
procedure Ts_qtsz.bcClick(Sender: TObject);
begin
end;
procedure Ts_qtsz.FormShow(Sender: TObject);
begin
end;

procedure Ts_qtsz.xzClick(Sender: TObject);
begin
end;

procedure Ts_qtsz.BitBtn1Click(Sender: TObject);
begin
end;

procedure Ts_qtsz.BitBtn2Click(Sender: TObject);
begin
end;

procedure Ts_qtsz.bjClick(Sender: TObject);
begin
end;

procedure Ts_qtsz.FormKeyPress(Sender: TObject; var Key: Char);
begin
end;

end.