📄 form5.frm
字号:
BeginProperty ColumnHeader(41) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 40
Text = "结地籍增加"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(42) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 41
Text = "结地籍查询"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(43) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 42
Text = "结地籍编辑"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(44) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 43
Text = "结松北增加"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(45) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 44
Text = "结松北查询"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(46) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 45
Text = "结松北编辑"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(47) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 46
Text = "经营部审批"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(48) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 47
Text = "主管院长审批"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(49) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 48
Text = "院长审批"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(50) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 49
Text = "回款增加"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(51) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 50
Text = "回款编辑"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(52) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 51
Text = "结算量统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(53) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 52
Text = "回款统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(54) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 53
Text = "项目统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(55) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 54
Text = "生产部门统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(56) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 55
Text = "出图统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(57) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 56
Text = "出图经办人"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(58) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 57
Text = "出图审批人"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(59) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 58
Text = "出图财务部"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(60) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 59
Text = "出图者"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(61) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 60
Text = "档案部"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(62) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 61
Text = "检查人"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(63) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 62
Text = "勘察增加"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(64) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 63
Text = "勘察查询"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(65) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 64
Text = "勘察编辑"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(66) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 65
Text = "勘察经营部长"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(67) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 66
Text = "勘察主管院长"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(68) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 67
Text = "勘察财务部"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(69) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 68
Text = "经营人员增加"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(70) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 69
Text = "经营人员查询"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(71) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 70
Text = "经营人员编辑"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(72) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 71
Text = "勘察统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(73) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 72
Text = "经营人员统计"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(74) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 73
Text = "勘察经营部长员审核"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(75) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 74
Text = "大屏幕"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(76) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 75
Text = "主管院长审核"
Object.Width = 2540
EndProperty
Picture = "Form5.frx":671F
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, m, j As Integer
For i = 1 To Form5.ListView1.ListItems.Count
If Form5.ListView1.ListItems.Item(i).Checked = True Then
m = m + 1
Form6.Text1(0).Text = Form5.ListView1.ListItems.Item(i)
Form6.Text1(1).Text = Form5.ListView1.ListItems.Item(i).ListSubItems(1)
Form6.Combo1.Text = Form5.ListView1.ListItems.Item(i).ListSubItems(2)
For j = 0 To 72
Form6.Check1(j).Value = Form5.ListView1.ListItems.Item(i).ListSubItems(j + 3)
Next
End If
Next
If m <> 1 Then
MsgBox "选择一条记录！", vbInformation, "提示"
Exit Sub
Else
Form6.Show vbModal
End If
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim n, m As Integer
With Me
.Height = 8010
.left = 2332
.top = 2600
.Width = 12160
End With
hrs.CursorLocation = adUseClient
hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
For n = 1 To hrs.RecordCount
Form5.ListView1.ListItems.Add , , hrs.Fields(0).Value
For m = 1 To 75
Form5.ListView1.ListItems.Item(n).SubItems(m) = hrs.Fields(m).Value
Next
hrs.MoveNext
Next
hrs.Close
End Sub
Private Sub ListView1_DblClick()
Dim i, m, j As Integer
For i = 1 To Form5.ListView1.ListItems.Count
If Form5.ListView1.ListItems.Item(i).Checked = True Then
m = m + 1
Form6.Text1(0).Text = Form5.ListView1.ListItems.Item(i)
Form6.Text1(1).Text = Form5.ListView1.ListItems.Item(i).ListSubItems(1)
Form6.Combo1.Text = Form5.ListView1.ListItems.Item(i).ListSubItems(2)
For j = 0 To 72
Form6.Check1(j).Value = Form5.ListView1.ListItems.Item(i).ListSubItems(j + 3)
Next
End If
Next
If m <> 1 Then
MsgBox "选择一条记录！", vbInformation, "提示"
Exit Sub
Else
Form6.Show vbModal
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -