📄 basemoney.dfm
字号:
inherited frmBaseMoney: TfrmBaseMoney
Top = 147
Caption = #24065#31181#22522#30784#36164#26009
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter [0]
Left = 217
Top = 23
Width = 4
Height = 325
Cursor = crHSplit
end
object DBGrid1: TDBGrid [2]
Left = 0
Top = 23
Width = 217
Height = 325
Align = alLeft
DataSource = dsBaseInfo
ReadOnly = True
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fMoney'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'fRate'
Visible = True
end>
end
object Panel1: TPanel [3]
Left = 221
Top = 23
Width = 315
Height = 325
Align = alClient
TabOrder = 2
object Label1: TLabel
Left = 32
Top = 48
Width = 65
Height = 13
Caption = #24065#31181#21517#31216#65306
end
object Label2: TLabel
Left = 56
Top = 96
Width = 39
Height = 13
Caption = #31246#29575#65306
end
object DBEdit1: TDBEdit
Left = 96
Top = 40
Width = 121
Height = 21
DataField = 'fMoney'
DataSource = dsBaseInfo
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 96
Top = 88
Width = 121
Height = 21
DataField = 'fRate'
DataSource = dsBaseInfo
TabOrder = 1
end
end
inherited ALToolbar: TActionList
Left = 464
Top = 16
end
inherited QBaseInfo: TADOQuery
Active = True
SQL.Strings = (
'Select * from tMoney')
Left = 392
Top = 0
object QBaseInfofMoney: TWideStringField
DisplayLabel = #24065#31181#21517#31216
FieldName = 'fMoney'
Size = 50
end
object QBaseInfofRate: TFloatField
DisplayLabel = #31246#29575
FieldName = 'fRate'
end
end
inherited dsBaseInfo: TDataSource
Left = 432
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -