?? ss_txpkccsh.dfm
字號:
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
end
object bbtn_Find: TBitBtn
Left = 24
Top = 9
Width = 75
Height = 25
Caption = '查詢(&F)'
TabOrder = 0
OnClick = bbtn_FindClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDDDDDDDDDDDDDDCCCCCDDDDDCCCCCDCFCCCDDDDDCFCCCDCFCCCDDDDDCF
CCCDCCCCCCCDCCCCCCCDCCFCCCCCCFCCCCCDCCFCCCDCCFCCCCCDCCFCCCDCCFCC
CCCDDCCCCCCCCCCCCCDDDDCFCCCDCFCCCDDDDDCCCCCDCCCCCDDDDDDCCCDDDCCC
DDDDDDDCFCDDDCFCDDDDDDDCCCDDDCCCDDDDDDDDDDDDDDDDDDDD}
end
object bbtn_Exit: TBitBtn
Left = 659
Top = 8
Width = 75
Height = 25
Caption = '退出(&X)'
TabOrder = 6
Kind = bkClose
end
object bbtn_Replace: TBitBtn
Left = 285
Top = 8
Width = 92
Height = 25
Caption = '批量設置(&R)'
TabOrder = 3
OnClick = bbtn_ReplaceClick
Glyph.Data = {
36050000424D3605000000000000360400002800000010000000100000000100
08000000000000010000C40E0000C40E00000001000000000000000000004000
000080000000FF000000002000004020000080200000FF200000004000004040
000080400000FF400000006000004060000080600000FF600000008000004080
000080800000FF80000000A0000040A0000080A00000FFA0000000C0000040C0
000080C00000FFC0000000FF000040FF000080FF0000FFFF0000000020004000
200080002000FF002000002020004020200080202000FF202000004020004040
200080402000FF402000006020004060200080602000FF602000008020004080
200080802000FF80200000A0200040A0200080A02000FFA0200000C0200040C0
200080C02000FFC0200000FF200040FF200080FF2000FFFF2000000040004000
400080004000FF004000002040004020400080204000FF204000004040004040
400080404000FF404000006040004060400080604000FF604000008040004080
400080804000FF80400000A0400040A0400080A04000FFA0400000C0400040C0
400080C04000FFC0400000FF400040FF400080FF4000FFFF4000000060004000
600080006000FF006000002060004020600080206000FF206000004060004040
600080406000FF406000006060004060600080606000FF606000008060004080
600080806000FF80600000A0600040A0600080A06000FFA0600000C0600040C0
600080C06000FFC0600000FF600040FF600080FF6000FFFF6000000080004000
800080008000FF008000002080004020800080208000FF208000004080004040
800080408000FF408000006080004060800080608000FF608000008080004080
800080808000FF80800000A0800040A0800080A08000FFA0800000C0800040C0
800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000A0004000
A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040A0004040
A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080A0004080
A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0A00040C0
A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000C0004000
C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040C0004040
C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080C0004080
C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0C00040C0
C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000FF004000
FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040FF004040
FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080FF004080
FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0FF0040C0
FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF00FFFFFFFFFFFF
FFFFFF000000FFFFFFFFFFFFFFFFFFFF0000FF009000FF0000FFFFFFFFFFFF00
FC900000FC0000909000FFFFFFFFFFFF00FC9090FF0090FC00FFFFFFFFFFFF00
9000FCFFFCFFFC009000FFFFFFFFFF0090FCFF000000FFFC9000FF0000FF0000
00900000FF0000FF000000FF9200009200FC9092FF00FC9000FFFF00DB9292FF
00900000FF0000FC00FF009200FF92FFFF00FFDB92FFFF00FFFF00DBFFFF0000
00FFFFFF00FFFFFFFFFF9200920000FF0000920000FFFFFFFFFFFF00FFFF00FF
00FFDB00FFFFFFFFFFFFFF92DB00FF920000FF00FFFFFFFFFFFFFFFF92FF00FF
00FF00FFFFFFFFFFFFFFFFFFFFFFFF92FFFFFFFFFFFFFFFFFFFF}
end
object bbtn_Print: TBitBtn
Left = 198
Top = 8
Width = 75
Height = 25
Caption = '打印(&P)'
TabOrder = 2
OnClick = bbtn_PrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003388888888888888307777777777777708F33333333333338077777777777
77708FFFFFFFFFFFFFF8000000000000000088888888888888880F7F7F7F7F7F
7F708F333333333333F807F7F7F7F7F7F9F08F333333333338380F7F7F7F7F7F
7F708FFFFFFFFFFFFFF8000000000000000088888888888888883330FFFFFFFF
03333338F3FFFF3F8F333330F0000F0F03333338F88883838F333330FFFFFFFF
03333338F3FF3FFF8F333330F00F000003333338F883888883333330FFFF0FF0
33333338F3F38F3833333330F07F0F0333333338F8338F8333333330FFFF0033
33333338FFFF8833333333300000033333333338888883333333}
NumGlyphs = 2
end
object bbtn_Add: TBitBtn
Left = 377
Top = 8
Width = 75
Height = 25
Caption = '增加(&A)'
TabOrder = 7
OnClick = bbtn_AddClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
end
object pnl_Hint: TPanel
Left = 10
Top = 517
Width = 758
Height = 25
Align = alBottom
BevelOuter = bvLowered
TabOrder = 3
object lbl_Search: TLabel
Left = 7
Top = 7
Width = 6
Height = 12
end
object lbl_State: TLabel
Left = 5
Top = 6
Width = 48
Height = 12
Caption = '正在保存'
Visible = False
end
object pgb_State: TProgressBar
Left = 65
Top = 6
Width = 687
Height = 13
Min = 0
Max = 100
Smooth = True
TabOrder = 0
Visible = False
end
end
end
object ds_init: TDataSource
DataSet = qry_init
Left = 97
Top = 186
end
object qry_init: TQuery
CachedUpdates = True
BeforeInsert = qry_initBeforeInsert
DatabaseName = 'yzpp'
RequestLive = True
SQL.Strings = (
'select b.ZH, b.TMC, b.TPMZ, b.TPSJ, a.JJ, a.XJ, a.TS, a.ZK, a.JS' +
'J, a.KWH, b.TDM, 0 Temp, a.PPDM, b.FXRQ, a.JJ*a.TS JJJE,a.XJ*a.T' +
'S XJJE'
'from (Select KFDM,PPDM,JJ,XJ,TS,ZK,JSJ,KWH from TYS_TXPPKC where' +
' KFDM='#39'01'#39') a,'
'TB_YZPPXXB b '
'where a.PPDM(+)=b.TDM and b.TYPE='#39'jtlm'#39)
UpdateObject = upSQL_Init
Left = 69
Top = 186
object qry_initZH: TStringField
FieldName = 'ZH'
Size = 16
end
object qry_initTMC: TStringField
FieldName = 'TMC'
Size = 120
end
object qry_initSL: TFloatField
FieldName = 'TS'
OnChange = qry_initSLChange
end
object qry_initZK: TFloatField
FieldName = 'ZK'
OnChange = qry_initZKChange
end
object qry_initJSJ: TFloatField
FieldName = 'JSJ'
OnChange = qry_initJSJChange
OnGetText = qry_initGetText
OnSetText = qry_initSetText
end
object qry_initKWH: TStringField
FieldName = 'KWH'
OnChange = qry_initKWHChange
Size = 30
end
object qry_initTDM: TStringField
FieldName = 'TDM'
Size = 15
end
object qry_initTEMP: TFloatField
FieldName = 'TEMP'
end
object qry_initFXRQ: TDateTimeField
FieldName = 'FXRQ'
end
object qry_initMZJE: TFloatField
FieldName = 'JJJE'
OnGetText = qry_initGetText
end
object qry_initSJJE: TFloatField
FieldName = 'XJJE'
OnGetText = qry_initGetText
end
object qry_initJJ: TFloatField
FieldName = 'JJ'
OnChange = qry_initJJChange
OnGetText = qry_initGetText
OnSetText = qry_initSetText
end
object qry_initXJ: TFloatField
FieldName = 'XJ'
OnChange = qry_initXJChange
OnGetText = qry_initGetText
OnSetText = qry_initSetText
end
object qry_initPPDM: TStringField
FieldName = 'PPDM'
Size = 13
end
object qry_initTPMZ: TFloatField
FieldName = 'TPMZ'
OnGetText = qry_initGetText
end
object qry_initTPSJ: TFloatField
FieldName = 'TPSJ'
OnGetText = qry_initGetText
end
end
object upSQL_Init: TUpdateSQL
ModifySQL.Strings = (
'update TYS_TXPPKC'
'set'
' KFDM = :KFDM,'
' PPDM = :PPDM,'
' JJ = :JJ,'
' KWH = :KWH,'
' XJ = :XJ,'
' JSJ = :JSJ,'
' ZK = :ZK,'
' TS = :TS,'
' BZ = :BZ'
'where'
' KFDM = :OLD_KFDM and'
' PPDM = :OLD_PPDM and'
' JJ = :OLD_JJ')
InsertSQL.Strings = (
'insert into TYS_TXPPKC'
' (KFDM, PPDM, JJ, KWH, XJ, JSJ, ZK, TS, BZ)'
'values'
' (:KFDM, :PPDM, :JJ, :KWH, :XJ, :JSJ, :ZK, :TS, :BZ)'
' ')
DeleteSQL.Strings = (
'delete from TYS_TXPPKC'
'where'
' KFDM = :OLD_KFDM and'
' PPDM = :OLD_PPDM and'
' JJ = :OLD_JJ')
Left = 41
Top = 187
end
object qry_Tmp: TQuery
DatabaseName = 'yzpp'
Left = 169
Top = 287
end
object sp_Init: TStoredProc
DatabaseName = 'yzpp'
StoredProcName = 'TXP_CSH_WC'
Left = 215
Top = 289
ParamData = <
item
DataType = ftFloat
Name = 'Result'
ParamType = ptResult
end
item
DataType = ftString
Name = 'PC_DWDM'
ParamType = ptInput
end
item
DataType = ftString
Name = 'PC_USERID'
ParamType = ptInput
end
item
DataType = ftFloat
Name = 'PN_FLG'
ParamType = ptInput
end>
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -