📄 complaint.dfm
字号:
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = btn_deleteClick
end
end
end
object TabSheet2: TTabSheet
Caption = #23458#25143#25237#35785#35843#26597'_'#26597#30475' '
ImageIndex = 1
OnEnter = TabSheet2Enter
object Panel2: TPanel
Left = 344
Top = 9
Width = 425
Height = 42
TabOrder = 0
object btn_brs: TButton
Left = 55
Top = 7
Width = 75
Height = 28
Caption = #20840#35272
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btn_brsClick
end
object btn_qry: TButton
Left = 130
Top = 7
Width = 75
Height = 28
Caption = #26597#35810
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btn_qryClick
end
object btn_clr: TButton
Left = 205
Top = 7
Width = 75
Height = 28
Caption = #28165#31354
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btn_clrClick
end
object btn_prt: TButton
Left = 280
Top = 7
Width = 75
Height = 28
Caption = #25171#21360#32467#26524
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btn_prtClick
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 56
Width = 773
Height = 381
Align = alBottom
Caption = #25968#25454#26597#30475#31383#21475
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object DBGrid1: TDBGrid
Left = 2
Top = 15
Width = 769
Height = 364
Align = alClient
Color = clInfoBk
Ctl3D = False
DataSource = dscomplaint
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentCtl3D = False
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #23458#25143#21495
Visible = True
end
item
Expanded = False
FieldName = #25152#23646#21150#20107#22788
Visible = True
end
item
Expanded = False
FieldName = #23458#25143#21517#31216
Visible = True
end
item
Expanded = False
FieldName = #23458#25143#22320#22336
Visible = True
end
item
Expanded = False
FieldName = #36127#36131#20154
Visible = True
end
item
Expanded = False
FieldName = #30005#35805#21495#30721
Visible = True
end
item
Expanded = False
FieldName = #31614#21457#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #35760#24405#20154
Visible = True
end
item
Expanded = False
FieldName = #25237#35785#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #26159#21542#35843#26597
Visible = True
end
item
Expanded = False
FieldName = #35843#26597#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #35843#26597#20154
Visible = True
end
item
Expanded = False
FieldName = #24847#35265#31614#21457#20154
Visible = True
end
item
Expanded = False
FieldName = #22788#29702#20154
Visible = True
end
item
Expanded = False
FieldName = #22788#29702#26102#38388
Visible = True
end
item
Expanded = False
FieldName = #20027#31649
Visible = True
end
item
Expanded = False
FieldName = #23457#26680
Visible = True
end
item
Expanded = False
FieldName = #24405#20837
Visible = True
end
item
Expanded = False
FieldName = #24405#20837#26085#26399
Visible = True
end>
end
end
object GroupBox4: TGroupBox
Left = 179
Top = 3
Width = 161
Height = 50
Caption = #25353#23458#25143#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
object cbcstmname: TComboBox
Left = 7
Top = 21
Width = 145
Height = 21
Color = clInfoBk
Ctl3D = False
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentCtl3D = False
ParentFont = False
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 3
Top = 3
Width = 161
Height = 50
Caption = #25353#21150#20107#22788#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
object cbbsc: TComboBox
Left = 9
Top = 22
Width = 145
Height = 21
Color = clInfoBk
Ctl3D = False
ItemHeight = 13
ParentCtl3D = False
TabOrder = 0
end
end
end
end
object qcomplaint: TQuery
CachedUpdates = True
AfterScroll = qcomplaintAfterScroll
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
RequestLive = True
SQL.Strings = (
'select pub_z_complaint.*,pub_z_client.'#23458#25143#22320#22336',pub_z_client.'#36127#36131#20154',pub_' +
'z_client.'#30005#35805#21495#30721',pub_z_client.'#21150#20107#22788' '#25152#23646#21150#20107#22788
'from pub_z_complaint,pub_z_client'
'where'
'pub_z_complaint.'#23458#25143#21495'=pub_z_client.'#23458#25143#21495)
UpdateObject = Udcomplaint
Left = 588
Top = 2
object qcomplaintBDEDesigner: TAutoIncField
FieldName = #24207#21495
Origin = 'ZXJX_JXW.pub_z_complaint.'#24207#21495
end
object qcomplaintBDEDesigner2: TStringField
FieldName = #23458#25143#21495
Origin = 'ZXJX_JXW.pub_z_complaint.'#23458#25143#21495
FixedChar = True
end
object qcomplaintBDEDesigner3: TDateTimeField
FieldName = #31614#21457#26102#38388
Origin = 'ZXJX_JXW.pub_z_complaint.'#31614#21457#26102#38388
EditMask = '!0000/99/99;1;_'
end
object qcomplaintBDEDesigner4: TMemoField
FieldName = #25237#35785#38382#39064
Origin = 'ZXJX_JXW.pub_z_complaint.'#25237#35785#38382#39064
BlobType = ftMemo
end
object qcomplaintBDEDesigner5: TStringField
FieldName = #35760#24405#20154
Origin = 'ZXJX_JXW.pub_z_complaint.'#35760#24405#20154
FixedChar = True
end
object qcomplaintBDEDesigner6: TDateTimeField
FieldName = #25237#35785#26102#38388
Origin = 'ZXJX_JXW.pub_z_complaint.'#25237#35785#26102#38388
EditMask = '!0000/99/99;1;_'
end
object qcomplaintBDEDesigner8: TDateTimeField
FieldName = #35843#26597#26102#38388
Origin = 'ZXJX_JXW.pub_z_complaint.'#35843#26597#26102#38388
EditMask = '!0000/99/99;1;_'
end
object qcomplaintBDEDesigner9: TMemoField
FieldName = #35843#26597#24773#20917
Origin = 'ZXJX_JXW.pub_z_complaint.'#35843#26597#24773#20917
BlobType = ftMemo
end
object qcomplaintBDEDesigner10: TStringField
FieldName = #35843#26597#20154
Origin = 'ZXJX_JXW.pub_z_complaint.'#35843#26597#20154
FixedChar = True
end
object qcomplaintBDEDesigner11: TMemoField
FieldName = #22788#29702#24847#35265
Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#24847#35265
BlobType = ftMemo
end
object qcomplaintBDEDesigner12: TStringField
FieldName = #24847#35265#31614#21457#20154
Origin = 'ZXJX_JXW.pub_z_complaint.'#24847#35265#31614#21457#20154
FixedChar = True
end
object qcomplaintBDEDesigner13: TMemoField
FieldName = #22788#29702#32467#26524
Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#32467#26524
BlobType = ftMemo
end
object qcomplaintBDEDesigner14: TStringField
FieldName = #22788#29702#20154
Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#20154
FixedChar = True
end
object qcomplaintBDEDesigner15: TDateTimeField
FieldName = #22788#29702#26102#38388
Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#26102#38388
EditMask = '!0000/99/99;1;_'
end
object qcomplaintBDEDesigner16: TStringField
FieldName = #20027#31649
Origin = 'ZXJX_JXW.pub_z_complaint.'#20027#31649
FixedChar = True
end
object qcomplaintBDEDesigner17: TStringField
FieldName = #23457#26680
Origin = 'ZXJX_JXW.pub_z_complaint.'#23457#26680
FixedChar = True
end
object qcomplaintBDEDesigner18: TStringField
FieldName = #24405#20837
Origin = 'ZXJX_JXW.pub_z_complaint.'#24405#20837
FixedChar = True
end
object qcomplaintBDEDesigner19: TDateTimeField
FieldName = #24405#20837#26085#26399
Origin = 'ZXJX_JXW.pub_z_complaint.'#24405#20837#26085#26399
end
object qcomplaintBDEDesigner20: TStringField
FieldName = #23458#25143#21517#31216
Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#21517#31216
FixedChar = True
Size = 40
end
object qcomplaintBDEDesigner21: TStringField
FieldName = #23458#25143#22320#22336
Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#22320#22336
FixedChar = True
Size = 100
end
object qcomplaintBDEDesigner22: TStringField
FieldName = #36127#36131#20154
Origin = 'ZXJX_JXW.pub_z_client.'#36127#36131#20154
FixedChar = True
end
object qcomplaintBDEDesigner23: TStringField
FieldName = #30005#35805#21495#30721
Origin = 'ZXJX_JXW.pub_z_client.'#30005#35805#21495#30721
FixedChar = True
end
object qcomplaintBDEDesigner7: TStringField
FieldName = #26159#21542#35843#26597
Origin = 'ZXJX_JXW.pub_z_complaint.'#26159#21542#35843#26597
FixedChar = True
Size = 8
end
object qcomplaintBDEDesigner24: TDateTimeField
FieldName = #19978#25253#26102#38388
Origin = 'ZXJX_JXW.pub_z_complaint.'#19978#25253#26102#38388
end
object qcomplaintBDEDesigner26: TStringField
FieldName = #21150#20107#22788
Origin = 'ZXJX_JXW.pub_z_complaint.'#21150#20107#22788
FixedChar = True
end
object qcomplaintBDEDesigner27: TStringField
FieldName = #25152#23646#21150#20107#22788
Origin = 'ZXJX_JXW.pub_z_client.'#21150#20107#22788
FixedChar = True
end
end
object dscomplaint: TDataSource
DataSet = qcomplaint
Left = 544
Top = 2
end
object Udcomplaint: TUpdateSQL
ModifySQL.Strings = (
'update pub_z_complaint'
'set'
' '#23458#25143#21517#31216' = :'#23458#25143#21517#31216','
' '#23458#25143#21495' = :'#23458#25143#21495','
' '#31614#21457#26102#38388' = :'#31614#21457#26102#38388','
' '#25237#35785#38382#39064' = :'#25237#35785#38382#39064','
' '#35760#24405#20154' = :'#35760#24405#20154','
' '#25237#35785#26102#38388' = :'#25237#35785#26102#38388','
' '#26159#21542#35843#26597' = :'#26159#21542#35843#26597','
' '#35843#26597#26102#38388' = :'#35843#26597#26102#38388','
' '#35843#26597#24773#20917' = :'#35843#26597#24773#20917','
' '#35843#26597#20154' = :'#35843#26597#20154','
' '#22788#29702#24847#35265' = :'#22788#29702#24847#35265','
' '#24847#35265#31614#21457#20154' = :'#24847#35265#31614#21457#20154','
' '#22788#29702#32467#26524' = :'#22788#29702#32467#26524','
' '#22788#29702#20154' = :'#22788#29702#20154','
' '#22788#29702#26102#38388' = :'#22788#29702#26102#38388','
' '#20027#31649' = :'#20027#31649','
' '#23457#26680' = :'#23457#26680','
' '#24405#20837' = :'#24405#20837','
' '#24405#20837#26085#26399' = :'#24405#20837#26085#26399','
' '#21150#20107#22788' = :'#21150#20107#22788
'where'
' '#23458#25143#21495' = :OLD_'#23458#25143#21495' and'
' '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
InsertSQL.Strings = (
'insert into pub_z_complaint'
' ('#23458#25143#21517#31216', '#23458#25143#21495', '#31614#21457#26102#38388', '#25237#35785#38382#39064', '#35760#24405#20154', '#25237#35785#26102#38388', '#26159#21542#35843#26597', '#35843#26597#26102#38388', '
' '#35843#26597#24773#20917', '#35843#26597#20154', '#22788#29702#24847#35265', '#24847#35265#31614#21457#20154', '#22788#29702#32467#26524', '#22788#29702#20154', '#22788#29702#26102#38388', '
' '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399', '#21150#20107#22788')'
'values'
' (:'#23458#25143#21517#31216', :'#23458#25143#21495', :'#31614#21457#26102#38388', :'#25237#35785#38382#39064', :'#35760#24405#20154', :'#25237#35785#26102#38388', :'#26159#21542#35843#26597', '
' :'#35843#26597#26102#38388', :'#35843#26597#24773#20917', :'#35843#26597#20154', :'#22788#29702#24847#35265', :'#24847#35265#31614#21457#20154', :'#22788#29702#32467#26524', :'#22788#29702#20154', '
' :'#22788#29702#26102#38388', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399', :'#21150#20107#22788')')
DeleteSQL.Strings = (
'delete from pub_z_complaint'
'where'
' '#23458#25143#21495' = :OLD_'#23458#25143#21495' and'
' '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
Left = 622
Top = 2
end
object Quse: TQuery
CachedUpdates = True
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
Left = 494
Top = 3
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -