📄 评价模型.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.3#0"; "U8TBCtl.ocx"
Begin VB.Form frmEstModal
Caption = "评价模型"
ClientHeight = 6120
ClientLeft = 60
ClientTop = 345
ClientWidth = 11670
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6120
ScaleWidth = 11670
Begin prjTBCtrl.CTBCtrl ocxCtbTool
Height = 855
Left = 0
TabIndex = 6
Top = 0
Width = 3855
_ExtentX = 6800
_ExtentY = 1508
End
Begin VB.Frame Frame1
Height = 5175
Left = 0
TabIndex = 1
Top = 720
Width = 11295
Begin MSComctlLib.ImageList ImageList1
Left = 240
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 393216
End
Begin PRINTCONTROLLib.PrintControl Printer
Height = 30
Left = 240
TabIndex = 5
Top = 5160
Visible = 0 'False
Width = 615
_Version = 65536
_ExtentX = 1085
_ExtentY = 53
_StockProps = 0
EnableSave = -1 'True
End
Begin VB.CommandButton CmdDown
Caption = "下 移"
Height = 1095
Left = 120
TabIndex = 4
Top = 2040
Width = 255
End
Begin VB.CommandButton cmdUp
Caption = "上 移"
Height = 975
Left = 120
TabIndex = 3
Top = 960
Width = 255
End
Begin MsSuperGrid.SuperGrid SuperGrid1
Height = 4455
Left = 480
TabIndex = 2
Top = 480
Width = 10695
_ExtentX = 18865
_ExtentY = 7858
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 = "评价模型.frx":0000
ForeColorSel = -2147483634
ForeColorFixed = -2147483630
BackColorSel = -2147483635
BackColorFixed = -2147483633
AllowBigSelection= 0 'False
End
End
Begin MSComctlLib.Toolbar tlbTool
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 11670
_ExtentX = 20585
_ExtentY = 953
ButtonWidth = 1455
ButtonHeight = 953
Wrappable = 0 'False
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 17
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 = "SelAll"
Description = "SelAllBtn"
Object.ToolTipText = "全选"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全消"
Key = "Unsel"
Description = "UnselAllBtn"
Object.ToolTipText = "全消"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "选择"
Key = "SelRow"
Description = "SelRowBtn"
Object.ToolTipText = "选择当前行"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "不选"
Key = "cancelSel"
Description = "btncancelSel"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "Modi"
Description = "ModiBtn"
Object.ToolTipText = "修改"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
Description = "CancelBtn"
Object.ToolTipText = "取消上次的修改"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Key = "Cancel"
Description = "SaveBtn"
Object.ToolTipText = "保存修改"
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "信用等级"
Key = "creClass"
Description = "creClassBtn"
Object.ToolTipText = "保存信用等级"
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
Description = "HelpBtn"
Object.ToolTipText = "帮助"
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
Description = "ExitBtn"
Object.ToolTipText = "退出"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmEstModal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim con As New ADODB.Connection
Dim duplicate As Boolean
Dim creData() As String
Dim testb As Boolean
Dim xmlInit As Boolean
Dim itemOrder() As String
Dim queryOrder() As String
Dim colwidth(7) As Double
Private Sub CmdDown_Click()
Dim i As Integer
Dim temp As String
With SuperGrid1
SuperGrid1.ProtectUnload
If credstat.selRow = .Rows - 1 Then
CmdDown.Enabled = False
If .Rows > 2 Then
cmdUp.Enabled = True
Else
cmdUp.Enabled = False
End If
Exit Sub
End If
temp = ""
For i = 0 To 7
temp = .TextMatrix(credstat.selRow, i)
'.TextMatrix(credstat.selRow, i) = creData(credstat.selRow, i)
.TextMatrix(credstat.selRow, i) = .TextMatrix(credstat.selRow + 1, i)
'.TextMatrix(credstat.selRow + 1, i) = creData(credstat.selRow - 1, i)
.TextMatrix(credstat.selRow + 1, i) = temp
Next
temp = ""
For i = 0 To 8
temp = creData(credstat.selRow, i)
creData(credstat.selRow, i) = creData(credstat.selRow - 1, i)
creData(credstat.selRow - 1, i) = temp
Next
credstat.selRow = credstat.selRow + 1
.row = credstat.selRow
.col = credstat.selcol
.SetFocus
End With
End Sub
'初始化打印数据XML文件
Private Sub initPrnXmlFile()
'过程变量
Dim prnxml As New clsPrnXml
Dim AttrName() As String
Dim AttrValue() As String
Dim i, j As Integer
Dim str1 As String
Dim creData() As String
On Error GoTo error0
'插入结构数据数据
str1 = "评价模型"
prnxml.Initialize "数据", "任务"
prnxml.InsertPNode "任务", "页眉", "第%p页，共%p页"
prnxml.InsertPNode "任务", "标题", str1
prnxml.InsertPNode "任务", "表头", ""
prnxml.InsertPNode "任务", "表体", ""
prnxml.InsertPNode "任务", "表尾", ""
prnxml.InsertPNode "任务", "页脚", "用友软件"
ReDim AttrName(0, 1)
ReDim AttrValue(0)
'插入表头,表尾数据
For i = 0 To UBound(AttrName)
AttrName(i, 0) = "名字"
Next
'插入表头,表尾数据
AttrName(0, 1) = "日期"
'AttrName(1, 1) = "单据名称"
AttrValue(0) = CStr(Format(Date, "YYYY-MM-DD"))
'AttrValue(1) = Trim(Txtdjmc.Text)
prnxml.InsertHeadNodes "表头", "字段", AttrName, AttrValue
' ReDim AttrName(1, 1)
' ReDim AttrValue(1)
' For i = 0 To UBound(AttrName)
' AttrName(i, 0) = "名字"
' Next
'
' AttrName(0, 1) = "操作员"
' AttrName(1, 1) = "操作日期"
'
' AttrValue(0) = Trim(TxtcUsername.Text)
' AttrValue(1) = CStr(Format(CDate(Trim(TxtOprDate.Text)), "YYYY-MM-DD"))
' prnxml.InsertHeadNodes "表尾", "字段", AttrName, AttrValue
'插入表体头数据
ReDim AttrName(6, 1)
ReDim AttrValue(6)
For i = 0 To 6
AttrName(i, 0) = "单元"
Next
AttrValue(0) = "评价指标名称"
AttrValue(1) = "评价指标性质"
AttrValue(2) = "计算公式(计算基准)"
AttrValue(3) = "标准值"
AttrValue(4) = "标准分"
AttrValue(5) = "记分公式(记分基准)"
AttrValue(6) = "备注"
' For i = 0 To 9
' AttrValue(i) = Trim(SuperGrid1.TextMatrix(0, i))
' Next
prnxml.InsertBodyNodes "表体", "表体头", AttrName, AttrValue
For i = 0 To 6
AttrValue(i) = ""
Next
'prndata creData
With SuperGrid1
For i = 0 To .Rows - 2
'插入表体行数据
AttrValue(0) = .TextMatrix(i + 1, 1)
AttrValue(1) = .TextMatrix(i + 1, 2)
AttrValue(2) = .TextMatrix(i + 1, 3)
AttrValue(3) = .TextMatrix(i + 1, 4)
AttrValue(4) = .TextMatrix(i + 1, 5)
AttrValue(5) = .TextMatrix(i + 1, 6)
AttrValue(6) = .TextMatrix(i + 1, 7)
prnxml.InsertBodyNodes "表体", "表体行", AttrName, AttrValue
Next
End With
'保存数据文件
prnxml.saveFile "tcreEstModalData.xml"
If initStyleXml Then
If prnDataBind Then
xmlInit = True
Else
xmlInit = False
End If
Else
xmlInit = False
End If
Set prnxml = Nothing
Exit Sub
error0:
MsgBox "打印数据准备失败！" & vbCrLf & Err.Description, vbInformation, "错误信息"
' If rs.State = adStateOpen Then
' rs.Close
' End If
xmlInit = False
Set prnxml = Nothing
End Sub
Private Function prnDataBind() As Boolean
Dim lRet As Long
Dim sData As String
Dim sStyle As String
Dim sModuleId As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -