?? frm_gstjprint.frm
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -