frm_zzrk_czfwgl.frm

人口信息管理系统 人口信息管理 查询 修改 删除

      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "frm_ZZRK_CZFWGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub ABOUT_Click()
frmAbout.Show
End Sub

Private Sub ADD_Click()                       '增加
  If SSTab1.Tab = 0 Then
        Adodc1.RecordSource = "select * from Table_ZZRK_CZFW order by 编号"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveLast
        frm_ZZRK_CZFWXXXX.Text1.Text = Adodc1.Recordset.Fields("编号")
        frm_ZZRK_CZFWXXXX.Text1.Text = Val(frm_ZZRK_CZFWXXXX.Text1.Text) + 1
        Else
        frm_ZZRK_CZFWXXXX.Text1.Text = 1000001
        End If
  frm_ZZRK_CZFWXXXX.Show
  ElseIf SSTab1.Tab = 2 Then
  DataGrid2.AllowAddNew = True
  Adodc2.Recordset.AddNew
  Adodc2.Refresh
  End If
End Sub

Private Sub ALL_Click()
DataEnvironment1.rsczfw.Open "select * from Table_ZZRK_CZRXX "
 If DataEnvironment1.rsczfw.RecordCount > 0 Then
DataRep_czfw.Show
 Else
   MsgBox "没有出租房信息", 32, "人口信息管理系统"
 DataEnvironment1.rsczfw.Close
 End If
End Sub

Private Sub CZYSZ_Click()
frm_XTWH_CZYSZ.Show
End Sub

Private Sub DataGrid1_DblClick()
frm_ZZRK_CZFWXXXX.Show
End Sub

Private Sub DataGrid2_Error(ByVal DataError As Integer, Response As Integer)
Response = 0
MsgBox "输入数据非法"
End Sub

Private Sub DataGrid3_Click()
Text4.Visible = False
Text5.Visible = True
DTPicker1.Visible = False
Text6.Visible = True
Text1.Text = Text7.Text
Text2.Text = Text8.Text
Text3.Text = Text9.Text
End Sub

Private Sub DEL_Click()                      '删除
If SSTab1.Tab = 0 Then
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Else
End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
ElseIf SSTab1.Tab = 1 Then
If Adodc3.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
 If c = vbOK Then
 Adodc3.Recordset.Delete
 Adodc3.Refresh
 Else
 End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
ElseIf SSTab1.Tab = 2 Then
If Adodc2.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc2.Recordset.Delete
Adodc2.Refresh
Else
End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
Else
End If
End Sub

Private Sub DYJSZ_Click()
CommonDialog1.ShowPrinter
End Sub

Private Sub EDIT1_Click()
If SSTab1.Tab = 0 Then
DataGrid1.AllowUpdate = True
DataGrid1.AllowUpdate = True
MsgBox "请直接修改数据表格中需要修改的记录信息"
Else
End If
End Sub

Private Sub EXIT_Click()
Unload Me
End Sub

Private Sub Form_Load()
SSTab1.Tab = 0
End Sub

Private Sub FWWMDWZ_Click()
Dim HyperJump
Dim w
w = "www.mrsoft.com"
HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub GHCZY_Click()
frm_XTDL.Show
End Sub

Private Sub GWMXX_Click()
Dim HyperJump
Dim w
w = "mailto:" + "[e-mail]"
HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub MAXG_Click()
frm_xgmm.Show
End Sub

Private Sub SAVE_Click()                '保存
If SSTab1.Tab = 1 Then
Call main
     If Text4.Text = "" Then
     MsgBox "当前数据库中没有出租房屋的信息"
     Else
          Adodc3.RecordSource = "select * from Table_ZZRK_SHCZFW where 编号='" + Text4.Text + "'"
          Adodc3.Refresh
          If Adodc3.Recordset.RecordCount > 0 Then
          MsgBox "此信息已经存在,不能够保存信息"
          Else
          Set adoRs = adoCon.Execute("insert into Table_ZZRK_SHCZFW values(" & Text4 & ",'" & DTPicker1 & "','" & Text1 & "','" & Text2 & "','" & Text3 & "')")
          MsgBox "数据保存成功!", 32, "人口信息管理系统"
          Adodc3.RecordSource = "select * from Table_ZZRK_SHCZFW order by 编号"
          Adodc3.Refresh
          End If
     End If
ElseIf SSTab1.Tab = 2 Then
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "没有可保存的记录", 32, "人口信息管理系统"
Else
Adodc2.Recordset.Update
MsgBox "数据保存成功", 32, "人口信息管理系统"
End If
End If
End Sub

Private Sub SJBF_Click()
frm_sjbfyhf.Show
frm_sjbfyhf.Caption = "数据备份"
frm_sjbfyhf.Command1.Visible = True
frm_sjbfyhf.Command4.Visible = False
frm_sjbfyhf.Frame1.Visible = True
frm_sjbfyhf.Frame2.Visible = False
frm_sjbfyhf.Picture1.Visible = True
frm_sjbfyhf.Picture2.Visible = False
End Sub

Private Sub SJHF_Click()
frm_sjbfyhf.Show
frm_sjbfyhf.Caption = "数据恢复"
frm_sjbfyhf.Command1.Visible = False
frm_sjbfyhf.Command4.Visible = True
frm_sjbfyhf.Frame1.Visible = False
frm_sjbfyhf.Frame2.Visible = True
frm_sjbfyhf.Picture1.Visible = False
frm_sjbfyhf.Picture2.Visible = True
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 1 Then
Text4.Visible = True
Text5.Visible = False
DTPicker1.Visible = True
Text6.Visible = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(6).Enabled = False
Toolbar1.Buttons(4).Enabled = True
ElseIf SSTab1.Tab = 2 Then
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(6).Enabled = False
Toolbar1.Buttons(4).Enabled = True
ElseIf SSTab1.Tab = 0 Then
Toolbar1.Buttons(3).Enabled = True
Toolbar1.Buttons(6).Enabled = True
Toolbar1.Buttons(4).Enabled = False
Else
End If
End Sub

Private Sub Text10_Change()

End Sub

Private Sub Text5_Change()
'Text4.Text = Text5.Text
End Sub

Private Sub Text6_Change()
'DTPicker1.Value = Text6.Text
End Sub

Private Sub Text7_Change()
Text1.Text = Text7.Text
End Sub

Private Sub Text8_Change()
Text2.Text = Text8.Text
End Sub

Private Sub Text9_Change()
Text3.Text = Text9.Text
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)        'Toolbar控件代码
Select Case Button.Index
Case 1
  If SSTab1.Tab = 0 Then
        Adodc1.RecordSource = "select * from Table_ZZRK_CZFW order by 编号"
        Adodc1.Refresh
        Text1.Text = ""
        Text1.SetFocus
        Text2.Text = ""
        Text3.Text = ""
        If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveLast
        frm_ZZRK_CZFWXXXX.Text1.Text = Adodc1.Recordset.Fields("编号")
        frm_ZZRK_CZFWXXXX.Text1.Text = Val(frm_ZZRK_CZFWXXXX.Text1.Text) + 1
        Else
        frm_ZZRK_CZFWXXXX.Text1.Text = 1000001
        End If
  frm_ZZRK_CZFWXXXX.Show
  ElseIf SSTab1.Tab = 1 Then
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Text1.SetFocus
  End If
Case 2
If SSTab1.Tab = 0 Then
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Else
End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
ElseIf SSTab1.Tab = 1 Then
If Adodc3.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
 If c = vbOK Then
 Adodc3.Recordset.Delete
 Adodc3.Refresh
 Else
 End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
ElseIf SSTab1.Tab = 2 Then
If Adodc2.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc2.Recordset.Delete
Adodc2.Refresh
Else
End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
Else
End If
Case 3
If SSTab1.Tab = 0 Then
DataGrid1.AllowUpdate = True
DataGrid1.AllowUpdate = True
MsgBox "请直接修改数据表格中需要修改的记录信息"
Else
End If
Case 4                                      '保存
Call main
If SSTab1.Tab = 1 Then
     If Text4.Text = "" Then
     MsgBox "当前数据库中没有出租房屋的信息"
     Else
'          Adodc3.RecordSource = "select * from Table_ZZRK_SHCZFW where 编号='" + Text4.Text + "'"
''          Adodc3.Refresh
'          If Adodc3.Recordset.RecordCount > 0 Then
'          MsgBox "此信息已经存在,不能够保存信息"
'          Else
          Set adoRs = adoCon.Execute("insert into Table_ZZRK_SHCZFW values(" & Text4 & ",'" & DTPicker1 & "','" & Text1 & "','" & Text2 & "','" & Text3 & "')")
          MsgBox "数据保存成功!", 32, "人口信息管理系统"
          Adodc3.RecordSource = "select * from Table_ZZRK_SHCZFW order by 编号"
          Adodc3.Refresh
'          End If
     End If
ElseIf SSTab1.Tab = 2 Then
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "没有可保存的记录", 32, "人口信息管理系统"
Else
Adodc2.Recordset.Update
MsgBox "数据保存成功", 32, "人口信息管理系统"
End If
End If
adoCon.Close
Case 5
  Adodc1.RecordSource = "select * from Table_ZZRK_CZFW order by 编号"
  Adodc1.Refresh
  Adodc2.RecordSource = "select * from Table_ZZRK_CZRXX order by 编号"
  Adodc2.Refresh
  Adodc3.RecordSource = "select * from Table_ZZRK_SHCZFW order by 编号"
  Adodc3.Refresh
'Case 6
'DataEnvironment1.rsczfw.Open "select * from Table_ZZRK_CZRXX "
' If DataEnvironment1.rsczfw.RecordCount > 0 Then
'DataRep_czfw.Show
' Else
'   MsgBox "没有出租房信息", 32, "人口信息管理系统"
' DataEnvironment1.rsczfw.Close
' End If
Case 6
Unload Me
End Select
End Sub