form_wastebook.frm

仓库扫描管理系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form form_wasteBook 
   BackColor       =   &H00C0FFFF&
   Caption         =   "收支流水帐"
   ClientHeight    =   7935
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12570
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   7935
   ScaleWidth      =   12570
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0FFFF&
      Caption         =   "出入库选项"
      Height          =   855
      Left            =   5400
      TabIndex        =   11
      Top             =   0
      Width           =   3735
      Begin VB.OptionButton optInOrOut 
         BackColor       =   &H00C0FFFF&
         Caption         =   "出库"
         Height          =   255
         Index           =   2
         Left            =   2640
         TabIndex        =   14
         Top             =   360
         Width           =   975
      End
      Begin VB.OptionButton optInOrOut 
         BackColor       =   &H00C0FFFF&
         Caption         =   "入库"
         Height          =   255
         Index           =   1
         Left            =   1440
         TabIndex        =   13
         Top             =   360
         Width           =   855
      End
      Begin VB.OptionButton optInOrOut 
         BackColor       =   &H00C0FFFF&
         Caption         =   "所有"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   12
         Top             =   360
         Value           =   -1  'True
         Width           =   855
      End
   End
   Begin VB.CheckBox chkDisplayAllCols 
      BackColor       =   &H00C0FFFF&
      Caption         =   "显示所有列"
      Height          =   255
      Left            =   9360
      TabIndex        =   10
      Top             =   120
      Value           =   1  'Checked
      Width           =   1335
   End
   Begin VB.CommandButton cmdPrint 
      BackColor       =   &H00FF8080&
      Caption         =   "&P预览"
      Height          =   315
      Left            =   11040
      Picture         =   "form_wasteBook.frx":0000
      TabIndex        =   5
      Top             =   600
      Width           =   975
   End
   Begin VB.CommandButton cmdReturn 
      BackColor       =   &H00FF8080&
      Caption         =   "&X返回"
      Height          =   315
      Left            =   11040
      Picture         =   "form_wasteBook.frx":11DE
      TabIndex        =   4
      Top             =   0
      Width           =   975
   End
   Begin VB.ComboBox cmbField 
      Height          =   315
      ItemData        =   "form_wasteBook.frx":23BC
      Left            =   1200
      List            =   "form_wasteBook.frx":23BE
      Style           =   2  'Dropdown List
      TabIndex        =   3
      Top             =   480
      Width           =   1785
   End
   Begin VB.TextBox txtConditon 
      Height          =   315
      Left            =   3105
      TabIndex        =   2
      Text            =   "*"
      Top             =   480
      Width           =   2145
   End
   Begin VB.CommandButton cmdQuery 
      BackColor       =   &H00FF8080&
      Caption         =   "&Q查询"
      Height          =   315
      Left            =   9360
      Picture         =   "form_wasteBook.frx":23C0
      TabIndex        =   1
      Top             =   600
      Width           =   975
   End
   Begin MSFlexGridLib.MSFlexGrid mfgStock 
      Height          =   6855
      Left            =   120
      TabIndex        =   0
      Top             =   960
      Width           =   12225
      _ExtentX        =   21564
      _ExtentY        =   12091
      _Version        =   393216
      AllowUserResizing=   1
   End
   Begin MSComCtl2.DTPicker DTP1 
      Height          =   315
      Left            =   1200
      TabIndex        =   6
      Top             =   120
      Width           =   1785
      _ExtentX        =   3149
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Format          =   23855105
      CurrentDate     =   38899
      MaxDate         =   73415
      MinDate         =   2
   End
   Begin MSComCtl2.DTPicker DTP2 
      Height          =   315
      Left            =   3480
      TabIndex        =   7
      Top             =   120
      Width           =   1785
      _ExtentX        =   3149
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Format          =   23855105
      CurrentDate     =   39082
      MaxDate         =   73415
      MinDate         =   2
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "到"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3105
      TabIndex        =   9
      Top             =   120
      Width           =   330
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Transparent
      Caption         =   "起止日期："
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   120
      TabIndex        =   8
      Top             =   120
      Width           =   1245
   End
End
Attribute VB_Name = "form_wasteBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim s, y, i     '定义变量
Dim rsStock As Recordset
Dim sqlMaster As String
Dim sqlOrderBy As String

Private Sub chkDisplayAllCols_Click()
    If chkDisplayAllCols.Value = 1 Then
        setFlexGridColsWidth s, mfgStock
    End If
End Sub

Private Sub cmdPrint_Click()
    Dim excelSheet As New Excel.Worksheet
    If mfgStock.rows = mfgStock.FixedRows Then
        MsgBox "没有数据可打印，请先查询！", vbInformation, "提示"
        Exit Sub
    End If
    Dim rptTitle As String
    rptTitle = "收支流水帐"
    If Me.optInOrOut(1).Value = True Then
        rptTitle = "入库流水帐"
    End If
    If Me.optInOrOut(2).Value = True Then
        rptTitle = "出库流水帐"
    End If
    Dim dtlRow As Integer
    dtlRow = 3
    Set excelSheet = flexgridToExcel(mfgStock, dtlRow)
    
    ' 设置第一列的宽度
    excelSheet.Columns(getExcelColId(1) & ":" & getExcelColId(1)).ColumnWidth = 10 ' flexgrd.ColWidth(L)
    excelSheet.Columns(getExcelColId(3) & ":" & getExcelColId(3)).ColumnWidth = 6