?? frmmsale.frm
字號:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmMsale
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 8730
ClientLeft = 0
ClientTop = 0
ClientWidth = 11850
LinkTopic = "Form1"
Picture = "frmMsale.frx":0000
ScaleHeight = 8730
ScaleWidth = 11850
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 6480
TabIndex = 7
Top = 2640
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
Format = 149946369
CurrentDate = 38430
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 4200
TabIndex = 6
Top = 2640
Width = 1695
_ExtentX = 2990
_ExtentY = 661
_Version = 393216
Format = 149946369
CurrentDate = 38430
End
Begin VB.CommandButton Command1
Caption = "銷售報表"
Height = 375
Left = 8160
TabIndex = 5
Top = 2640
Width = 1815
End
Begin VB.CommandButton Command3
Height = 495
Left = 720
Picture = "frmMsale.frx":D004
Style = 1 'Graphical
TabIndex = 0
Top = 2520
Width = 2055
End
Begin VB.CommandButton Command6
Height = 495
Left = 720
Picture = "frmMsale.frx":11942
Style = 1 'Graphical
TabIndex = 1
Top = 3120
Width = 2055
End
Begin VB.CommandButton Command7
Height = 495
Left = 720
Picture = "frmMsale.frx":162D2
Style = 1 'Graphical
TabIndex = 2
Top = 3720
Width = 2055
End
Begin VB.CommandButton Command8
Height = 495
Left = 720
Picture = "frmMsale.frx":1AD21
Style = 1 'Graphical
TabIndex = 4
Top = 4920
Width = 2055
End
Begin VB.CommandButton Command9
Height = 495
Left = 720
Picture = "frmMsale.frx":1F709
Style = 1 'Graphical
TabIndex = 3
Top = 4320
Width = 2055
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "到"
Height = 255
Left = 6000
TabIndex = 9
Top = 2760
Width = 375
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "從"
Height = 255
Left = 3840
TabIndex = 8
Top = 2760
Width = 255
End
End
Attribute VB_Name = "frmMsale"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim m1, m2, d1, d2
If Me.DTPicker1.Month < 10 Then
m1 = "0" & Me.DTPicker1.Month
Else
m1 = DTPicker1.Month
End If
If Me.DTPicker2.Month < 10 Then
m2 = "0" & DTPicker2.Month
Else
m2 = DTPicker2.Month
End If
If DTPicker1.Day < 10 Then
d1 = "0" & DTPicker1.Day
Else
d1 = DTPicker1.Day
End If
If DTPicker2.Day < 10 Then
d2 = "0" & DTPicker2.Day
Else
d2 = DTPicker2.Day
End If
If DataEvir.rsCommand1.State = adStateOpen Then
DataEvir.rsCommand1.Close
End If
DataEvir.rsCommand1.Source = "SELECT DrugID, SUM(SaleNum) AS num, Name, Unit, (SUM(SaleNum)* StorePrice) AS total " & _
" From SaleDBV where saledate>='" & _
Me.DTPicker1.Year & m1 & d1 & _
"' and saledate<='" & Me.DTPicker2.Year & m2 & d2 & "'" & _
" GROUP BY DrugID, Name, Unit, StorePrice"
'MsgBox DataEvir.rsCommand1.Source
DataEvir.rsCommand1.Open
If DataEvir.rsCommand1.RecordCount > 0 Then
repSale.PrintReport False
'repSale.Show (1)
End If
End Sub
Private Sub Command2_Click()
Unload Me
frmMadd.Show (1)
End Sub
Private Sub Command3_Click()
Unload Me
frmMsale.Show (1)
End Sub
Private Sub Command4_Click()
Unload Me
frmMdel.Show (1)
End Sub
Private Sub Command5_Click()
Unload Me
frmMpd.Show (1)
End Sub
Private Sub Command6_Click()
Unload Me
frmMadd.Show (1)
End Sub
Private Sub Command7_Click()
'Unload Me
frmMchpwd.Show (1)
End Sub
Private Sub Command8_Click()
Unload Me
frmMsystem.Show (1)
End Sub
Private Sub Command9_Click()
Unload Me
frmMotc.Show (1)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -