📄 frmtermedit.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Begin VB.Form frmTermCard
BorderStyle = 3 'Fixed Dialog
Caption = "修改付款条件"
ClientHeight = 3120
ClientLeft = 45
ClientTop = 330
ClientWidth = 5685
HelpContextID = 30043
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3120
ScaleWidth = 5685
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin GACALENDARLibCtl.SpinEdit txtDueDay
Height = 300
Left = 1740
OleObjectBlob = "frmTermEdit.frx":0000
TabIndex = 17
Top = 2460
Width = 2220
End
Begin GACALENDARLibCtl.SpinEdit txtDiscountDay
Height = 300
Index = 2
Left = 1740
OleObjectBlob = "frmTermEdit.frx":009F
TabIndex = 13
Top = 2034
Width = 840
End
Begin GACALENDARLibCtl.SpinEdit txtDiscountDay
Height = 300
Index = 1
Left = 1740
OleObjectBlob = "frmTermEdit.frx":013E
TabIndex = 9
Top = 1608
Width = 840
End
Begin GACALENDARLibCtl.SpinEdit txtDiscountDay
Height = 300
Index = 0
Left = 1740
OleObjectBlob = "frmTermEdit.frx":01DD
TabIndex = 5
Top = 1182
Width = 840
End
Begin VB.CommandButton cmdOkCancel
Height = 350
Index = 2
Left = 4320
Style = 1 'Graphical
TabIndex = 20
Tag = "1009"
Top = 975
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOkCancel
Height = 350
Index = 0
Left = 4320
Style = 1 'Graphical
TabIndex = 18
Tag = "1001"
Top = 165
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOkCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 4320
Style = 1 'Graphical
TabIndex = 19
Tag = "1002"
Top = 570
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 1
Left = 3315
TabIndex = 11
Top = 1608
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 0
Left = 3315
TabIndex = 7
Top = 1182
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 2
Left = 3315
TabIndex = 15
Top = 2034
Width = 600
End
Begin VB.CheckBox chkInActive
Caption = "停用"
Height = 300
Left = 4320
TabIndex = 21
Top = 2730
Width = 915
End
Begin VB.TextBox txtCodeName
Height = 300
Index = 1
Left = 1725
MaxLength = 20
TabIndex = 3
Top = 756
Width = 2200
End
Begin VB.TextBox txtCodeName
Height = 300
Index = 0
Left = 1725
MaxLength = 8
TabIndex = 1
Top = 330
Width = 2200
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 2
Left = 3960
TabIndex = 24
Top = 2190
Width = 105
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 1
Left = 3960
TabIndex = 23
Top = 1710
Width = 105
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 0
Left = 3960
TabIndex = 22
Top = 1230
Width = 105
End
Begin VB.Label Label2
Caption = "折扣率1"
Height = 165
Index = 0
Left = 2670
TabIndex = 6
Top = 1250
Width = 675
End
Begin VB.Label Label1
Caption = "优惠日1(天)"
Height = 195
Index = 0
Left = 270
TabIndex = 4
Top = 1235
Width = 1230
End
Begin VB.Label Label1
Caption = "优惠日2(天)"
Height = 195
Index = 2
Left = 270
TabIndex = 8
Top = 1661
Width = 1230
End
Begin VB.Label Label2
Caption = "折扣率2"
Height = 165
Index = 2
Left = 2670
TabIndex = 10
Top = 1676
Width = 675
End
Begin VB.Label Label2
Caption = "折扣率3"
Height = 165
Index = 1
Left = 2670
TabIndex = 14
Top = 2102
Width = 675
End
Begin VB.Label Label1
Caption = "优惠日3(天)"
Height = 195
Index = 1
Left = 270
TabIndex = 12
Top = 2087
Width = 1230
End
Begin VB.Label Label3
Caption = "付款条件编码(&C)"
Height = 225
Left = 270
TabIndex = 0
Top = 368
Width = 1395
End
Begin VB.Label Label4
Caption = "付款条件名称(&N)"
Height = 225
Left = 270
TabIndex = 2
Top = 794
Width = 1395
End
Begin VB.Label Label5
Caption = "到期日 (天)"
Height = 195
Left = 270
TabIndex = 16
Top = 2513
Width = 1125
End
End
Attribute VB_Name = "frmTermCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 付款条件卡片
' 作者：杜剑
' 日期：1998.07.6
' 接口： AddCard 增加付款条件记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改付款条件记录。
' 参数： lngRecordID 被修改的记录的ID，intModal 显示模式
' DelCard 删除付款条件记录。
' 参数： lngRecordID 被删除的记录的ID
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mlngTermID As Long '卡片付款方式记录对应的ID
Private mblnIsChanged As Boolean '修改标志
Private mblnIsList As Boolean
Private ID As Long
Private mstrCode As String
Private mstrName As String
Private mblnChangeIsFirst As Boolean
Private Const mDays = 365
'按照付款方式ID提取记录
Public Function GetByTermID(ByVal lngID As Long) As rdoResultset
Dim recRecordset As rdoResultset
Dim strSql As String
strSql = "Select * From Term Where lngTermID = " & lngID
Set recRecordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
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, _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -