rylbwh.pas

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

unit rylbwh;

interface

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

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

var
  rylbwhForm: TrylbwhForm;

implementation

uses dataproc;

{$R *.DFM}

procedure init;
begin
with rylbwhForm do
   begin
      Table1.Close;
      Table1.Active:=false;
      Table1.TableName:='dbo.rytype';
      Table1.Filter:='deptcode='+bmcode.Items[TabControl1.TabIndex];
      Table1.Open;

      Table1.Fields[2].visible:=false;
      ChineseGrid(DBGrid1);
      DBGrid1.fields[1].displaylabel:='类别名称';

  end;
end;

procedure TrylbwhForm.FormCreate(Sender: TObject);
begin
   Table1.TableName:='dbo.dept';
   Table1.Open;
   TabControl1.Tabs.Clear;
   bmcode.Items.Clear;
   while not Table1.Eof do
   begin
      TabControl1.Tabs.Add(Table1.fieldbyname('deptname').asstring);
      bmcode.Items.Add(Table1.fieldbyname('code').asstring);
      Table1.Next;
   end;
   Table1.Close;
   Table1.Active:=false;
   init;
end;
procedure TrylbwhForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
     if xt=1 then  help(19);
  end;

end;

procedure TrylbwhForm.Button1Click(Sender: TObject);
begin
   Table1.Next;
   Table1.close;
   init;

end;

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

end;

procedure TrylbwhForm.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;

procedure TrylbwhForm.TabControl1Change(Sender: TObject);
begin
  bmcode.ItemIndex:=TabControl1.TabIndex;
  init;
end;

procedure TrylbwhForm.Table1AfterInsert(DataSet: TDataSet);
begin
    Table1.Edit;
    Table1.Fieldbyname('deptcode').asstring:=bmcode.Items[TabControl1.TabIndex];
end;

end.