roomtp.pas

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

unit roomtp;

interface

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

type
  Trmtypeform = class(TForm)
    Bevel3: TBevel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label8: TLabel;
    Label13: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label12: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    DBEdit7: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Panel1: TPanel;
    Label14: TLabel;
    Label19: TLabel;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBEdit17: TDBEdit;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    DBCheckBox3: TDBCheckBox;
    Label29: TLabel;
    DBEdit18: TDBEdit;
    Label30: TLabel;
    DBCheckBox4: TDBCheckBox;
    Label31: TLabel;
    Label32: TLabel;
    DBEdit19: TDBEdit;
    Label33: TLabel;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    Label34: TLabel;
    DBEdit22: TDBEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rmtypeform: Trmtypeform;

implementation
uses dataproc;

{$R *.DFM}



procedure Trmtypeform.FormCreate(Sender: TObject);
var i:integer;
begin
   Table1.Open;
   ChineseGrid(DBGrid1);
   DBGrid1.fields[0].displaylabel:='类型代码';
  // for i:=4 to 9 do Table1.Fields[i].visible:=false;
  // Table1.Fields[11].visible:=false;
 //  DBGrid1.fields[6].displaylabel:='钟点房押金';
//  dbgrid1.Columns[3].width:=76;
end;

procedure Trmtypeform.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    if DBGrid1.SelectedIndex<DBGrid1.FieldCount-1 then
       DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1
    else
    begin
      if Table1.Eof then
      begin
        Table1.Next;
        Table1.close;
        FormCreate(nil);
        Table1.Last;
      end
      else
        Table1.Next;
    end;
  end;

end;

end.