📄
字号:
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 frmcreClass
Caption = "U8 资金管理-[信用等级]"
ClientHeight = 6345
ClientLeft = 60
ClientTop = 345
ClientWidth = 11310
KeyPreview = -1 'True
LinkTopic = "frmcreClass"
MDIChild = -1 'True
NegotiateMenus = 0 'False
ScaleHeight = 6345
ScaleWidth = 11310
Begin VB.PictureBox Picture1
Height = 735
Left = -240
Picture = "信用等级.frx":0000
ScaleHeight = 675
ScaleWidth = 10995
TabIndex = 2
Top = 720
Width = 11055
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "信用等级设置"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4200
TabIndex = 3
Top = 0
Width = 1815
End
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 255
Left = 120
TabIndex = 1
Top = 5400
Visible = 0 'False
Width = 375
_Version = 65536
_ExtentX = 661
_ExtentY = 450
_StockProps = 0
EnableSave = -1 'True
End
Begin MSComctlLib.Toolbar tlbTool
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 11310
_ExtentX = 19950
_ExtentY = 1005
ButtonWidth = 1455
ButtonHeight = 953
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "print"
Description = "printBut"
Object.ToolTipText = "打印"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "preview"
Description = "prePrnBut"
Object.ToolTipText = "预览"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "输出"
Key = "Output"
Description = "OutputBtn"
Object.ToolTipText = "输出"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Modi"
Description = "ModiBtn"
Object.ToolTipText = "修改"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "保存"
Key = "Save"
Description = "addColumn"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "取消"
Key = "Cancel"
Description = "delColumn"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "增行"
Key = "addColumn"
Description = "SaveBtn"
Object.ToolTipText = "保存修改"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删行"
Key = "delColumn"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "评价模型"
Key = "estModal"
Description = "estModal"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
Description = "HelpBtn"
Object.ToolTipText = "帮助"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
Description = "ExitBtn"
Object.ToolTipText = "退出"
EndProperty
EndProperty
End
Begin MsSuperGrid.SuperGrid SuperGrid1
Height = 4815
Left = -120
TabIndex = 4
Top = 1440
Width = 11055
_ExtentX = 19500
_ExtentY = 8493
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
EditBorderStyle = 0
MouseIcon = "信用等级.frx":13042
FormatString = "信用等级|得分区间下限|得分区间上限|贷款额度"
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
FixedCols = 0
Cols = 4
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowUserResizing= 1
AllowBigSelection= 0 'False
End
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 660
Left = 0
Top = 0
Width = 3495
_ExtentX = 6165
_ExtentY = 1164
End
End
Attribute VB_Name = "frmcreClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权：北京用友软件集团股份有限公司
' 系统名称：信用等级
' 功能说明：定义信用等级
' 作者：罗涛
' 时间：2002-05-17
Option Explicit
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim creClass() As String
Dim sqlstr As String
Dim duplicate As Boolean
Dim modified As Boolean
Dim errornum As Integer
Dim precol As Integer
Dim xmlInit As Boolean
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF6
If Shift = 0 And tlbTool.Buttons("Save").Enabled Then
Call saveProc
End If
Case vbKeyF4
If Shift = 2 Then
Unload Me
Exit Sub
' ElseIf Shift = 0 And tlbTool.Buttons("Cancel").Enabled Then
' Call CancelProc
End If
' Case vbKeyF12
' If Shift = 0 And tlbTool.Buttons("Modi").Enabled Then
' Call ModiProc
' End If
Case vbKeyP
If Shift = 2 And tlbTool.Buttons("print").Enabled Then
Call printProc
End If
Case vbKeyO
If Shift = 2 And tlbTool.Buttons("Output").Enabled Then
Call outputProc
End If
Case vbKeyV
If Shift = 4 And tlbTool.Buttons("preview").Enabled Then
Call previewProc
End If
Case vbKeyI
If Shift = 2 And tlbTool.Buttons("addColumn").Enabled Then
addColumnProc
End If
Case vbKeyD
If Shift = 2 And tlbTool.Buttons("delColumn").Enabled Then
delColumnProc
End If
Case vbKeyM
If Shift = 2 And tlbTool.Buttons("estModal").Enabled Then
If show_estModal Then
If frmEstModal.check_open_Form Then
Unload Me
frmEstModal.Show
End If
End If
End If
Case vbKeyZ
If Shift = 2 And tlbTool.Buttons("Cancel").Enabled Then
CancelProc
End If
End Select
ocxCtbtool.RefreshEnable
End Sub
Private Sub Form_Load()
Dim i As Integer
loadstatic
If credstat.proctype = "" Or credstat.proctype = "jlmx" Then
credstat.proctype = "jldj"
Else
Exit Sub
End If
Me.WindowState = vbMaximized
errornum = 0
SetTBStyle Me
con.ConnectionString = zjLogInfo.UfDbName
con.CursorLocation = adUseClient
con.Open
credstat.ModifyState = 0
For i = 0 To 3
SuperGrid1.colwidth(i) = 2750
SuperGrid1.ColAlignment(i) = 3
Next
SuperGrid1.SetColProperty 0, 10, BrowNull, EditNormal
SuperGrid1.SetColProperty 1, 18, DblBrowButton, EditDbl
SuperGrid1.SetColProperty 2, 19, BrowNull, EditNormal
SuperGrid1.SetColProperty 3, 18, DblBrowButton, EditNormal
credstat.selRow = SuperGrid1.Rows - 1
credstat.selcol = 1
With tlbTool
.ButtonWidth = 8.53
End With
sqlstr = "select * from FD_creClass order by LowMark"
rs.Open sqlstr, con, adOpenDynamic
If rs.EOF Or rs.BOF Then
'MsgBox "你还没有建立信用等级！", vbInformation, "系统信息"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -