cttabtp.pas

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

unit cttabtp;

interface

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

type
  Tcttypeform = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cttypeform: Tcttypeform;

implementation
uses dataproc;

{$R *.DFM}



procedure Tcttypeform.FormCreate(Sender: TObject);
var i:integer;
begin
   Table1.Open;
   ChineseGrid(DBGrid1);
   DBGrid1.fields[3].displaylabel:='最低消费';
//   for i:=4 to 9 do Table1.Fields[i].visible:=false;
//   Table1.Fields[11].visible:=false;
//  dbgrid1.Columns[3].width:=76;
end;

procedure Tcttypeform.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.