bmwh.pas

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

unit bmwh;

interface

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

type
  TbmwhForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Table1AfterInsert(DataSet: TDataSet);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bmwhForm: TbmwhForm;

implementation

uses dataproc;

{$R *.DFM}

procedure TbmwhForm.FormCreate(Sender: TObject);
begin
   Table1.Open;
//   Table1.Fields[14].visible:=false;
   ChineseGrid(DBGrid1);
//   DBGrid1.fields[3].displaylabel:=' 身份证号码  ';
   DBGrid1.fields[1].displaylabel:='部门名称';
{   DBGrid1.fields[9].displaylabel:='登记';
   DBGrid1.fields[10].displaylabel:='结帐';
   DBGrid1.fields[13].displaylabel:='消费';
   DBGrid1.fields[11].displaylabel:='餐厅';
   DBGrid1.fields[12].displaylabel:='查询';
   for i:=0 to 4 do DBGrid1.Columns[i].readonly:=true;
  dbgrid1.Columns[3].width:=76;
  dbgrid1.Columns[4].width:=70;
  dbgrid1.Columns[5].width:=46;
  dbgrid1.Columns[6].width:=50;
  dbgrid1.Columns[7].width:=50;
  dbgrid1.Columns[8].width:=30;  }

end;

procedure TbmwhForm.Table1AfterInsert(DataSet: TDataSet);

begin
//   Table1.Fields[14].asstring:=passzh('1234');

end;

procedure TbmwhForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then  help(19);
  end;

end;

procedure TbmwhForm.Button1Click(Sender: TObject);
begin
   Table1.Next;
   Table1.close;
   FormCreate(nil);

end;

procedure TbmwhForm.Button2Click(Sender: TObject);
begin
   Table1.Close;
   close;

end;

procedure TbmwhForm.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
        Button1Click(nil);
        Table1.Last;
      end
      else
        Table1.Next;
    end;
  end;
end;

end.