?? frmarrearage.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmArrearage
Caption = "掛帳管理"
ClientHeight = 6015
ClientLeft = 60
ClientTop = 630
ClientWidth = 8820
Icon = "frmArrearage.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 6015
ScaleWidth = 8820
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Height = 780
Left = 75
TabIndex = 5
Top = 60
Width = 9495
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "關閉(&C)"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 8235
TabIndex = 4
Top = 225
Width = 1275
End
Begin VB.CommandButton cmdPrint
Caption = "打印(&P)"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 6870
TabIndex = 3
ToolTipText = "打印掛帳單列表"
Top = 225
Width = 1275
End
Begin VB.CommandButton cmdToday
Caption = "今日掛帳"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 5610
TabIndex = 2
ToolTipText = "僅顯示今日的掛帳"
Top = 225
Width = 1275
End
Begin VB.CommandButton cmdSearch
Caption = "查詢(&F)"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 4350
TabIndex = 1
ToolTipText = "查詢按扭,查詢其它時間段掛帳及會員掛帳。"
Top = 225
Width = 1275
End
Begin VB.CommandButton cmdCheckOut
Caption = "結帳(&H)"
Enabled = 0 'False
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3090
TabIndex = 0
ToolTipText = "查詢按扭,查詢其它時間段掛帳及會員掛帳。"
Top = 225
Width = 1275
End
Begin VB.Image Image1
Height = 480
Left = 135
Picture = "frmArrearage.frx":0BC2
Top = 210
Width = 480
End
Begin VB.Label Label1
AutoSize = -1 'True
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
ForeColor = &H00400000&
Height = 240
Index = 0
Left = 750
TabIndex = 6
Top = 345
Width = 1980
End
End
Begin MSComctlLib.ListView lstPro
Height = 3675
Left = 75
TabIndex = 7
ToolTipText = "雙擊顯示消費清單"
Top = 885
Width = 6075
_ExtentX = 10716
_ExtentY = 6482
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 11
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "單號"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "會員編號"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "會員名稱"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "掛帳日期"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "時"
Object.Width = 706
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "分"
Object.Width = 706
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 6
Text = "掛帳金額"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "歸還日期"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 8
Text = "實付金額"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 9
Text = "操作員"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "經辦人"
Object.Width = 1587
EndProperty
End
Begin VB.Menu mnuMenuArrearage
Caption = "操作菜單(&M)"
Begin VB.Menu mnuViewArrearage
Caption = "查看掛帳單據明細(&View)"
Shortcut = ^V
End
Begin VB.Menu fasff
Caption = "-"
End
Begin VB.Menu mnuPay
Caption = "結帳(C&heckOut)"
End
Begin VB.Menu dddfdf
Caption = "-"
End
Begin VB.Menu mnuTodayArrearage
Caption = "顯示今日掛帳(&Today)"
Shortcut = {F5}
End
Begin VB.Menu mnuWeekArrearage
Caption = "顯示本周掛帳(&Week)"
Shortcut = {F6}
End
Begin VB.Menu dafsfdffff
Caption = "-"
End
Begin VB.Menu mnuFindArrearage
Caption = "查詢掛帳單(&Find)"
Shortcut = ^F
End
Begin VB.Menu mnuAllArrearage
Caption = "顯示所有掛帳單(&All)"
Shortcut = ^A
End
Begin VB.Menu fgggg
Caption = "-"
End
Begin VB.Menu mnuPrintArrearage
Caption = "打印掛帳單(&Print)"
Shortcut = ^P
End
End
End
Attribute VB_Name = "frmArrearage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdCheckOut_Click()
On Error GoTo CheckOutERR
If lstPro.ListItems.Count = 0 Then Exit Sub
If lstPro.SelectedItem.Text = "" Then
MsgBox "請選擇任一掛帳單后進行付帳。 ", vbExclamation
lstPro.SetFocus
Exit Sub
End If
If lstPro.SelectedItem.SubItems(8) <> "0" Then
MsgBox "該掛帳單已經結帳，不能再結？ ", vbExclamation
lstPro.SetFocus
Exit Sub
End If
sArrearagePaymethod = ""
'顯示付款方式
frmShowPayMethod.Show 1
If sArrearagePaymethod = "" Then
MsgBox "付款方式為空，不能結帳？ ", vbExclamation
Exit Sub
End If
Dim sTmpID As String, sTmpMoney As String, stmpMember As String
sTmpID = lstPro.SelectedItem.Text '消費單號
sTmpMoney = lstPro.SelectedItem.SubItems(6) '金額
stmpMember = lstPro.SelectedItem.SubItems(1) '會員編號
If MsgBox("消費單【" & sTmpID & "】的掛帳金額為（" & sTmpMoney & "元）, " & vbCrLf _
& "現在立即通過『" & sArrearagePaymethod & "』付款嗎（是/否） ？ ", vbInformation + vbYesNo) = vbNo Then Exit Sub
'顯示結帳信息
Dim sTmp As String
Dim jDB As Connection
Set jDB = CreateObject("ADODB.Connection")
jDB.Open Constr
jDB.BeginTrans
'1/添加付款流水帳
InserToCash jDB, 1, "【" & lstPro.SelectedItem.SubItems(2) & "】付的掛帳款", CCur(sTmpMoney), Date, sArrearagePaymethod
'2/添加到現金表中
InserTodayCash jDB, sArrearagePaymethod, CCur(sTmpMoney), Date
'3/修改掛帳中金額及付款日期
If IsSqlDat = True Then
sTmp = "Update tbdArrearage Set MSFAmount=" & sTmpMoney & ",MReturn=1,MRDate='" & Date & "' Where SheelID=" & sTmpID
Else
sTmp = "Update tbdArrearage Set MSFAmount=" & sTmpMoney & ",MReturn=1,MRDate=#" & Date & "# Where SheelID=" & sTmpID
End If
jDB.Execute sTmp
'4/修改會員的累計消費
UpdateGuestLJ jDB, stmpMember, CCur(sTmpMoney), -CCur(sTmpMoney)
jDB.CommitTrans
jDB.Close
Set jDB = Nothing
MsgBox " 結 帳 完 畢 ！ ", vbInformation
'刷新列表
DisplayArrearageData
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -