📄 frmreturnitems.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmReturnItems
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "回收项目"
ClientHeight = 8415
ClientLeft = 2265
ClientTop = 2370
ClientWidth = 12960
Icon = "frmReturnItems.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8415
ScaleWidth = 12960
Begin VB.Frame Frame2
Height = 705
Left = 120
TabIndex = 15
Top = 3360
Width = 12615
Begin VB.OptionButton Check1
Caption = "筛选项目编号："
Height = 255
Left = 120
TabIndex = 28
Top = 240
Width = 1575
End
Begin VB.OptionButton Opt1
Caption = "已过期|"
Height = 375
Left = 7320
TabIndex = 26
Top = 210
Width = 975
End
Begin VB.CommandButton cmdFlexToExcel
Caption = "导出内容到Excel"
Height = 375
Left = 10320
TabIndex = 23
Top = 240
Width = 1935
End
Begin VB.ComboBox cboUnreturnedItemsSortBy
Height = 300
ItemData = "frmReturnItems.frx":57E2
Left = 1800
List = "frmReturnItems.frx":57E4
Sorted = -1 'True
TabIndex = 2
Top = 240
Width = 1815
End
Begin VB.OptionButton OptUnreturnedItemsAsc
Caption = "全部加载"
Height = 255
Left = 6000
TabIndex = 3
Top = 270
Value = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 375
Left = 8520
TabIndex = 4
Top = 240
Width = 1455
End
Begin VB.Label Label3
Caption = "|显示类型:"
Height = 255
Left = 4800
TabIndex = 27
Top = 290
Width = 975
End
End
Begin VB.Frame FrameII
Height = 4215
Left = 120
TabIndex = 16
Top = 4080
Width = 12615
Begin VB.TextBox txtfhsl
Alignment = 2 'Center
Height = 375
Left = 5160
TabIndex = 25
Top = 3120
Width = 975
End
Begin VB.TextBox txtChange
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 11040
Locked = -1 'True
TabIndex = 13
Top = 3600
Width = 1335
End
Begin VB.TextBox txtAmountPaid
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 11040
TabIndex = 12
Top = 3240
Width = 1335
End
Begin VB.CheckBox chkEnablePrintReceipt
Caption = "是否打印收据"
Height = 375
Left = 11040
TabIndex = 9
Top = 120
Value = 1 'Checked
Width = 1455
End
Begin VB.TextBox txtTotal
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 11040
Locked = -1 'True
TabIndex = 11
Text = "0.00"
Top = 2880
Width = 1335
End
Begin MSFlexGridLib.MSFlexGrid FlexOverdue
Height = 2250
Left = 8520
TabIndex = 10
Top = 480
Width = 3975
_ExtentX = 7011
_ExtentY = 3969
_Version = 393216
FixedCols = 0
AllowUserResizing= 3
End
Begin VB.CommandButton cmdExecute
Caption = "确认回收"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 7080
TabIndex = 14
Top = 3240
Width = 1215
End
Begin VB.CommandButton cmdTransferToLeft
Caption = "<=="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 8
Top = 1920
Width = 975
End
Begin VB.CommandButton cmdTransferToRight
Caption = "==>"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 6
Top = 1200
Width = 975
End
Begin VB.ListBox lst2
Height = 2580
ItemData = "frmReturnItems.frx":57E6
Left = 3120
List = "frmReturnItems.frx":57E8
TabIndex = 7
Top = 480
Width = 5175
End
Begin VB.ListBox lst1
Height = 3480
ItemData = "frmReturnItems.frx":57EA
Left = 240
List = "frmReturnItems.frx":57EC
TabIndex = 5
Top = 480
Width = 1695
End
Begin VB.Label Label4
Caption = "返还数量："
Height = 255
Left = 4200
TabIndex = 24
Top = 3240
Width = 975
End
Begin VB.Label Label2
Caption = "找零:"
Height = 255
Index = 4
Left = 10320
TabIndex = 22
Top = 3600
Width = 495
End
Begin VB.Label Label2
Caption = "已付款:"
Height = 255
Index = 3
Left = 10200
TabIndex = 21
Top = 3240
Width = 735
End
Begin VB.Label Label2
Caption = "总金额:"
Height = 255
Index = 2
Left = 10200
TabIndex = 20
Top = 2880
Width = 735
End
Begin VB.Label Label2
Caption = "过期需支付滞留金："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 8520
TabIndex = 19
Top = 240
Width = 1935
End
Begin VB.Label Label2
Caption = "要返还的项目编号："
Height = 255
Index = 0
Left = 3600
TabIndex = 18
Top = 240
Width = 2895
End
Begin VB.Label Label1
Caption = "在租的项目编号："
Height = 255
Left = 240
TabIndex = 17
Top = 240
Width = 2655
End
End
Begin VB.Frame frmReturnItems1
Caption = "在租项目："
Height = 3255
Left = 0
TabIndex = 0
Top = 120
Width = 12855
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2895
Left = 120
TabIndex = 1
Top = 240
Width = 12615
_ExtentX = 22251
_ExtentY = 5106
_Version = 393216
Cols = 9
AllowUserResizing= 1
End
End
End
Attribute VB_Name = "frmReturnItems"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FlagPrevActivate As Boolean
Private Sub cmdExecute_Click()
MousePointer = vbHourglass
Dim ReturnSuccess As Boolean
Dim TDM
Dim strInvNum As String
Dim intInvNum, loop1 As Long
Dim vr_engine As VRENTAL_ENGINE
Set vr_engine = New VRENTAL_ENGINE
If lst2.ListCount = 0 Then
MousePointer = vbDefault
MSFlexGrid1.SetFocus
Exit Sub
End If
' 如果项目过期则保存纪录至 DB
If Trim(FlexOverdue.TextMatrix(1, 0)) <> "" Then ' SAVE TRANS
'' Load Invoice Number
If vr_engine.ReportFileStatus(App.Path & "\InvoiceNumber.txt") = True Then
Open App.Path & "\InvoiceNumber.txt" For Input As #1
Line Input #1, strInvNum
Close #1
If IsNumeric(strInvNum) = True Then
intInvNum = Int(Val(strInvNum)) + 1
Else
Open App.Path & "\InvoiceNumber.txt" For Output As #1
Print #1, "1"
Close #1
intInvNum = 1
End If
Else
Open App.Path & "\InvoiceNumber.txt" For Output As #1
Print #1, "1"
Close #1
intInvNum = 1
End If
strInvNum = str(intInvNum)
'' End Load Invoice Number
Call vr_engine.CheckIfMiscTransSalesDBExistIfNotCreate
Call vr_engine.Return_SaveReturnTransaction(FlexOverdue, str(strInvNum))
End If ' END SAVE TRANS TO DB
If chkEnablePrintReceipt.Value = False Then '假如不需打印收据的处理过程
ReturnSuccess = vr_engine.Return_Items(lst2)
If ReturnSuccess = True Then
'Start - Clear Flex
TDM = DoEvents
FlexOverdue.Rows = 2
FlexOverdue.TextMatrix(1, 0) = ""
FlexOverdue.TextMatrix(1, 1) = ""
TDM = DoEvents
'End - Clear Flex
txtTotal.Text = "0.00"
txtAmountPaid.Text = ""
txtChange.Text = ""
MsgBox "项目已成功回收！", vbInformation, "数据更新"
Call cmdRefresh_Click
MousePointer = vbDefault
MSFlexGrid1.SetFocus
End If
Else '-------------------------'假如需要打印收据的处理过程
ReturnSuccess = vr_engine.Return_Items(lst2)
If ReturnSuccess = True Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -