📄 browseksdaunit.dfm
字号:
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Lbxf_xfxm'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #28040#36153#39033#30446
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 90
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'lbxf_jjdw'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #28040#36153#26041#24335
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 135
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Lbxf_xfsl'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #28040#36153#25968#37327
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Lbxf_xfje'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #28040#36153#37329#39069
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 120
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'lbxf_dzbl'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #25171#25240#27604#20363
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Lbxf_xfBegin'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #28040#36153#26102#38388
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 160
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Lbxf_jzr'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
Title.Alignment = taCenter
Title.Caption = #35760#36134#20154
Title.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlack
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = [fsBold]
Width = 100
Visible = True
end>
end
object stsbr2: TsuiStatusBar
Left = 4
Top = 564
Width = 854
Height = 19
UIStyle = DeepBlue
PanelColor = 15263976
Color = 15263976
Panels = <
item
Width = 50
end>
end
end
object ds1: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspRoomBKJZ'
RemoteServer = LoginForm.SocketConnection1
AfterScroll = ds1AfterScroll
Left = 8
Top = 72
object wdstrngfldds1Jzjl_ywbh: TWideStringField
FieldName = 'Jzjl_ywbh'
Size = 50
end
object wdstrngfldds1Jzjl_sph: TWideStringField
FieldName = 'Jzjl_sph'
Size = 50
end
object wdstrngfldds1jzjl_khbh: TWideStringField
FieldName = 'jzjl_khbh'
Size = 50
end
object ds1Jzjl_xfje: TFloatField
FieldName = 'Jzjl_xfje'
end
object ds1Jzjl_ysje: TFloatField
FieldName = 'Jzjl_ysje'
end
object ds1Jzjl_dzje: TFloatField
FieldName = 'Jzjl_dzje'
end
object ds1Jzjl_ssje: TFloatField
FieldName = 'Jzjl_ssje'
end
object ds1jzjl_fby: TFloatField
FieldName = 'jzjl_fby'
end
object wdstrngfldds1Jzjl_jsfs: TWideStringField
FieldName = 'Jzjl_jsfs'
Size = 50
end
object wdstrngfldds1Jzjl_skr: TWideStringField
FieldName = 'Jzjl_skr'
Size = 50
end
object wdstrngfldds1Jzjl_jzzt: TWideStringField
FieldName = 'Jzjl_jzzt'
Size = 50
end
object ds1name: TStringField
FieldKind = fkLookup
FieldName = 'name'
LookupDataSet = ds3
LookupKeyFields = 'ID'
LookupResultField = 'name'
KeyFields = 'jzjl_khbh'
Size = 200
Lookup = True
end
object wdstrngfldds1Jzjl_jssj: TWideStringField
FieldName = 'Jzjl_jssj'
Size = 50
end
end
object ds2: TDataSource
DataSet = ds1
Left = 40
Top = 72
end
object ds3: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspRoomGuest'
RemoteServer = LoginForm.SocketConnection1
Left = 72
Top = 72
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
FieldDefs = <
item
Name = 'Lbxf_xfbh'
DataType = ftWideString
Size = 50
end
item
Name = 'Lbxf_sph'
DataType = ftWideString
Size = 50
end
item
Name = 'Lbxf_xfxm'
DataType = ftWideString
Size = 50
end
item
Name = 'Lbxf_xmdj'
DataType = ftFloat
end
item
Name = 'lbxf_dzbl'
DataType = ftWideString
Size = 50
end
item
Name = 'Lbxf_xfsl'
DataType = ftWideString
Size = 50
end
item
Name = 'Lbxf_xfje'
DataType = ftFloat
end
item
Name = 'Lbxf_xfBegin'
DataType = ftWideString
Size = 50
end
item
Name = 'lbxf_jjdw'
DataType = ftWideString
Size = 50
end
item
Name = 'Lbxf_jzr'
DataType = ftWideString
Size = 50
end>
IndexDefs = <>
IndexFieldNames = 'Lbxf_xfbh'
MasterFields = 'Jzjl_sph'
MasterSource = ds2
PacketRecords = 0
Params = <>
ProviderName = 'dspRoomConsume'
RemoteServer = LoginForm.SocketConnection1
StoreDefs = True
Left = 9
Top = 300
object wdstrngfldClientDataSet1Lbxf_xfbh: TWideStringField
FieldName = 'Lbxf_xfbh'
Size = 50
end
object wdstrngfldClientDataSet1Lbxf_sph: TWideStringField
FieldName = 'Lbxf_sph'
Size = 50
end
object wdstrngfldClientDataSet1Lbxf_xfxm: TWideStringField
FieldName = 'Lbxf_xfxm'
Size = 50
end
object ClientDataSet1Lbxf_xmdj: TFloatField
FieldName = 'Lbxf_xmdj'
end
object wdstrngfldClientDataSet1lbxf_dzbl: TWideStringField
FieldName = 'lbxf_dzbl'
Size = 50
end
object wdstrngfldClientDataSet1Lbxf_xfsl: TWideStringField
FieldName = 'Lbxf_xfsl'
Size = 50
end
object ClientDataSet1Lbxf_xfje: TFloatField
FieldName = 'Lbxf_xfje'
end
object wdstrngfldClientDataSet1Lbxf_xfBegin: TWideStringField
FieldName = 'Lbxf_xfBegin'
Size = 50
end
object wdstrngfldClientDataSet1lbxf_jjdw: TWideStringField
FieldName = 'lbxf_jjdw'
Size = 50
end
object wdstrngfldClientDataSet1Lbxf_jzr: TWideStringField
FieldName = 'Lbxf_jzr'
Size = 50
end
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 40
Top = 304
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -