📄 frmaccupgrade.frm
字号:
VERSION 5.00
Object = "{9ADF72AD-DDA9-11D1-9D4B-000021006D51}#1.2#0"; "UFSpGrid.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{51388549-C886-4FD6-AE5F-8AA28C63CE94}#1.0#0"; "PRINTC~1.OCX"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmAccUpgrade
Caption = "U8 资金管理-[账号升级]"
ClientHeight = 6555
ClientLeft = 60
ClientTop = 345
ClientWidth = 10230
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6555
ScaleWidth = 10230
Begin VB.Frame Frame2
BackColor = &H8000000E&
Height = 2895
Left = 360
TabIndex = 21
Top = 1200
Visible = 0 'False
Width = 6735
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 375
Left = 720
TabIndex = 22
Top = 1560
Width = 5535
_ExtentX = 9763
_ExtentY = 661
_Version = 393216
Appearance = 1
End
Begin VB.Label Label8
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 3720
TabIndex = 25
Top = 960
Width = 2055
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 375
Left = 1080
TabIndex = 24
Top = 960
Width = 2055
End
Begin VB.Label Label6
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 1320
TabIndex = 23
Top = 480
Width = 4575
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 2280
Top = 2880
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin MSComctlLib.Toolbar tlbTool
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 17
Top = 0
Width = 10230
_ExtentX = 18045
_ExtentY = 1005
ButtonWidth = 820
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
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 = "search"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "cmdyulan"
Description = "yulan"
Object.ToolTipText = "预览账号升级结果"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "save"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Key = "cancel"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
EndProperty
EndProperty
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 375
Left = 240
TabIndex = 16
Top = 5640
Visible = 0 'False
Width = 135
_Version = 65536
_ExtentX = 238
_ExtentY = 661
_StockProps = 0
EnableSave = -1 'True
End
Begin VB.CommandButton cmdDateRef
Height = 255
Left = 3120
Style = 1 'Graphical
TabIndex = 15
Top = 720
Visible = 0 'False
Width = 255
End
Begin EDITLib.Edit Edit2
Height = 255
Left = 1920
TabIndex = 14
Top = 6120
Width = 3135
_Version = 65536
_ExtentX = 5530
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 40
End
Begin EDITLib.Edit txtbcws
Height = 255
Left = 1920
TabIndex = 13
Top = 5640
Width = 495
_Version = 65536
_ExtentX = 873
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 2
End
Begin EDITLib.Edit Edit1
Height = 255
Left = 3960
TabIndex = 11
Top = 5280
Width = 495
_Version = 65536
_ExtentX = 873
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 2
End
Begin VB.OptionButton optWz2
Caption = "后"
Height = 255
Index = 1
Left = 4920
TabIndex = 9
Top = 5400
Width = 495
End
Begin VB.OptionButton optWz2
Caption = "前"
Height = 255
Index = 0
Left = 4920
TabIndex = 8
Top = 5160
Width = 495
End
Begin EDITLib.Edit txtSjrq
Height = 255
Left = 1200
TabIndex = 2
Top = 720
Width = 1935
_Version = 65536
_ExtentX = 3413
_ExtentY = 450
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin MsSuperGrid.SuperGrid SuperGrid1
Height = 3855
Left = 120
TabIndex = 0
Top = 1080
Width = 9855
_ExtentX = 17383
_ExtentY = 6800
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 = "frmAccUpgrade.frx":0000
FormatString = "旧账户号|新账户号|账户名称|单位名称|开户日期|开户银行|币别"
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
FixedCols = 0
Cols = 7
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowUserResizing= 1
AllowBigSelection= 0 'False
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Height = 495
Left = 2880
TabIndex = 18
Top = 5160
Width = 735
Begin VB.OptionButton optWz1
Caption = "右起"
Height = 255
Index = 1
Left = 0
TabIndex = 20
Top = 240
Width = 735
End
Begin VB.OptionButton optWz1
Caption = "左起"
Height = 255
Index = 0
Left = 0
TabIndex = 19
Top = 0
Width = 735
End
End
Begin prjTBCtrl.CTBCtrl ocxCTBtool
Height = 660
Left = -120
Top = 240
Width = 7095
_ExtentX = 12515
_ExtentY = 1164
End
Begin VB.Label Label4
Caption = "第"
Height = 255
Left = 3720
TabIndex = 10
Top = 5280
Width = 255
End
Begin VB.Label Label5
Caption = "位"
Height = 255
Left = 4560
TabIndex = 12
Top = 5280
Width = 255
End
Begin VB.Label Label3
Caption = "旧账户号"
Height = 255
Left = 1920
TabIndex = 7
Top = 5280
Width = 735
End
Begin VB.Label Label2
Caption = "补充字符："
Height = 255
Index = 3
Left = 840
TabIndex = 6
Top = 6120
Width = 975
End
Begin VB.Label Label2
Caption = "补充位数："
Height = 255
Index = 2
Left = 840
TabIndex = 5
Top = 5640
Width = 975
End
Begin VB.Label Label2
Caption = "补位位置："
Height = 255
Index = 1
Left = 840
TabIndex = 4
Top = 5280
Width = 975
End
Begin VB.Label Label2
Caption = " 升级规则："
Height = 255
Index = 0
Left = 120
TabIndex = 3
Top = 5040
Width = 1095
End
Begin VB.Label Label1
Caption = "升级日期："
Height = 255
Left = 240
TabIndex = 1
Top = 720
Width = 975
End
End
Attribute VB_Name = "frmAccUpgrade"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private con As New ADODB.Connection
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -