📄 visitold.dfm
字号:
Top = 10
Width = 75
Height = 30
Caption = #21024#38500
TabOrder = 8
OnClick = btn_deleteClick
end
end
end
object TabSheet2: TTabSheet
Caption = #29992#25143#22238#35775'_'#26597#30475
ImageIndex = 1
OnEnter = TabSheet2Enter
object GroupBox6: TGroupBox
Left = 0
Top = 106
Width = 777
Height = 344
Align = alBottom
Caption = #25968#25454#26597#30475#31383#21475
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object DBGrid1: TDBGrid
Left = 16
Top = 17
Width = 739
Height = 300
Color = clInfoBk
DataSource = dsvisitold
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #23458#25143#21517#31216
Visible = True
end
item
Expanded = False
FieldName = #30005#35805#21495#30721
Visible = True
end
item
Expanded = False
FieldName = #23458#25143#22320#22336
Visible = True
end
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 = #36127#36131#20154
Visible = True
end
item
Expanded = False
FieldName = #22238#35775#20154
Visible = True
end
item
Expanded = False
FieldName = #24180
Visible = True
end
item
Expanded = False
FieldName = #26376
Visible = True
end
item
Expanded = False
FieldName = #26085
Visible = True
end
item
Expanded = False
FieldName = #22238#35775#20154#31614#23383
Visible = True
end
item
Expanded = False
FieldName = #21150#20107#22788#32463#29702#23457#26680
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 GroupBox3: TGroupBox
Left = 0
Top = 0
Width = 177
Height = 50
Caption = #25353#21150#20107#22788#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object cbbsc: TComboBox
Left = 9
Top = 22
Width = 145
Height = 21
Color = clInfoBk
ItemHeight = 13
TabOrder = 0
end
end
object GroupBox4: TGroupBox
Left = 184
Top = 0
Width = 185
Height = 50
Caption = #25353#23458#25143#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
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
ItemHeight = 13
TabOrder = 0
end
end
object GroupBox5: TGroupBox
Left = 608
Top = 0
Width = 169
Height = 50
Caption = #25353#22238#35775#26102#38388
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
object Label22: TLabel
Left = 93
Top = 24
Width = 12
Height = 12
AutoSize = False
Caption = #24180
end
object Label23: TLabel
Left = 150
Top = 25
Width = 17
Height = 12
AutoSize = False
Caption = #26376
end
object cbyear: TComboBox
Left = 9
Top = 21
Width = 78
Height = 21
Color = clInfoBk
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
Items.Strings = (
'1995'
'1997'
'1998'
'1999'
'2000'
'2001'
'2002'
'2003'
'2004'
'2005'
'2006'
'2007'
'2008'
'2009'
'2010')
end
object cbmonth: TComboBox
Left = 107
Top = 22
Width = 40
Height = 21
Color = clInfoBk
ItemHeight = 13
TabOrder = 1
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
end
end
object Panel3: TPanel
Left = 1
Top = 56
Width = 776
Height = 42
TabOrder = 4
object btn_brs: TButton
Left = 215
Top = 6
Width = 75
Height = 30
Caption = #20840#35272
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = btn_brsClick
end
object btn_qry: TButton
Left = 290
Top = 6
Width = 75
Height = 30
Caption = #26597#35810
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btn_qryClick
end
object btn_clr: TButton
Left = 365
Top = 6
Width = 75
Height = 30
Caption = #28165#31354
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btn_clrClick
end
object btn_prt: TButton
Left = 440
Top = 6
Width = 75
Height = 30
Caption = #25171#21360#32467#26524
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btn_prtClick
end
end
object GroupBox2: TGroupBox
Left = 376
Top = 0
Width = 225
Height = 50
Caption = #25353#22320#21306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
object Label28: TLabel
Left = 101
Top = 24
Width = 12
Height = 12
AutoSize = False
Caption = #30465
end
object Label29: TLabel
Left = 206
Top = 24
Width = 17
Height = 12
AutoSize = False
Caption = #24066
end
object city: TEdit
Left = 123
Top = 21
Width = 79
Height = 21
Color = clInfoBk
TabOrder = 0
end
object province: TEdit
Left = 14
Top = 22
Width = 83
Height = 21
Color = clInfoBk
TabOrder = 1
end
end
end
end
object qvisitold: TQuery
CachedUpdates = True
AfterScroll = qvisitoldAfterScroll
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
RequestLive = True
SQL.Strings = (
'select pub_z_visitold.*,pub_z_client.'#23458#25143#21517#31216',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',pub_z_clie' +
'nt.'#30465',pub_z_client.'#24066
'from pub_z_visitold,pub_z_client'
'where'
'pub_z_visitold.'#23458#25143#21495'=pub_z_client.'#23458#25143#21495)
UpdateObject = updtvisitold
Left = 513
Top = 65528
end
object dsvisitold: TDataSource
DataSet = qvisitold
Left = 468
Top = 65530
end
object quse: TQuery
CachedUpdates = True
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
RequestLive = True
Left = 346
Top = 1
end
object qmachine: TQuery
CachedUpdates = True
AutoRefresh = True
DatabaseName = 'zxjx_jxw'
Constrained = True
SQL.Strings = (
'select pub_z_contract_machine.*,pub_z_contract.'#21040#36135#26085#26399' '
'from pub_z_contract_machine,pub_z_contract'
'where '
'pub_z_contract_machine.'#21512#21516#21495'=pub_z_contract.'#21512#21516#21495' '
'and pub_z_contract.'#23458#25143#21495'=:khh'
'')
Left = 669
Top = 65534
ParamData = <
item
DataType = ftString
Name = 'khh'
ParamType = ptUnknown
end>
end
object dsmachine: TDataSource
DataSet = qmachine
Left = 632
end
object updtvisitold: TUpdateSQL
ModifySQL.Strings = (
'update pub_z_visitold'
'set'
' '#23458#25143#21495' = :'#23458#25143#21495','
' '#22238#35775#20154' = :'#22238#35775#20154','
' '#24180' = :'#24180','
' '#26376' = :'#26376','
' '#26085' = :'#26085','
' '#22238#35775#20869#23481' = :'#22238#35775#20869#23481','
' '#22238#35775#20154#31614#23383' = :'#22238#35775#20154#31614#23383','
' '#21150#20107#22788#32463#29702#23457#26680' = :'#21150#20107#22788#32463#29702#23457#26680','
' '#20027#31649' = :'#20027#31649','
' '#23457#26680' = :'#23457#26680','
' '#24405#20837' = :'#24405#20837','
' '#24405#20837#26085#26399' = :'#24405#20837#26085#26399','
' '#19978#25253#26102#38388' = :'#19978#25253#26102#38388','
' '#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_visitold'
' ('#23458#25143#21495', '#22238#35775#20154', '#24180', '#26376', '#26085', '#22238#35775#20869#23481', '#22238#35775#20154#31614#23383', '#21150#20107#22788#32463#29702#23457#26680', '#20027#31649', '
' '#23457#26680', '#24405#20837', '#24405#20837#26085#26399', '#19978#25253#26102#38388', '#21150#20107#22788')'
'values'
' (:'#23458#25143#21495', :'#22238#35775#20154', :'#24180', :'#26376', :'#26085', :'#22238#35775#20869#23481', :'#22238#35775#20154#31614#23383', :'#21150#20107#22788#32463#29702#23457#26680', '
' :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399', :'#19978#25253#26102#38388', :'#21150#20107#22788')')
DeleteSQL.Strings = (
'delete from pub_z_visitold'
'where'
' '#23458#25143#21495' = :OLD_'#23458#25143#21495' and'
' '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
Left = 560
Top = 65529
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -