📄 sysparafrm.pas
字号:
unit SysparaFrm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DbChildFrm, DB, ADODB, ImgList, Grids, DBGrids, ComCtrls,
Buttons, ExtCtrls, StdCtrls, Mask, DBCtrls;
type
TSysParaForm = class(TDbChildForm)
ADOQuery1SysCode: TWideStringField;
ADOQuery1SysName: TWideStringField;
ADOQuery1SysValue: TFloatField;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label1: TLabel;
Label2: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
SysParaForm: TSysParaForm;
procedure CallSysParaForm;
implementation
uses MainDm;
{$R *.dfm}
procedure CallSysParaForm;
begin
if SysParaForm = nil then
SysParaForm := TSysParaForm.Create(Application);
SysParaForm.ShowModal;
SysParaForm.Free;
SysParaForm := nil;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -