VERSION 5.00
Begin VB.Form frm_gstjPrint 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "工時(shí)統(tǒng)計(jì)打印"
   ClientHeight    =   2010
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5235
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2010
   ScaleWidth      =   5235
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   1905
      Left            =   75
      TabIndex        =   0
      Top             =   30
      Width           =   5085
      Begin VB.OptionButton Op_Item 
         Caption         =   "打印項(xiàng)目統(tǒng)計(jì)工時(shí)"
         Height          =   285
         Left            =   2040
         TabIndex        =   7
         Top             =   765
         Width           =   1755
      End
      Begin VB.CommandButton cmdexit 
         Caption         =   "退出(&E)"
         Height          =   300
         Left            =   3780
         TabIndex        =   6
         Top             =   1485
         Width           =   1110
      End
      Begin VB.CommandButton Command1 
         Caption         =   "打印(&P)"
         Height          =   300
         Left            =   3780
         TabIndex        =   5
         Top             =   1125
         Width           =   1110
      End
      Begin VB.OptionButton Op_full 
         Caption         =   "打印全部"
         Height          =   345
         Left            =   195
         TabIndex        =   4
         Top             =   270
         Value           =   -1  'True
         Width           =   1095
      End
      Begin VB.OptionButton Op_DZitem 
         Caption         =   "打印項(xiàng)目統(tǒng)計(jì)工時(shí)(部門中組項(xiàng)目)"
         Height          =   450
         Left            =   195
         TabIndex        =   3
         Top             =   1185
         Width           =   3135
      End
      Begin VB.OptionButton Op_dept 
         Caption         =   "打印部門統(tǒng)計(jì)工時(shí)"
         Height          =   285
         Left            =   195
         TabIndex        =   2
         Top             =   765
         Width           =   1755
      End
      Begin VB.OptionButton Op_Group 
         Caption         =   "打印組統(tǒng)計(jì)工時(shí)"
         Height          =   300
         Left            =   2040
         TabIndex        =   1
         Top             =   270
         Width           =   1575
      End
   End
End
Attribute VB_Name = "frm_gstjPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sql As String

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Command1_Click()
On Error Resume Next
If Op_full.Value = True Then
sql = "select 部門編號,部門名稱,項(xiàng)目編號,項(xiàng)目名稱,分組編號,組總工時(shí),部門總工時(shí),項(xiàng)目總工時(shí) from 錄入工時(shí)表"
DataE1.rsCommand3.Open sql
DataRT.Show
End If

If Op_dept.Value = True Then
sql = "select 部門編號,部門名稱,項(xiàng)目編號,項(xiàng)目名稱,分組編號,部門總工時(shí) from 錄入工時(shí)表 where 部門總工時(shí)<> ''"
DataE1.rsCommand3.Open sql
DataR_TJBM.Show
End If

If Op_Group.Value = True Then
sql = "select 分組編號, 部門編號,部門名稱,項(xiàng)目編號,項(xiàng)目名稱,組總工時(shí) from 錄入工時(shí)表 where 組總工時(shí)<>''"
DataE1.rsCommand3.Open sql
If DataE1.rsCommand3.RecordCount > 0 Then
DataR_TJZ.Show
Else
End If
End If

If Op_DZitem.Value = True Then
sql = "select 部門編號,部門名稱,項(xiàng)目編號,項(xiàng)目名稱,分組編號,項(xiàng)目總工時(shí) from 錄入工時(shí)表 where 項(xiàng)目總工時(shí)<> ''"
DataE1.rsCommand3.Open sql
DataR_TJXM.Show
End If

If Op_Item.Value = True Then
DataE1.rsCommand3.Open "select 項(xiàng)目編號,項(xiàng)目名稱,工時(shí)統(tǒng)計(jì)結(jié)果 from 公司工作項(xiàng)目表"
DataRXMTJ.Show
End If
Unload Me
End Sub