gzmx.pas

集成酒店桑拿食管管理的完整程序

unit gzmx;

interface

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

type
  Tgzmxform = class(TForm)
    Label1: TLabel;
    gzsel: TComboBox;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzmxform: Tgzmxform;

implementation
uses dataproc;

{$R *.DFM}

procedure seemx;
begin
with gzmxform do
  begin
  query1.active:=false;
  query1.sql.clear;
  query1.sql.add('select xftime,roommoney,cusmoney from gzhisdbf where gzno=:pgzno');
  query1.ParamByName ('pgzno').asstring:=trim(copy(gzsel.Items[gzsel.itemindex],1,6));
  query1.Prepare;
  query1.open;
  chinesegrid(dbgrid1);
  query1.active:=true;
  end
end;

procedure Tgzmxform.FormCreate(Sender: TObject);
begin
  comadd(gzmxform.gzsel,2,'select gzno,gzname from gzdbf ');
  seemx;
end;

procedure Tgzmxform.SpeedButton1Click(Sender: TObject);
begin
  gzmxform.Close;
end;

procedure Tgzmxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   query1.free;
end;

procedure Tgzmxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then
     gzmxform.close;
end;

end.