roomadd.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 37 行

unit RoomAdd;

interface

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

type
  TRoomAddFrm = class(TForm)
    DBEd_id: TDBEdit;
    DBEd_level: TDBEdit;
    DBEd_cost: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    DBMemo: TDBMemo;
    DBNavigator1: TDBNavigator;
    Label4: TLabel;
    DBEdit1: TDBEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RoomAddFrm: TRoomAddFrm;

implementation
  uses DB_Frm;
{$R *.dfm}


end.