📄 frm_jhsy_temp1.frm

📁 人口信息管理系统人口信息管理查询修改删除
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      BeginProperty Column10 
         DataField       =   "文化程度"
         Caption         =   "文化程度"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column11 
         DataField       =   "婚姻状况"
         Caption         =   "婚姻状况"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column12 
         DataField       =   "职业"
         Caption         =   "职业"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column13 
         DataField       =   "户籍状况"
         Caption         =   "户籍状况"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column14 
         DataField       =   "人口编号"
         Caption         =   "人口编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column15 
         DataField       =   "户主姓名"
         Caption         =   "户主姓名"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column16 
         DataField       =   "户口簿号"
         Caption         =   "户口簿号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column12 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column13 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column14 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column15 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column16 
            ColumnWidth     =   2085.166
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   375
      Left            =   240
      TabIndex        =   5
      Top             =   3600
      Width           =   735
   End
End
Attribute VB_Name = "frm_JHSY_TEMP1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Label1.Caption = 1 Then
   Adodc1.RecordSource = "select * from View_jhsyxz where 人口编号='" + Text1.Text + "'"
       If Adodc1.Recordset.RecordCount > 0 Then
            If Trim(Text2.Text) = "男" Then
            MsgBox "对不起,您选择的育妇人员为男性,育妇不能为男性,请您重新选择!", 32, "人口信息管理系统"
            frm_JHSY_ADD.Text1.SetFocus
            Else
            frm_JHSY_ADD.Text1.Text = Adodc1.Recordset.Fields("姓名")
            frm_JHSY_ADD.DTPicker1.Value = Adodc1.Recordset.Fields("出生日期")
            frm_JHSY_ADD.Text3.Text = Adodc1.Recordset.Fields("年龄")
            frm_JHSY_ADD.Text2.Text = Adodc1.Recordset.Fields("身份证号")
            frm_JHSY_ADD.Text4.Text = Adodc1.Recordset.Fields("户口类型")
            frm_JHSY_ADD.Text6.Text = Adodc1.Recordset.Fields("户口簿号")
            frm_JHSY_ADD.Text7.Text = Adodc1.Recordset.Fields("户主姓名")
            frm_JHSY_ADD.Text8.Text = Adodc1.Recordset.Fields("与户主关系")
            frm_JHSY_ADD.Text9.Text = Adodc1.Recordset.Fields("联系电话2")
            frm_JHSY_ADD.Text10.Text = Adodc1.Recordset.Fields("文化程度")
            frm_JHSY_ADD.Text11.Text = Adodc1.Recordset.Fields("婚姻状况")
            frm_JHSY_ADD.Text12.Text = Adodc1.Recordset.Fields("健康状况")
            frm_JHSY_ADD.Text13.Text = Adodc1.Recordset.Fields("政治面貌")
            frm_JHSY_ADD.Text14.Text = Adodc1.Recordset.Fields("职业")
            frm_JHSY_ADD.Text15.Text = Adodc1.Recordset.Fields("民族")
            frm_JHSY_ADD.Text17.Text = Adodc1.Recordset.Fields("住址")
            frm_JHSY_ADD.Text5.Text = Adodc1.Recordset.Fields("户籍状况")
            frm_JHSY_ADD.Text16.Text = Adodc1.Recordset.Fields("服务处所")

            End If
      Else
      End If
      frm_JHSY_ADD.Text2.SetFocus
      Unload Me
ElseIf Label1.Caption = 2 Then
  Adodc1.RecordSource = "select * from View_jhsyxz where 姓名='" + Text3.Text + "'"
          If Adodc1.Recordset.RecordCount > 0 Then
                 If Trim(Text2.Text) = "女" Then
                 MsgBox "对不起,选择的丈夫应该为男性,请您重新选择!", 32, "人口信息管理系统"
                 frm_JHSY_ADD.Text19.SetFocus
                 Else
                 frm_JHSY_ADD.Text19.Text = Adodc1.Recordset.Fields("姓名")
                 frm_JHSY_ADD.DTPicker3.Value = Adodc1.Recordset.Fields("出生日期")
                 frm_JHSY_ADD.Text21.Text = Adodc1.Recordset.Fields("年龄")
                 frm_JHSY_ADD.Text20.Text = Adodc1.Recordset.Fields("身份证号")
                 frm_JHSY_ADD.Text22.Text = Adodc1.Recordset.Fields("民族")
                 frm_JHSY_ADD.Text23.Text = Adodc1.Recordset.Fields("职业")
                 frm_JHSY_ADD.Text24.Text = Adodc1.Recordset.Fields("服务处所")
                 End If
          Else
          End If
frm_JHSY_ADD.DTPicker4.SetFocus
Unload Me
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
If Label1.Caption = 1 Then
   Adodc1.RecordSource = "select * from View_jhsyxz where 人口编号='" + Text1.Text + "'"
       If Adodc1.Recordset.RecordCount > 0 Then
            If Trim(Text2.Text) = "男" Then
            MsgBox "对不起,您选择的育妇人员为男性,育妇不能为男性,请您重新选择!", 32, "人口信息管理系统"
            frm_JHSY_ADD.Text1.SetFocus
            Else
            frm_JHSY_ADD.Text1.Text = Adodc1.Recordset.Fields("姓名")
            frm_JHSY_ADD.DTPicker1.Value = Adodc1.Recordset.Fields("出生日期")
            frm_JHSY_ADD.Text3.Text = Adodc1.Recordset.Fields("年龄")
            frm_JHSY_ADD.Text2.Text = Adodc1.Recordset.Fields("身份证号")
            frm_JHSY_ADD.Text4.Text = Adodc1.Recordset.Fields("户口类型")
            frm_JHSY_ADD.Text6.Text = Adodc1.Recordset.Fields("户口簿号")
            frm_JHSY_ADD.Text7.Text = Adodc1.Recordset.Fields("户主姓名")
            frm_JHSY_ADD.Text8.Text = Adodc1.Recordset.Fields("与户主关系")
            frm_JHSY_ADD.Text9.Text = Adodc1.Recordset.Fields("联系电话2")
            frm_JHSY_ADD.Text10.Text = Adodc1.Recordset.Fields("文化程度")
            frm_JHSY_ADD.Text11.Text = Adodc1.Recordset.Fields("婚姻状况")
            frm_JHSY_ADD.Text12.Text = Adodc1.Recordset.Fields("健康状况")
            frm_JHSY_ADD.Text13.Text = Adodc1.Recordset.Fields("政治面貌")
            frm_JHSY_ADD.Text14.Text = Adodc1.Recordset.Fields("职业")
            frm_JHSY_ADD.Text15.Text = Adodc1.Recordset.Fields("民族")
            frm_JHSY_ADD.Text17.Text = Adodc1.Recordset.Fields("住址")
            frm_JHSY_ADD.Text5.Text = Adodc1.Recordset.Fields("户籍状况")
            frm_JHSY_ADD.Text16.Text = Adodc1.Recordset.Fields("服务处所")
            End If
      Else
      End If
      frm_JHSY_ADD.Text2.SetFocus
      Unload Me
ElseIf Label1.Caption = 2 Then
  Adodc1.RecordSource = "select * from View_jhsyxz where 姓名='" + Text3.Text + "'"
          If Adodc1.Recordset.RecordCount > 0 Then
                 If Trim(Text2.Text) = "女" Then
                 MsgBox "对不起,选择的丈夫应该为男性,请您重新选择!", 32, "人口信息管理系统"
                 frm_JHSY_ADD.Text19.SetFocus
                 Else
                 frm_JHSY_ADD.Text19.Text = Adodc1.Recordset.Fields("姓名")
                 frm_JHSY_ADD.DTPicker3.Value = Adodc1.Recordset.Fields("出生日期")
                 frm_JHSY_ADD.Text21.Text = Adodc1.Recordset.Fields("年龄")
                 frm_JHSY_ADD.Text20.Text = Adodc1.Recordset.Fields("身份证号")
                 frm_JHSY_ADD.Text22.Text = Adodc1.Recordset.Fields("民族")
                 frm_JHSY_ADD.Text23.Text = Adodc1.Recordset.Fields("职业")
                 frm_JHSY_ADD.Text24.Text = Adodc1.Recordset.Fields("服务处所")
                 End If
          Else
          End If
frm_JHSY_ADD.DTPicker4.SetFocus
Unload Me
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
上一页 12
⌨️ 快捷键说明

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