📄 termcard.frm
字号:
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.0#0"; "COMCT232.OCX"
Begin VB.Form frmTermCard
BorderStyle = 1 'Fixed Single
Caption = "修改付款条件"
ClientHeight = 3480
ClientLeft = 45
ClientTop = 330
ClientWidth = 5625
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3480
ScaleWidth = 5625
Begin ComCtl2.UpDown updDiscountDay
Height = 300
Index = 0
Left = 2200
TabIndex = 19
Top = 1200
Width = 270
_ExtentX = 476
_ExtentY = 529
_Version = 327681
AutoBuddy = -1 'True
BuddyControl = "txtDiscountDay(0)"
BuddyDispid = 196610
BuddyIndex = 0
OrigLeft = 2280
OrigTop = 1200
OrigRight = 2550
OrigBottom = 1455
Enabled = -1 'True
End
Begin VB.TextBox txtDueDay
Height = 300
Left = 1600
TabIndex = 24
Top = 2550
Width = 1900
End
Begin VB.TextBox txtDiscountDay
Height = 300
Index = 2
Left = 1600
TabIndex = 22
Top = 2100
Width = 600
End
Begin VB.TextBox txtDiscountDay
Height = 300
Index = 1
Left = 1600
TabIndex = 20
Top = 1650
Width = 600
End
Begin VB.TextBox txtDiscountDay
Height = 300
Index = 0
Left = 1600
TabIndex = 18
Top = 1200
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 1
Left = 3200
TabIndex = 11
Top = 1650
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 0
Left = 3200
TabIndex = 10
Top = 1200
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 2
Left = 3200
TabIndex = 9
Top = 2100
Width = 600
End
Begin VB.CommandButton cmdNext
Height = 345
Left = 4080
Picture = "TermCard.frx":0000
Style = 1 'Graphical
TabIndex = 5
Top = 990
Width = 1215
End
Begin VB.CommandButton cmdCancel
Height = 350
Left = 4080
Picture = "TermCard.frx":08C2
Style = 1 'Graphical
TabIndex = 4
Top = 600
Width = 1215
End
Begin VB.CommandButton cmdOk
Default = -1 'True
Height = 350
Left = 4080
Picture = "TermCard.frx":1184
Style = 1 'Graphical
TabIndex = 3
Top = 210
Width = 1215
End
Begin VB.CheckBox chkInActive
Caption = "停用"
Height = 300
Left = 4080
TabIndex = 2
Top = 2700
Width = 915
End
Begin VB.TextBox txtName
Height = 300
Left = 1600
TabIndex = 1
Top = 750
Width = 2200
End
Begin VB.TextBox txtCode
Height = 300
Left = 1600
TabIndex = 0
Top = 300
Width = 2200
End
Begin ComCtl2.UpDown updDiscountDay
Height = 300
Index = 1
Left = 2200
TabIndex = 21
Top = 1650
Width = 270
_ExtentX = 476
_ExtentY = 529
_Version = 327681
AutoBuddy = -1 'True
BuddyControl = "txtDiscountDay(1)"
BuddyDispid = 196610
BuddyIndex = 1
OrigLeft = 2280
OrigTop = 1680
OrigRight = 2550
OrigBottom = 1935
Enabled = -1 'True
End
Begin ComCtl2.UpDown updDiscountDay
Height = 300
Index = 3
Left = 2200
TabIndex = 23
Top = 2100
Width = 270
_ExtentX = 476
_ExtentY = 529
_Version = 327681
AutoBuddy = -1 'True
BuddyControl = "txtDiscountDay(2)"
BuddyDispid = 196610
BuddyIndex = 2
OrigLeft = 4440
OrigTop = 2160
OrigRight = 4710
OrigBottom = 2415
Enabled = -1 'True
End
Begin ComCtl2.UpDown updDiscountDay
Height = 300
Index = 4
Left = 3500
TabIndex = 25
Top = 2550
Width = 270
_ExtentX = 476
_ExtentY = 529
_Version = 327681
AutoBuddy = -1 'True
BuddyControl = "txtDueDay"
BuddyDispid = 196609
OrigLeft = 4440
OrigTop = 2160
OrigRight = 4710
OrigBottom = 2415
Enabled = -1 'True
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 2
Left = 3840
TabIndex = 28
Top = 2160
Width = 100
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 1
Left = 3840
TabIndex = 27
Top = 1680
Width = 100
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 0
Left = 3840
TabIndex = 26
Top = 1200
Width = 100
End
Begin VB.Label Label2
Caption = "折扣率1"
Height = 165
Index = 0
Left = 2550
TabIndex = 17
Top = 1260
Width = 675
End
Begin VB.Label Label1
Caption = "优惠日1(天)"
Height = 195
Index = 0
Left = 150
TabIndex = 16
Top = 1260
Width = 1230
End
Begin VB.Label Label1
Caption = "优惠日2(天)"
Height = 195
Index = 2
Left = 150
TabIndex = 15
Top = 1710
Width = 1230
End
Begin VB.Label Label2
Caption = "折扣率2"
Height = 165
Index = 2
Left = 2550
TabIndex = 14
Top = 1710
Width = 675
End
Begin VB.Label Label2
Caption = "折扣率3"
Height = 165
Index = 1
Left = 2550
TabIndex = 13
Top = 2160
Width = 675
End
Begin VB.Label Label1
Caption = "优惠日3(天)"
Height = 195
Index = 1
Left = 150
TabIndex = 12
Top = 2160
Width = 1230
End
Begin VB.Label Label3
Caption = "付款条件编码(&C)"
Height = 225
Left = 150
TabIndex = 8
Top = 360
Width = 1395
End
Begin VB.Label Label4
Caption = "付款条件名称(&N)"
Height = 225
Left = 150
TabIndex = 7
Top = 810
Width = 1395
End
Begin VB.Label Label5
Caption = "到期日 (天)"
Height = 195
Left = 150
TabIndex = 6
Top = 2610
Width = 1125
End
End
Attribute VB_Name = "frmTermCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mlngTermID As Long '卡片付款方式记录对应的ID
Private mblnIsChanged As Boolean '修改标志
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private Const intFormWidth = 5600 '窗体宽度
Private Const intFormHeight = 3855 '窗体高度
'按照付款方式ID提取记录
Public Function GetByTermID(ByVal lngID As Long) As Recordset
Dim recRecordset As Recordset
Dim strSql As String
strSql = "Select * From Term Where lngTermID = " & lngID
Set recRecordset = gclsBase.BaseDB.OpenRecordset(strSql, dbOpenSnapshot)
Set GetByTermID = recRecordset
End Function
'新增付款方式记录
Private Function InsertTerm(ByVal strCode As String, ByVal strName As String, ByVal blnIsInActive As Boolean, _
ByVal DueDay As Integer, ByVal DiscountDay1 As Integer, ByVal DiscountRate1 As Double, _
ByVal DiscountDay2 As Integer, ByVal DiscountRate2 As Double, ByVal DiscountDay3 As Integer, _
ByVal DiscountRate3 As Double) As Boolean
Dim strSql As String
strSql = "INSERT INTO Term (strTermCode,strTermName,blnIsInActive,intDueDay, " _
& "intDiscountDay1,dblDiscountRate1,intDiscountDay2,dblDiscountRate2,intDiscountDay3,dblDiscountRate3) " _
& "VALUES ('" & strCode & "','" & strName & "'," & blnIsInActive & "," & DueDay & "," _
& DiscountDay1 & "," & DiscountRate1 & "," & DiscountDay2 & "," & DiscountRate2 & "," & DiscountDay3 & "," & DiscountRate3 & ")"
InsertTerm = gclsBase.ExecSQL(strSql)
End Function
'修改付款方式记录
Private Function EditTerm(ByVal lngID As Long, ByVal strCode As String, ByVal strName As String, _
ByVal blnIsInActive As Boolean, ByVal DueDay As Integer, ByVal DiscountDay1 As Integer, _
ByVal DiscountRate1 As Double, ByVal DiscountDay2 As Integer, ByVal DiscountRate2 As Double, _
ByVal DiscountDay3 As Integer, ByVal DiscountRate3 As Double) As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -