frm_sqjz_dbry.frm

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

         Top             =   720
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   529
         _Version        =   393216
         Format          =   19791873
         CurrentDate     =   38157
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "frm_SQJZ_DBRY.frx":00AE
         Left            =   6120
         List            =   "frm_SQJZ_DBRY.frx":00B8
         TabIndex        =   7
         Text            =   "男"
         Top             =   240
         Width           =   735
      End
      Begin VB.TextBox Text2 
         Height          =   300
         Left            =   3720
         TabIndex        =   5
         Top             =   240
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Height          =   300
         Left            =   1080
         TabIndex        =   3
         Top             =   240
         Width           =   1630
      End
      Begin VB.Label Label14 
         Caption         =   "住   址"
         Height          =   255
         Left            =   2880
         TabIndex        =   29
         Top             =   2280
         Width           =   735
      End
      Begin VB.Label Label13 
         Caption         =   "家庭电话"
         Height          =   255
         Left            =   240
         TabIndex        =   27
         Top             =   2280
         Width           =   855
      End
      Begin VB.Label Label12 
         Caption         =   "家庭总收入"
         Height          =   375
         Left            =   5280
         TabIndex        =   25
         Top             =   1680
         Width           =   855
      End
      Begin VB.Label Label11 
         Caption         =   "住所类型"
         Height          =   255
         Left            =   2880
         TabIndex        =   23
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label10 
         Caption         =   "经济状况"
         Height          =   255
         Left            =   240
         TabIndex        =   21
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label9 
         Caption         =   "家庭人数"
         Height          =   375
         Left            =   5280
         TabIndex        =   19
         Top             =   1320
         Width           =   855
      End
      Begin VB.Label Label8 
         Caption         =   "户   号"
         Height          =   375
         Left            =   2880
         TabIndex        =   17
         Top             =   1320
         Width           =   855
      End
      Begin VB.Label Label7 
         Caption         =   "楼   号"
         Height          =   375
         Left            =   240
         TabIndex        =   15
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label6 
         Caption         =   "婚姻状况"
         Height          =   375
         Left            =   5280
         TabIndex        =   12
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label5 
         Caption         =   "文化程度"
         Height          =   255
         Left            =   2880
         TabIndex        =   11
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "出生日期"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "性   别"
         Height          =   255
         Left            =   5280
         TabIndex        =   6
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "身份证号"
         Height          =   255
         Left            =   2880
         TabIndex        =   4
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "姓   名"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   360
         Width           =   855
      End
   End
End
Attribute VB_Name = "frm_SQJZ_DBRY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_add_Click()
Call main
If Text12.Text = "" Then
MsgBox "输入不能为空"
Else
frm_CZRK_HKB.Adodc1.RecordSource = "select * from Table_HKB where 姓名='" + Text1.Text + "'"
frm_CZRK_HKB.Adodc1.Refresh
If frm_CZRK_HKB.Adodc1.Recordset.RecordCount > 0 Then
 frm_SQJZ_ZB.Adodc1.RecordSource = "select * from Table_SQJZ_DBRY where 低保证号='" + Text12.Text + "'"
 frm_SQJZ_ZB.Adodc1.Refresh
 If frm_SQJZ_ZB.Adodc1.Recordset.RecordCount > 0 Then
MsgBox "此人的信息已经存在,输入不能继续", 48, "提示"
Else
Text13.Text = frm_CZRK_HKB.Adodc1.Recordset.Fields("人口编号")
Set adoRs = adoCon.Execute("insert into Table_SQJZ_DBRY values(" & Text12 & ",'" & Text13 & "','" & Text1 & "','" & Text2 & "','" & Combo1 & "','" & DTPicker1 & "','" & Text3 & "','" & Combo2 & "','" & Combo3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "','" & Text7 & "','" & Text8 & "','" & Text9 & "','" & Text10 & "','" & Text11 & "','" & Text15 & "','" & Text16 & "','" & DTPicker2 & "','" & DTPicker3 & "','" & Text14 & "')")
MsgBox "数据保存成功!", 32, "人口信息管理系统"
Unload Me
frm_SQJZ_ZB.Adodc1.Refresh
End If
Else
MsgBox "数据库中没有此人的信息", 48, "提示"
End If
End If
adoCon.Close
End Sub

Private Sub Cmd_cancel_Click()
Unload Me
End Sub

Private Sub Cmd_select_Click()
frm_SQJZ_ryxz.Show
End Sub

Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
DTPicker3.SetFocus
Else
End If
End Sub

Private Sub DTPicker3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text14.SetFocus
Else
End If
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Dim StrInput, Temp As String
  Dim i, Length As Integer
  i = 1
  StrInput = Text12.Text
  Length = Len(StrInput)
         If Text12.Text = "" Then
         MsgBox "输入不能为空", , "提示"
         Text12.SetFocus
         Else
            Do While (i <= Length)
            Temp = Mid$(StrInput, i, 1)
                If Asc(Temp) < 48 Or Asc(Temp) > 57 Then
                    If i = 1 Then
                    MsgBox "输入数据非法!!", , "提示"
                    Else
                    End If
                Text12.Text = ""
                Text12.SetFocus
                Else
                End If
           i = i + 1
           Loop
          If Text12.Text = "" Then
          Text12.SetFocus
          Else
         Text15.SetFocus
          End If
      End If
Else
End If
End Sub

Private Sub Text15_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text16.SetFocus
Else
End If
End Sub

Private Sub Text16_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
DTPicker2.SetFocus
Else
End If
End Sub