u_add.pas

以多个信息系统为例

unit u_add;

interface

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

type
  TF_add = class(TForm)
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    i_id: TDBEdit;
    i_place: TDBEdit;
    i_room_level: TDBLookupComboBox;
    i_room_state: TDBLookupComboBox;
    i_remark: TDBMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_add: TF_add;

implementation

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

procedure TF_add.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_main.OpenAddRoom(False);
  Action:=caFree;
  F_main.RoomAdd.Enabled:=True;
end;

procedure TF_add.FormCreate(Sender: TObject);
begin
  DM_main.OpenAddRoom(True);
end;

end.