📄 主窗体.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_Main
Caption = "某单位分房优先级管理系统"
ClientHeight = 8055
ClientLeft = 60
ClientTop = 630
ClientWidth = 10890
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8055
ScaleWidth = 10890
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ImageList ImageList1
Left = 10200
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":0625
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":0EDC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":1488
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":161F
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":1DE3
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":2065
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":22DD
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 1
Top = 0
Width = 10890
_ExtentX = 19209
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "new"
Description = "添加人员信息"
Object.ToolTipText = "添加人员信息"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "edit"
Object.ToolTipText = "修改信息"
ImageIndex = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "del"
Object.ToolTipText = "删除人员信息"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "quit"
Object.ToolTipText = "系统退出"
ImageIndex = 3
EndProperty
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 7215
Left = 0
TabIndex = 0
Top = 720
Width = 10815
_ExtentX = 19076
_ExtentY = 12726
View = 3
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
TextBackground = -1 'True
_Version = 393217
ForeColor = 0
BackColor = 16777215
BorderStyle = 1
Appearance = 0
NumItems = 8
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Object.Width = 2540
EndProperty
End
Begin VB.Menu bianji
Caption = "编辑"
Begin VB.Menu ryxz
Caption = "人员新增"
End
Begin VB.Menu xttc
Caption = "系统退出"
End
End
Begin VB.Menu ckbb
Caption = "查看报表"
Begin VB.Menu fpbb
Caption = "优先级别报表(积分)"
End
End
Begin VB.Menu bz
Caption = "帮助"
Begin VB.Menu xtsm
Caption = "系统说明"
End
Begin VB.Menu bbxs
Caption = "版本信息"
End
End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim iTotRec As Integer
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\sjk1.mdb")
Set rs = db.OpenRecordset("Select * From 人员信息表 Order By ID")
Dim i As Long
Dim oNewItem As ListItem
With ListView1
For i = 0 To rs.Fields.Count - 1 '循环添加字段
.ColumnHeaders.Item(i + 1).Text = rs.Fields(i).Name
Next i
Do While Not (rs.EOF Or rs.BOF)
Set oNewItem = .ListItems.Add
For i = 0 To rs.Fields.Count - 1 '循环添加表中记录
If i = 0 Then
oNewItem.Text = rs.Fields(0).Value
Else
oNewItem.SubItems(i) = rs.Fields(i).Value & ""
End If
Next i
rs.MoveNext
Loop
End With
End Sub
Private Sub fpbb_Click()
Frm_JF.Show
End Sub
Private Sub ryxz_Click()
Unload Me
Frm_Add.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "new"
Unload Me
Frm_Add.Show
Case "edit"
Frm_Edit.Text1.Text = ListView1.SelectedItem.SubItems(1)
Frm_Edit.Text2.Text = ListView1.SelectedItem.SubItems(2)
Frm_Edit.Text3.Text = ListView1.SelectedItem.SubItems(3)
Frm_Edit.Text4.Text = ListView1.SelectedItem.SubItems(4)
Frm_Edit.Text5.Text = ListView1.SelectedItem.SubItems(5)
Frm_Edit.Combo1.Text = ListView1.SelectedItem.SubItems(6)
Frm_Edit.Text7.Text = ListView1.SelectedItem.SubItems(7)
Frm_Edit.Text8.Text = ListView1.SelectedItem.Text
Unload Me
Frm_Edit.Show
Case "del"
Dim ponse As Integer
Dim Num As Long
Num = ListView1.SelectedItem.Text
ponse = MsgBox("真的要删除吗？", vbYesNo + vbExclamation, "删除数据")
If ponse = vbYes Then
db.Execute "delete * from 人员信息表 where 编号=" & Num & " "
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End If
Case "quit"
Unload Me
End Select
End Sub
Private Sub xttc_Click()
Unload Me
End Sub
Private Sub ListView1_DblClick()
Frm_Edit.Text1.Text = ListView1.SelectedItem.SubItems(1)
Frm_Edit.Text2.Text = ListView1.SelectedItem.SubItems(2)
Frm_Edit.Text3.Text = ListView1.SelectedItem.SubItems(3)
Frm_Edit.Text4.Text = ListView1.SelectedItem.SubItems(4)
Frm_Edit.Text5.Text = ListView1.SelectedItem.SubItems(5)
Frm_Edit.Combo1.Text = ListView1.SelectedItem.SubItems(6)
Frm_Edit.Text7.Text = ListView1.SelectedItem.SubItems(7)
Frm_Edit.Text8.Text = ListView1.SelectedItem.Text
Unload Me
Frm_Edit.Show
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With ListView1
If (ColumnHeader.Index - 1) = .SortKey Then
.SortOrder = (.SortOrder + 1) Mod 2
Else
.Sorted = False
.SortOrder = 0
.SortKey = ColumnHeader.Index - 1
.Sorted = True
End If
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -