📄 u_add.pas
字号:
unit u_add;interfaceuses 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;implementationuses 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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -