frmeveryprint.frm

此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmeveryprint 
   Caption         =   "产量资料打印"
   ClientHeight    =   2925
   ClientLeft      =   3495
   ClientTop       =   3135
   ClientWidth     =   5865
   Icon            =   "frmeveryprint.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2925
   ScaleWidth      =   5865
   Begin VB.CommandButton cmdok 
      Caption         =   "确认"
      Height          =   340
      Left            =   1800
      TabIndex        =   4
      Top             =   2400
      UseMaskColor    =   -1  'True
      Width           =   975
   End
   Begin VB.CommandButton cmdcancel 
      Caption         =   "取消"
      Height          =   340
      Left            =   3240
      TabIndex        =   3
      Top             =   2400
      UseMaskColor    =   -1  'True
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Caption         =   "参数选项"
      ForeColor       =   &H00000080&
      Height          =   2055
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5535
      Begin VB.ComboBox cmbtype 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "frmeveryprint.frx":030A
         Left            =   1560
         List            =   "frmeveryprint.frx":0314
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   480
         Width           =   1575
      End
      Begin MSComCtl2.DTPicker DTP2 
         Height          =   375
         Left            =   3720
         TabIndex        =   5
         Top             =   1200
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   661
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         CalendarForeColor=   16711680
         CalendarTitleBackColor=   255
         Format          =   61145089
         CurrentDate     =   36400
      End
      Begin MSComCtl2.DTPicker DTP1 
         Height          =   375
         Left            =   1560
         TabIndex        =   6
         Top             =   1200
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         CalendarForeColor=   16711680
         CalendarTitleBackColor=   255
         Format          =   61145089
         CurrentDate     =   36400
      End
      Begin VB.Label lbl 
         Caption         =   "到:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   0
         Left            =   3240
         TabIndex        =   8
         Top             =   1200
         Width           =   375
      End
      Begin VB.Label lbl1 
         Caption         =   "生产日期："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   7
         Top             =   1200
         Width           =   1215
      End
      Begin VB.Label lbl1 
         Caption         =   "报表类型："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   2
         Top             =   480
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frmeveryprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As Recordset
Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdok_Click()
Me.MousePointer = 11
    sqlcc1 = "生产日期从:" & "[" & DTP1.value & "]" & "至:" & "[" & DTP2.value & "]"
   
    Select Case Cmbtype.Text
      Case "产量日报表"
         sqlcc2 = "select *,(bigqty+total) as totalsum from everyday where shengdate>=" & "'" & DTP1.value & "'" & " and " & "shengdate<=" & "'" & DTP2.value & "'" & " order by shengdate"
         'ARevery1print.Show 1'2002-08-24
'            Dim rs As Recordset
            Set rs = New Recordset
            rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
            If rs.RecordCount > 0 Then
                 rs.Close
                 Set rs = Nothing
                 ARevery1print.Show 1
            Else
                 rs.Close
                 Set rs = Nothing
                 MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                 Me.MousePointer = 0
                 Exit Sub
            End If
      Case "产量月报表"
         sqlcc2 = "select month,sum(total) as Sqty,sum(bigqty) as bqty,sum(total+bigqty) as totalsum from everytotal where shengdate>=" & "'" & DTP1.value & "'" & " and " & "shengdate<=" & "'" & DTP2.value & "'" & " group by month order by month"
         'ARevery2print.Show 1'2002-08-24
            'Dim rs As Recordset
            Set rs = New Recordset
            rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
            If rs.RecordCount > 0 Then
                 rs.Close
                 Set rs = Nothing
                 ARevery2print.Show 1
            Else
                 rs.Close
                 Set rs = Nothing
                 MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
                 Me.MousePointer = 0
                 Exit Sub
            End If
    End Select
Me.MousePointer = 0
End Sub

Private Sub Form_Activate()
    Cmbtype.SetFocus
End Sub

Private Sub Form_Load()
   Cmbtype.ListIndex = 0
   DTP1.value = "1/1/2002"
   DTP2.value = Date
End Sub

Private Sub Form_Resize()
'On Error Resume Next
'Me.Top = 0
'Me.Left = 50
End Sub