roominfofrm.~pas

来自「delphi 编制的服务器程序」· ~PAS 代码 · 共 54 行

unit RoomInfoFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DbChildFrm, DB, ADODB, ImgList, StdCtrls, Grids, DBGrids,
  ComCtrls, Buttons, ExtCtrls, Mask, DBCtrls;

type
  TRoomInfoForm = class(TDbChildForm)
    ADOQuery1RoomID: TSmallintField;
    ADOQuery1RoomName: TWideStringField;
    ADOQuery1FeeRate: TFloatField;
    ADOQuery1IP: TWideStringField;
    ADOQuery1ComputerNums: TSmallintField;
    ADOQuery1Posite: TWideStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RoomInfoForm: TRoomInfoForm;
  procedure CallRoomInfoForm;
  
implementation

uses MainDm;

{$R *.dfm}
procedure CallRoomInfoForm;
begin
  if RoomInfoForm = nil then
    RoomInfoForm := TRoomInfoForm.Create(Application);
  RoomInfoForm.ShowModal;
  RoomInfoForm.Free;
  RoomInfoForm := nil;
end;
end.