📄 frmaccinfo.frm
字号:
VERSION 5.00
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{51388549-C886-4FD6-AE5F-8AA28C63CE94}#1.0#0"; "PrintControl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmAccInfo
Caption = "U8 资金管理-[账号调整历史记录]"
ClientHeight = 6585
ClientLeft = 60
ClientTop = 345
ClientWidth = 10725
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6585
ScaleWidth = 10725
Begin prjTBCtrl.CTBCtrl ocxCTBTool
Height = 660
Left = 120
Top = 0
Width = 7455
_ExtentX = 13150
_ExtentY = 1164
End
Begin MSComctlLib.ImageList ImageList1
Left = 3600
Top = 2640
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 255
Left = 3000
TabIndex = 6
Top = 6240
Visible = 0 'False
Width = 255
_Version = 65536
_ExtentX = 450
_ExtentY = 450
_StockProps = 0
End
Begin MsSuperGrid.SuperGrid SuperGrid1
Height = 4815
Left = 2640
TabIndex = 1
Top = 1320
Width = 7935
_ExtentX = 13996
_ExtentY = 8493
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EditBorderStyle = 0
MouseIcon = "frmAccInfo.frx":0000
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowUserResizing= 1
AllowBigSelection= 0 'False
End
Begin VB.OptionButton Option1
Caption = "全部"
Height = 255
Index = 2
Left = 1920
TabIndex = 5
Top = 6240
Visible = 0 'False
Width = 735
End
Begin VB.OptionButton Option1
Caption = "已销户"
Height = 255
Index = 1
Left = 960
TabIndex = 4
Top = 6240
Visible = 0 'False
Width = 855
End
Begin VB.OptionButton Option1
Caption = "未销户"
Height = 255
Index = 0
Left = 0
TabIndex = 3
Top = 6240
Visible = 0 'False
Width = 855
End
Begin MSComctlLib.TreeView treStyle
Height = 4770
Left = 0
TabIndex = 2
Top = 1320
Width = 2595
_ExtentX = 4577
_ExtentY = 8414
_Version = 393217
HideSelection = 0 'False
Indentation = 529
Style = 5
HotTracking = -1 'True
ImageList = "ilsTlb"
Appearance = 1
OLEDropMode = 1
End
Begin MSComctlLib.ImageList ilsTlb
Left = 6480
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAccInfo.frx":001C
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAccInfo.frx":046E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmAccInfo.frx":08C0
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tlbTool
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 10725
_ExtentX = 18918
_ExtentY = 953
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "print"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "preview"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "output"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "refresh"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找"
Key = "find"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "列表"
Key = "fields"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmAccInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************
'账号信息调整表 *
'罗涛 *
'2002-07-14 *
'**********************************************
Option Explicit
Private Const conMoveLimit = 1000
Private Const m_conBIStyle = 1
Private WithEvents mRefCtlUI As clsRefCtlUI
Attribute mRefCtlUI.VB_VarHelpID = -1
Public ShowMode As ShowModeEnum
Private m_EO As U8FDEso.EntityObject
Private m_OldEO As U8FDEso.EntityObject
Private m_PasteEO As U8FDEso.EntityObject
Private m_objOID As New U8FDEso.OIDObject
Private m_EditStatus As Boolean
Private m_FreezeDestroy As Boolean '冻结销户
Private m_ShowDestroy As Byte '显示已销户
Private m_IRateCad As Boolean
Private m_View As Boolean
Private m_ExchangeRate As Double
Public NodeKey As String
Public Parentkey As String
Private sgdRow As Long
Private edstatus As Ed_Status
Private Switch_Mode As SwitchMode
Private CellBackColor(5) As String
Private xmlInit As Boolean
Private sqlstr As String
Public sqlwhere As String
Private accdefid() As String
Private con As New ADODB.Connection
Public Property Get EO() As U8FDEso.EntityObject
Set EO = m_EO
End Property
Public Property Set EO(NewEO As U8FDEso.EntityObject)
Set m_EO = NewEO
End Property
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
With tlbTool
Select Case KeyCode
Case vbKeyP
If Shift = 2 And .Buttons("print").Enabled Then
printProc
End If
Case vbKeyV
If Shift = 4 And .Buttons("preview").Enabled Then
previewProc
End If
Case vbKeyO
If Shift = 2 And .Buttons("output").Enabled Then
outputProc
End If
Case vbKeyR
If Shift = 2 And .Buttons("refresh").Enabled Then
If Len(NodeKey) <> 2 And NodeKey <> "" Then
SetUI
End If
End If
Case vbKeyF3
If Not .Buttons("find").Enabled Then Exit Sub
If frmQuqeryAccInfo.m_accUpgrade = 0 Then
frmQuqeryAccInfo.m_accUpgrade = 1
frmQuqeryAccInfo.Show 1
frmQuqeryAccInfo.m_accUpgrade = 0
Call fillGrid(sqlwhere)
Else
MsgBox "账号信息调整程序正在执行查询操作！" & vbCrLf & "请稍后再执行查询！", vbInformation, "账号升级"
End If
Case vbKeyL
If Not .Buttons("fields").Enabled Then Exit Sub
frmFields.Show 1
initGrid
fillGrid (sqlwhere)
Case vbKeyF4
If Shift = 2 Then
Unload Me
Exit Sub
End If
Case vbKeyF1
SendKeys "{F1 3}"
End Select
End With
ocxCTBTool.RefreshEnable
End Sub
Private Sub Form_Load()
loadstatic
con.Open zjLogInfo.UfDbName
sqlstr = "SELECT dbo.fd_accUpgrade.upgrade_date, dbo.fd_accUpgrade.new_Caccid,dbo.fd_accUpgrade.old_Caccid, FD_AccSet_1.cCode AS BjKm,"
sqlstr = sqlstr & "FD_AccSet_2.cCode AS YslxKm, FD_AccSet_3.cCode AS YflxKm,FD_AccSet_4.cCode AS LxsrKm, fd_accset_5.cCode AS LxzcKm,"
sqlstr = sqlstr & "dbo.FD_AccUnit.cUnitName, dbo.FD_AccDef.cAccName, dbo.FD_AccDef.cIntrID,dbo.FD_AccDef.cCadID, dbo.FD_AccDef.cAccBank, dbo.FD_AccDef.cYtID,"
sqlstr = sqlstr & "dbo.FD_AccDef.deficit_mny , dbo.FD_AccDef.digest, dbo.FD_AccDef.accdef_id"
sqlstr = sqlstr & " FROM dbo.FD_AccDef INNER JOIN dbo.fd_accUpgrade ON dbo.FD_AccDef.accdef_id = dbo.fd_accUpgrade.accdef_id LEFT OUTER JOIN "
sqlstr = sqlstr & "dbo.FD_AccSet FD_AccSet_1 ON dbo.FD_AccDef.accdef_id = FD_AccSet_1.accdef_id AND FD_AccSet_1.type_flag = 1 LEFT OUTER JOIN "
sqlstr = sqlstr & "dbo.FD_AccSet FD_AccSet_2 ON dbo.FD_AccDef.accdef_id = FD_AccSet_2.accdef_id AND FD_AccSet_2.type_flag = 2 LEFT OUTER JOIN "
sqlstr = sqlstr & "dbo.FD_AccSet FD_AccSet_3 ON dbo.FD_AccDef.accdef_id = FD_AccSet_3.accdef_id AND FD_AccSet_3.type_flag = 3 LEFT OUTER JOIN "
sqlstr = sqlstr & "dbo.FD_AccSet FD_AccSet_4 ON dbo.FD_AccDef.accdef_id = FD_AccSet_4.accdef_id AND FD_AccSet_4.type_flag = 4 LEFT OUTER JOIN "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -