📄 sz.dfm
字号:
object frSZ: TfrSZ
Left = 98
Top = 66
Width = 630
Height = 470
Caption = #24180#32423#35838#31243#20351#29992#25945#23460#35774#32622
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 15
object Label9: TLabel
Left = 11
Top = 275
Width = 135
Height = 15
Caption = #35838#31243#19982#25945#23460#23545#24212#34920#65306
end
object GroupBox1: TGroupBox
Left = 11
Top = 11
Width = 353
Height = 257
Caption = ' * '#25945#23460#36873#25321' * '
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 24
Width = 45
Height = 15
Caption = #23398#21306#65306
end
object Label2: TLabel
Left = 24
Top = 80
Width = 30
Height = 15
Caption = #27004#65306
end
object Label3: TLabel
Left = 24
Top = 136
Width = 30
Height = 15
Caption = #23618#65306
end
object Label4: TLabel
Left = 128
Top = 24
Width = 45
Height = 15
Caption = #25945#23460#65306
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 24
Top = 48
Width = 97
Height = 23
DataField = #23398#21306
DataSource = dstemp
KeyField = 'ID'
ListField = 'Name'
ListSource = DataSource1
TabOrder = 0
OnClick = DBLookupComboBox1Click
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 24
Top = 104
Width = 97
Height = 23
DataField = #27004#21495
DataSource = dstemp
KeyField = 'LBH'
ListField = 'Name'
ListSource = DataSource2
TabOrder = 1
OnClick = DBLookupComboBox1Click
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 24
Top = 160
Width = 97
Height = 23
DataField = #27004#23618
DataSource = dstemp
KeyField = 'ID'
ListField = 'Name'
ListSource = DataSource3
TabOrder = 2
OnClick = DBLookupComboBox1Click
end
object DBGrid1: TDBGrid
Left = 128
Top = 48
Width = 209
Height = 193
DataSource = dsJS
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 3
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object cbC: TCheckBox
Left = 56
Top = 136
Width = 57
Height = 17
Caption = #36873#25321
TabOrder = 4
OnClick = DBLookupComboBox1Click
end
object cbL: TCheckBox
Left = 56
Top = 80
Width = 57
Height = 17
Caption = #36873#25321
Checked = True
State = cbChecked
TabOrder = 5
OnClick = cbLClick
end
object cbXZMT: TCheckBox
Left = 56
Top = 192
Width = 57
Height = 17
Caption = #36873#25321
TabOrder = 6
OnClick = cbXZMTClick
end
object cbJXSDMT: TCheckBox
Left = 22
Top = 216
Width = 83
Height = 17
Alignment = taLeftJustify
Caption = #22810#23186#20307
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = cbJXSDMTClick
end
end
object GroupBox2: TGroupBox
Left = 371
Top = 19
Width = 233
Height = 209
Caption = ' * '#26102#38388#12289#24180#32423#36873#25321' * '
TabOrder = 1
object Label5: TLabel
Left = 8
Top = 48
Width = 30
Height = 15
Caption = #21608#65306
end
object Label6: TLabel
Left = 109
Top = 48
Width = 30
Height = 15
Caption = #33410#65306
end
object Label7: TLabel
Left = 8
Top = 136
Width = 30
Height = 15
Caption = #31995#65306
end
object Label8: TLabel
Left = 120
Top = 140
Width = 45
Height = 15
Caption = #24180#32423#65306
end
object cbZhou: TComboBox
Left = 32
Top = 44
Width = 73
Height = 23
Style = csDropDownList
ItemHeight = 15
ItemIndex = 1
TabOrder = 0
Text = #21608#19968
Items.Strings = (
#21608#26085
#21608#19968
#21608#20108
#21608#19977
#21608#22235
#21608#20116
#21608#20845)
end
object cbJie: TComboBox
Left = 136
Top = 44
Width = 89
Height = 23
Style = csDropDownList
ItemHeight = 15
ItemIndex = 0
TabOrder = 1
Text = #31532#19968#33410
Items.Strings = (
#31532#19968#33410
#31532#20108#33410
#31532#19977#33410
#31532#22235#33410
#31532#20116#33410)
end
object dblXi: TDBLookupComboBox
Left = 8
Top = 160
Width = 97
Height = 23
DataField = #31995
DataSource = dstemp
KeyField = 'ID'
ListField = 'Name'
ListSource = dsXi
TabOrder = 2
OnClick = DBLookupComboBox1Click
end
object cbNJ: TComboBox
Left = 120
Top = 160
Width = 89
Height = 23
Style = csDropDownList
ItemHeight = 15
ItemIndex = 0
TabOrder = 3
Text = #19968#24180#32423
Items.Strings = (
#19968#24180#32423
#20108#24180#32423
#19977#24180#32423
#22235#24180#32423)
end
end
object Button1: TButton
Left = 400
Top = 243
Width = 204
Height = 25
Caption = #28155#21152#21040#35838#31243#19982#25945#23460#23545#24212#34920
TabOrder = 2
OnClick = Button1Click
end
object DBGrid2: TDBGrid
Left = 11
Top = 294
Width = 594
Height = 102
DataSource = DataSource4
ReadOnly = True
TabOrder = 3
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object Button2: TButton
Left = 416
Top = 403
Width = 108
Height = 25
Caption = #21024#38500#35838#31243#20998#37197
TabOrder = 4
OnClick = Button2Click
end
object Button3: TButton
Left = 531
Top = 403
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = Button3Click
end
object temp: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
TableName = 'temp'
Left = 112
Top = 187
end
object dstemp: TDataSource
DataSet = temp
Left = 144
Top = 187
end
object LH: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
IndexFieldNames = 'XQID'
MasterFields = 'ID'
MasterSource = DataSource1
TableName = #27004
Left = 19
Top = 99
object LHXQID: TIntegerField
FieldName = 'XQID'
Visible = False
end
object LHID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
Visible = False
end
object LHLBH: TWideStringField
DisplayLabel = #32534#21495
FieldName = 'LBH'
Size = 6
end
object LHName: TWideStringField
DisplayLabel = #21517#31216
DisplayWidth = 14
FieldName = 'Name'
Size = 30
end
end
object DataSource2: TDataSource
DataSet = LH
Left = 51
Top = 99
end
object DataSource1: TDataSource
DataSet = XQ
Left = 48
Top = 51
end
object XQ: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
IndexName = 'ID'
TableName = #23398#21306
Left = 16
Top = 51
object XQID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
Visible = False
end
object XQName: TWideStringField
DisplayLabel = #23398#21306#21517
DisplayWidth = 10
FieldName = 'Name'
Size = 30
end
end
object LC: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
IndexName = 'ID'
TableName = #23618
Left = 19
Top = 139
object LCID: TWideStringField
DisplayLabel = #32534#21495
FieldName = 'ID'
Size = 2
end
object LCName: TWideStringField
DisplayLabel = #21517#31216
DisplayWidth = 8
FieldName = 'Name'
Size = 30
end
end
object DataSource3: TDataSource
DataSet = LC
Left = 51
Top = 139
end
object JS: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
Filtered = True
OnFilterRecord = JSFilterRecord
TableName = #25945#23460
Left = 112
Top = 227
object JSJSBH: TWideStringField
FieldName = 'JSBH'
Visible = False
Size = 14
end
object JSName: TWideStringField
DisplayLabel = #21517#31216
DisplayWidth = 8
FieldName = 'Name'
end
object JSMT: TBooleanField
DisplayLabel = #22810#23186#20307
FieldName = 'MT'
OnGetText = JSMTGetText
end
object JSallname: TWideStringField
FieldName = 'allname'
Visible = False
Size = 100
end
end
object dsJS: TDataSource
DataSet = JS
Left = 144
Top = 227
end
object Xi: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
IndexName = 'ID'
TableName = #31995
Left = 379
Top = 107
object XiID: TWideStringField
FieldName = 'ID'
Size = 2
end
object XiName: TWideStringField
FieldName = 'Name'
Size = 30
end
end
object dsXi: TDataSource
DataSet = Xi
Left = 411
Top = 107
end
object DYB: TADOTable
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\'#25945#23460#31649#29702'.mdb;Persist ' +
'Security Info=False;User ID=Admin;Password=""'
CursorType = ctStatic
IndexName = 'ID'
TableName = #23545#24212#34920
Left = 227
Top = 267
object DYBDSDesigner2: TWideStringField
DisplayWidth = 10
FieldName = #26102#38388
OnGetText = DYBDSDesigner2GetText
Size = 2
end
object DYBDSDesigner: TWideStringField
DisplayWidth = 16
FieldName = #29677#32423
OnGetText = DYBDSDesignerGetText
Size = 6
end
object DYBDSDesigner3: TWideStringField
FieldName = #25945#23460
Visible = False
Size = 14
end
object DYBStringField: TStringField
DisplayWidth = 40
FieldKind = fkLookup
FieldName = #25945#23460#20840#31216
LookupDataSet = JS
LookupKeyFields = 'JSBH'
LookupResultField = 'allname'
KeyFields = #25945#23460
Size = 100
Lookup = True
end
end
object DataSource4: TDataSource
DataSet = DYB
Left = 259
Top = 267
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -