End
Attribute VB_Name = "frm_SQJZ_ryxz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from View_ryxz where 人口編號='" + Text1.Text + "' "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
  If frm_SQJZ_ZB.Label1.Caption = "優(yōu)撫人員" Then
  frm_SQJZ_YFRY.Text15 = Text1.Text
  frm_SQJZ_YFRY.Text1 = Text2.Text
  frm_SQJZ_YFRY.Text2 = Text3.Text
  frm_SQJZ_YFRY.Combo1 = Text4.Text
  frm_SQJZ_YFRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_YFRY.Text3 = Text6.Text
  frm_SQJZ_YFRY.Combo2 = Text7.Text
  frm_SQJZ_YFRY.Combo3 = Text8.Text
  frm_SQJZ_YFRY.Text4 = Text9.Text
  frm_SQJZ_YFRY.Text5 = Text10.Text
  frm_SQJZ_YFRY.Text6 = Text11.Text
  frm_SQJZ_YFRY.Text7 = Text12.Text
  frm_SQJZ_YFRY.Text8 = Text13.Text
  frm_SQJZ_YFRY.Text9 = Text14.Text
  frm_SQJZ_YFRY.Text10 = Text15.Text
  frm_SQJZ_YFRY.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_YFRY.Text12.SetFocus
  ElseIf frm_SQJZ_ZB.Label1.Caption = "老年人" Then
  frm_SQJZ_OLD.Text19 = Text1.Text
  frm_SQJZ_OLD.Text1 = Text2.Text
  frm_SQJZ_OLD.Text2 = Text3.Text
  frm_SQJZ_OLD.Combo1 = Text4.Text
  frm_SQJZ_OLD.DTPicker1.Value = Text5.Text
  frm_SQJZ_OLD.Text3 = Text6.Text
  frm_SQJZ_OLD.Combo2 = Text7.Text
  frm_SQJZ_OLD.Combo3 = Text8.Text
  frm_SQJZ_OLD.Text4 = Text9.Text
  frm_SQJZ_OLD.Text5 = Text10.Text
  frm_SQJZ_OLD.Text6 = Text11.Text
  frm_SQJZ_OLD.Text7 = Text12.Text
  frm_SQJZ_OLD.Text8 = Text13.Text
  frm_SQJZ_OLD.Text9 = Text14.Text
  frm_SQJZ_OLD.Text10 = Text15.Text
  frm_SQJZ_OLD.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_OLD.DTPicker2.SetFocus
  ElseIf frm_SQJZ_ZB.Label1.Caption = "兩勞人員" Then
'  frm_SQJZ_LLRY.Text15 = Text1.Text
  frm_SQJZ_LLRY.Text1 = Text2.Text
  frm_SQJZ_LLRY.Text2 = Text3.Text
  frm_SQJZ_LLRY.Combo1 = Text4.Text
  frm_SQJZ_LLRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_LLRY.Text3 = Text6.Text
  frm_SQJZ_LLRY.Combo2 = Text7.Text
  frm_SQJZ_LLRY.Combo3 = Text8.Text
  frm_SQJZ_LLRY.Text4 = Text9.Text
  frm_SQJZ_LLRY.Text5 = Text10.Text
  frm_SQJZ_LLRY.Text6 = Text11.Text
  frm_SQJZ_LLRY.Text7 = Text12.Text
  frm_SQJZ_LLRY.Text8 = Text13.Text
  frm_SQJZ_LLRY.Text9 = Text14.Text
  frm_SQJZ_LLRY.Text10 = Text15.Text
  frm_SQJZ_LLRY.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_LLRY.DTPicker2.SetFocus
  ElseIf frm_SQJZ_ZB.Label1.Caption = "工作對象" Then
  frm_SQJZ_GZDX.Text13 = Text1.Text
  frm_SQJZ_GZDX.Text1 = Text2.Text
  frm_SQJZ_GZDX.Text2 = Text3.Text
  frm_SQJZ_GZDX.Combo1 = Text4.Text
  frm_SQJZ_GZDX.DTPicker1.Value = Text5.Text
  frm_SQJZ_GZDX.Text3 = Text6.Text
  frm_SQJZ_GZDX.Combo2 = Text7.Text
  frm_SQJZ_GZDX.Combo3 = Text8.Text
  frm_SQJZ_GZDX.Text4 = Text9.Text
  frm_SQJZ_GZDX.Text5 = Text10.Text
  frm_SQJZ_GZDX.Text6 = Text11.Text
  frm_SQJZ_GZDX.Text7 = Text12.Text
  frm_SQJZ_GZDX.Text8 = Text13.Text
  frm_SQJZ_GZDX.Text9 = Text14.Text
  frm_SQJZ_GZDX.Text10 = Text15.Text
  frm_SQJZ_GZDX.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_GZDX.Combo4.SetFocus
  ElseIf frm_SQJZ_ZB.Label1.Caption = "低保人員" Then
  frm_SQJZ_DBRY.Text13 = Text1.Text
  frm_SQJZ_DBRY.Text1 = Text2.Text
  frm_SQJZ_DBRY.Text2 = Text3.Text
  frm_SQJZ_DBRY.Combo1 = Text4.Text
  frm_SQJZ_DBRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_DBRY.Text3 = Text6.Text
  frm_SQJZ_DBRY.Combo2 = Text7.Text
  frm_SQJZ_DBRY.Combo3 = Text8.Text
  frm_SQJZ_DBRY.Text4 = Text9.Text
  frm_SQJZ_DBRY.Text5 = Text10.Text
  frm_SQJZ_DBRY.Text6 = Text11.Text
  frm_SQJZ_DBRY.Text7 = Text12.Text
  frm_SQJZ_DBRY.Text8 = Text13.Text
  frm_SQJZ_DBRY.Text9 = Text14.Text
  frm_SQJZ_DBRY.Text10 = Text15.Text
  frm_SQJZ_DBRY.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_DBRY.Text12.SetFocus
  ElseIf frm_SQJZ_ZB.Label1.Caption = "殘疾人" Then
  frm_SQJZ_CJRY.Text16 = Text1.Text
  frm_SQJZ_CJRY.Text1 = Text2.Text
  frm_SQJZ_CJRY.Text2 = Text3.Text
  frm_SQJZ_CJRY.Combo1 = Text4.Text
  frm_SQJZ_CJRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_CJRY.Text3 = Text6.Text
  frm_SQJZ_CJRY.Combo2 = Text7.Text
  frm_SQJZ_CJRY.Combo3 = Text8.Text
  frm_SQJZ_CJRY.Text4 = Text9.Text
  frm_SQJZ_CJRY.Text5 = Text10.Text
  frm_SQJZ_CJRY.Text6 = Text11.Text
  frm_SQJZ_CJRY.Text7 = Text12.Text
  frm_SQJZ_CJRY.Text8 = Text13.Text
  frm_SQJZ_CJRY.Text9 = Text14.Text
  frm_SQJZ_CJRY.Text10 = Text15.Text
  frm_SQJZ_CJRY.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_CJRY.Text12.SetFocus
    ElseIf frm_SQJZ_ZB.Label1.Caption = "失業(yè)人員" Then
  frm_SQJZ_SYRY.Text18 = Text1.Text
  frm_SQJZ_SYRY.Text1 = Text2.Text
  frm_SQJZ_SYRY.Text2 = Text3.Text
  frm_SQJZ_SYRY.Combo1 = Text4.Text
  frm_SQJZ_SYRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_SYRY.Text3 = Text6.Text
  frm_SQJZ_SYRY.Combo2 = Text7.Text
  frm_SQJZ_SYRY.Combo3 = Text8.Text
  frm_SQJZ_SYRY.Text4 = Text9.Text
  frm_SQJZ_SYRY.Text5 = Text10.Text
  frm_SQJZ_SYRY.Text6 = Text11.Text
  frm_SQJZ_SYRY.Text7 = Text12.Text
  frm_SQJZ_SYRY.Text8 = Text13.Text
  frm_SQJZ_SYRY.Text9 = Text14.Text
  frm_SQJZ_SYRY.Text10 = Text15.Text
  frm_SQJZ_SYRY.Text11 = Text16.Text
  Unload Me
  frm_SQJZ_SYRY.DTPicker2.SetFocus
  Else
  End If
Else
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Adodc1.RecordSource = "select * from View_ryxz where 人口編號='" + Text1.Text + "' "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
  If frm_SQJZ_ZB.Label1.Caption = "優(yōu)撫人員" Then
  frm_SQJZ_YFRY.Text15 = Text1.Text
  frm_SQJZ_YFRY.Text1 = Text2.Text
  frm_SQJZ_YFRY.Text2 = Text3.Text
  frm_SQJZ_YFRY.Combo1 = Text4.Text
  frm_SQJZ_YFRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_YFRY.Text3 = Text6.Text
  frm_SQJZ_YFRY.Combo2 = Text7.Text
  frm_SQJZ_YFRY.Combo3 = Text8.Text
  frm_SQJZ_YFRY.Text4 = Text9.Text
  frm_SQJZ_YFRY.Text5 = Text10.Text
  frm_SQJZ_YFRY.Text6 = Text11.Text
  frm_SQJZ_YFRY.Text7 = Text12.Text
  frm_SQJZ_YFRY.Text8 = Text13.Text
  frm_SQJZ_YFRY.Text9 = Text14.Text
  frm_SQJZ_YFRY.Text10 = Text15.Text
  frm_SQJZ_YFRY.Text11 = Text16.Text
  frm_SQJZ_YFRY.Text12.SetFocus
  Unload Me
  ElseIf frm_SQJZ_ZB.Label1.Caption = "老年人" Then
  frm_SQJZ_OLD.Text19 = Text1.Text
  frm_SQJZ_OLD.Text1 = Text2.Text
  frm_SQJZ_OLD.Text2 = Text3.Text
  frm_SQJZ_OLD.Combo1 = Text4.Text
  frm_SQJZ_OLD.DTPicker1.Value = Text5.Text
  frm_SQJZ_OLD.Text3 = Text6.Text
  frm_SQJZ_OLD.Combo2 = Text7.Text
  frm_SQJZ_OLD.Combo3 = Text8.Text
  frm_SQJZ_OLD.Text4 = Text9.Text
  frm_SQJZ_OLD.Text5 = Text10.Text
  frm_SQJZ_OLD.Text6 = Text11.Text
  frm_SQJZ_OLD.Text7 = Text12.Text
  frm_SQJZ_OLD.Text8 = Text13.Text
  frm_SQJZ_OLD.Text9 = Text14.Text
  frm_SQJZ_OLD.Text10 = Text15.Text
  frm_SQJZ_OLD.Text11 = Text16.Text
  frm_SQJZ_OLD.DTPicker2.SetFocus
  Unload Me
  ElseIf frm_SQJZ_ZB.Label1.Caption = "兩勞人員" Then
'  frm_SQJZ_LLRY.Text15 = Text1.Text
  frm_SQJZ_LLRY.Text1 = Text2.Text
  frm_SQJZ_LLRY.Text2 = Text3.Text
  frm_SQJZ_LLRY.Combo1 = Text4.Text
  frm_SQJZ_LLRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_LLRY.Text3 = Text6.Text
  frm_SQJZ_LLRY.Combo2 = Text7.Text
  frm_SQJZ_LLRY.Combo3 = Text8.Text
  frm_SQJZ_LLRY.Text4 = Text9.Text
  frm_SQJZ_LLRY.Text5 = Text10.Text
  frm_SQJZ_LLRY.Text6 = Text11.Text
  frm_SQJZ_LLRY.Text7 = Text12.Text
  frm_SQJZ_LLRY.Text8 = Text13.Text
  frm_SQJZ_LLRY.Text9 = Text14.Text
  frm_SQJZ_LLRY.Text10 = Text15.Text
  frm_SQJZ_LLRY.Text11 = Text16.Text
  frm_SQJZ_LLRY.DTPicker2.SetFocus
  Unload Me
  ElseIf frm_SQJZ_ZB.Label1.Caption = "工作對象" Then
  frm_SQJZ_GZDX.Text13 = Text1.Text
  frm_SQJZ_GZDX.Text1 = Text2.Text
  frm_SQJZ_GZDX.Text2 = Text3.Text
  frm_SQJZ_GZDX.Combo1 = Text4.Text
  frm_SQJZ_GZDX.DTPicker1.Value = Text5.Text
  frm_SQJZ_GZDX.Text3 = Text6.Text
  frm_SQJZ_GZDX.Combo2 = Text7.Text
  frm_SQJZ_GZDX.Combo3 = Text8.Text
  frm_SQJZ_GZDX.Text4 = Text9.Text
  frm_SQJZ_GZDX.Text5 = Text10.Text
  frm_SQJZ_GZDX.Text6 = Text11.Text
  frm_SQJZ_GZDX.Text7 = Text12.Text
  frm_SQJZ_GZDX.Text8 = Text13.Text
  frm_SQJZ_GZDX.Text9 = Text14.Text
  frm_SQJZ_GZDX.Text10 = Text15.Text
  frm_SQJZ_GZDX.Text11 = Text16.Text
  frm_SQJZ_GZDX.Combo4.SetFocus
  Unload Me
  ElseIf frm_SQJZ_ZB.Label1.Caption = "低保人員" Then
  frm_SQJZ_DBRY.Text13 = Text1.Text
  frm_SQJZ_DBRY.Text1 = Text2.Text
  frm_SQJZ_DBRY.Text2 = Text3.Text
  frm_SQJZ_DBRY.Combo1 = Text4.Text
  frm_SQJZ_DBRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_DBRY.Text3 = Text6.Text
  frm_SQJZ_DBRY.Combo2 = Text7.Text
  frm_SQJZ_DBRY.Combo3 = Text8.Text
  frm_SQJZ_DBRY.Text4 = Text9.Text
  frm_SQJZ_DBRY.Text5 = Text10.Text
  frm_SQJZ_DBRY.Text6 = Text11.Text
  frm_SQJZ_DBRY.Text7 = Text12.Text
  frm_SQJZ_DBRY.Text8 = Text13.Text
  frm_SQJZ_DBRY.Text9 = Text14.Text
  frm_SQJZ_DBRY.Text10 = Text15.Text
  frm_SQJZ_DBRY.Text11 = Text16.Text
  frm_SQJZ_DBRY.Text12.SetFocus
  Unload Me
  ElseIf frm_SQJZ_ZB.Label1.Caption = "殘疾人" Then
  frm_SQJZ_CJRY.Text16 = Text1.Text
  frm_SQJZ_CJRY.Text1 = Text2.Text
  frm_SQJZ_CJRY.Text2 = Text3.Text
  frm_SQJZ_CJRY.Combo1 = Text4.Text
  frm_SQJZ_CJRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_CJRY.Text3 = Text6.Text
  frm_SQJZ_CJRY.Combo2 = Text7.Text
  frm_SQJZ_CJRY.Combo3 = Text8.Text
  frm_SQJZ_CJRY.Text4 = Text9.Text
  frm_SQJZ_CJRY.Text5 = Text10.Text
  frm_SQJZ_CJRY.Text6 = Text11.Text
  frm_SQJZ_CJRY.Text7 = Text12.Text
  frm_SQJZ_CJRY.Text8 = Text13.Text
  frm_SQJZ_CJRY.Text9 = Text14.Text
  frm_SQJZ_CJRY.Text10 = Text15.Text
  frm_SQJZ_CJRY.Text11 = Text16.Text
  frm_SQJZ_CJRY.Text12.SetFocus
  Unload Me
    ElseIf frm_SQJZ_ZB.Label1.Caption = "失業(yè)人員" Then
  frm_SQJZ_SYRY.Text18 = Text1.Text
  frm_SQJZ_SYRY.Text1 = Text2.Text
  frm_SQJZ_SYRY.Text2 = Text3.Text
  frm_SQJZ_SYRY.Combo1 = Text4.Text
  frm_SQJZ_SYRY.DTPicker1.Value = Text5.Text
  frm_SQJZ_SYRY.Text3 = Text6.Text
  frm_SQJZ_SYRY.Combo2 = Text7.Text
  frm_SQJZ_SYRY.Combo3 = Text8.Text
  frm_SQJZ_SYRY.Text4 = Text9.Text
  frm_SQJZ_SYRY.Text5 = Text10.Text
  frm_SQJZ_SYRY.Text6 = Text11.Text
  frm_SQJZ_SYRY.Text7 = Text12.Text
  frm_SQJZ_SYRY.Text8 = Text13.Text
  frm_SQJZ_SYRY.Text9 = Text14.Text
  frm_SQJZ_SYRY.Text10 = Text15.Text
  frm_SQJZ_SYRY.Text11 = Text16.Text
  frm_SQJZ_SYRY.DTPicker2.SetFocus
  Unload Me
  Else
  End If
  Else
  End If
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