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

企业管理

开发平台:

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_FuliFeiCX 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "福利费查询"
  8.    ClientHeight    =   8145
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   10155
  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     =   8145
  19.    ScaleWidth      =   10155
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   2  '屏幕中心
  22.    Begin VB.Frame Frame2 
  23.       Caption         =   "查询结果"
  24.       Height          =   4695
  25.       Left            =   120
  26.       TabIndex        =   21
  27.       Top             =   3240
  28.       Width           =   9735
  29.       Begin MSDataGridLib.DataGrid DataGrid1 
  30.          Height          =   3615
  31.          Left            =   240
  32.          TabIndex        =   22
  33.          Top             =   360
  34.          Width           =   9255
  35.          _ExtentX        =   16325
  36.          _ExtentY        =   6376
  37.          _Version        =   393216
  38.          HeadLines       =   1
  39.          RowHeight       =   15
  40.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  41.             Name            =   "MS Sans Serif"
  42.             Size            =   8.25
  43.             Charset         =   0
  44.             Weight          =   400
  45.             Underline       =   0   'False
  46.             Italic          =   0   'False
  47.             Strikethrough   =   0   'False
  48.          EndProperty
  49.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  50.             Name            =   "MS Sans Serif"
  51.             Size            =   8.25
  52.             Charset         =   0
  53.             Weight          =   400
  54.             Underline       =   0   'False
  55.             Italic          =   0   'False
  56.             Strikethrough   =   0   'False
  57.          EndProperty
  58.          ColumnCount     =   2
  59.          BeginProperty Column00 
  60.             DataField       =   ""
  61.             Caption         =   ""
  62.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  63.                Type            =   0
  64.                Format          =   ""
  65.                HaveTrueFalseNull=   0
  66.                FirstDayOfWeek  =   0
  67.                FirstWeekOfYear =   0
  68.                LCID            =   2052
  69.                SubFormatType   =   0
  70.             EndProperty
  71.          EndProperty
  72.          BeginProperty Column01 
  73.             DataField       =   ""
  74.             Caption         =   ""
  75.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  76.                Type            =   0
  77.                Format          =   ""
  78.                HaveTrueFalseNull=   0
  79.                FirstDayOfWeek  =   0
  80.                FirstWeekOfYear =   0
  81.                LCID            =   2052
  82.                SubFormatType   =   0
  83.             EndProperty
  84.          EndProperty
  85.          SplitCount      =   1
  86.          BeginProperty Split0 
  87.             BeginProperty Column00 
  88.             EndProperty
  89.             BeginProperty Column01 
  90.             EndProperty
  91.          EndProperty
  92.       End
  93.       Begin Threed.SSCommand Command3 
  94.          Height          =   375
  95.          Left            =   8280
  96.          TabIndex        =   42
  97.          Top             =   4200
  98.          Width           =   1095
  99.          _Version        =   65536
  100.          _ExtentX        =   1931
  101.          _ExtentY        =   661
  102.          _StockProps     =   78
  103.          Caption         =   "&X.显 示"
  104.       End
  105.    End
  106.    Begin VB.Frame Frame1 
  107.       Caption         =   "选择查询条件"
  108.       Height          =   2775
  109.       Left            =   120
  110.       TabIndex        =   14
  111.       Top             =   240
  112.       Width           =   9735
  113.       Begin Threed.SSCommand Command1 
  114.          Height          =   375
  115.          Left            =   6840
  116.          TabIndex        =   39
  117.          Top             =   2160
  118.          Width           =   1095
  119.          _Version        =   65536
  120.          _ExtentX        =   1931
  121.          _ExtentY        =   661
  122.          _StockProps     =   78
  123.          Caption         =   "&S.查 询"
  124.       End
  125.       Begin VB.ComboBox Combo3 
  126.          Height          =   300
  127.          Left            =   2640
  128.          TabIndex        =   2
  129.          Top             =   1800
  130.          Visible         =   0   'False
  131.          Width           =   1695
  132.       End
  133.       Begin VB.CheckBox Check3 
  134.          Caption         =   "Check1"
  135.          Height          =   255
  136.          Left            =   360
  137.          TabIndex        =   37
  138.          Top             =   1800
  139.          Width           =   255
  140.       End
  141.       Begin VB.ComboBox Combo2 
  142.          Height          =   300
  143.          Left            =   2640
  144.          TabIndex        =   1
  145.          Top             =   1320
  146.          Visible         =   0   'False
  147.          Width           =   1695
  148.       End
  149.       Begin VB.CheckBox Check2 
  150.          Caption         =   "Check1"
  151.          Height          =   255
  152.          Left            =   360
  153.          TabIndex        =   35
  154.          Top             =   1320
  155.          Width           =   255
  156.       End
  157.       Begin VB.ComboBox Combo1 
  158.          Height          =   300
  159.          Left            =   2640
  160.          TabIndex        =   0
  161.          Top             =   840
  162.          Visible         =   0   'False
  163.          Width           =   1695
  164.       End
  165.       Begin VB.CheckBox Check1 
  166.          Caption         =   "Check1"
  167.          Height          =   255
  168.          Left            =   360
  169.          TabIndex        =   15
  170.          Top             =   840
  171.          Width           =   255
  172.       End
  173.       Begin MSComCtl2.DTPicker DTPicker2 
  174.          Height          =   300
  175.          Left            =   6360
  176.          TabIndex        =   16
  177.          Top             =   360
  178.          Width           =   1695
  179.          _ExtentX        =   2990
  180.          _ExtentY        =   529
  181.          _Version        =   393216
  182.          Format          =   69206017
  183.          CurrentDate     =   36251
  184.       End
  185.       Begin MSComCtl2.DTPicker DTPicker1 
  186.          Height          =   300
  187.          Left            =   2640
  188.          TabIndex        =   17
  189.          Top             =   360
  190.          Width           =   1695
  191.          _ExtentX        =   2990
  192.          _ExtentY        =   529
  193.          _Version        =   393216
  194.          Format          =   69206017
  195.          CurrentDate     =   36251
  196.       End
  197.       Begin Threed.SSCommand Command2 
  198.          Height          =   375
  199.          Left            =   8280
  200.          TabIndex        =   40
  201.          Top             =   2160
  202.          Width           =   1095
  203.          _Version        =   65536
  204.          _ExtentX        =   1931
  205.          _ExtentY        =   661
  206.          _StockProps     =   78
  207.          Caption         =   "&Q.关 闭"
  208.       End
  209.       Begin VB.Label Label2 
  210.          Caption         =   "费用项目"
  211.          Height          =   255
  212.          Left            =   840
  213.          TabIndex        =   38
  214.          Top             =   1840
  215.          Width           =   975
  216.       End
  217.       Begin VB.Label Label3 
  218.          Caption         =   "部  门"
  219.          Height          =   255
  220.          Left            =   840
  221.          TabIndex        =   36
  222.          Top             =   1340
  223.          Width           =   975
  224.       End
  225.       Begin VB.Label Label1 
  226.          Caption         =   "姓  名"
  227.          Height          =   255
  228.          Left            =   840
  229.          TabIndex        =   20
  230.          Top             =   860
  231.          Width           =   975
  232.       End
  233.       Begin VB.Label Label4 
  234.          Caption         =   "开始时间"
  235.          Height          =   255
  236.          Left            =   240
  237.          TabIndex        =   19
  238.          Top             =   360
  239.          Width           =   1455
  240.       End
  241.       Begin VB.Label Label5 
  242.          Caption         =   "结束时间"
  243.          Height          =   255
  244.          Left            =   5040
  245.          TabIndex        =   18
  246.          Top             =   383
  247.          Width           =   735
  248.       End
  249.    End
  250.    Begin VB.Frame Frame3 
  251.       Height          =   4695
  252.       Left            =   120
  253.       TabIndex        =   23
  254.       Top             =   3240
  255.       Width           =   9735
  256.       Begin VB.TextBox txtFields 
  257.          Appearance      =   0  'Flat
  258.          DataField       =   "年度"
  259.          Height          =   285
  260.          Index           =   0
  261.          Left            =   1920
  262.          TabIndex        =   3
  263.          Top             =   360
  264.          Width           =   1935
  265.       End
  266.       Begin VB.TextBox txtFields 
  267.          Appearance      =   0  'Flat
  268.          DataField       =   "月份"
  269.          Height          =   285
  270.          Index           =   1
  271.          Left            =   6600
  272.          TabIndex        =   4
  273.          Top             =   360
  274.          Width           =   1935
  275.       End
  276.       Begin VB.TextBox txtFields 
  277.          Appearance      =   0  'Flat
  278.          DataField       =   "部门"
  279.          Height          =   285
  280.          Index           =   2
  281.          Left            =   6600
  282.          TabIndex        =   8
  283.          Top             =   1440
  284.          Width           =   1935
  285.       End
  286.       Begin VB.TextBox txtFields 
  287.          Appearance      =   0  'Flat
  288.          DataField       =   "岗位"
  289.          Height          =   285
  290.          Index           =   3
  291.          Left            =   1920
  292.          TabIndex        =   9
  293.          Top             =   2040
  294.          Width           =   1935
  295.       End
  296.       Begin VB.TextBox txtFields 
  297.          Appearance      =   0  'Flat
  298.          DataField       =   "员工号"
  299.          Height          =   285
  300.          Index           =   4
  301.          Left            =   6600
  302.          TabIndex        =   6
  303.          Top             =   840
  304.          Width           =   1935
  305.       End
  306.       Begin VB.TextBox txtFields 
  307.          Appearance      =   0  'Flat
  308.          DataField       =   "姓名"
  309.          Height          =   285
  310.          Index           =   5
  311.          Left            =   1920
  312.          TabIndex        =   7
  313.          Top             =   1440
  314.          Width           =   1935
  315.       End
  316.       Begin VB.TextBox txtFields 
  317.          Appearance      =   0  'Flat
  318.          DataField       =   "费用类型"
  319.          Height          =   285
  320.          Index           =   7
  321.          Left            =   1920
  322.          TabIndex        =   11
  323.          Top             =   2640
  324.          Width           =   1935
  325.       End
  326.       Begin VB.TextBox txtFields 
  327.          Appearance      =   0  'Flat
  328.          DataField       =   "费用项目"
  329.          Height          =   285
  330.          Index           =   8
  331.          Left            =   6600
  332.          TabIndex        =   12
  333.          Top             =   2640
  334.          Width           =   1935
  335.       End
  336.       Begin VB.TextBox txtFields 
  337.          Appearance      =   0  'Flat
  338.          DataField       =   "费用金额"
  339.          Height          =   285
  340.          Index           =   9
  341.          Left            =   1920
  342.          TabIndex        =   13
  343.          Top             =   3240
  344.          Width           =   1935
  345.       End
  346.       Begin MSComCtl2.DTPicker DTPicker3 
  347.          DataField       =   "时间"
  348.          Height          =   300
  349.          Left            =   1920
  350.          TabIndex        =   5
  351.          Top             =   832
  352.          Width           =   1935
  353.          _ExtentX        =   3413
  354.          _ExtentY        =   529
  355.          _Version        =   393216
  356.          CheckBox        =   -1  'True
  357.          DateIsNull      =   -1  'True
  358.          Format          =   69206017
  359.          CurrentDate     =   36187
  360.       End
  361.       Begin VB.TextBox txtFields 
  362.          Appearance      =   0  'Flat
  363.          DataField       =   "用工类型"
  364.          Height          =   285
  365.          Index           =   6
  366.          Left            =   6600
  367.          TabIndex        =   10
  368.          Top             =   2040
  369.          Width           =   1935
  370.       End
  371.       Begin Threed.SSCommand CmdXianShi_Exit 
  372.          Height          =   375
  373.          Left            =   8280
  374.          TabIndex        =   41
  375.          Top             =   3720
  376.          Width           =   1095
  377.          _Version        =   65536
  378.          _ExtentX        =   1931
  379.          _ExtentY        =   661
  380.          _StockProps     =   78
  381.          Caption         =   "&E.关 闭"
  382.       End
  383.       Begin VB.Label lblLabels 
  384.          Caption         =   "年  度"
  385.          Height          =   255
  386.          Index           =   0
  387.          Left            =   240
  388.          TabIndex        =   34
  389.          Top             =   375
  390.          Width           =   855
  391.       End
  392.       Begin VB.Label lblLabels 
  393.          Caption         =   "月  份"
  394.          Height          =   255
  395.          Index           =   1
  396.          Left            =   4800
  397.          TabIndex        =   33
  398.          Top             =   375
  399.          Width           =   855
  400.       End
  401.       Begin VB.Label lblLabels 
  402.          Caption         =   "部  门"
  403.          Height          =   255
  404.          Index           =   2
  405.          Left            =   4800
  406.          TabIndex        =   32
  407.          Top             =   1455
  408.          Width           =   855
  409.       End
  410.       Begin VB.Label lblLabels 
  411.          Caption         =   "岗  位"
  412.          Height          =   255
  413.          Index           =   3
  414.          Left            =   240
  415.          TabIndex        =   31
  416.          Top             =   2055
  417.          Width           =   1215
  418.       End
  419.       Begin VB.Label lblLabels 
  420.          Caption         =   "员工号"
  421.          Height          =   255
  422.          Index           =   4
  423.          Left            =   4800
  424.          TabIndex        =   30
  425.          Top             =   855
  426.          Width           =   855
  427.       End
  428.       Begin VB.Label lblLabels 
  429.          Caption         =   "姓  名"
  430.          Height          =   255
  431.          Index           =   5
  432.          Left            =   240
  433.          TabIndex        =   29
  434.          Top             =   1455
  435.          Width           =   615
  436.       End
  437.       Begin VB.Label lblLabels 
  438.          Caption         =   "时  间"
  439.          Height          =   255
  440.          Index           =   6
  441.          Left            =   240
  442.          TabIndex        =   28
  443.          Top             =   855
  444.          Width           =   615
  445.       End
  446.       Begin VB.Label lblLabels 
  447.          Caption         =   "费用类型"
  448.          Height          =   255
  449.          Index           =   7
  450.          Left            =   240
  451.          TabIndex        =   27
  452.          Top             =   2655
  453.          Width           =   855
  454.       End
  455.       Begin VB.Label lblLabels 
  456.          Caption         =   "费用项目"
  457.          Height          =   255
  458.          Index           =   8
  459.          Left            =   4800
  460.          TabIndex        =   26
  461.          Top             =   2655
  462.          Width           =   855
  463.       End
  464.       Begin VB.Label lblLabels 
  465.          Caption         =   "费用金额"
  466.          Height          =   255
  467.          Index           =   9
  468.          Left            =   240
  469.          TabIndex        =   25
  470.          Top             =   3255
  471.          Width           =   855
  472.       End
  473.       Begin VB.Label lblLabels 
  474.          Caption         =   "用工类型"
  475.          Height          =   255
  476.          Index           =   10
  477.          Left            =   4800
  478.          TabIndex        =   24
  479.          Top             =   2055
  480.          Width           =   855
  481.       End
  482.    End
  483. End
  484. Attribute VB_Name = "F_FuliFeiCX"
  485. Attribute VB_GlobalNameSpace = False
  486. Attribute VB_Creatable = False
  487. Attribute VB_PredeclaredId = True
  488. Attribute VB_Exposed = False
  489. Dim WithEvents rs As Recordset
  490. Attribute rs.VB_VarHelpID = -1
  491. Dim WithEvents adoPrimaryRS As Recordset
  492. Attribute adoPrimaryRS.VB_VarHelpID = -1
  493. Dim WithEvents adoXianshiRS As Recordset
  494. Attribute adoXianshiRS.VB_VarHelpID = -1
  495. Dim Row_ID As String  '为找到ID 的查询SQL 语句
  496. Private Sub Check1_Click()
  497. If Check1.Value = 1 Then
  498.     Check2.Value = 0
  499.     Check3.Value = 0
  500.     Combo1.Clear
  501.     
  502.     Sql = "select distinct 姓名 from 福利费用"
  503.     Set rs = db.Execute(Sql)
  504.     
  505.     Do While Not rs.EOF
  506.             If IsNull(rs("姓名")) = False Then
  507.                 Combo1.AddItem rs("姓名")
  508.             End If
  509.             rs.MoveNext
  510.     Loop
  511.     Combo1.Visible = True
  512.     Combo2.Visible = False
  513.     Combo3.Visible = False
  514.     
  515.     Frame2.Visible = False
  516.     Frame3.Visible = False
  517. End If
  518. End Sub
  519. Private Sub Check2_Click()
  520. If Check2.Value = 1 Then
  521.    
  522.     Check1.Value = 0
  523.     Check3.Value = 0
  524.     Combo2.Clear
  525.     
  526.     Sql = "select distinct 部门 from 福利费用"
  527.     Set rs = db.Execute(Sql)
  528.     
  529.     Do While Not rs.EOF
  530.             If IsNull(rs("部门")) = False Then
  531.                 Combo2.AddItem rs("部门")
  532.             End If
  533.             rs.MoveNext
  534.     Loop
  535.     Combo2.Visible = True
  536.     Combo1.Visible = False
  537.     Combo3.Visible = False
  538.     
  539.     
  540.     Frame2.Visible = False
  541.     Frame3.Visible = False
  542. End If
  543. End Sub
  544. Private Sub Check3_Click()
  545. If Check3.Value = 1 Then
  546.     Check1.Value = 0
  547.     Check2.Value = 0
  548.     Combo3.Clear
  549.     
  550.     Sql = "select distinct 费用项目 from 福利费用"
  551.     Set rs = db.Execute(Sql)
  552.     
  553.     Do While Not rs.EOF
  554.             If IsNull(rs("费用项目")) = False Then
  555.                 Combo3.AddItem rs("费用项目")
  556.             End If
  557.             rs.MoveNext
  558.     Loop
  559.     Combo3.Visible = True
  560.     Combo1.Visible = False
  561.     Combo2.Visible = False
  562.     
  563.     
  564.     Frame2.Visible = False
  565.     Frame3.Visible = False
  566. End If
  567. End Sub
  568. Private Sub CmdXianShi_Exit_Click()
  569. Frame2.Visible = True
  570. Frame3.Visible = False
  571. End Sub
  572. Private Sub Command1_Click()
  573. Dim DataGrid_sql  As String  '数据表格中的数据源
  574. Dim oText As TextBox
  575. If Check1.Value = 1 Then
  576.     DataGrid_sql = "select * from 福利费用 where 姓名 ='" & Combo1.Text & "'  and  时间   between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
  577.         
  578.     Set adoPrimaryRS = New Recordset
  579.     adoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimistic
  580.     Set DataGrid1.DataSource = adoPrimaryRS
  581.     
  582.           
  583.     Frame3.Visible = False
  584.     Frame2.Visible = True
  585.    
  586.    End If
  587.    If Check2.Value = 1 Then
  588.         
  589.      DataGrid_sql = "select * from 福利费用 where 部门 ='" & Combo2.Text & "'  and  时间   between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
  590.        
  591.      Set adoPrimaryRS = New Recordset
  592.      adoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimistic
  593.  
  594.      Set DataGrid1.DataSource = adoPrimaryRS
  595.     
  596.           
  597.      Frame3.Visible = False
  598.      Frame2.Visible = True
  599.      
  600.     End If
  601.     
  602.     If Check3.Value = 1 Then
  603.     
  604.       DataGrid_sql = "select * from 福利费用 where 费用项目 ='" & Combo3.Text & "'  and  时间   between ' " & DTPicker1 & " ' and ' " & DTPicker2 & " '"
  605.     
  606.       Set adoPrimaryRS = New Recordset
  607.       adoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimistic
  608.       Set DataGrid1.DataSource = adoPrimaryRS
  609.     
  610.           
  611.       Frame3.Visible = False
  612.       Frame2.Visible = True
  613.     End If
  614.     
  615.     
  616.    
  617. End Sub
  618. Private Sub Command2_Click()
  619. RSGL.Enabled = True
  620. Unload Me
  621. End Sub
  622. Private Sub Command3_Click()
  623. Dim XianShi_sql    As String '单条数据显示的数据源
  624.   
  625.   
  626.   If Row_ID = "" Then
  627.     MsgBox "请您选择其中一条信息!"
  628.     Exit Sub
  629.   Else
  630.     XianShi_sql = "select * from 福利费用 where ID = " & Row_ID
  631.     
  632.     Set adoXianshiRS = New Recordset
  633.     adoXianshiRS.Open XianShi_sql, db, adOpenStatic, adLockOptimistic
  634.          
  635.    
  636.     For Each oText In Me.txtFields
  637.           Set oText.DataSource = adoXianshiRS
  638.     Next
  639.     
  640.     Set DTPicker3.DataSource = adoXianshiRS
  641.    
  642.   
  643. End If
  644.   
  645.   Frame2.Visible = False
  646.   Frame3.Visible = True
  647.        
  648. End Sub
  649. Private Sub DataGrid1_Click()
  650.   If Not adoPrimaryRS.BOF And Not adoPrimaryRS.EOF Then
  651.       If Not IsNull(adoPrimaryRS.Fields("ID")) Then
  652.           Row_ID = adoPrimaryRS.Fields("ID")
  653.       Else
  654.           MsgBox "请您选择其中一条信息!"
  655.       End If
  656.    Else
  657.     Exit Sub
  658.   End If
  659.   
  660. End Sub
  661. Private Sub Form_Load()
  662. Frame2.Visible = False
  663. Frame3.Visible = False
  664. For Each oText In Me.txtFields
  665.    oText.Locked = True
  666. Next
  667. DTPicker3.Enabled = True
  668. Me.DTPicker1.Value = Format(Now, "yyyy年mm月dd日")
  669. Me.DTPicker2.Value = Format(Now, "yyyy年mm月dd日")
  670.  
  671.            
  672. End Sub