📄 u_kdsqxx.~dfm
字号:
object KDSQXX: TKDSQXX
Left = 192
Top = 111
Width = 675
Height = 423
Caption = #23485#24102#39044#30003#35831#29992#25143#20449#24687
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
667
389)
PixelsPerInch = 96
TextHeight = 14
object Label1: TLabel
Left = 12
Top = 16
Width = 56
Height = 14
Caption = #36716#31227#24773#20917
end
object Label2: TLabel
Left = 423
Top = 16
Width = 28
Height = 14
Anchors = [akTop, akRight]
Caption = #26085#26399
end
object Label3: TLabel
Left = 180
Top = 16
Width = 84
Height = 14
Caption = #23485#24102#29992#25143#31867#22411
end
object DBGridEh1: TDBGridEh
Left = 12
Top = 44
Width = 644
Height = 297
AllowedOperations = []
Anchors = [akLeft, akTop, akRight, akBottom]
AutoFitColWidths = True
DataSource = DataSource1
DrawMemoText = True
Flat = True
FooterColor = clInfoBk
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -14
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
FrozenCols = 2
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
SumList.Active = True
TabOrder = 3
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
UseMultiTitle = True
DefaultColumnState = False
lineColor = clGreen
SelectedColor = clHighlight
SelectedFontColor = clWhite
activerowcolor = True
rowsinglecolor = clMoneyGreen
rowdoublecolor = clCream
OnDblClick = DBGridEh1DblClick
Columns = <
item
EditButtons = <>
FieldName = #29992#25143#20195#30721
Footer.Value = #21512#35745
Footer.ValueType = fvtStaticText
Footers = <>
drawcurrency = False
end
item
EditButtons = <>
FieldName = #29992#25143#22995#21517
Footer.ValueType = fvtCount
Footers = <>
drawcurrency = False
end
item
EditButtons = <>
FieldName = #21333#20301
Footers = <>
drawcurrency = False
end
item
EditButtons = <>
FieldName = #22320#22336
Footers = <>
drawcurrency = False
end
item
EditButtons = <>
FieldName = #32852#31995#26041#24335
Footers = <>
drawcurrency = False
end
item
EditButtons = <>
FieldName = #22791#27880
Footers = <>
drawcurrency = False
end>
end
object DBNavigator1: TDBNavigator
Left = 12
Top = 352
Width = 156
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Anchors = [akLeft, akBottom]
TabOrder = 4
end
object BitBtn1: TBitBtn
Left = 176
Top = 352
Width = 77
Height = 25
Anchors = [akLeft, akBottom]
Caption = #27966#24037
TabOrder = 5
Visible = False
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 575
Top = 352
Width = 81
Height = 25
Anchors = [akRight, akBottom]
TabOrder = 8
Kind = bkClose
end
object ComboBox1: TComboBox
Left = 72
Top = 12
Width = 101
Height = 22
Style = csDropDownList
ItemHeight = 14
ItemIndex = 1
TabOrder = 0
Text = #26410#36716
OnChange = RQ1Change
Items.Strings = (
#20840#37096
#26410#36716
#24050#36716)
end
object RQ1: TDateTimePicker
Left = 455
Top = 12
Width = 101
Height = 22
Anchors = [akTop, akRight]
Date = 38837.381895717590000000
Time = 38837.381895717590000000
TabOrder = 1
OnChange = RQ1Change
end
object RQ2: TDateTimePicker
Left = 555
Top = 12
Width = 101
Height = 22
Anchors = [akTop, akRight]
Date = 38837.381895717590000000
Time = 38837.381895717590000000
TabOrder = 2
OnChange = RQ1Change
end
object BitBtn3: TBitBtn
Left = 260
Top = 352
Width = 77
Height = 25
Anchors = [akLeft, akBottom]
Caption = #23548#20986
TabOrder = 6
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 344
Top = 352
Width = 77
Height = 25
Anchors = [akLeft, akBottom]
Caption = #24320#36890
TabOrder = 7
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B333333333333333733333333}
NumGlyphs = 2
end
object ComboBox3: TComboBox
Left = 268
Top = 12
Width = 97
Height = 22
ItemHeight = 14
TabOrder = 9
OnChange = RQ1Change
Items.Strings = (
#26377#32447'CM'
#31227#21160'CM'
#31227#21160'CM-A'
#31227#21160'CM-B'
#31227#21160'CM-C')
end
object Query1: TQuery
CachedUpdates = True
AfterPost = Query1AfterPost
DatabaseName = 'CTIC'
SQL.Strings = (
'Select * From CATVIP.'#29992#25143#20449#24687' Where '#29992#25143#29366#24577'='#39#39044#30003#35831#39)
UpdateObject = UpdateSQL1
Left = 36
Top = 128
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update CATVIP.'#29992#25143#20449#24687
'set'
' ID = :ID,'
' '#27966#24037#26631#24535' = :'#27966#24037#26631#24535
'where'
' ID = :OLD_ID')
InsertSQL.Strings = (
'insert into CATVIP.'#29992#25143#20449#24687
' (ID, '#27966#24037#26631#24535')'
'values'
' (:ID, :'#27966#24037#26631#24535')')
DeleteSQL.Strings = (
'delete from CATVIP.'#29992#25143#20449#24687
'where'
' ID = :OLD_ID')
Left = 68
Top = 128
end
object DataSource1: TDataSource
DataSet = Query1
Left = 104
Top = 128
end
object QPub: TQuery
DatabaseName = 'CTIC'
Left = 36
Top = 164
end
object Query2: TQuery
CachedUpdates = True
DatabaseName = 'CTIC'
SQL.Strings = (
'Select * From '#26381#21153#21333' Where 1<0')
UpdateObject = UpdateSQL2
Left = 36
Top = 196
end
object UpdateSQL2: TUpdateSQL
ModifySQL.Strings = (
'update '#26381#21153#21333
'set'
' '#24207#21495' = :'#24207#21495','
' '#26381#21153#31867#22411' = :'#26381#21153#31867#22411','
' '#19994#21153#31867#22411' = :'#19994#21153#31867#22411','
' '#29992#25143#32534#30721' = :'#29992#25143#32534#30721','
' '#29992#25143#21517' = :'#29992#25143#21517','
' '#22320#22336' = :'#22320#22336','
' '#32852#31995#20154' = :'#32852#31995#20154','
' '#32852#31995#26041#24335' = :'#32852#31995#26041#24335
'where'
' '#24207#21495' = :OLD_'#24207#21495)
InsertSQL.Strings = (
'insert into '#26381#21153#21333
' ('#24207#21495', '#26381#21153#31867#22411', '#19994#21153#31867#22411', '#29992#25143#32534#30721', '#29992#25143#21517', '#22320#22336', '#32852#31995#20154', '#32852#31995#26041#24335')'
'values'
' (:'#24207#21495', :'#26381#21153#31867#22411', :'#19994#21153#31867#22411', :'#29992#25143#32534#30721', :'#29992#25143#21517', :'#22320#22336', :'#32852#31995#20154', :'#32852#31995#26041#24335')')
DeleteSQL.Strings = (
'delete from '#26381#21153#21333
'where'
' '#24207#21495' = :OLD_'#24207#21495)
Left = 68
Top = 196
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -