frm_gprint.frm

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

VERSION 5.00
Begin VB.Form Frm_Gprint 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "打印选择"
   ClientHeight    =   1800
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4875
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1800
   ScaleWidth      =   4875
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Height          =   1590
      Left            =   90
      TabIndex        =   0
      Top             =   60
      Width           =   4635
      Begin VB.OptionButton Op1 
         Caption         =   "打印全部"
         Height          =   300
         Left            =   270
         TabIndex        =   5
         Top             =   210
         Value           =   -1  'True
         Width           =   1020
      End
      Begin VB.OptionButton Op2 
         Caption         =   "打印在线生产"
         Height          =   300
         Left            =   255
         TabIndex        =   4
         Top             =   615
         Width           =   1485
      End
      Begin VB.OptionButton Op3 
         Caption         =   "打印不在线"
         Height          =   225
         Left            =   270
         TabIndex        =   3
         Top             =   1080
         Width           =   1260
      End
      Begin VB.CommandButton cmdexit 
         Caption         =   "退出(&E)"
         Height          =   270
         Left            =   3255
         TabIndex        =   2
         Top             =   1110
         Width           =   1290
      End
      Begin VB.CommandButton cmd_Print 
         Caption         =   "打印(&P)"
         Height          =   270
         Left            =   1980
         TabIndex        =   1
         Top             =   1110
         Width           =   1290
      End
   End
End
Attribute VB_Name = "Frm_Gprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sql As String
Private Sub cmd_Print_Click()
sql = "select 项目编号,项目名称,是否在线 from 公司工作项目表"
If Op1.Value = True Then
sql = sql
End If
If Op2.Value = True Then
sql = sql + " where 是否在线 ='在线生产'"
End If
If Op3.Value = True Then
sql = sql + " where 是否在线 ='不在线'"
End If
DataE1.rsCommand2.Open sql
DataRGsWork.Show
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub