📄 frmlist.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmlist
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5130
ClientLeft = 45
ClientTop = 45
ClientWidth = 8280
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5130
ScaleWidth = 8280
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command5
Caption = "开始分房(&S)"
Height = 375
Left = 7080
TabIndex = 6
Top = 3050
Width = 1575
End
Begin VB.CommandButton Command4
Caption = "打印(&P)"
Height = 375
Left = 6000
TabIndex = 5
Top = 3050
Width = 975
End
Begin VB.CommandButton Command3
Caption = "打印预览(&V)"
Height = 375
Left = 4680
TabIndex = 4
Top = 3050
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "删除(&D)"
Height = 375
Left = 3480
TabIndex = 3
Top = 3050
Width = 975
End
Begin VB.CommandButton Command1
Caption = "查找(&F)"
Height = 375
Left = 2280
TabIndex = 2
Top = 3050
Width = 975
End
Begin MSComctlLib.ImageList ImageList1
Left = 4320
Top = 1440
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmlist.frx":0000
Key = ""
EndProperty
EndProperty
End
Begin VB.Frame Frame2
Height = 2895
Left = 80
TabIndex = 0
Top = 0
Width = 7935
Begin MSComctlLib.ListView ListView1
Height = 2535
Left = 75
TabIndex = 1
Top = 240
Width = 7695
_ExtentX = 13573
_ExtentY = 4471
SortKey = 12
View = 3
LabelEdit = 1
SortOrder = -1 'True
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 13
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "住号"
Object.Width = 1057
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "姓名"
Object.Width = 1729
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "职称"
Object.Width = 1746
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "出生年月"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 5
Text = "参加工作年月"
Object.Width = 2293
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 6
Text = "最后学历"
Object.Width = 1614
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "原住房等级"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 8
Text = "职称分"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 9
Text = "工龄分"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 10
Text = "年龄分"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 11
Text = "学龄分"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 12
Text = "总分"
Object.Width = 1411
EndProperty
End
End
End
Attribute VB_Name = "frmlist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' 教师住房管理系统 Version 1.0 '''
''' （VB6.0 源代码） '''
''' '''
''' 俊彦软件工作室出品 '''
''' '''
''' （浦口校区科技节“电子杯”程序设计大赛参赛作品） '''
''' '''
''' 程序设计：东南大学土木工程学院 周曹俊 '''
''' '''
''' CopyRight AllRights Reserved (c)2003 '''
''' '''
''' 2003年5月15日 '''
''' '''
''' '''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Sub Command1_Click()
'在列表中查找申请用户的评分信息
Dim strfind As String
Dim listx As ListItem
strfind = InputBox("在" & Frame2.Caption & "中查找住户相关信息：", SYSTITLE)
If strfind <> "" Then
Set listx = ListView1.FindItem(strfind, lvwSubItem, , lvwPartial)
If listx Is Nothing Then
MsgBox "无匹配住户相关信息！", vbInformation + vbOKOnly, SYSTITLE
Exit Sub
Else
listx.EnsureVisible
listx.Selected = True
ListView1.SetFocus
End If
End If
End Sub
Private Sub Command2_Click()
Dim listx As ListItem
Dim stritem As String, strindex As String, intindex As Integer, cnt As Integer, strtmp(1 To 6) As String, a As Integer
Dim rs As Recordset
stritem = ListView1.SelectedItem.Key
strindex = frmtree2.TreeView1.SelectedItem.Key
intindex = Val(Right(strindex, 1))
strtmp(1) = "申请一室（已有": strtmp(2) = "申请一室一厅（已有"
strtmp(3) = "申请二室（已有": strtmp(4) = "申请二室一厅（已有"
strtmp(5) = "申请三室（已有": strtmp(6) = "申请三室一厅（已有"
a = MsgBox("您将删除该条记录，确定继续吗？", vbQuestion + vbYesNo, SYSTITLE)
If a = 7 Then
Exit Sub
End If
Set rs = db2.OpenRecordset(CStr(intindex))
db2.Execute ("delete from " & CStr(intindex) & " where id=" & "'" & stritem & "'")
ListView1.ListItems.remove (stritem)
frmtree2.TreeView1.Nodes.Item(strindex).Text = strtmp(intindex) & rs.RecordCount & "户)"
If ListView1.ListItems.Count = 0 Then
Command2.Enabled = False
Else
Command2.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Load frmwait
frmwait.Show
Call previewrpt
Unload frmwait
End Sub
Private Sub Command4_Click()
Call printrpt
End Sub
Private Sub Command5_Click()
If Command5.Caption = "开始分房(&S)" Then
Load frmdeal
frmdeal.Show 1
Else
Load frmlog
frmlog.Show 1
End If
End Sub
Private Sub Form_Load()
'设置界面布局
Call changefrmlist
Me.Top = frmtree2.Height
Me.Left = 0
Me.Width = frmMDI.ScaleWidth
Me.Height = frmMDI.ScaleHeight - frmtree2.Height
Frame2.Width = Me.ScaleWidth - 2 * Frame2.Left
ListView1.Width = Me.ScaleWidth - 2 * (Frame2.Left + ListView1.Left)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -