defaultwage.frm

人力资源管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmDefaultWage 
   Caption         =   "默认工资项目设置"
   ClientHeight    =   8355
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10965
   LinkTopic       =   "Form1"
   ScaleHeight     =   8355
   ScaleWidth      =   10965
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   570
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10965
      _ExtentX        =   19341
      _ExtentY        =   1005
      ButtonWidth     =   1773
      ButtonHeight    =   953
      Wrappable       =   0   'False
      Appearance      =   1
      Style           =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   15
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "信息刷新"
            Key             =   "Refresh"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "按公式重置"
            Key             =   "Reset"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "Select"
            Object.Width           =   2
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全部"
            Key             =   "All"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "批量修改"
            Key             =   "UpdateSome"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "Update"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "Delete"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "Excel"
            Key             =   "Excel"
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "Print"
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Back"
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.TreeView TreePartment 
      Height          =   7365
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   2175
      _ExtentX        =   3836
      _ExtentY        =   12991
      _Version        =   393217
      Style           =   7
      Appearance      =   1
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   7395
      Left            =   2400
      TabIndex        =   2
      Top             =   600
      Width           =   12915
      _ExtentX        =   22781
      _ExtentY        =   13044
      _Version        =   393216
      Cols            =   40
      FixedCols       =   0
      ScrollTrack     =   -1  'True
      SelectionMode   =   1
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   7980
      Width           =   10965
      _ExtentX        =   19341
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Text            =   "当前日期："
            TextSave        =   "当前日期："
            Key             =   "bar2"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2004-12-14"
            Key             =   "barNowtimes"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Text            =   "总数量："
            TextSave        =   "总数量："
            Key             =   "bar1"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            TextSave        =   "NUM"
            Key             =   "barNum"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmDefaultWage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
Dim adors As New Recordset '定义一个记录集，记录科目类型
   Dim rsPartment As New Recordset '定义一个记录集，记录每种科目类型中的科目
   Dim strSQL As String  '定义一个字符串，将查询科目类型的sql语句付给它
   Dim strSQLQuery As String  '定义一个字符串，将查询每种科目类型下的科目的sql语句付给它
   Dim strPartmentType(10) As String '定义一个数组，存储科目类型
   Dim strPartment As String   '定义字符串，将每种科目类型下的科目附值给它
   Dim intIndex(10) As Integer '定义一个数组，记录根节点index
   Dim i As Integer '定义一个整数，存储是第i个根节点
   
 '/***********************************TreeVeiwStart********************************************/
       
       
   TreePartment.Sorted = True                        '主目录
   Set mNode = TreePartment.Nodes.Add()
   mNode.Text = "我的公司/单位"
   
   Set adors.ActiveConnection = ADOcn                '添加一级目录
   strSQL = "Select distinct 名称 from 部门类型 where 级别=1 "
   adors.Open strSQL
 
Do Until adors.EOF
   Set mNode = TreePartment.Nodes.Add(1, tvwChild)
   strPartmentType(i) = adors.Fields("名称")
   mNode.Text = strPartmentType(i)
   intIndex(i) = mNode.Index
  
   i = i + 1
   adors.MoveNext
Loop

   Set mNode = TreePartment.Nodes.Add(1, tvwChild)
   mNode.Text = "工种"
   intIndex(i) = mNode.Index
   i = i + 1
   
   Set mNode = TreePartment.Nodes.Add(1, tvwChild)
   mNode.Text = "职务"
   intIndex(i) = mNode.Index
   i = i + 1
   
   Set mNode = TreePartment.Nodes.Add(1, tvwChild)
   mNode.Text = "职称"
   intIndex(i) = mNode.Index
   i = i + 1
   
   Set mNode = TreePartment.Nodes.Add(1, tvwChild)
   mNode.Text = "所有员工列表"
   intIndex(i) = mNode.Index
   i = i + 1
 
    adors.Close