📄 frm_sqjz_ryxz.frm

📁 基于VB开发的一个连接数据库的人口管理系统其中包括程序设计报告使用说明等源码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
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 = "优抚人员" 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 = "失业人员" 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 = "优抚人员" 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 = "失业人员" 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
上一页 1 23
💿 文件大小 887 K
👤 上传用户 ABC258369000
📂 所属分类企业管理
🏷️ 相关标签

#连接 #数据库 #报告 #使用说明
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -