?? 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預(yù)覽"
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 "沒有數(shù)據(jù)可打印，請先查詢！", 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)
' 設(shè)置第一列的寬度
excelSheet.Columns(getExcelColId(1) & ":" & getExcelColId(1)).ColumnWidth = 10 ' flexgrd.ColWidth(L)
excelSheet.Columns(getExcelColId(3) & ":" & getExcelColId(3)).ColumnWidth = 6
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -