📄 frm_xtwh_czysz.frm
字号:
Dim itmX As ListItem '定义一个ListItem对象
Dim a
Dim key As String '定义字符串变量
Private Sub Cmd_add_Click() '增加操作员
Call main
If Cmd_add.Caption = "增加" Then
Cmd_add.Caption = "保存"
Frame2(1).Visible = True
Frame3.Visible = False
Me.Height = 6075
Text4.SetFocus
ElseIf Cmd_add.Caption = "保存" Then
Cmd_add.Caption = "增加"
Adodc1.RecordSource = "select * from Table_xxwhb order by ID"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text5.Text = Adodc1.Recordset.Fields("ID")
Text5.Text = Val(Text5.Text) + 1
Else
Text5.Text = 1
End If
If Text4.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "输入不完全!!", , "人口信息管理系统"
Else
If Trim(Text2.Text) = Trim(Text3.Text) Then
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check5.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
Check9.Value = False
Check10.Value = False
Check11.Value = False
Check12.Value = False
Check13.Value = False
Check14.Value = False
Check15.Value = False
Check16.Value = False
Set adoRs = adoCon.Execute("insert into Table_xxwhb values(" & Text5 & ",'" & Text4 & "','" & Text2 & "','" & frm_XTWH_CZYSZ.Check1 & "','" & frm_XTWH_CZYSZ.Check2 & "','" & frm_XTWH_CZYSZ.Check3 & "','" & frm_XTWH_CZYSZ.Check4 & "','" & frm_XTWH_CZYSZ.Check5 & "','" & frm_XTWH_CZYSZ.Check6 & "','" & frm_XTWH_CZYSZ.Check7 & "','" & frm_XTWH_CZYSZ.Check8 & "','" & frm_XTWH_CZYSZ.Check9 & "','" & frm_XTWH_CZYSZ.Check10 & "','" & frm_XTWH_CZYSZ.Check11 & "','" & frm_XTWH_CZYSZ.Check12 & "','" & frm_XTWH_CZYSZ.Check13 & "','" & frm_XTWH_CZYSZ.Check14 & "','" & frm_XTWH_CZYSZ.Check15 & "','" & frm_XTWH_CZYSZ.Check16 & "')")
MsgBox "注册成功!!", 48, "人口信息管理系统"
Text4.Text = ""
Text2.Text = ""
Text3.Text = ""
Frame2(1).Visible = False
Frame3.Visible = True
Me.Height = 5460
Unload Me
Else
MsgBox "两次输入的密码不一致,请您确认后重新输入", 48, "人口信息管理系统"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
End If
End If
End If
adoCon.Close
End Sub
Private Sub Cmd_cancel_Click()
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check5.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
Check9.Value = False
Check10.Value = False
Check11.Value = False
Check12.Value = False
Check13.Value = False
Check14.Value = False
Check15.Value = False
Check16.Value = False
Text9.Text = ""
Me.Height = 5460
End Sub
Private Sub Cmd_del_Click() '删除操作员
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该操作员的信息么?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Refresh
a = Text1.Text
Adodc1.RecordSource = "select * from Table_xxwhb"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
ListView1.ListItems.Clear
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
key = Text1.Text
Set itmX = ListView1.ListItems.ADD(, , key, 1)
Adodc1.Recordset.MoveNext
Loop
Else
End If
Else
End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
End Sub
Private Sub Cmd_edit_Click()
Frame2(1).Visible = False
Frame3.Visible = True
Me.Height = 6075
End Sub
Private Sub Cmd_exit_Click()
Unload Me
End Sub
Private Sub Cmd_sq_Click() '操作员授权
Call main
Adodc1.RecordSource = "select * from Table_xxwhb order by ID"
' Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text5.Text = Adodc1.Recordset.Fields("ID")
Text5.Text = Val(Text5.Text) + 1
Else
Text5.Text = 1
End If
Text7.Text = Adodc1.Recordset.Fields("用户名")
Text8.Text = Adodc1.Recordset.Fields("密码")
Adodc1.Recordset.Delete
Set adoRs = adoCon.Execute("insert into Table_xxwhb values(" & Text5 & ",'" & Text7 & "','" & Text8 & "','" & frm_XTWH_CZYSZ.Check1 & "','" & frm_XTWH_CZYSZ.Check2 & "','" & frm_XTWH_CZYSZ.Check3 & "','" & frm_XTWH_CZYSZ.Check4 & "','" & frm_XTWH_CZYSZ.Check5 & "','" & frm_XTWH_CZYSZ.Check6 & "','" & frm_XTWH_CZYSZ.Check7 & "','" & frm_XTWH_CZYSZ.Check8 & "','" & frm_XTWH_CZYSZ.Check9 & "','" & frm_XTWH_CZYSZ.Check10 & "','" & frm_XTWH_CZYSZ.Check11 & "','" & frm_XTWH_CZYSZ.Check12 & "','" & frm_XTWH_CZYSZ.Check13 & "','" & frm_XTWH_CZYSZ.Check14 & "','" & frm_XTWH_CZYSZ.Check15 & "','" & frm_XTWH_CZYSZ.Check16 & "')")
MsgBox "成功授权!!", 48, "人口信息管理系统"
Cmd_sq.Enabled = False
adoCon.Close
End Sub
Private Sub Command1_Click() '修改操作员姓名
Call main
If Text9.Text = "" Then
MsgBox "输入不能为空"
Text9.SetFocus
Else
Adodc1.RecordSource = "select * from Table_xxwhb where 用户名='" + ListView1.SelectedItem + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Set adoRs = adoCon.Execute("UPDATE Table_xxwhb SET 用户名= '" + Text9.Text + "' where ID='" + Text10.Text + "'")
MsgBox "用户名修改成功!", 32, "人口信息管理系统"
a = Text1.Text
Adodc1.RecordSource = "select * from Table_xxwhb"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
ListView1.ListItems.Clear
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
key = Text1.Text
Set itmX = ListView1.ListItems.ADD(, , key, 1)
Adodc1.Recordset.MoveNext
Loop
Else
End If
Frame2(1).Visible = True
Frame3.Visible = False
Me.Height = 5460
Else
MsgBox "没有此人的信息"
End If
End If
adoCon.Close
End Sub
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
a = Text1.Text
Adodc1.RecordSource = "select * from Table_xxwhb"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
ListView1.Enabled = True
ListView1.ListItems.Clear
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
key = Text1.Text
Set itmX = ListView1.ListItems.ADD(, , key, 1)
Adodc1.Recordset.MoveNext
Loop
Adodc1.RecordSource = "select * from Table_xxwhb where 用户名='" + ListView1.SelectedItem + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Check1.Value = Adodc1.Recordset.Fields("户口簿")
Check2.Value = Adodc1.Recordset.Fields("通讯录")
Check3.Value = Adodc1.Recordset.Fields("低保人员")
Check4.Value = Adodc1.Recordset.Fields("失业人员")
Check5.Value = Adodc1.Recordset.Fields("优抚人员")
Check6.Value = Adodc1.Recordset.Fields("两劳人员")
Check7.Value = Adodc1.Recordset.Fields("工作对象")
Check8.Value = Adodc1.Recordset.Fields("老年人")
Check9.Value = Adodc1.Recordset.Fields("残疾人")
Check10.Value = Adodc1.Recordset.Fields("暂住人口")
Check11.Value = Adodc1.Recordset.Fields("出租房")
Check12.Value = Adodc1.Recordset.Fields("出租房车辆")
Check13.Value = Adodc1.Recordset.Fields("暂扣物品")
Check14.Value = Adodc1.Recordset.Fields("育妇管理")
Check15.Value = Adodc1.Recordset.Fields("计生信息")
Check16.Value = Adodc1.Recordset.Fields("操作员设置")
Else
End If
Else
ListView1.Enabled = False
End If
End Sub
Private Sub ListView1_Click()
Cmd_del.Enabled = True
Cmd_edit.Enabled = True
Cmd_sq.Enabled = True
'ListView1.SelectedItem.ForeColor = RGB(0, 0, 200)
Adodc1.RecordSource = "select * from Table_xxwhb where 用户名='" + ListView1.SelectedItem + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Frame2(0).Caption = "操作员 " + Trim(ListView1.SelectedItem.Text) + " 的权限设置"
Check1.Value = Adodc1.Recordset.Fields("户口簿")
Check2.Value = Adodc1.Recordset.Fields("通讯录")
Check3.Value = Adodc1.Recordset.Fields("低保人员")
Check4.Value = Adodc1.Recordset.Fields("失业人员")
Check5.Value = Adodc1.Recordset.Fields("优抚人员")
Check6.Value = Adodc1.Recordset.Fields("两劳人员")
Check7.Value = Adodc1.Recordset.Fields("工作对象")
Check8.Value = Adodc1.Recordset.Fields("老年人")
Check9.Value = Adodc1.Recordset.Fields("残疾人")
Check10.Value = Adodc1.Recordset.Fields("暂住人口")
Check11.Value = Adodc1.Recordset.Fields("出租房")
Check12.Value = Adodc1.Recordset.Fields("出租房车辆")
Check13.Value = Adodc1.Recordset.Fields("暂扣物品")
Check14.Value = Adodc1.Recordset.Fields("育妇管理")
Check15.Value = Adodc1.Recordset.Fields("计生信息")
Check16.Value = Adodc1.Recordset.Fields("操作员设置")
Else
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text3.SetFocus
Else
End If
End Sub
Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
Call main
If KeyCode = 13 Then
Cmd_add.Caption = "增加"
Adodc1.RecordSource = "select * from Table_xxwhb order by ID"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text5.Text = Adodc1.Recordset.Fields("ID")
Text5.Text = Val(Text5.Text) + 1
Else
Text5.Text = 1
End If
If Text4.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "输入不完全!!", , "人口信息管理系统"
Else
If Trim(Text2.Text) = Trim(Text3.Text) Then
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check5.Value = False
Check6.Value = False
Check7.Value = False
Check8.Value = False
Check9.Value = False
Check10.Value = False
Check11.Value = False
Check12.Value = False
Check13.Value = False
Check14.Value = False
Check15.Value = False
Check16.Value = False
Set adoRs = adoCon.Execute("insert into Table_xxwhb values(" & Text5 & ",'" & Text4 & "','" & Text2 & "','" & frm_XTWH_CZYSZ.Check1 & "','" & frm_XTWH_CZYSZ.Check2 & "','" & frm_XTWH_CZYSZ.Check3 & "','" & frm_XTWH_CZYSZ.Check4 & "','" & frm_XTWH_CZYSZ.Check5 & "','" & frm_XTWH_CZYSZ.Check6 & "','" & frm_XTWH_CZYSZ.Check7 & "','" & frm_XTWH_CZYSZ.Check8 & "','" & frm_XTWH_CZYSZ.Check9 & "','" & frm_XTWH_CZYSZ.Check10 & "','" & frm_XTWH_CZYSZ.Check11 & "','" & frm_XTWH_CZYSZ.Check12 & "','" & frm_XTWH_CZYSZ.Check13 & "','" & frm_XTWH_CZYSZ.Check14 & "','" & frm_XTWH_CZYSZ.Check15 & "','" & frm_XTWH_CZYSZ.Check16 & "')")
MsgBox "注册成功!!", 48, "人口信息管理系统"
Text4.Text = ""
Text2.Text = ""
Text3.Text = ""
Frame2(1).Visible = False
Me.Height = 5460
Unload Me
Else
MsgBox "两次输入的密码不一致,请您确认后重新输入", 48, "人口信息管理系统"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
End If
End If
Else
End If
adoCon.Close
End Sub
Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -