📄 moduleunit1.dfm
字号:
object ModuleForm1: TModuleForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'ModuleForm1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object OutlookBtn1: TOutlookBtn
Left = 104
Top = 16
Width = 106
Height = 23
OnClick = OutlookBtn1Click
Checked = False
Style = bsMSOffice
Caption = '增加'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
object OutlookBtn2: TOutlookBtn
Left = 232
Top = 16
Width = 106
Height = 23
OnClick = OutlookBtn2Click
Checked = False
Style = bsMSOffice
Caption = '删除'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
object OutlookBtn3: TOutlookBtn
Left = 368
Top = 16
Width = 106
Height = 23
OnClick = OutlookBtn3Click
Checked = False
Style = bsMSOffice
Caption = '修改'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
object OutlookBtn4: TOutlookBtn
Left = 504
Top = 16
Width = 106
Height = 23
OnClick = OutlookBtn4Click
Checked = False
Style = bsMSOffice
Caption = '返回'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
end
object DBGridEh1: TDBGridEh
Left = 12
Top = 56
Width = 667
Height = 385
LineColor = clBlack
SelectedFontColor = clHighlightText
DataSource = ModuleDataSource
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = 'Arial'
TitleFont.Style = []
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FooterColor = clWindow
RowHeight = 4
RowLines = 1
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghClearSelection]
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = '¥'
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = '楷体_GB2312'
CurrencyStyle.HeadFont.Style = []
end
object ModuleDatabase: TDatabase
DatabaseName = 'ModuleDatabase'
SessionName = 'Default'
end
object ModuleDataSource: TDataSource
DataSet = ModuleQuery1
Left = 28
end
object ModuleQuery1: TQuery
DatabaseName = 'ModuleDatabase'
Left = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -