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