u_code.pas

以多个信息系统为例

unit u_code;

interface

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

type
  TF_code = class(TForm)
    CodeTableSelect: TRadioGroup;
    DBN_code: TDBNavigator;
    DBG_code: TDBGrid;
    procedure CodeTableSelectClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_code: TF_code;

implementation

uses u_data, u_main;
{$R *.DFM}

procedure TF_code.CodeTableSelectClick(Sender: TObject);
var
  TableName:String;
  ShowColumn:Boolean;
begin
  case CodeTableSelect.ItemIndex of
  0: TableName:='ID_TYPE';
  1: TableName:='ROOM_STATE';
  2: TableName:='SHEET_STAGE';
  3: TableName:='MODE';
  4: TableName:='ROOM_LEVEL';
  end;
  ShowColumn:=(CodeTableSelect.ItemIndex=4);
  DBG_code.Columns[2].Visible:=ShowColumn;
  DBG_code.Columns[3].Visible:=ShowColumn;
  DM_main.SetCodeTable(TableName);
end;

procedure TF_code.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_main.SetCodeTable('Close');
  Action:=caFree;
  F_main.OtherCode.Enabled:=True;
end;

end.