F_ZhaoPInCX.frm
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:18k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  5. Begin VB.Form F_ZhaoPInCX 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "招聘查询"
  8.    ClientHeight    =   7020
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9885
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    Moveable        =   0   'False
  18.    ScaleHeight     =   7020
  19.    ScaleWidth      =   9885
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   2  '屏幕中心
  22.    Begin VB.Frame Frame1 
  23.       Caption         =   "选择查询条件"
  24.       Height          =   1935
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Top             =   120
  28.       Width           =   9495
  29.       Begin Threed.SSCommand Command1 
  30.          Height          =   375
  31.          Left            =   6600
  32.          TabIndex        =   32
  33.          Top             =   1440
  34.          Width           =   1095
  35.          _Version        =   65536
  36.          _ExtentX        =   1931
  37.          _ExtentY        =   661
  38.          _StockProps     =   78
  39.          Caption         =   "&S.查 询"
  40.          Font3D          =   1
  41.       End
  42.       Begin VB.ComboBox Combo1 
  43.          Height          =   300
  44.          Left            =   360
  45.          TabIndex        =   4
  46.          Top             =   1073
  47.          Visible         =   0   'False
  48.          Width           =   1695
  49.       End
  50.       Begin VB.ComboBox Combo2 
  51.          Height          =   315
  52.          Left            =   360
  53.          TabIndex        =   3
  54.          Top             =   1080
  55.          Visible         =   0   'False
  56.          Width           =   1695
  57.       End
  58.       Begin VB.CheckBox Check1 
  59.          Caption         =   "Check1"
  60.          Height          =   255
  61.          Left            =   360
  62.          TabIndex        =   2
  63.          Top             =   360
  64.          Width           =   255
  65.       End
  66.       Begin VB.CheckBox Check2 
  67.          Caption         =   "Check2"
  68.          Height          =   255
  69.          Left            =   1800
  70.          TabIndex        =   1
  71.          Top             =   360
  72.          Width           =   255
  73.       End
  74.       Begin MSComCtl2.DTPicker DTPicker2 
  75.          Height          =   300
  76.          Left            =   4920
  77.          TabIndex        =   5
  78.          Top             =   1080
  79.          Visible         =   0   'False
  80.          Width           =   1455
  81.          _ExtentX        =   2566
  82.          _ExtentY        =   529
  83.          _Version        =   393216
  84.          Format          =   69664769
  85.          CurrentDate     =   36251
  86.       End
  87.       Begin MSComCtl2.DTPicker DTPicker1 
  88.          Height          =   300
  89.          Left            =   2160
  90.          TabIndex        =   6
  91.          Top             =   1080
  92.          Visible         =   0   'False
  93.          Width           =   1575
  94.          _ExtentX        =   2778
  95.          _ExtentY        =   529
  96.          _Version        =   393216
  97.          Format          =   69664769
  98.          CurrentDate     =   36251
  99.       End
  100.       Begin Threed.SSCommand Command2 
  101.          Height          =   375
  102.          Left            =   8040
  103.          TabIndex        =   33
  104.          Top             =   1440
  105.          Width           =   1095
  106.          _Version        =   65536
  107.          _ExtentX        =   1931
  108.          _ExtentY        =   661
  109.          _StockProps     =   78
  110.          Caption         =   "&Q.关 闭"
  111.          Font3D          =   1
  112.       End
  113.       Begin VB.Label Label1 
  114.          Caption         =   "岗位名称"
  115.          Height          =   255
  116.          Left            =   720
  117.          TabIndex        =   10
  118.          Top             =   400
  119.          Width           =   975
  120.       End
  121.       Begin VB.Label Label2 
  122.          Caption         =   "招聘日期"
  123.          Height          =   255
  124.          Left            =   2160
  125.          TabIndex        =   9
  126.          Top             =   400
  127.          Width           =   975
  128.       End
  129.       Begin VB.Label Label4 
  130.          Caption         =   "开始时间"
  131.          Height          =   375
  132.          Left            =   360
  133.          TabIndex        =   8
  134.          Top             =   1080
  135.          Visible         =   0   'False
  136.          Width           =   735
  137.       End
  138.       Begin VB.Label Label5 
  139.          Caption         =   "结束时间"
  140.          Height          =   255
  141.          Left            =   3960
  142.          TabIndex        =   7
  143.          Top             =   1103
  144.          Visible         =   0   'False
  145.          Width           =   735
  146.       End
  147.    End
  148.    Begin VB.Frame Frame2 
  149.       Caption         =   "查询结果"
  150.       Height          =   4695
  151.       Left            =   120
  152.       TabIndex        =   30
  153.       Top             =   2280
  154.       Width           =   9495
  155.       Begin MSDataGridLib.DataGrid DataGrid1 
  156.          Height          =   3615
  157.          Left            =   120
  158.          TabIndex        =   31
  159.          Top             =   360
  160.          Width           =   9135
  161.          _ExtentX        =   16113
  162.          _ExtentY        =   6376
  163.          _Version        =   393216
  164.          HeadLines       =   1
  165.          RowHeight       =   15
  166.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  167.             Name            =   "MS Sans Serif"
  168.             Size            =   8.25
  169.             Charset         =   0
  170.             Weight          =   400
  171.             Underline       =   0   'False
  172.             Italic          =   0   'False
  173.             Strikethrough   =   0   'False
  174.          EndProperty
  175.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  176.             Name            =   "MS Sans Serif"
  177.             Size            =   8.25
  178.             Charset         =   0
  179.             Weight          =   400
  180.             Underline       =   0   'False
  181.             Italic          =   0   'False
  182.             Strikethrough   =   0   'False
  183.          EndProperty
  184.          ColumnCount     =   2
  185.          BeginProperty Column00 
  186.             DataField       =   ""
  187.             Caption         =   ""
  188.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  189.                Type            =   0
  190.                Format          =   ""
  191.                HaveTrueFalseNull=   0
  192.                FirstDayOfWeek  =   0
  193.                FirstWeekOfYear =   0
  194.                LCID            =   2052
  195.                SubFormatType   =   0
  196.             EndProperty
  197.          EndProperty
  198.          BeginProperty Column01 
  199.             DataField       =   ""
  200.             Caption         =   ""
  201.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  202.                Type            =   0
  203.                Format          =   ""
  204.                HaveTrueFalseNull=   0
  205.                FirstDayOfWeek  =   0
  206.                FirstWeekOfYear =   0
  207.                LCID            =   2052
  208.                SubFormatType   =   0
  209.             EndProperty
  210.          EndProperty
  211.          SplitCount      =   1
  212.          BeginProperty Split0 
  213.             BeginProperty Column00 
  214.             EndProperty
  215.             BeginProperty Column01 
  216.             EndProperty
  217.          EndProperty
  218.       End
  219.       Begin Threed.SSCommand Command3 
  220.          Height          =   375
  221.          Left            =   7920
  222.          TabIndex        =   35
  223.          Top             =   4200
  224.          Width           =   1095
  225.          _Version        =   65536
  226.          _ExtentX        =   1931
  227.          _ExtentY        =   661
  228.          _StockProps     =   78
  229.          Caption         =   "&X.显 示"
  230.          Font3D          =   1
  231.       End
  232.    End
  233.    Begin VB.Frame Frame3 
  234.       Height          =   4575
  235.       Left            =   120
  236.       TabIndex        =   11
  237.       Top             =   2280
  238.       Width           =   9495
  239.       Begin VB.TextBox txtFields 
  240.          Appearance      =   0  'Flat
  241.          DataField       =   "人均费用"
  242.          Enabled         =   0   'False
  243.          Height          =   285
  244.          Index           =   7
  245.          Left            =   7080
  246.          TabIndex        =   20
  247.          Top             =   3240
  248.          Width           =   1815
  249.       End
  250.       Begin VB.TextBox txtFields 
  251.          Appearance      =   0  'Flat
  252.          DataField       =   "招聘费"
  253.          Height          =   285
  254.          Index           =   6
  255.          Left            =   2040
  256.          TabIndex        =   19
  257.          Top             =   3240
  258.          Width           =   1815
  259.       End
  260.       Begin VB.TextBox txtFields 
  261.          Appearance      =   0  'Flat
  262.          DataField       =   "应聘人数"
  263.          Height          =   285
  264.          Index           =   5
  265.          Left            =   7080
  266.          TabIndex        =   18
  267.          Top             =   2520
  268.          Width           =   1815
  269.       End
  270.       Begin VB.TextBox txtFields 
  271.          Appearance      =   0  'Flat
  272.          DataField       =   "岗位编号"
  273.          Enabled         =   0   'False
  274.          Height          =   285
  275.          Index           =   2
  276.          Left            =   2040
  277.          TabIndex        =   17
  278.          Top             =   2400
  279.          Width           =   1815
  280.       End
  281.       Begin VB.TextBox txtFields 
  282.          Appearance      =   0  'Flat
  283.          DataField       =   "招聘方式"
  284.          Height          =   285
  285.          Index           =   1
  286.          Left            =   7080
  287.          TabIndex        =   16
  288.          Top             =   1080
  289.          Width           =   1815
  290.       End
  291.       Begin VB.TextBox txtFields 
  292.          Appearance      =   0  'Flat
  293.          DataField       =   "招聘编号"
  294.          Height          =   285
  295.          Index           =   0
  296.          Left            =   2040
  297.          TabIndex        =   14
  298.          Top             =   480
  299.          Width           =   1815
  300.       End
  301.       Begin VB.ComboBox Combo4 
  302.          Appearance      =   0  'Flat
  303.          Height          =   300
  304.          Left            =   2040
  305.          TabIndex        =   13
  306.          Top             =   1800
  307.          Width           =   1815
  308.       End
  309.       Begin VB.ComboBox Combo3 
  310.          Appearance      =   0  'Flat
  311.          Height          =   300
  312.          Left            =   7080
  313.          TabIndex        =   12
  314.          Top             =   1800
  315.          Width           =   1815
  316.       End
  317.       Begin MSComCtl2.DTPicker DTPicker3 
  318.          DataField       =   "招聘日期"
  319.          Height          =   300
  320.          Left            =   2040
  321.          TabIndex        =   15
  322.          Top             =   1080
  323.          Width           =   1815
  324.          _ExtentX        =   3201
  325.          _ExtentY        =   529
  326.          _Version        =   393216
  327.          CheckBox        =   -1  'True
  328.          DateIsNull      =   -1  'True
  329.          Format          =   69664769
  330.          CurrentDate     =   36191
  331.       End
  332.       Begin Threed.SSCommand CmdXianShi_Exit 
  333.          Height          =   375
  334.          Left            =   8040
  335.          TabIndex        =   34
  336.          Top             =   3960
  337.          Width           =   1095
  338.          _Version        =   65536
  339.          _ExtentX        =   1931
  340.          _ExtentY        =   661
  341.          _StockProps     =   78
  342.          Caption         =   "&E.关 闭"
  343.          Font3D          =   1
  344.       End
  345.       Begin VB.Label lblLabels 
  346.          Caption         =   "人均费用"
  347.          Height          =   255
  348.          Index           =   7
  349.          Left            =   5400
  350.          TabIndex        =   29
  351.          Top             =   3240
  352.          Width           =   1095
  353.       End
  354.       Begin VB.Label lblLabels 
  355.          Caption         =   "招聘费"
  356.          Height          =   255
  357.          Index           =   6
  358.          Left            =   360
  359.          TabIndex        =   28
  360.          Top             =   3240
  361.          Width           =   975
  362.       End
  363.       Begin VB.Label lblLabels 
  364.          Caption         =   "应聘人数"
  365.          Height          =   255
  366.          Index           =   5
  367.          Left            =   5400
  368.          TabIndex        =   27
  369.          Top             =   2520
  370.          Width           =   735
  371.       End
  372.       Begin VB.Label lblLabels 
  373.          Caption         =   "所属部门"
  374.          Height          =   255
  375.          Index           =   4
  376.          Left            =   360
  377.          TabIndex        =   26
  378.          Top             =   1920
  379.          Width           =   975
  380.       End
  381.       Begin VB.Label lblLabels 
  382.          Caption         =   "岗位名称"
  383.          Height          =   255
  384.          Index           =   3
  385.          Left            =   5400
  386.          TabIndex        =   25
  387.          Top             =   1800
  388.          Width           =   855
  389.       End
  390.       Begin VB.Label lblLabels 
  391.          Caption         =   "岗位编号"
  392.          Height          =   255
  393.          Index           =   2
  394.          Left            =   360
  395.          TabIndex        =   24
  396.          Top             =   2640
  397.          Width           =   855
  398.       End
  399.       Begin VB.Label lblLabels 
  400.          Caption         =   "招聘方式"
  401.          Height          =   255
  402.          Index           =   1
  403.          Left            =   5400
  404.          TabIndex        =   23
  405.          Top             =   1080
  406.          Width           =   855
  407.       End
  408.       Begin VB.Label lblLabels 
  409.          Caption         =   "招聘日期"
  410.          Height          =   255
  411.          Index           =   0
  412.          Left            =   360
  413.          TabIndex        =   22
  414.          Top             =   1200
  415.          Width           =   975
  416.       End
  417.       Begin VB.Label lblLabels 
  418.          Caption         =   "招聘编号"
  419.          Height          =   255
  420.          Index           =   8
  421.          Left            =   360
  422.          TabIndex        =   21
  423.          Top             =   480
  424.          Width           =   975
  425.       End
  426.    End
  427. End
  428. Attribute VB_Name = "F_ZhaoPInCX"
  429. Attribute VB_GlobalNameSpace = False
  430. Attribute VB_Creatable = False
  431. Attribute VB_PredeclaredId = True
  432. Attribute VB_Exposed = False
  433. Dim WithEvents rs As Recordset
  434. Attribute rs.VB_VarHelpID = -1
  435. Dim WithEvents adoPrimaryRS As Recordset
  436. Attribute adoPrimaryRS.VB_VarHelpID = -1
  437. Dim WithEvents adoXianshiRS As Recordset
  438. Attribute adoXianshiRS.VB_VarHelpID = -1
  439. Dim JieYue_ID As String  '为找到ID 的查询SQL 语句
  440. Private Sub Check1_Click()
  441. If Check1.Value = 1 Then
  442.     Check2.Value = 0
  443.    
  444.     Combo1.Clear
  445.     
  446.     Sql = "select distinct 岗位名称 from 招聘登记"
  447.     Set rs = db.Execute(Sql)
  448.     
  449.     Do While Not rs.EOF
  450.             If IsNull(rs("岗位名称")) = False Then
  451.                 Combo1.AddItem rs("岗位名称")
  452.             End If
  453.             rs.MoveNext
  454.     Loop
  455.     Combo1.Visible = True
  456.    
  457.     Label4.Visible = False
  458.     Label5.Visible = False
  459.     DTPicker1.Visible = False
  460.     DTPicker2.Visible = False
  461.     Frame2.Visible = False
  462.     Frame3.Visible = False
  463. End If
  464. End Sub
  465. Private Sub Check2_Click()
  466. If Check2.Value = 1 Then
  467.     Check1.Value = 0
  468.  
  469.    
  470.     Combo1.Visible = False
  471.    
  472.     Label4.Visible = True
  473.     Label5.Visible = True
  474.     DTPicker1.Visible = True
  475.     DTPicker2.Visible = True
  476.     
  477.     Frame2.Visible = False
  478.     Frame3.Visible = False
  479. End If
  480. End Sub
  481. Private Sub CmdXianShi_Exit_Click()
  482. Frame2.Visible = True
  483. Frame3.Visible = False
  484. End Sub
  485. Private Sub Command1_Click()
  486. Dim DataGrid_sql  As String  '数据表格中的数据源
  487. Dim oText As TextBox
  488.    If Check1.Value = 1 Then
  489.          
  490.         DataGrid_sql = "select * from 招聘登记 where 岗位名称 ='" & Combo1.Text & "'"
  491.         
  492.    End If
  493.    
  494.     If Check2.Value = 1 Then
  495.         
  496.         DataGrid_sql = "select * from 招聘登记 where 招聘日期   between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
  497.        
  498.     End If
  499.     
  500.      If Check1.Value = 1 Or Check2.Value = 1 Then
  501.     
  502.     Set adoPrimaryRS = New Recordset
  503.     adoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimistic
  504.     Set DataGrid1.DataSource = adoPrimaryRS
  505.      Set DTPicker3.DataSource = adoPrimaryRS
  506.          
  507.     Set Combo3.DataSource = adoPrimaryRS
  508.     Set Combo4.DataSource = adoPrimaryRS
  509.    
  510.     Frame3.Visible = False
  511.     Frame2.Visible = True
  512.     
  513.     End If
  514. End Sub
  515. Private Sub Command2_Click()
  516. RSGL.Enabled = True
  517. Unload Me
  518. End Sub
  519. Private Sub Command3_Click()
  520. Dim XianShi_sql    As String '单条数据显示的数据源
  521.   
  522.   
  523.   If JieYue_ID = "" Then
  524.     MsgBox "请您选择其中一条信息!"
  525.     Exit Sub
  526.   Else
  527.     XianShi_sql = "select * from 招聘登记 where ID = " & JieYue_ID
  528.     
  529.     Set adoXianshiRS = New Recordset
  530.     adoXianshiRS.Open XianShi_sql, db, adOpenStatic, adLockOptimistic
  531.          
  532.    
  533.     For Each oText In Me.txtFields
  534.           Set oText.DataSource = adoXianshiRS
  535.     Next
  536.     
  537.     Set DTPicker3.DataSource = adoXianshiRS
  538.     Set Combo3.DataSource = adoXianshiRS
  539.     Set Combo4.DataSource = adoXianshiRS
  540.    
  541.   
  542. End If
  543.   
  544.   Frame2.Visible = False
  545.   Frame3.Visible = True
  546.        
  547. End Sub
  548. Private Sub DataGrid1_Click()
  549.   If Not adoPrimaryRS.BOF And Not adoPrimaryRS.EOF Then
  550.       If Not IsNull(adoPrimaryRS.Fields("ID")) Then
  551.           JieYue_ID = adoPrimaryRS.Fields("ID")
  552.       Else
  553.           MsgBox "请您选择其中一条信息!"
  554.       End If
  555.    Else
  556.     Exit Sub
  557.   End If
  558.   
  559. End Sub
  560. Private Sub Form_Load()
  561. On Error Resume Next
  562.     For Each TextBox In Me.Controls
  563.         TextBox.Font.Name = "宋体"
  564.         TextBox.Font.Size = 9
  565.     Next
  566. Frame2.Visible = False
  567. Frame3.Visible = False
  568. For Each oText In Me.txtFields
  569.    oText.Locked = True
  570. Next
  571.  DTPicker3.Enabled = True
  572.  Combo3.Enabled = True
  573.  Combo4.Enabled = True
  574.            
  575. End Sub