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

企业管理

开发平台:

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_PeiXunJiHuaCX 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "培训计划查询"
  8.    ClientHeight    =   8205
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   11715
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    Moveable        =   0   'False
  18.    ScaleHeight     =   8205
  19.    ScaleWidth      =   11715
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   2  '屏幕中心
  22.    Begin VB.Frame Frame1 
  23.       Height          =   3255
  24.       Left            =   120
  25.       TabIndex        =   2
  26.       Top             =   120
  27.       Width           =   11415
  28.       Begin Threed.SSCommand cmd_ChaXun 
  29.          Height          =   375
  30.          Left            =   8400
  31.          TabIndex        =   21
  32.          Top             =   2760
  33.          Width           =   1215
  34.          _Version        =   65536
  35.          _ExtentX        =   2143
  36.          _ExtentY        =   661
  37.          _StockProps     =   78
  38.          Caption         =   "&S.查 询"
  39.       End
  40.       Begin VB.ComboBox Combo2 
  41.          Height          =   315
  42.          Left            =   1560
  43.          TabIndex        =   12
  44.          Top             =   840
  45.          Visible         =   0   'False
  46.          Width           =   1695
  47.       End
  48.       Begin VB.ComboBox Combo1 
  49.          Height          =   315
  50.          Left            =   1560
  51.          TabIndex        =   11
  52.          Top             =   360
  53.          Visible         =   0   'False
  54.          Width           =   1695
  55.       End
  56.       Begin VB.ComboBox Combo3 
  57.          Height          =   315
  58.          Left            =   1560
  59.          TabIndex        =   10
  60.          Top             =   1320
  61.          Visible         =   0   'False
  62.          Width           =   1695
  63.       End
  64.       Begin VB.ComboBox Combo4 
  65.          Height          =   315
  66.          Left            =   1560
  67.          TabIndex        =   9
  68.          Top             =   1800
  69.          Visible         =   0   'False
  70.          Width           =   1695
  71.       End
  72.       Begin VB.CheckBox Check1 
  73.          Caption         =   "Check1"
  74.          Height          =   255
  75.          Left            =   240
  76.          TabIndex        =   7
  77.          Top             =   360
  78.          Width           =   255
  79.       End
  80.       Begin VB.CheckBox Check2 
  81.          Caption         =   "Check2"
  82.          Height          =   255
  83.          Left            =   240
  84.          TabIndex        =   6
  85.          Top             =   840
  86.          Width           =   255
  87.       End
  88.       Begin VB.CheckBox Check3 
  89.          Caption         =   "Check3"
  90.          Height          =   255
  91.          Left            =   240
  92.          TabIndex        =   5
  93.          Top             =   1320
  94.          Width           =   255
  95.       End
  96.       Begin VB.CheckBox Check4 
  97.          Caption         =   "Check4"
  98.          Height          =   255
  99.          Left            =   240
  100.          TabIndex        =   4
  101.          Top             =   1800
  102.          Width           =   255
  103.       End
  104.       Begin VB.CheckBox Check5 
  105.          Caption         =   "Check5"
  106.          Height          =   255
  107.          Left            =   240
  108.          TabIndex        =   3
  109.          Top             =   2280
  110.          Width           =   255
  111.       End
  112.       Begin MSComCtl2.DTPicker DTPicker1 
  113.          Height          =   315
  114.          Left            =   3840
  115.          TabIndex        =   8
  116.          Top             =   2280
  117.          Visible         =   0   'False
  118.          Width           =   1695
  119.          _ExtentX        =   2990
  120.          _ExtentY        =   556
  121.          _Version        =   393216
  122.          Format          =   26935297
  123.          CurrentDate     =   36255
  124.       End
  125.       Begin MSComCtl2.DTPicker DTPicker2 
  126.          Height          =   315
  127.          Left            =   6960
  128.          TabIndex        =   13
  129.          Top             =   2280
  130.          Visible         =   0   'False
  131.          Width           =   1695
  132.          _ExtentX        =   2990
  133.          _ExtentY        =   556
  134.          _Version        =   393216
  135.          Format          =   26935297
  136.          CurrentDate     =   36255
  137.       End
  138.       Begin Threed.SSCommand CmdClose 
  139.          Height          =   375
  140.          Left            =   9960
  141.          TabIndex        =   22
  142.          Top             =   2760
  143.          Width           =   1215
  144.          _Version        =   65536
  145.          _ExtentX        =   2143
  146.          _ExtentY        =   661
  147.          _StockProps     =   78
  148.          Caption         =   "&Q.关 闭"
  149.       End
  150.       Begin VB.Label Label1 
  151.          Caption         =   "对象"
  152.          Height          =   255
  153.          Left            =   720
  154.          TabIndex        =   20
  155.          Top             =   880
  156.          Width           =   615
  157.       End
  158.       Begin VB.Label Label2 
  159.          Caption         =   "种类"
  160.          Height          =   255
  161.          Left            =   720
  162.          TabIndex        =   19
  163.          Top             =   400
  164.          Width           =   495
  165.       End
  166.       Begin VB.Label Label3 
  167.          Caption         =   "主办单位"
  168.          Height          =   255
  169.          Left            =   720
  170.          TabIndex        =   18
  171.          Top             =   1320
  172.          Width           =   1095
  173.       End
  174.       Begin VB.Label Label4 
  175.          Caption         =   "师资"
  176.          Height          =   255
  177.          Left            =   720
  178.          TabIndex        =   17
  179.          Top             =   1840
  180.          Width           =   615
  181.       End
  182.       Begin VB.Label Label5 
  183.          Caption         =   "举办时间"
  184.          Height          =   255
  185.          Left            =   720
  186.          TabIndex        =   16
  187.          Top             =   2320
  188.          Width           =   1095
  189.       End
  190.       Begin VB.Label Label6 
  191.          Caption         =   "开始时间"
  192.          Height          =   255
  193.          Left            =   2760
  194.          TabIndex        =   15
  195.          Top             =   2310
  196.          Visible         =   0   'False
  197.          Width           =   975
  198.       End
  199.       Begin VB.Label Label7 
  200.          Caption         =   "结束时间"
  201.          Height          =   255
  202.          Left            =   5880
  203.          TabIndex        =   14
  204.          Top             =   2310
  205.          Visible         =   0   'False
  206.          Width           =   975
  207.       End
  208.    End
  209.    Begin VB.Frame Frame2 
  210.       Height          =   4695
  211.       Left            =   120
  212.       TabIndex        =   0
  213.       Top             =   3480
  214.       Width           =   11415
  215.       Begin MSDataGridLib.DataGrid DataGrid1 
  216.          Height          =   4215
  217.          Left            =   120
  218.          TabIndex        =   1
  219.          Top             =   240
  220.          Width           =   11055
  221.          _ExtentX        =   19500
  222.          _ExtentY        =   7435
  223.          _Version        =   393216
  224.          HeadLines       =   1
  225.          RowHeight       =   14
  226.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  227.             Name            =   "MS Sans Serif"
  228.             Size            =   8.25
  229.             Charset         =   0
  230.             Weight          =   400
  231.             Underline       =   0   'False
  232.             Italic          =   0   'False
  233.             Strikethrough   =   0   'False
  234.          EndProperty
  235.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  236.             Name            =   "宋体"
  237.             Size            =   9
  238.             Charset         =   134
  239.             Weight          =   400
  240.             Underline       =   0   'False
  241.             Italic          =   0   'False
  242.             Strikethrough   =   0   'False
  243.          EndProperty
  244.          ColumnCount     =   2
  245.          BeginProperty Column00 
  246.             DataField       =   ""
  247.             Caption         =   ""
  248.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  249.                Type            =   0
  250.                Format          =   ""
  251.                HaveTrueFalseNull=   0
  252.                FirstDayOfWeek  =   0
  253.                FirstWeekOfYear =   0
  254.                LCID            =   2052
  255.                SubFormatType   =   0
  256.             EndProperty
  257.          EndProperty
  258.          BeginProperty Column01 
  259.             DataField       =   ""
  260.             Caption         =   ""
  261.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  262.                Type            =   0
  263.                Format          =   ""
  264.                HaveTrueFalseNull=   0
  265.                FirstDayOfWeek  =   0
  266.                FirstWeekOfYear =   0
  267.                LCID            =   2052
  268.                SubFormatType   =   0
  269.             EndProperty
  270.          EndProperty
  271.          SplitCount      =   1
  272.          BeginProperty Split0 
  273.             BeginProperty Column00 
  274.             EndProperty
  275.             BeginProperty Column01 
  276.             EndProperty
  277.          EndProperty
  278.       End
  279.    End
  280. End
  281. Attribute VB_Name = "F_PeiXunJiHuaCX"
  282. Attribute VB_GlobalNameSpace = False
  283. Attribute VB_Creatable = False
  284. Attribute VB_PredeclaredId = True
  285. Attribute VB_Exposed = False
  286. Dim WithEvents RS As Recordset
  287. Attribute RS.VB_VarHelpID = -1
  288. Dim WithEvents adoPrimaryRS As Recordset
  289. Attribute adoPrimaryRS.VB_VarHelpID = -1
  290. Dim WithEvents adoXianshiBiaoShiRS As Recordset
  291. Attribute adoXianshiBiaoShiRS.VB_VarHelpID = -1
  292. Dim WithEvents adoXianshiXiMuRS As Recordset
  293. Attribute adoXianshiXiMuRS.VB_VarHelpID = -1
  294. Dim Row_ID As String  '为找到ID 的查询SQL 语句
  295. Private Sub Check1_Click()
  296. If Check1.Value = 1 Then
  297.     Check2.Value = 0
  298.     Check3.Value = 0
  299.     Check4.Value = 0
  300.     Check5.Value = 0
  301.     Combo1.Clear
  302.     
  303.     Sql = "select distinct 培训种类   from 部门培训计划登记"
  304.     Set RS = db.Execute(Sql)
  305.     
  306.     Do While Not RS.EOF
  307.             If IsNull(RS("培训种类")) = False Then
  308.                 Combo1.AddItem RS("培训种类")
  309.             End If
  310.             RS.MoveNext
  311.     Loop
  312.     Combo1.Visible = True
  313.     Combo2.Visible = False
  314.     Combo3.Visible = False
  315.     Combo4.Visible = False
  316.     Label6.Visible = False
  317.     Label7.Visible = False
  318.     DTPicker1.Visible = False
  319.     DTPicker2.Visible = False
  320.     Frame2.Visible = False
  321.   '  Frame3.Visible = False
  322. End If
  323. End Sub
  324. Private Sub Check2_Click()
  325. If Check2.Value = 1 Then
  326.     Check1.Value = 0
  327.     Check3.Value = 0
  328.     Check4.Value = 0
  329.     Check5.Value = 0
  330.     
  331.     Combo2.Clear
  332.     
  333.     Sql = "select distinct 培训对象 from 部门培训计划登记"
  334.     Set RS = db.Execute(Sql)
  335.     Do While Not RS.EOF
  336.             If IsNull(RS("培训对象")) = False Then
  337.                 Combo2.AddItem RS("培训对象")
  338.             End If
  339.             RS.MoveNext
  340.     Loop
  341.     
  342.     Combo1.Visible = False
  343.     Combo2.Visible = True
  344.     Combo3.Visible = False
  345.     Combo4.Visible = False
  346.     Label6.Visible = False
  347.     Label7.Visible = False
  348.     DTPicker1.Visible = False
  349.     DTPicker2.Visible = False
  350.     Frame2.Visible = False
  351.    ' Frame3.Visible = False
  352. End If
  353. End Sub
  354. Private Sub Check3_Click()
  355. If Check3.Value = 1 Then
  356.     Check1.Value = 0
  357.     Check2.Value = 0
  358.     Check4.Value = 0
  359.     Check5.Value = 0
  360.     Combo3.Clear
  361.     
  362.     Sql = "select distinct 部门 from 部门培训计划登记"
  363.     Set RS = db.Execute(Sql)
  364.     Do While Not RS.EOF
  365.             If IsNull(RS("部门")) = False Then
  366.                 Combo3.AddItem RS("部门")
  367.             End If
  368.             RS.MoveNext
  369.     Loop
  370.     Combo3.Visible = True
  371.     Combo1.Visible = False
  372.     Combo2.Visible = False
  373.     Combo4.Visible = False
  374.     Label6.Visible = False
  375.     Label7.Visible = False
  376.     DTPicker1.Visible = False
  377.     DTPicker2.Visible = False
  378.     
  379.     Frame2.Visible = False
  380.   '  Frame3.Visible = False
  381. End If
  382. End Sub
  383. Private Sub CmdXianShi_Exit_Click()
  384. Frame2.Visible = True
  385. 'Frame3.Visible = False
  386. End Sub
  387. Private Sub Cmd_XianShiExit_Click()
  388. End Sub
  389. Private Sub Command1_Click()
  390. End Sub
  391. Private Sub Command2_Click()
  392. End Sub
  393. Private Sub Cmd_ChaXun_Click()
  394. Dim DataGrid_sql  As String  '数据表格中的数据源
  395. Dim oText As TextBox
  396.    If Check1.Value = 1 Then
  397.          
  398.         DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.培训种类 =   '" & Combo1.Text & "'"
  399.         
  400.    End If
  401.    If Check2.Value = 1 Then
  402.         
  403.         DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.培训对象 =   '" & Combo2.Text & "'"
  404.    End If
  405.     If Check3.Value = 1 Then
  406.          DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.部门 =   '" & Combo3.Text & "'"
  407.      
  408.        
  409.     End If
  410.     
  411.     
  412.    If Check4.Value = 1 Then
  413.         
  414.         DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.师资来源 =   '" & Combo4.Text & "'"
  415.    End If
  416.    If Check5.Value = 1 Then
  417.          
  418.         DataGrid_sql = "select * from 部门培训计划登记 where  部门培训计划登记.举办日期  between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
  419.        
  420.     End If
  421.     
  422.     
  423.     Set adoPrimaryRS = New Recordset
  424.     adoPrimaryRS.Open DataGrid_sql, db1, adOpenStatic, adLockOptimistic
  425.     Set DataGrid1.DataSource = adoPrimaryRS
  426.     
  427.           
  428.   '  Frame3.Visible = False
  429.     Frame2.Visible = True
  430. End Sub
  431. Private Sub Cmd_close_Click()
  432. XingZhengGL.Enabled = True
  433. Unload Me
  434. End Sub
  435. Private Sub Cmd_XianShi_Click()
  436. Dim XianShi_sql    As String '单条数据显示的数据源
  437.   
  438.   
  439.   If Row_ID = "" Then
  440.     MsgBox "请您选择其中一条信息!"
  441.     Exit Sub
  442.   Else
  443.     XianShi_sql = "select * from 部门培训计划登记 where ID = " & Row_ID
  444.     
  445.     
  446.    
  447.     Set adoXianshiBiaoShiRS = New Recordset
  448.     adoXianshiBiaoShiRS.Open "SHAPE {select 培训计划编号,时间,部门,项目名称,培训种类,培训对象,参加人数,举办日期,地点,培训时数,师资来源,培训目的,课时费,租用费,招待费,交通费,教材费,工时占用费,其他费用,预算费用合计,培训内容,口试,笔试,实际操作,人力资源部经理签字,人力资源部签字时间,财务部经理签字,财务部经理签字时间,总经理签字,总经理签字时间,部门申请人签字,部门申请人签字时间 from 部门培训计划登记} AS ParentCMD APPEND ({select 部门培训计划编号,员工号,姓名,岗位编号 from 部门培训计划人员 } AS ChildCMD RELATE 培训计划编号 TO 部门培训计划编号) AS ChildCMD", db1, adOpenStatic, adLockBatchOptimistic
  449.    
  450.     Dim BS_MX_LX  As String  '标识与明细的联系
  451.     
  452.     If Not adoXianshiBiaoShiRS.EOF Then
  453.       If Not IsNull(adoXianshiBiaoShiRS("培训计划编号")) Then
  454.              BS_MX_LX = adoXianshiBiaoShiRS("培训计划编号")
  455.       End If
  456.     End If
  457.      
  458.  
  459.     
  460.     Set adoXianshiXiMuRS = New Recordset
  461.     adoXianshiXiMuRS.Open "select 部门培训计划编号,员工号,姓名,岗位编号 from 部门培训计划人员 where 培训计划编号 = '" & BS_MX_LX & "'", db1, adOpenStatic, adLockBatchOptimistic
  462.    
  463.    
  464.    
  465.    
  466.     
  467. End If
  468.   
  469.   Frame2.Visible = False
  470. '  Frame3.Visible = True
  471.        
  472. End Sub
  473. Private Sub cms_XianShi_close_Click()
  474.   Frame2.Visible = True
  475.   Frame3.Visible = False
  476. End Sub
  477. Private Sub DataGrid1_Click()
  478.   If Not adoPrimaryRS.BOF And Not adoPrimaryRS.EOF Then
  479.       If Not IsNull(adoPrimaryRS.Fields("ID")) Then
  480.           Row_ID = adoPrimaryRS.Fields("ID")
  481.       Else
  482.           MsgBox "请您选择其中一条信息!"
  483.       End If
  484.    Else
  485.     Exit Sub
  486.   End If
  487.   
  488. End Sub
  489. Private Sub Check4_Click()
  490. If Check4.Value = 1 Then
  491.     Check1.Value = 0
  492.     Check2.Value = 0
  493.     Check3.Value = 0
  494.     Check5.Value = 0
  495.     Combo4.Clear
  496.     
  497.     Sql = "select distinct 师资来源 from 部门培训计划登记"
  498.     Set RS = db.Execute(Sql)
  499.     Do While Not RS.EOF
  500.             If IsNull(RS("师资来源")) = False Then
  501.                 Combo3.AddItem RS("师资来源")
  502.             End If
  503.             RS.MoveNext
  504.     Loop
  505.     Combo4.Visible = True
  506.     Combo1.Visible = False
  507.     Combo2.Visible = False
  508.     Combo3.Visible = False
  509.     Label6.Visible = False
  510.     Label7.Visible = False
  511.     DTPicker1.Visible = False
  512.     DTPicker2.Visible = False
  513.     
  514.     Frame2.Visible = False
  515.     'Frame3.Visible = False
  516. End If
  517. End Sub
  518. Private Sub Check5_Click()
  519. If Check5.Value = 1 Then
  520.     Check1.Value = 0
  521.     Check2.Value = 0
  522.     Check3.Value = 0
  523.     Check4.Value = 0
  524.     
  525.     
  526.     
  527.     Combo4.Visible = False
  528.     Combo1.Visible = False
  529.     Combo2.Visible = False
  530.     Combo3.Visible = False
  531.     Combo4.Visible = False
  532.     Label6.Visible = True
  533.     Label7.Visible = True
  534.     DTPicker1.Visible = True
  535.     DTPicker2.Visible = True
  536.     
  537.     Frame2.Visible = False
  538.   '  Frame3.Visible = False
  539. End If
  540. End Sub
  541. Private Sub cmdChaXun_Click()
  542. End Sub
  543. Private Sub cmdClose_Click()
  544. RSGL.Enabled = True
  545. Unload Me
  546. End Sub
  547. Private Sub Form_Load()
  548.     On Error Resume Next
  549.     For Each TextBox In Me.Controls
  550.         TextBox.Font.Name = "宋体"
  551.         TextBox.Font.Size = 9
  552.     Next
  553. Frame2.Visible = False
  554. 'Frame3.Visible = False
  555. Me.DTPicker1.Value = Format(Now, "yyyy年mm月dd日")
  556. Me.DTPicker2.Value = Format(Now, "yyyy年mm月dd日")
  557. End Sub