📄 mc_dcgl_dc.~dfm
字号:
Top = 174
Width = 172
Height = 73
DataSource = TLCYGLXT.CPFYXXBSET
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 9
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
Columns = <
item
Expanded = False
FieldName = #32534#21495
Width = 38
Visible = True
end
item
Expanded = False
FieldName = #33756#21517
Width = 64
Visible = True
end
item
Expanded = False
FieldName = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = #20215#26684
Visible = True
end
item
Expanded = False
FieldName = #33756#31995#31867#21035
Width = 64
Visible = True
end
item
Expanded = False
FieldName = #21475#21619#35828#26126
Width = 215
Visible = True
end>
end
object DBGrid3: TDBGrid
Left = 239
Top = 104
Width = 546
Height = 243
DataSource = TLCYGLXT.CJFYXXSET
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
ReadOnly = True
TabOrder = 10
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
OnDblClick = DBGrid3DblClick
OnKeyPress = DBGrid3KeyPress
Columns = <
item
Expanded = False
FieldName = #32534#21495
Visible = True
end
item
Expanded = False
FieldName = #39184#20855#21517#31216
Visible = True
end
item
Expanded = False
FieldName = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = #20215#26684
Visible = True
end
item
Expanded = False
FieldName = #39184#20855#31867#21035
Visible = True
end
item
Expanded = False
FieldName = #39184#20855#35828#26126
Visible = True
end>
end
object DBGrid4: TDBGrid
Left = 239
Top = 104
Width = 546
Height = 243
DataSource = TLCYGLXT.SJFYXXSET
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
ReadOnly = True
TabOrder = 11
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
OnDblClick = DBGrid4DblClick
OnKeyPress = DBGrid4KeyPress
Columns = <
item
Expanded = False
FieldName = #32534#21495
Visible = True
end
item
Expanded = False
FieldName = #36135#23384#32534#21495
Visible = True
end
item
Expanded = False
FieldName = #37202#27700#21517#31216
Visible = True
end
item
Expanded = False
FieldName = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = #20215#26684
Visible = True
end
item
Expanded = False
FieldName = #37202#27700#31867#21035
Visible = True
end
item
Expanded = False
FieldName = #31616#35201#35828#26126
Visible = True
end>
end
object DBGrid5: TDBGrid
Left = 239
Top = 104
Width = 546
Height = 243
DataSource = TLCYGLXT.CPFYXXBSET
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
ReadOnly = True
TabOrder = 12
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Visible = False
OnDblClick = DBGrid5DblClick
OnKeyPress = DBGrid5KeyPress
Columns = <
item
Expanded = False
FieldName = #32534#21495
Visible = True
end
item
Expanded = False
FieldName = #33756#21517
Visible = True
end
item
Expanded = False
FieldName = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = #20215#26684
Visible = True
end
item
Expanded = False
FieldName = #33756#31995#31867#21035
Visible = True
end
item
Expanded = False
FieldName = #21475#21619#35828#26126
Visible = True
end>
end
object StringGrid1: TStringGrid
Left = 6
Top = 104
Width = 779
Height = 244
ColCount = 9
DefaultColWidth = 15
DefaultRowHeight = 16
RowCount = 51
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor]
TabOrder = 13
Visible = False
OnKeyPress = StringGrid1KeyPress
OnKeyUp = StringGrid1KeyUp
ColWidths = (
15
77
138
122
125
63
65
62
76)
end
object BitBtn9: TBitBtn
Left = 529
Top = 76
Width = 256
Height = 25
Caption = #25171#24320#25163#21160#21152#33756#24405#20837#26694
TabOrder = 14
Visible = False
OnClick = BitBtn9Click
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C5F4A5F4A5F4A5F4A5F4A5F4A5F4A5F4A5F4A5F4A5F4A
5F4A5F4A5F4AF75E524A524A524A524A524A524A524A524A524A524A524A524A
524A4A295F4A7B6F7B6F7B6F7B6F006C006C006C006C830C006C006C0000F75E
F75E4A295F4A7B6F7B6F7B6F7B6F7B6F0000006C327F830C00002104F75EF75E
F75E4A295F4A7B6FFD7F7B6F7B6F7B6F7B6F327F327F00000000F75EF75EF75E
F75E4A295F4A7B6FFD7FFD7F7B6F7B6F7B6F327F4C66327F0C48327FF75EF75E
F75E4A295F4A7B6FFD7FFD7FFD7F7B6F7B6F327F327F0C480C480C480000F75E
F75E4A295F4A7B6FFD7FFD7FFD7F00000000327F327F327F327F327F327F3967
F75E4A295F4A7B6FFD7FFD7F00000000327F327F327F327F327FCE39327F0000
39674A295F4A7B6FFD7F0000000000004C66327FFF7F0000327F000000000000
00004A291F7C000099310000000000000000327F00000000327FFF7FCE390000
000000001F7C1F7C00000000830C0000000000000000327F327F327F4C660000
1F7C1F7C1F7C1F7C1F7C00000000830C0000830C00000000327F327F327F0000
00001F7C1F7C1F7C1F7C1F7C00000000830C000000000000830C0000830C0000
00001F7C1F7C1F7C1F7C1F7C1F7C000000000000000000000000000000000000
00001F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000830C0000000000000000
1F7C1F7C1F7C}
end
object BitBtn10: TBitBtn
Left = 296
Top = 352
Width = 137
Height = 25
Caption = #30830#35748#25163#21160#21152#33756
Enabled = False
TabOrder = 15
OnClick = BitBtn10Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn11: TBitBtn
Left = 440
Top = 352
Width = 137
Height = 25
Caption = #25918#24323#25163#21160#21152#33756
Enabled = False
TabOrder = 16
OnClick = BitBtn11Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object ListBox2: TListBox
Left = 618
Top = 121
Width = 79
Height = 53
Color = clBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
Items.Strings = (
#28857#21333
#36192#21333)
ParentFont = False
TabOrder = 5
Visible = False
OnKeyPress = ListBox2KeyPress
end
object ImageList1: TImageList
Left = 712
Top = 248
end
object Query1: TQuery
DatabaseName = 'CYGLDATE'
SQL.Strings = (
'select '#24211#23384#20449#24687#34920'.* From '#24211#23384#20449#24687#34920','#37202#27700#36153#29992#20449#24687#34920' Where '#24211#23384#20449#24687#34920'.'#32534#21495'='#37202#27700#36153#29992#20449#24687#34920'.'#36135#23384#32534#21495)
Left = 440
Top = 16
end
object Query2: TQuery
DatabaseName = 'CYGLDATE'
SQL.Strings = (
'Insert '#28857#33756#20020#26102#34920' ('#25151#38388#21488#21495','#32534#21495','#21517#31216','#31867#22411','#21333#20301','#25968#37327','#20215#26684','#21512#35745','#26381#21153#21592#32534#21495','#26381#21153#21592#22995#21517','#29366#24577','#28857#21333#26085#26399','#32467#24080#32534#21495 +
','#26159#21542#32467#21333')'
'Add('#39'Values(:'#25151#38388#21488#21495',:'#32534#21495',:'#21517#31216',:'#31867#22411',:'#21333#20301',:'#25968#37327',:'#20215#26684',:'#21512#35745',:'#26381#21153#21592#32534#21495',:'#26381#21153#21592#21517#31216',:'#29366#24577',' +
':'#28857#21333#26085#26399',:'#32467#24080#32534#21495',:'#26159#21542#32467#21333')')
Left = 485
Top = 21
end
object Query3: TQuery
DatabaseName = 'CYGLDATE'
RequestLive = True
Left = 480
Top = 296
end
object DataSource1: TDataSource
DataSet = Query3
Left = 440
Top = 296
end
object Query4: TQuery
DatabaseName = 'CYGLDATE'
SQL.Strings = (
'')
Left = 520
Top = 296
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -