📄 mainfrm.frm
字号:
Left = 3360
TabIndex = 26
Top = 1200
Width = 735
End
Begin VB.Label Label17
Caption = "OICQ号"
Height = 255
Index = 0
Left = 3360
TabIndex = 25
Top = 1800
Width = 735
End
Begin VB.Label Label5
Caption = "民 族"
Height = 255
Left = -74655
TabIndex = 24
Top = 3480
Width = 735
End
Begin VB.Label Label7
Caption = "身份证 号 码*"
Height = 375
Left = -74640
TabIndex = 23
Top = 3960
Width = 735
End
Begin VB.Label Label2
Caption = "性 别"
Height = 255
Left = -74655
TabIndex = 22
Top = 1680
Width = 735
End
Begin VB.Label Label3
Caption = "籍 贯"
Height = 255
Left = -74655
TabIndex = 21
Top = 2280
Width = 735
End
Begin VB.Label Label4
Caption = "生 日"
Height = 255
Left = -74655
TabIndex = 18
Top = 2880
Width = 735
End
End
Begin VB.Menu 文件
Caption = "文件(&F)"
Begin VB.Menu 预览住户
Caption = "预览住户(&P)"
End
Begin VB.Menu 退出系统
Caption = "退出系统(&E)"
End
End
Begin VB.Menu 编辑
Caption = "编辑(&E)"
Begin VB.Menu 添加住户
Caption = "添加住户(&A)"
End
Begin VB.Menu 删除住户
Caption = "删除住户(&D)"
End
Begin VB.Menu 修改住户
Caption = "修改住户(&M)"
End
Begin VB.Menu 查询住户
Caption = "查询住户(&S)"
End
End
Begin VB.Menu 视图
Caption = "视图(&V)"
Begin VB.Menu 基本资料
Caption = "基本资料(&B)"
End
Begin VB.Menu 联络资料
Caption = "联络资料(&T)"
End
Begin VB.Menu 其它资料
Caption = "其它资料(&Q)"
End
Begin VB.Menu 总揽全局
Caption = "总揽全局(&A)"
End
End
Begin VB.Menu 帮助
Caption = "帮助(&H)"
Begin VB.Menu 关于本系统
Caption = "关于本系统(&A)"
End
Begin VB.Menu 联系我们
Caption = "联系我们(&C)"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim IsAdd As Boolean
Private Function OpenDB() As Boolean
On Error GoTo err
Dim Pathstr As String
Pathstr = App.Path + "\db2.mdb"
Set Mdata = Workspaces(0).OpenDatabase(Pathstr)
Set Mrec = Mdata.OpenRecordset("MP")
OpenDB = True
Exit Function
err:
OpenDB = False
End Function
Private Sub ShutDB()
Mrec.Close
Mdata.Close
End Sub
Public Sub ShowA()
Text(0).Text = Mrec!姓名 & ""
Text(1).Text = Mrec!性别 & ""
Text(2).Text = Mrec!籍贯 & ""
Text(3).Text = Mrec!生日 & ""
Text(4).Text = Mrec!民族 & ""
Text(5).Text = Mrec!身份证号码 & ""
Text(6).Text = Mrec!住宅电话 & ""
Text(7).Text = Mrec!手机号码 & ""
Text(8).Text = Mrec!传真号码 & ""
Text(9).Text = Mrec!家庭住址 & ""
Text(10).Text = Mrec!E_mail & ""
Text(11).Text = Mrec!网址 & ""
Text(12).Text = Mrec!单位电话 & ""
Text(13).Text = Mrec!传呼号码 & ""
Text(14).Text = Mrec!OICQ & ""
Text(15).Text = Mrec!小灵通 & ""
Text(16).Text = Mrec!公司地址 & ""
Text(17).Text = Mrec!备注 & ""
End Sub
Private Sub GetField()
Mrec!姓名 = Text(0).Text & ""
Mrec!性别 = Text(1).Text & ""
Mrec!籍贯 = Text(2).Text & ""
Mrec!生日 = Text(3).Text & ""
Mrec!民族 = Text(4).Text & ""
Mrec!身份证号码 = Text(5).Text & ""
Mrec!住宅电话 = Text(6).Text & ""
Mrec!手机号码 = Text(7).Text & ""
Mrec!传真号码 = Text(8).Text & ""
Mrec!家庭住址 = Text(9).Text & ""
Mrec!E_mail = Text(10).Text & ""
Mrec!网址 = Text(11).Text & ""
Mrec!单位电话 = Text(12).Text & ""
Mrec!传呼号码 = Text(13).Text & ""
Mrec!OICQ = Text(14).Text & ""
Mrec!小灵通 = Text(15).Text & ""
Mrec!公司地址 = Text(16).Text & ""
Mrec!备注 = Text(17).Text & ""
End Sub
Private Sub ShowMP()
'显示全部记录，至list1
List1.Clear
Dim i As Long
If Mrec.RecordCount = 0 Then Exit Sub
Mrec.MoveFirst
'添加标签名称
List1.AddItem StrAdjust("姓名", 6, True) + _
StrAdjust("身份证号码", 19, True) + _
StrAdjust("家庭住址", 10, True) + _
StrAdjust("住宅电话 ", 10, True) + _
StrAdjust("公司地址", 10, True) + _
StrAdjust("单位电话 ", 10, True) + _
StrAdjust("备注", 10, True)
'显示每一条记录
For i = 1 To Mrec.RecordCount
List1.AddItem StrAdjust(Mrec!姓名 + "", 6, True) + _
StrAdjust(Mrec!身份证号码 + "", 19, True) + _
StrAdjust(Mrec!家庭住址 + "", 10, True) + _
StrAdjust(Mrec!住宅电话 + "", 10, True) + _
StrAdjust(Mrec!公司地址 + "", 10, True) + _
StrAdjust(Mrec!单位电话 + "", 10, True) + _
StrAdjust(Mrec!备注, 10, True)
Mrec.MoveNext
Next
Mrec.MoveFirst
End Sub
Private Sub Form_Load()
OpenDB
If Mrec.RecordCount > 0 Then
ShowA
ShowMP
End If
End Sub
'控件组
Private Sub Command1_Click() '添加住户
Dim i As Integer
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
For i = 0 To 17
Text(i).Text = ""
Text(i).Locked = False '打开文本框
Next
IsAdd = True '如果是添加新记录操作，IsAdd＝真；编辑Edit操作 IsAdd＝假
Text(0).SetFocus
'mrec.AddNew
End Sub
Private Sub Command2_Click() '住户修改
Dim i As Integer
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = True
For i = 0 To 17
Text(i).Locked = False
Next
IsAdd = False '如果是添加新记录操作，IsAdd＝真；编辑Edit操作 IsAdd＝假
Text(0).SetFocus
End Sub
Private Sub Command3_Click() '删除住户
Command8.Enabled = True
If Mrec.RecordCount = 0 Then
MsgBox "已经没有数据可删除了！！！", , "错误！"
Exit Sub
End If
If MsgBox("您确定要删除当前住户吗？", vbQuestion + vbYesNo, "提示") = vbYes Then
Mrec.Delete
Mrec.MoveFirst
ShowA
ShowMP
End If
End Sub
Private Sub Command4_Click() '住户保存
Dim i As Integer
If IsAdd Then '如果是true，加入新记录
Mrec.AddNew
GetField '自定义函数
Else
Mrec.Edit '如果是false，则
GetField
End If
Mrec.Update
Mrec.MoveFirst
ShowA
ShowMP
For i = 0 To 17
Text(i).Locked = True
Next
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
End Sub
Private Sub Command5_Click() 'next
Command8.Enabled = False
If Mrec.RecordCount = 0 Then
Command5.Enabled = False
Command6.Enabled = False
Else
Mrec.MoveNext
If Mrec.EOF Then
Mrec.MoveLast
Command5.Enabled = False
Else
Command5.Enabled = True
Command6.Enabled = True
End If
ShowA
End If
End Sub
Private Sub Command6_Click() 'previous
Command8.Enabled = False
If Mrec.RecordCount = 0 Then
Command5.Enabled = False
Command6.Enabled = False
Else
Mrec.MovePrevious
If Mrec.BOF Then
Mrec.MoveFirst
Command6.Enabled = False
Else
Command5.Enabled = True
Command6.Enabled = True
End If
ShowA
End If
End Sub
Private Sub Command7_Click()
frminquire.Show
End Sub
Private Sub Command8_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = False
End Sub
Private Sub Command9_Click()
frmrela.Show
End Sub
Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
Dim t As Integer
If Chr(KeyAscii) = Chr(13) Then
t = (Index + 1) Mod 18
Text(t).SetFocus
'用t判断显示第几页
If t >= 0 And t <= 5 Then SSTab1.Tab = 0
If t > 5 And t <= 16 Then SSTab1.Tab = 1
If t > 16 Then SSTab1.Tab = 2
End If
End Sub
Private Sub 联系我们_Click()
ShellExecute 0&, vbNullString, "MailTo:mengxin@eyou.com", vbNullString, vbNullString, vbNormalFocus
End Sub
'菜单文件
Private Sub 预览住户_Click()
SSTab1.Tab = 3
End Sub
Private Sub 退出系统_Click()
End
End Sub
'菜单编辑
Private Sub 添加住户_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Dim i As Integer
For i = 0 To 17
Text(i).Locked = False
Text(i).Text = ""
Next
Text(0).SetFocus
End Sub
Private Sub 删除住户_Click()
If Mrec.RecordCount = 0 Then
MsgBox "已经没有数据可删除了！！！", , "错误！"
Exit Sub
End If
If MsgBox("您确定要删除当前住户吗？", vbQuestion + vbYesNo, "提示") = vbYes Then
Mrec.Delete
Mrec.MoveFirst
ShowA
ShowMP
End If
End Sub
Private Sub 修改住户_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Dim i As Integer
For i = 0 To 17
Text(i).Locked = False
Next
Text(0).SetFocus
End Sub
Private Sub 查询住户_Click()
frminquire.Show
End Sub
'菜单视图
Private Sub 基本资料_Click()
SSTab1.Tab = 0
End Sub
Private Sub 联络资料_Click()
SSTab1.Tab = 1
End Sub
Private Sub 其它资料_Click()
SSTab1.Tab = 2
End Sub
Private Sub 总揽全局_Click()
SSTab1.Tab = 3
End Sub
'菜单帮助
Private Sub 关于本系统_Click()
Dim HH As String, Blank As String
'字符串中间加chr(13)+chr(10),回车，换行
HH = Chr(13) + Chr(10)
MsgBox Blank + HH + "常驻人口管理系统 V1.0 ＋ " + _
HH + HH + "开发工具：Visual Basic 6.0" + HH + HH + _
"制作人：王俏" + HH + HH + HH + _
"Email:mengxin0839@eyou.com" + HH + _
"qq:17795025", vbOKOnly, "关于本系统...."
'frmshow.
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -