frm_czrk_edit.frm

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

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

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

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

Private Sub Form_Load()
DTPicker5.Enabled = False
Text35.Enabled = False
DTPicker6.Enabled = False
Text36.Enabled = False
DTPicker7.Value = Format(Now, "yyyy-mm-dd")
DTPicker8.Value = Date
End Sub

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

Private Sub Text1_LostFocus()
Text14.Text = Text1.Text
End Sub

Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Dim StrInput, Temp As String
  Dim i, Length As Integer
  i = 1
  StrInput = Text10.Text
  Length = Len(StrInput)
         If Text10.Text = "" Then
         MsgBox "输入不能为空", , "提示"
         Text10.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
                Text10.Text = ""
                Text10.SetFocus
                Else
                End If
           i = i + 1
           Loop
          If Text10.Text = "" Then
          Text10.SetFocus
          Else
         Combo2.SetFocus
          End If
      End If
Else
End If
End Sub

Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text16.SetFocus
Combo4.Text = Combo1.Text
Text12.Text = Text3.Text
Text14.Text = Text1.Text
Text15.Text = Text4.Text
Else
End If
End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Private Sub Text3_LostFocus()
Text12.Text = Text3.Text
End Sub

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

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


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

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

Private Sub Text4_LostFocus()
Text15.Text = Text4.Text
End Sub

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

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

Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Dim StrInput, Temp As String
  Dim i, Length As Integer
  i = 1
  StrInput = Text7.Text
  Length = Len(StrInput)
         If Text7.Text = "" Then
         MsgBox "输入不能为空", , "提示"
         Text7.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
                Text7.Text = ""
                Text7.SetFocus
                Else
                End If
           i = i + 1
           Loop
          If Text7.Text = "" Then
          Text7.SetFocus
          Else
         Text8.SetFocus
          End If
      End If
Else
End If
End Sub

Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Dim StrInput, Temp As String
  Dim i, Length As Integer
  i = 1
  StrInput = Text8.Text
  Length = Len(StrInput)
         If Text8.Text = "" Then
         MsgBox "输入不能为空", , "提示"
         Text8.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
                Text8.Text = ""
                Text8.SetFocus
                Else
                End If
           i = i + 1
           Loop
          If Text8.Text = "" Then
          Text8.SetFocus
          Else
         Text9.SetFocus
          End If
      End If
Else
End If
End Sub

Private Sub Text8_LostFocus()
Text9.Text = Val(Text7.Text) + Val(Text8.Text)
End Sub

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

Private Sub Timer1_Timer()
txt_temp2.Text = Format(Now, "yyyymm")
End Sub

Private Sub txt_sfzhm_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Dim StrInput, Temp As String
  StrInput = txt_sfzhm.Text
  Length = Len(StrInput)
         If txt_sfzhm.Text = "" Then
              MsgBox "输入不能为空", 48, "提示"
              txt_sfzhm.SetFocus
         ElseIf Not IsNumeric(txt_sfzhm.Text) Then
              txt_sfzhm.Text = ""
              txt_sfzhm.SetFocus
         Else
            If Length = 15 Then
                 Dim temp1, temp2
                 Dim s, i, j As Integer
                 Dim x, y
                 x = Array(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1)
                 y = Array("1", "0", "x", "9", "8", "7", "6", "5", "4", "3", "2")
                         temp1 = Mid(txt_sfzhm.Text, 1, 6)
                         temp1 = temp1 + "19"
                         temp2 = Mid(txt_sfzhm.Text, 7, 15)
                         temp1 = temp1 + temp2
                         s = 0
                             For i = 0 To 16
                               j = Val(Mid(temp1, i + 1, 1)) * x(i)
                               s = s + j
                             Next i
                         s = s Mod 11
                        txt_sfzhm.Text = temp1 + Trim(y(s))
                       Temp = Mid$(txt_sfzhm.Text, 7, 4)
                 txt_temp1.Text = Temp
                 Temp = Mid$(txt_sfzhm.Text, 11, 2)
                        If Val(Temp) > 12 Or Val(Temp) < 0 Then
                             MsgBox "您输入的身份证号非法"
                             txt_sfzhm.Text = ""
                             txt_sfzhm.SetFocus
                        Else
                             txt_temp1.Text = txt_temp1.Text + "-" + Temp
                             Temp = Mid$(txt_sfzhm, 13, 2)
                             txt_temp1.Text = txt_temp1.Text + "-" + Temp
                             DTPicker2.Value = txt_temp1.Text
                             Text20.Text = DateDiff("yyyy", DTPicker2.Value, DTPicker7.Value)
                        End If
               ElseIf Len(txt_sfzhm.Text) = 18 Then
                 Temp = Mid$(txt_sfzhm.Text, 7, 4)
                 txt_temp1.Text = Temp
                 Temp = Mid$(txt_sfzhm.Text, 11, 2)
                        If Val(Temp) > 12 Or Val(Temp) < 0 Then
                             MsgBox "您输入的身份证号非法"
                             txt_sfzhm.Text = ""
                             txt_sfzhm.SetFocus
                        Else
                             txt_temp1.Text = txt_temp1.Text + "-" + Temp
                             Temp = Mid$(txt_sfzhm, 13, 2)
                             txt_temp1.Text = txt_temp1.Text + "-" + Temp
                             DTPicker2.Value = txt_temp1.Text
                             Text20.Text = DateDiff("yyyy", DTPicker2.Value, DTPicker7.Value)
                        End If
               Else
                       MsgBox "您输入的身份证号的位数非法!", 48, "提示"
                       txt_sfzhm.Text = ""
                       txt_sfzhm.SetFocus
               End If
          End If
Else
End If
End Sub

Private Sub txt_temp2_Change()
'Text2.Text = txt_temp2.Text + "001"
End Sub