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

企业管理

开发平台:

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_MianShiCX 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "面试查询"
  8.    ClientHeight    =   7365
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   10170
  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     =   7365
  19.    ScaleWidth      =   10170
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   2  '屏幕中心
  22.    Begin VB.Frame Frame1 
  23.       Caption         =   "选择查询条件"
  24.       Height          =   1935
  25.       Left            =   120
  26.       TabIndex        =   2
  27.       Top             =   120
  28.       Width           =   9495
  29.       Begin Threed.SSCommand Command1 
  30.          Height          =   375
  31.          Left            =   6480
  32.          TabIndex        =   26
  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.CheckBox Check2 
  43.          Caption         =   "Check2"
  44.          Height          =   255
  45.          Left            =   1800
  46.          TabIndex        =   6
  47.          Top             =   360
  48.          Width           =   255
  49.       End
  50.       Begin VB.CheckBox Check1 
  51.          Caption         =   "Check1"
  52.          Height          =   255
  53.          Left            =   360
  54.          TabIndex        =   5
  55.          Top             =   360
  56.          Width           =   255
  57.       End
  58.       Begin VB.ComboBox Combo2 
  59.          Height          =   315
  60.          Left            =   360
  61.          TabIndex        =   4
  62.          Top             =   1080
  63.          Visible         =   0   'False
  64.          Width           =   1695
  65.       End
  66.       Begin VB.ComboBox Combo1 
  67.          Height          =   315
  68.          Left            =   360
  69.          TabIndex        =   3
  70.          Top             =   1080
  71.          Visible         =   0   'False
  72.          Width           =   1695
  73.       End
  74.       Begin MSComCtl2.DTPicker DTPicker2 
  75.          Height          =   300
  76.          Left            =   4920
  77.          TabIndex        =   7
  78.          Top             =   1080
  79.          Visible         =   0   'False
  80.          Width           =   1455
  81.          _ExtentX        =   2566
  82.          _ExtentY        =   529
  83.          _Version        =   393216
  84.          Format          =   26869761
  85.          CurrentDate     =   36251
  86.       End
  87.       Begin MSComCtl2.DTPicker DTPicker1 
  88.          Height          =   300
  89.          Left            =   2160
  90.          TabIndex        =   8
  91.          Top             =   1080
  92.          Visible         =   0   'False
  93.          Width           =   1575
  94.          _ExtentX        =   2778
  95.          _ExtentY        =   529
  96.          _Version        =   393216
  97.          Format          =   26869761
  98.          CurrentDate     =   36251
  99.       End
  100.       Begin Threed.SSCommand Command2 
  101.          Height          =   375
  102.          Left            =   7920
  103.          TabIndex        =   27
  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 Label5 
  114.          Caption         =   "结束时间"
  115.          Height          =   255
  116.          Left            =   3960
  117.          TabIndex        =   12
  118.          Top             =   1080
  119.          Visible         =   0   'False
  120.          Width           =   735
  121.       End
  122.       Begin VB.Label Label4 
  123.          Caption         =   "开始时间"
  124.          Height          =   375
  125.          Left            =   360
  126.          TabIndex        =   11
  127.          Top             =   1080
  128.          Visible         =   0   'False
  129.          Width           =   735
  130.       End
  131.       Begin VB.Label Label2 
  132.          Caption         =   "招聘日期"
  133.          Height          =   255
  134.          Left            =   2160
  135.          TabIndex        =   10
  136.          Top             =   400
  137.          Width           =   975
  138.       End
  139.       Begin VB.Label Label1 
  140.          Caption         =   "岗位名称"
  141.          Height          =   255
  142.          Left            =   720
  143.          TabIndex        =   9
  144.          Top             =   400
  145.          Width           =   975
  146.       End
  147.    End
  148.    Begin VB.Frame Frame2 
  149.       Caption         =   "查询结果"
  150.       Height          =   4695
  151.       Left            =   120
  152.       TabIndex        =   0
  153.       Top             =   2280
  154.       Width           =   9495
  155.       Begin MSDataGridLib.DataGrid DataGrid1 
  156.          Height          =   3615
  157.          Left            =   120
  158.          TabIndex        =   1
  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            =   8040
  222.          TabIndex        =   29
  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          =   4695
  235.       Left            =   120
  236.       TabIndex        =   13
  237.       Top             =   2280
  238.       Width           =   9495
  239.       Begin VB.TextBox txtFields 
  240.          Appearance      =   0  'Flat
  241.          DataField       =   "参加人"
  242.          Height          =   285
  243.          Index           =   4
  244.          Left            =   6600
  245.          TabIndex        =   19
  246.          Top             =   2520
  247.          Width           =   2415
  248.       End
  249.       Begin VB.TextBox txtFields 
  250.          Appearance      =   0  'Flat
  251.          DataField       =   "面试人数"
  252.          Height          =   285
  253.          Index           =   3
  254.          Left            =   2160
  255.          TabIndex        =   18
  256.          Top             =   2520
  257.          Width           =   2415
  258.       End
  259.       Begin VB.TextBox txtFields 
  260.          Appearance      =   0  'Flat
  261.          DataField       =   "招聘编号"
  262.          Height          =   285
  263.          Index           =   0
  264.          Left            =   2160
  265.          TabIndex        =   16
  266.          Top             =   720
  267.          Width           =   2415
  268.       End
  269.       Begin VB.ComboBox Combo4 
  270.          Appearance      =   0  'Flat
  271.          DataField       =   "所属部门"
  272.          Height          =   300
  273.          Left            =   2160
  274.          TabIndex        =   15
  275.          Top             =   1560
  276.          Width           =   2415
  277.       End
  278.       Begin VB.ComboBox Combo3 
  279.          Appearance      =   0  'Flat
  280.          DataField       =   "岗位名称"
  281.          Height          =   300
  282.          Left            =   6600
  283.          TabIndex        =   14
  284.          Top             =   1560
  285.          Width           =   2415
  286.       End
  287.       Begin MSComCtl2.DTPicker DTPicker3 
  288.          DataField       =   "面试日期"
  289.          Height          =   300
  290.          Left            =   6600
  291.          TabIndex        =   17
  292.          Top             =   720
  293.          Width           =   2415
  294.          _ExtentX        =   4260
  295.          _ExtentY        =   529
  296.          _Version        =   393216
  297.          CheckBox        =   -1  'True
  298.          DateIsNull      =   -1  'True
  299.          Format          =   26869761
  300.          CurrentDate     =   36191
  301.       End
  302.       Begin Threed.SSCommand CmdXianShi_Exit 
  303.          Height          =   375
  304.          Left            =   8040
  305.          TabIndex        =   28
  306.          Top             =   3840
  307.          Width           =   1095
  308.          _Version        =   65536
  309.          _ExtentX        =   1931
  310.          _ExtentY        =   661
  311.          _StockProps     =   78
  312.          Caption         =   "&E.关 闭"
  313.          Font3D          =   1
  314.       End
  315.       Begin VB.Label lblLabels 
  316.          Caption         =   "参加人"
  317.          Height          =   255
  318.          Index           =   4
  319.          Left            =   5280
  320.          TabIndex        =   25
  321.          Top             =   2520
  322.          Width           =   1815
  323.       End
  324.       Begin VB.Label lblLabels 
  325.          Caption         =   "面试人数"
  326.          Height          =   255
  327.          Index           =   3
  328.          Left            =   360
  329.          TabIndex        =   24
  330.          Top             =   2520
  331.          Width           =   1815
  332.       End
  333.       Begin VB.Label lblLabels 
  334.          Caption         =   "所属部门"
  335.          Height          =   255
  336.          Index           =   2
  337.          Left            =   360
  338.          TabIndex        =   23
  339.          Top             =   1560
  340.          Width           =   1815
  341.       End
  342.       Begin VB.Label lblLabels 
  343.          Caption         =   "岗位名称"
  344.          Height          =   255
  345.          Index           =   1
  346.          Left            =   5280
  347.          TabIndex        =   22
  348.          Top             =   1560
  349.          Width           =   1815
  350.       End
  351.       Begin VB.Label lblLabels 
  352.          Caption         =   "面试日期"
  353.          Height          =   255
  354.          Index           =   0
  355.          Left            =   5280
  356.          TabIndex        =   21
  357.          Top             =   720
  358.          Width           =   1815
  359.       End
  360.       Begin VB.Label lblLabels 
  361.          Caption         =   "招聘编号"
  362.          Height          =   255
  363.          Index           =   5
  364.          Left            =   360
  365.          TabIndex        =   20
  366.          Top             =   720
  367.          Width           =   1815
  368.       End
  369.    End
  370. End
  371. Attribute VB_Name = "F_MianShiCX"
  372. Attribute VB_GlobalNameSpace = False
  373. Attribute VB_Creatable = False
  374. Attribute VB_PredeclaredId = True
  375. Attribute VB_Exposed = False
  376. Dim WithEvents rs As Recordset
  377. Attribute rs.VB_VarHelpID = -1
  378. Dim WithEvents adoPrimaryRS As Recordset
  379. Attribute adoPrimaryRS.VB_VarHelpID = -1
  380. Dim WithEvents adoXianshiRS As Recordset
  381. Attribute adoXianshiRS.VB_VarHelpID = -1
  382. Dim JieYue_ID As String  '为找到ID 的查询SQL 语句
  383. Private Sub Check1_Click()
  384. If Check1.Value = 1 Then
  385.     Check2.Value = 0
  386.    
  387.     Combo1.Clear
  388.     
  389.     Sql = "select distinct 岗位名称 from 面试登记"
  390.     Set rs = db.Execute(Sql)
  391.     
  392.     Do While Not rs.EOF
  393.             If IsNull(rs("岗位名称")) = False Then
  394.                 Combo1.AddItem rs("岗位名称")
  395.             End If
  396.             rs.MoveNext
  397.     Loop
  398.     Combo1.Visible = True
  399.    
  400.     Label4.Visible = False
  401.     Label5.Visible = False
  402.     DTPicker1.Visible = False
  403.     DTPicker2.Visible = False
  404.     Frame2.Visible = False
  405.     Frame3.Visible = False
  406. End If
  407. End Sub
  408. Private Sub Check2_Click()
  409. If Check2.Value = 1 Then
  410.     Check1.Value = 0
  411.  
  412.    
  413.     Combo1.Visible = False
  414.    
  415.     Label4.Visible = True
  416.     Label5.Visible = True
  417.     DTPicker1.Visible = True
  418.     DTPicker2.Visible = True
  419.     
  420.     Frame2.Visible = False
  421.     Frame3.Visible = False
  422. End If
  423. End Sub
  424. Private Sub CmdXianShi_Exit_Click()
  425. Frame2.Visible = True
  426. Frame3.Visible = False
  427. End Sub
  428. Private Sub Command1_Click()
  429. Dim DataGrid_sql  As String  '数据表格中的数据源
  430. Dim oText As TextBox
  431.    If Check1.Value = 1 Then
  432.          
  433.         DataGrid_sql = "select * from 面试登记 where 岗位名称 ='" & Combo1.Text & "'"
  434.         
  435.    End If
  436.    
  437.     If Check2.Value = 1 Then
  438.         
  439.         DataGrid_sql = "select * from 面试登记 where 面试日期   between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
  440.        
  441.     End If
  442.     
  443.     If Check1.Value = 1 Or Check2.Value = 1 Then
  444.     
  445.       Set adoPrimaryRS = New Recordset
  446.       adoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimistic
  447.       Set DataGrid1.DataSource = adoPrimaryRS
  448.     
  449.           
  450.       Frame3.Visible = False
  451.       Frame2.Visible = True
  452.     End If
  453. End Sub
  454. Private Sub Command2_Click()
  455. RSGL.Enabled = True
  456. Unload Me
  457. End Sub
  458. Private Sub Command3_Click()
  459. Dim XianShi_sql    As String '单条数据显示的数据源
  460.   
  461.   
  462.   If JieYue_ID = "" Then
  463.     MsgBox "请您选择其中一条信息!"
  464.     Exit Sub
  465.   Else
  466.     XianShi_sql = "select * from 面试登记 where ID = " & JieYue_ID
  467.     
  468.     Set adoXianshiRS = New Recordset
  469.     adoXianshiRS.Open XianShi_sql, db, adOpenStatic, adLockOptimistic
  470.          
  471.    
  472.     For Each oText In Me.txtFields
  473.           Set oText.DataSource = adoXianshiRS
  474.     Next
  475.     
  476.     Set DTPicker3.DataSource = adoXianshiRS
  477.     
  478.          
  479.     Set Combo3.DataSource = adoXianshiRS
  480.     Set Combo4.DataSource = adoXianshiRS
  481.   
  482. End If
  483.   
  484.   Frame2.Visible = False
  485.   Frame3.Visible = True
  486.        
  487. End Sub
  488. Private Sub DataGrid1_Click()
  489.   If Not adoPrimaryRS.BOF And Not adoPrimaryRS.EOF Then
  490.       If Not IsNull(adoPrimaryRS.Fields("ID")) Then
  491.           JieYue_ID = adoPrimaryRS.Fields("ID")
  492.       Else
  493.           MsgBox "请您选择其中一条信息!"
  494.       End If
  495.    Else
  496.     Exit Sub
  497.   End If
  498.   
  499. End Sub
  500. Private Sub Form_Load()
  501. On Error Resume Next
  502.     For Each TextBox In Me.Controls
  503.         TextBox.Font.Name = "宋体"
  504.         TextBox.Font.Size = 9
  505.     Next
  506. Frame2.Visible = False
  507. Frame3.Visible = False
  508. For Each oText In Me.txtFields
  509.    oText.Locked = True
  510. Next
  511.  DTPicker3.Enabled = True
  512.            
  513. End Sub