frm_sqjz_llry.frm

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

         Left            =   5280
         TabIndex        =   29
         Top             =   1320
         Width           =   855
      End
      Begin VB.Label Label10 
         Caption         =   "经济状况"
         Height          =   255
         Left            =   240
         TabIndex        =   28
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label11 
         Caption         =   "住所类型"
         Height          =   255
         Left            =   2880
         TabIndex        =   27
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label12 
         Caption         =   "月 收 入"
         Height          =   255
         Left            =   5280
         TabIndex        =   26
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label13 
         Caption         =   "家庭电话"
         Height          =   255
         Left            =   240
         TabIndex        =   25
         Top             =   2280
         Width           =   855
      End
      Begin VB.Label Label14 
         Caption         =   "住   址"
         Height          =   255
         Left            =   2880
         TabIndex        =   24
         Top             =   2280
         Width           =   735
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "两劳对象"
      Height          =   2450
      Left            =   120
      TabIndex        =   0
      Top             =   2760
      Width           =   7095
      Begin MSComCtl2.DTPicker DTPicker3 
         Height          =   300
         Left            =   1080
         TabIndex        =   47
         Top             =   1200
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   529
         _Version        =   393216
         Format          =   48627713
         CurrentDate     =   38157
      End
      Begin VB.TextBox Text17 
         Height          =   300
         Left            =   3720
         TabIndex        =   46
         Top             =   1200
         Width           =   3135
      End
      Begin VB.TextBox Text16 
         Height          =   300
         Left            =   3720
         TabIndex        =   45
         Top             =   720
         Width           =   3135
      End
      Begin VB.TextBox Text15 
         Height          =   300
         Left            =   1080
         TabIndex        =   44
         Top             =   720
         Width           =   1575
      End
      Begin VB.TextBox Text12 
         Height          =   300
         Left            =   3720
         TabIndex        =   42
         Top             =   240
         Width           =   3135
      End
      Begin MSComCtl2.DTPicker DTPicker2 
         Height          =   300
         Left            =   1080
         TabIndex        =   41
         Top             =   240
         Width           =   1630
         _ExtentX        =   2884
         _ExtentY        =   529
         _Version        =   393216
         Format          =   48627713
         CurrentDate     =   38157
      End
      Begin VB.TextBox Text14 
         Height          =   615
         Left            =   1080
         TabIndex        =   1
         Top             =   1680
         Width           =   5775
      End
      Begin VB.Label Label17 
         Caption         =   "刑期"
         Height          =   255
         Left            =   240
         TabIndex        =   43
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label Label15 
         Caption         =   "出狱日期"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label16 
         Caption         =   "劳改（教）场所"
         Height          =   375
         Left            =   2880
         TabIndex        =   6
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label18 
         Caption         =   "案由"
         Height          =   375
         Left            =   2880
         TabIndex        =   5
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label Label20 
         Caption         =   "安置日期"
         Height          =   255
         Left            =   240
         TabIndex        =   4
         Top             =   1320
         Width           =   735
      End
      Begin VB.Label Label21 
         Caption         =   "未安置原因"
         Height          =   375
         Left            =   2760
         TabIndex        =   3
         Top             =   1320
         Width           =   1215
      End
      Begin VB.Label Label22 
         Caption         =   "备   注"
         Height          =   375
         Left            =   240
         TabIndex        =   2
         Top             =   1800
         Width           =   735
      End
   End
End
Attribute VB_Name = "frm_SQJZ_LLRY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_add_Click()
Call main
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_LLRY where 姓名='" + Text1.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_LLRY values(" & Text18 & ",'" & Text13 & "','" & Text1 & "','" & Text2 & "','" & Combo1 & "','" & DTPicker1 & "','" & Text3 & "','" & Combo2 & "','" & Combo3 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "','" & Text7 & "','" & Text8 & "','" & Text9 & "','" & Text10 & "','" & Text11 & "','" & DTPicker2 & "','" & Text12 & "','" & Text15 & "','" & Text16 & "','" & DTPicker3 & "','" & Text17 & "','" & Text14 & "')")
MsgBox "数据保存成功!", 32, "人口信息管理系统"
Unload Me
frm_SQJZ_ZB.Adodc1.Refresh
End If
Else
MsgBox "数据库中没有此人的信息", 48, "提示"
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
Text12.SetFocus
Else
End If
End Sub

Private Sub DTPicker3_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text17.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
Text15.SetFocus
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
DTPicker3.SetFocus
Else
End If
End Sub

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