?? frmrptmat.frm
字號:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmRptMat
Caption = "倉庫庫存表設置"
ClientHeight = 3300
ClientLeft = 60
ClientTop = 345
ClientWidth = 5700
Icon = "FrmRptMat.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3300
ScaleWidth = 5700
Begin MSComDlg.CommonDialog ComDlgRpt
Left = 2640
Top = 1440
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton CmdRpt
Caption = "退出(&X)"
Height = 420
Index = 3
Left = 4320
TabIndex = 16
Top = 2520
Width = 1275
End
Begin VB.CommandButton CmdRpt
Caption = "生成報表(&T)"
Enabled = 0 'False
Height = 420
Index = 2
Left = 2820
TabIndex = 15
Top = 2520
Width = 1275
End
Begin VB.CommandButton CmdRpt
Caption = "導出報表(&E)"
Enabled = 0 'False
Height = 420
Index = 1
Left = 4320
TabIndex = 14
Top = 1920
Width = 1275
End
Begin VB.CommandButton CmdRpt
Caption = "打印設置(&P)"
Height = 420
Index = 0
Left = 2820
TabIndex = 13
Top = 1920
Width = 1275
End
Begin VB.Frame Frame1
Caption = "報表日期"
Height = 675
Index = 2
Left = 2520
TabIndex = 6
Top = 720
Width = 3135
Begin VB.TextBox TxtDay
Height = 300
Left = 2040
MaxLength = 2
TabIndex = 12
Top = 240
Width = 315
End
Begin VB.TextBox TxtMonth
Height = 300
Left = 1380
MaxLength = 2
TabIndex = 11
Top = 240
Width = 315
End
Begin VB.TextBox TxtYear
Height = 300
Left = 540
MaxLength = 4
TabIndex = 10
Top = 240
Width = 495
End
Begin VB.Label Label1
Caption = "日"
Height = 195
Index = 2
Left = 2400
TabIndex = 9
Top = 300
Width = 195
End
Begin VB.Label Label1
Caption = "月"
Height = 195
Index = 1
Left = 1800
TabIndex = 8
Top = 300
Width = 195
End
Begin VB.Label Label1
Caption = "年"
Height = 195
Index = 0
Left = 1140
TabIndex = 7
Top = 300
Width = 195
End
End
Begin VB.Frame Frame1
Caption = "報表類別"
Height = 675
Index = 1
Left = 2520
TabIndex = 2
Top = 0
Width = 3135
Begin VB.OptionButton OptRptType
Caption = "年報"
Height = 195
Index = 2
Left = 2220
TabIndex = 5
Top = 300
Width = 855
End
Begin VB.OptionButton OptRptType
Caption = "月報"
Height = 195
Index = 1
Left = 1260
TabIndex = 4
Top = 300
Width = 855
End
Begin VB.OptionButton OptRptType
Caption = "日報"
Height = 195
Index = 0
Left = 300
TabIndex = 3
Top = 300
Value = -1 'True
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "物品類別"
Height = 3255
Index = 0
Left = 0
TabIndex = 0
Top = 0
Width = 2475
Begin MSDataListLib.DataList DLtProType
Bindings = "FrmRptMat.frx":0442
Height = 3000
Left = 60
TabIndex = 1
Top = 180
Width = 2355
_ExtentX = 4154
_ExtentY = 5292
_Version = 393216
ListField = "type_name"
BoundColumn = "type_id"
Object.DataMember = "ComProType"
End
End
End
Attribute VB_Name = "FrmRptMat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private cmRpt As ADODB.Command
Private rsRpt As ADODB.Recordset
Private rsExpMat As ADODB.Recordset
Private rsPriMat As ADODB.Recordset
Public strRptCap As String
Public strRptDte As String
Public strRptTyp As String
Private Sub CmdRpt_Click(Index As Integer)
Dim strSQL As String
Select Case Index
Case 0
ComDlgRpt.ShowPrinter
Case 1
If TxtDay.Enabled = False Then TxtDay.Text = ""
If TxtMonth.Enabled = False Then TxtMonth.Text = ""
If DateIsTrue(TxtYear.Text, TxtMonth.Text, TxtDay.Text) Then
Call Mat_Rpt
If Dir(App.Path & "\xls\matrpt.xls") <> "" Then
Kill App.Path & "\xls\matrpt.xls"
End If
strSQL = "select p_id as 物品編號,product_name as 物品名稱," & _
"product_model as 物品型號,unit as 單位,unit_price as 單價," & _
"matbegqty as 期初數量,matbegprice as 期初金額,orderqty " & _
"as 入庫數量,orderprice as 入庫金額,saleqty as 出庫數量," & _
"saleprice as 出庫金額,matendqty as 期末數量,matendprice as " & _
"期末金額 into [Excel 8.0;database=" & App.Path & _
"\xls\matrpt.xls].mat from rpt_mat"
rsExpMat.Open strSQL, DEjxc.Conjxc, adOpenStatic, adLockOptimistic
'rsExpMat.Close
MsgBox "文件輸出到" & App.Path & "\xls\matrpt.xls", vbInformation, "輸出完畢"
Else
MsgBox "日期錯誤或大于系統啟用日期!", vbCritical, "報表輸出錯誤"
End If
Case 2
If TxtDay.Enabled = False Then TxtDay.Text = ""
If TxtMonth.Enabled = False Then TxtMonth.Text = ""
If DateIsTrue(TxtYear.Text, TxtMonth.Text, TxtDay.Text) Then
Call Mat_Rpt
rsPriMat.Close
RptJxc.Show
Else
MsgBox "日期錯誤或大于系統啟用日期!", vbCritical, "報表生成錯誤"
End If
Case 3
Unload Me
End Select
End Sub
Private Sub DLtProType_Click()
If Me.DLtProType.BoundText <> "" Then
CmdRpt(1).Enabled = True
CmdRpt(2).Enabled = True
strRptTyp = Me.DLtProType.Text
End If
End Sub
Private Sub Form_Load()
intNumWindows = OpenWindow(intNumWindows)
Me.Height = 3705
Me.Width = 5820
Call SetFormStu(Me, frmMain)
Set cmRpt = New ADODB.Command
cmRpt.ActiveConnection = DEjxc.Conjxc
cmRpt.CommandType = adCmdText
Set rsRpt = New ADODB.Recordset
Set rsExpMat = New ADODB.Recordset
Set rsPriMat = DEjxc.rsComRptMat
rsPriMat.Open
TxtYear.Text = Year(dteSysDate)
TxtMonth.Text = Month(dteSysDate)
TxtDay.Text = Day(dteSysDate)
End Sub
Private Sub Form_Unload(Cancel As Integer)
intNumWindows = Closewindow(intNumWindows)
rsPriMat.Close
Set cmRpt = Nothing
Set rsRpt = Nothing
Set rsExpMat = Nothing
Set rsPriMat = Nothing
End Sub
Private Sub OptRptType_Click(Index As Integer)
Select Case Index
Case 0
Me.TxtDay.Enabled = True
Me.TxtMonth.Enabled = True
Case 1
Me.TxtDay.Enabled = False
Me.TxtMonth.Enabled = True
Case 2
Me.TxtDay.Enabled = False
Me.TxtMonth.Enabled = False
End Select
End Sub
Private Sub OptRptType_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
TxtYear.SelStart = 0
TxtYear.SelLength = Len(TxtYear.Text)
TxtYear.SetFocus
End If
End Sub
Private Sub TxtDay_KeyPress(KeyAscii As Integer)
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -