frm_gstjprint.frm

企业生产管理系统 提供对企业的日常生产管理

VERSION 5.00
Begin VB.Form frm_gstjPrint 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "工时统计打印"
   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         =   "打印项目统计工时"
         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         =   "打印项目统计工时(部门中组项目)"
         Height          =   450
         Left            =   195
         TabIndex        =   3
         Top             =   1185
         Width           =   3135
      End
      Begin VB.OptionButton Op_dept 
         Caption         =   "打印部门统计工时"
         Height          =   285
         Left            =   195
         TabIndex        =   2
         Top             =   765
         Width           =   1755
      End
      Begin VB.OptionButton Op_Group 
         Caption         =   "打印组统计工时"
         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 部门编号,部门名称,项目编号,项目名称,分组编号,组总工时,部门总工时,项目总工时 from 录入工时表"
DataE1.rsCommand3.Open sql
DataRT.Show
End If

If Op_dept.Value = True Then
sql = "select 部门编号,部门名称,项目编号,项目名称,分组编号,部门总工时 from 录入工时表 where 部门总工时<> ''"
DataE1.rsCommand3.Open sql
DataR_TJBM.Show
End If

If Op_Group.Value = True Then
sql = "select 分组编号, 部门编号,部门名称,项目编号,项目名称,组总工时 from 录入工时表 where 组总工时<>''"
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 部门编号,部门名称,项目编号,项目名称,分组编号,项目总工时 from 录入工时表 where 项目总工时<> ''"
DataE1.rsCommand3.Open sql
DataR_TJXM.Show
End If

If Op_Item.Value = True Then
DataE1.rsCommand3.Open "select 项目编号,项目名称,工时统计结果 from 公司工作项目表"
DataRXMTJ.Show
End If
Unload Me
End Sub