📄 sy_ckjhdcx.dfm
字号:
FieldName = 'BZ'
Title.Alignment = taCenter
Title.Caption = '备注'
Width = 106
Visible = True
end
item
Expanded = False
FieldName = 'ZDRQ'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '制单日期'
Width = 63
Visible = True
end>
end
end
end
end
object Panel3: TPanel
Left = 0
Top = 433
Width = 692
Height = 40
Align = alBottom
BevelOuter = bvLowered
TabOrder = 2
object BitBtn3: TBitBtn
Left = 25
Top = 58
Width = 70
Height = 25
Caption = '修改(&M)'
Enabled = False
TabOrder = 0
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object BitBtn6: TBitBtn
Left = 286
Top = 58
Width = 70
Height = 25
Caption = '存盘(&S)'
Enabled = False
TabOrder = 3
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
end
object BitBtn7: TBitBtn
Left = 356
Top = 58
Width = 70
Height = 25
Caption = '取消(&C)'
Enabled = False
TabOrder = 4
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BBt_Quit: TBitBtn
Left = 603
Top = 6
Width = 75
Height = 25
Cancel = True
Caption = '返回(&X)'
ModalResult = 3
TabOrder = 5
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object BBt_Find: TBitBtn
Left = 426
Top = 6
Width = 75
Height = 25
Action = Act_Find
Caption = '查询(&F)'
TabOrder = 1
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F00
1F001F001F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F7C1F00FF7F1F00
1F001F001F7C1F7C1F7C1F7C1F7C1F00FF7F1F001F001F001F7C1F00FF7F1F00
1F001F001F7C1F7C1F7C1F7C1F7C1F00FF7F1F001F001F001F7C1F001F001F00
1F001F001F001F001F7C1F001F001F001F001F001F001F001F7C1F001F00FF7F
1F001F001F001F001F001F00FF7F1F001F001F001F001F001F7C1F001F00FF7F
1F001F001F001F7C1F001F00FF7F1F001F001F001F001F001F7C1F001F00FF7F
1F001F001F001F7C1F001F00FF7F1F001F001F001F001F001F7C1F7C1F001F00
1F001F001F001F001F001F001F001F001F001F001F001F7C1F7C1F7C1F7C1F00
FF7F1F001F001F001F7C1F00FF7F1F001F001F001F7C1F7C1F7C1F7C1F7C1F00
1F001F001F001F001F7C1F001F001F001F001F001F7C1F7C1F7C1F7C1F7C1F7C
1F001F001F001F7C1F7C1F7C1F001F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F00FF7F1F001F7C1F7C1F7C1F00FF7F1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F001F001F001F7C1F7C1F7C1F001F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
end
object BBt_Print: TBitBtn
Left = 505
Top = 6
Width = 75
Height = 25
Action = Act_Print
Caption = '打印(&P)'
TabOrder = 2
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BBt_Hide: TBitBtn
Left = 341
Top = 7
Width = 75
Height = 25
Action = Act_Hide
Caption = '隐藏(&H)'
TabOrder = 6
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
end
object ALi_Edit: TActionList
Left = 576
Top = 146
object Act_AddDW: TAction
Caption = '添加单位(&G)'
Hint = '添加'
ImageIndex = 0
ShortCut = 16449
end
object Act_DeleteDW: TAction
Caption = '删除单位(&K)'
Hint = '删除'
ImageIndex = 1
ShortCut = 16452
end
object Act_AddFPJH: TAction
Caption = '做分配计划(&A)'
end
object Act_DeleteFPJH: TAction
Caption = '删除(&D)'
end
object Act_ModifyFPJH: TAction
Caption = '修改(&M)'
Hint = '修改'
ImageIndex = 2
ShortCut = 16461
end
object Act_Find: TAction
Caption = '查询(&F)'
ImageIndex = 17
OnExecute = Act_FindExecute
end
object Act_Print: TAction
Caption = '打印(&P)'
Hint = '打印'
ImageIndex = 9
ShortCut = 16464
OnExecute = Act_PrintExecute
end
object Act_Save: TAction
Caption = '存盘(&S)'
Hint = '存盘'
ImageIndex = 3
ShortCut = 16467
end
object Act_Cancel: TAction
Caption = '取消(&C)'
Hint = '取消'
ImageIndex = 4
ShortCut = 16474
end
object Act_Send: TAction
Caption = '发送(&S)'
end
object Act_Hide: TAction
Caption = '隐藏(&H)'
OnExecute = Act_HideExecute
end
end
object Qry_JJNFPJH: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select A.CKJHDH, A.CKXZ, A.ZBR, A.PZR, A.ZDRQ, A.BZ , A.Z' +
'T, B.KFDM, B.DWDM, B.PPDM, B.JJ, B.DWMC, B.KWH, B.PPMC, B.YJ, B.' +
'XJ, B.ZK, B.JSJ, B.FPSL FROM TYS_GRPCKJHDB A,TYS_GRPCKJHDPPB B w' +
'here A.CKJHDH = B.CKJHDH '
'')
Left = 244
Top = 174
object Qry_JJNFPJHCKJHDH: TStringField
FieldName = 'CKJHDH'
Origin = 'YZPP.TYS_GRPCKJHDB.CKJHDH'
end
object Qry_JJNFPJHCKXZ: TStringField
FieldName = 'CKXZ'
Origin = 'YZPP.TYS_GRPCKJHDB.CKXZ'
Size = 2
end
object Qry_JJNFPJHZBR: TStringField
FieldName = 'ZBR'
Origin = 'YZPP.TYS_GRPCKJHDB.ZBR'
Size = 12
end
object Qry_JJNFPJHPZR: TStringField
FieldName = 'PZR'
Origin = 'YZPP.TYS_GRPCKJHDB.PZR'
Size = 12
end
object Qry_JJNFPJHZDRQ: TDateTimeField
FieldName = 'ZDRQ'
Origin = 'YZPP.TYS_GRPCKJHDB.ZDRQ'
end
object Qry_JJNFPJHBZ: TStringField
FieldName = 'BZ'
Origin = 'YZPP.TYS_GRPCKJHDB.BZ'
Size = 200
end
object Qry_JJNFPJHZT: TStringField
FieldName = 'ZT'
Origin = 'YZPP.TYS_GRPCKJHDB.ZT'
Size = 1
end
object Qry_JJNFPJHKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TYS_GRPCKJHDPPB.KFDM'
Size = 3
end
object Qry_JJNFPJHDWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_GRPCKJHDPPB.DWDM'
Size = 8
end
object Qry_JJNFPJHPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TYS_GRPCKJHDPPB.PPDM'
Size = 15
end
object Qry_JJNFPJHJJ: TFloatField
FieldName = 'JJ'
Origin = 'YZPP.TYS_GRPCKJHDPPB.JJ'
OnGetText = Qry_JJNFPJHJJGetText
OnSetText = Qry_JJNFPJHJJSetText
end
object Qry_JJNFPJHDWMC: TStringField
FieldName = 'DWMC'
Origin = 'YZPP.TYS_GRPCKJHDPPB.DWMC'
Size = 40
end
object Qry_JJNFPJHKWH: TStringField
FieldName = 'KWH'
Origin = 'YZPP.TYS_GRPCKJHDPPB.KWH'
Size = 30
end
object Qry_JJNFPJHPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TYS_GRPCKJHDPPB.PPMC'
Size = 60
end
object Qry_JJNFPJHYJ: TFloatField
FieldName = 'YJ'
Origin = 'YZPP.TYS_GRPCKJHDPPB.YJ'
OnGetText = Qry_JJNFPJHJJGetText
OnSetText = Qry_JJNFPJHJJSetText
end
object Qry_JJNFPJHXJ: TFloatField
FieldName = 'XJ'
Origin = 'YZPP.TYS_GRPCKJHDPPB.XJ'
OnGetText = Qry_JJNFPJHJJGetText
OnSetText = Qry_JJNFPJHJJSetText
end
object Qry_JJNFPJHZK: TFloatField
FieldName = 'ZK'
Origin = 'YZPP.TYS_GRPCKJHDPPB.ZK'
end
object Qry_JJNFPJHJSJ: TFloatField
FieldName = 'JSJ'
Origin = 'YZPP.TYS_GRPCKJHDPPB.JSJ'
OnGetText = Qry_JJNFPJHJJGetText
OnSetText = Qry_JJNFPJHJJSetText
end
object Qry_JJNFPJHFPSL: TFloatField
FieldName = 'FPSL'
Origin = 'YZPP.TYS_GRPCKJHDPPB.FPSL'
DisplayFormat = '#,##'
end
end
object DataSource3: TDataSource
DataSet = Qry_JJNFPJH
Left = 272
Top = 174
end
object Qry_GXDWSJB: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select DWDM,DWMC from TO_GXDWSJB')
Left = 240
Top = 130
end
object Qry_Static: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select * from to_gxdwsjb')
Left = 512
Top = 146
end
object Query1: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select DWDM,DWMC from TO_GXDWSJB')
Left = 584
Top = 178
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -