📄 u_scfanr.dfm
字号:
object frm_scfanr: Tfrm_scfanr
Left = 277
Top = 262
BorderStyle = bsDialog
Caption = #35797#21367#29983#25104#26041#26696#20869#23481
ClientHeight = 291
ClientWidth = 593
Color = clGradientInactiveCaption
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 14
object DBGrid1: TDBGrid
Left = 8
Top = 7
Width = 576
Height = 177
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'txmc'
Title.Alignment = taCenter
Title.Caption = #35797#39064#39064#22411
Width = 166
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'STXH'
Title.Alignment = taCenter
Title.Caption = #35797#39064#24207#21495
Width = 99
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'JF'
Title.Alignment = taCenter
Title.Caption = #35745#20998
Width = 96
Visible = True
end>
end
object GroupBox2: TGroupBox
Left = 7
Top = 192
Width = 577
Height = 49
TabOrder = 1
object Label2: TLabel
Left = 30
Top = 20
Width = 133
Height = 14
Caption = #35797#21367#37325#28857#25484#25569#39064#27604#20363':'
end
object DBText1: TDBText
Left = 171
Top = 19
Width = 41
Height = 17
DataField = 'ZDTBL'
DataSource = DataSource2
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
end
object btn_close: TButton
Left = 234
Top = 253
Width = 116
Height = 25
Caption = #36820' '#22238
TabOrder = 2
OnClick = btn_closeClick
end
object Table1: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'sjscfanr.db'
Left = 151
Top = 80
object Table1FANAME: TStringField
FieldName = 'FANAME'
end
object Table1TXXH: TSmallintField
FieldName = 'TXXH'
end
object Table1STXH: TSmallintField
FieldName = 'STXH'
end
object Table1JF: TSmallintField
FieldName = 'JF'
end
object Table1txmc: TStringField
FieldKind = fkLookup
FieldName = 'txmc'
LookupDataSet = tbl_sttx
LookupKeyFields = 'TXXH'
LookupResultField = 'TXMC'
KeyFields = 'TXXH'
Size = 12
Lookup = True
end
end
object DataSource2: TDataSource
DataSet = Table2
Left = 295
Top = 208
end
object Table2: TTable
Active = True
DatabaseName = 'bzxl_db'
Filtered = True
TableName = 'sjscfa.DB'
Left = 343
Top = 208
end
object DataSource1: TDataSource
DataSet = Table1
Left = 239
Top = 72
end
object tbl_sttx: TTable
Active = True
DatabaseName = 'bzxl_db'
TableName = 'sttx.db'
Left = 55
Top = 192
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -