📄 frmpaymentmethod.frm
字号:
VERSION 5.00
Begin VB.Form frmPaymentMethod
Caption = "付款方式"
ClientHeight = 5490
ClientLeft = 1110
ClientTop = 345
ClientWidth = 7470
Icon = "frmPaymentMethod.frx":0000
KeyPreview = -1 'True
LinkTopic = "PaymentMethod"
MDIChild = -1 'True
ScaleHeight = 5490
ScaleWidth = 7470
Begin VB.CheckBox CreditCard
Height = 315
Left = 2070
TabIndex = 1
Top = 510
Width = 3375
End
Begin VB.TextBox PaymentMethod
Height = 315
Left = 2070
TabIndex = 3
Top = 835
Width = 3375
End
Begin VB.TextBox PaymentMethodID
Alignment = 1 'Right Justify
BackColor = &H8000000F&
Enabled = 0 'False
Height = 315
Left = 2070
TabIndex = 5
Top = 1160
Width = 3375
End
Begin TimeBillingUI.CaptionBar CaptionBar1
Align = 1 'Align Top
Height = 435
Left = 0
TabIndex = 0
Top = 0
Width = 7470
_ExtentX = 13176
_ExtentY = 767
Border = 4
ForeColor = -2147483643
Caption = "ok i am here"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty SubCaptionFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblLabels
Caption = "是否使用信用卡:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 150
TabIndex = 2
Top = 510
Width = 1815
End
Begin VB.Label lblLabels
Caption = "付款方式:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 150
TabIndex = 4
Top = 835
Width = 1815
End
Begin VB.Label lblLabels
Caption = "付款方式码:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 150
TabIndex = 6
Top = 1160
Width = 1815
End
End
Attribute VB_Name = "frmPaymentMethod"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Implements iForm
Private Const mcstrMod$ = "frmPaymentMethod"
Private m_PaymentMethod As COMEXDataSourceSingle, m_Store As COMEXDataSourceSingle
Private m_flgLoading As Boolean
Private m_EnableAttr As ToolBarItems
Private m_Guid As String
Public Sub Component(vPaymentMethod As COMEXDataSourceSingle)
Set m_PaymentMethod = vPaymentMethod
Set m_Store = m_PaymentMethod.CopyMe
LoadRecords
End Sub
Private Sub EnableToolbar(ByVal Dirty As Boolean)
On Error Resume Next
If Not Dirty Then
If m_EnableAttr And tbSave Then m_EnableAttr = m_EnableAttr Xor tbSave
If m_EnableAttr And tbCancel Then m_EnableAttr = m_EnableAttr Xor tbCancel
If Not (m_EnableAttr And tbRefresh) Then m_EnableAttr = m_EnableAttr Or tbRefresh
Else
If Not (m_EnableAttr And tbSave) Then m_EnableAttr = m_EnableAttr Or tbSave
If Not (m_EnableAttr And tbCancel) Then m_EnableAttr = m_EnableAttr Or tbCancel
If m_EnableAttr And tbRefresh Then m_EnableAttr = m_EnableAttr Xor tbRefresh
End If
m_Toolbar.RefreshEnabledState
End Sub
Private Sub LoadRecords()
On Error GoTo Err_LoadRecords
Dim ctl As Control, i As Long
m_flgLoading = True
With m_PaymentMethod
For i = 1 To .GetFieldCount
On Error Resume Next
Set ctl = Controls(.GetFieldName(i))
If Err = 0 Then
Select Case TypeName(ctl)
Case "Label"
Case "TextBox", "ComboBox", "MaskEdBox"
ctl = .GetData(i)
Case "CheckBox"
ctl.Value = Abs(.GetData(i))
Case "DTPicker"
ctl.Value = .GetData(i)
End Select
End If
Next
End With
m_EnableAttr = iForm_Attributes
EnableToolbar False
m_flgLoading = False
Done_LoadRecords:
Exit Sub
Err_LoadRecords:
ErrorMsg Err.Number, Err.Description, "LoadRecords", mcstrMod
Resume Done_LoadRecords
End Sub
Private Sub CreditCard_Click()
On Error GoTo Err_CreditCard_Click
If m_flgLoading Then Exit Sub
m_PaymentMethod.SetDatabyname CreditCard.Name, CreditCard.Value
EnableToolbar True
Exit Sub
Err_CreditCard_Click:
With CreditCard
.Value = m_PaymentMethod.GetDataByName(CreditCard.Name)
End With
End Sub
Private Sub CreditCard_LostFocus()
On Error Resume Next
CreditCard = m_PaymentMethod.GetDataByName(CreditCard.Name)
End Sub
Private Sub PaymentMethod_Change()
On Error GoTo Err_PaymentMethod_Change
If m_flgLoading Then Exit Sub
m_PaymentMethod.SetDatabyname PaymentMethod.Name, PaymentMethod
EnableToolbar True
Exit Sub
Err_PaymentMethod_Change:
With PaymentMethod
.SelStart = 0
.SelLength = Len(.Text)
.SelText = m_PaymentMethod.GetDataByName(PaymentMethod.Name)
End With
End Sub
Private Sub PaymentMethod_LostFocus()
On Error Resume Next
PaymentMethod = m_PaymentMethod.GetDataByName(PaymentMethod.Name)
End Sub
Private Sub PaymentMethodID_Change()
On Error GoTo Err_PaymentMethodID_Change
If m_flgLoading Then Exit Sub
m_PaymentMethod.SetDatabyname PaymentMethodID.Name, PaymentMethodID
EnableToolbar True
Exit Sub
Err_PaymentMethodID_Change:
With PaymentMethodID
.SelStart = 0
.SelLength = Len(.Text)
.SelText = m_PaymentMethod.GetDataByName(PaymentMethodID.Name)
End With
End Sub
Private Sub PaymentMethodID_LostFocus()
On Error Resume Next
PaymentMethodID = m_PaymentMethod.GetDataByName(PaymentMethodID.Name)
End Sub
Private Sub Form_Activate()
m_Toolbar.Activate m_Guid
End Sub
Private Sub Form_Load()
Dim vPaymentMethod As New PaymentMethod, strCombo As String
m_Guid = GUID
m_Toolbar.Attach Me, m_Guid
CaptionBar1.Caption = Caption
Set CaptionBar1.Picture = Me.Icon
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If m_EnableAttr And tbSave Then
Select Case MsgBox("Record has been changed. Do you want To save it?" _
, vbYesNoCancel + vbQuestion)
Case vbYes
m_PaymentMethod.Save
Case vbNo
Case vbCancel
Cancel = True
End Select
End If
End Sub
Private Sub Form_Resize()
On Error Resume Next
If Me.WindowState <> vbMinimized Then
With CaptionBar1
.Move 0, .Top, Me.ScaleWidth, .height
End With
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
m_Toolbar.Detach m_Guid
End Sub
Private Sub iForm_MainMenu()
'n/a
End Sub
Private Property Get iForm_Attributes() As ToolBarItems
iForm_Attributes = tbCancel + tbCloseMe + tbRefresh + tbSave
End Property
Private Sub iForm_Cancel()
Set m_PaymentMethod = m_Store.CopyMe
LoadRecords
End Sub
Private Sub iForm_CloseMe()
Unload Me
End Sub
Private Sub iForm_delete()
'n/a
End Sub
Private Property Get iForm_EnableAttributes() As ToolBarItems
iForm_EnableAttributes = m_EnableAttr
End Property
Private Sub iForm_Find(ByVal Key As String)
'n/a
End Sub
Private Sub iForm_Refresh()
Dim aPaymentMethod As PaymentMethod
Set aPaymentMethod = m_PaymentMethod
aPaymentMethod.Load aPaymentMethod.PaymentMethodID
Set m_PaymentMethod = aPaymentMethod
LoadRecords
End Sub
Private Function iForm_Save() As Boolean
If m_PaymentMethod.Save Then
Set m_Store = m_PaymentMethod.CopyMe
iForm_Refresh
End If
End Function
Private Sub iForm_AddNew()
'n/a
End Sub
Private Sub iForm_ShowFormView()
'n/a
End Sub
Private Property Get iForm_FindSubTools() As cFindSubTools
'n/a
End Property
Private Sub iForm_HelpAbout()
'n/a
End Sub
Private Function iForm_OpenDB() As Boolean
'n/a
End Function
Private Sub iForm_DeleteRow()
'n/a
End Sub
Private Sub iForm_PrintOut()
'n/a
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -