📄 frmtermlistcard.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "CALENDAR.DLL"
Begin VB.Form frmTermListCard
BorderStyle = 1 'Fixed Single
Caption = "修改付款条件"
ClientHeight = 3120
ClientLeft = 45
ClientTop = 330
ClientWidth = 5685
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 3120
ScaleWidth = 5685
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdOkCancel
Height = 350
Index = 2
Left = 4320
Style = 1 'Graphical
TabIndex = 17
Tag = "1009"
Top = 1005
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOkCancel
Default = -1 'True
Height = 350
Index = 0
Left = 4320
Style = 1 'Graphical
TabIndex = 15
Tag = "1001"
Top = 195
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOkCancel
Cancel = -1 'True
Height = 350
Index = 1
Left = 4320
Style = 1 'Graphical
TabIndex = 16
Tag = "1002"
Top = 600
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 1
Left = 3315
TabIndex = 9
Top = 1650
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 0
Left = 3315
TabIndex = 6
Top = 1200
Width = 600
End
Begin VB.TextBox txtDiscountRate
Height = 300
Index = 2
Left = 3315
TabIndex = 12
Top = 2100
Width = 600
End
Begin VB.CheckBox chkInActive
Caption = "停用"
Height = 300
Left = 4320
TabIndex = 14
Top = 2700
Width = 915
End
Begin VB.TextBox txtCodeName
Height = 300
Index = 1
Left = 1725
TabIndex = 3
Top = 750
Width = 2200
End
Begin VB.TextBox txtCodeName
Height = 300
Index = 0
Left = 1725
TabIndex = 1
Top = 300
Width = 2200
End
Begin GACALENDARLibCtl.SpinEdit txtDueDay
Height = 300
Left = 1725
OleObjectBlob = "frmTermListCard.frx":0000
TabIndex = 22
Top = 2565
Width = 2190
End
Begin GACALENDARLibCtl.SpinEdit txtDiscountDay
Height = 330
Index = 2
Left = 1725
OleObjectBlob = "frmTermListCard.frx":009F
TabIndex = 23
Top = 2100
Width = 840
End
Begin GACALENDARLibCtl.SpinEdit txtDiscountDay
Height = 330
Index = 1
Left = 1725
OleObjectBlob = "frmTermListCard.frx":013E
TabIndex = 24
Top = 1650
Width = 840
End
Begin GACALENDARLibCtl.SpinEdit txtDiscountDay
Height = 330
Index = 0
Left = 1725
OleObjectBlob = "frmTermListCard.frx":01DD
TabIndex = 21
Top = 1200
Width = 840
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 2
Left = 3960
TabIndex = 20
Top = 2160
Width = 105
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 1
Left = 3960
TabIndex = 19
Top = 1680
Width = 105
End
Begin VB.Label Label6
Caption = "%"
Height = 255
Index = 0
Left = 3960
TabIndex = 18
Top = 1200
Width = 105
End
Begin VB.Label Label2
Caption = "折扣率1"
Height = 165
Index = 0
Left = 2670
TabIndex = 5
Top = 1260
Width = 675
End
Begin VB.Label Label1
Caption = "优惠日1(天)"
Height = 195
Index = 0
Left = 270
TabIndex = 4
Top = 1260
Width = 1230
End
Begin VB.Label Label1
Caption = "优惠日2(天)"
Height = 195
Index = 2
Left = 270
TabIndex = 7
Top = 1710
Width = 1230
End
Begin VB.Label Label2
Caption = "折扣率2"
Height = 165
Index = 2
Left = 2670
TabIndex = 8
Top = 1710
Width = 675
End
Begin VB.Label Label2
Caption = "折扣率3"
Height = 165
Index = 1
Left = 2670
TabIndex = 11
Top = 2160
Width = 675
End
Begin VB.Label Label1
Caption = "优惠日3(天)"
Height = 195
Index = 1
Left = 270
TabIndex = 10
Top = 2160
Width = 1230
End
Begin VB.Label Label3
Caption = "付款条件编码(&C)"
Height = 225
Left = 270
TabIndex = 0
Top = 360
Width = 1395
End
Begin VB.Label Label4
Caption = "付款条件名称(&N)"
Height = 225
Left = 270
TabIndex = 2
Top = 810
Width = 1395
End
Begin VB.Label Label5
Caption = "到期日 (天)"
Height = 195
Left = 270
TabIndex = 13
Top = 2610
Width = 1125
End
End
Attribute VB_Name = "frmTermListCard"
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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 修改人：王滔滔
' 日期：1998.11.04
' 状态：完成。
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private mlngTermID As Long '卡片付款方式记录对应的ID
Private mblnIsChanged As Boolean '修改标志
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private Const intFormWidth = 5775 '窗体宽度
Private Const intFormHeight = 3855 '窗体高度
Private Const mDays = 365 '最大天数限制
Private ID As Long
Private mstrCode As String
Private mblnChangeIsFirst As Boolean
'按照付款方式ID提取记录
'Public Function GetByTermID(ByVal lngID As Long) as rdoresultset
Public Function GetByTermID(ByVal lngID As Long) As rdoResultset
'Dim recRecordset as rdoresultset
Dim recRecordset As rdoResultset
Dim strSql As String
strSql = "Select * From Term Where lngTermID = " & lngID
'Set recRecordset = gclsBase.BaseDB.OpenRecordset(Strsql, dbOpenSnapshot)
Set recRecordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
Set GetByTermID = recRecordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -