?? frmshowpaymethod.frm
字號:
VERSION 5.00
Begin VB.Form frmShowPayMethod
BorderStyle = 3 'Fixed Dialog
ClientHeight = 1950
ClientLeft = 45
ClientTop = 45
ClientWidth = 4710
ClipControls = 0 'False
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1950
ScaleWidth = 4710
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdOK
Caption = "確定(&O)"
Default = -1 'True
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 1605
TabIndex = 1
Top = 1305
Width = 1575
End
Begin VB.Frame Frame1
Caption = "選擇一種付款方式"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 990
Left = 195
TabIndex = 2
Top = 240
Width = 4335
Begin VB.ComboBox cmbPayMethod
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 330
ItemData = "frmShowPayMethod.frx":0000
Left = 240
List = "frmShowPayMethod.frx":0002
Style = 2 'Dropdown List
TabIndex = 0
Top = 435
Width = 3870
End
End
End
Attribute VB_Name = "frmShowPayMethod"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
On Error Resume Next
sArrearagePaymethod = cmbPayMethod.Text
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
'配置付款方式
ConfigPayMethod
End Sub
Private Sub ConfigPayMethod()
On Error GoTo GetPaymentERR
Dim DB As Connection, EF As Recordset, HH As Integer
Set DB = CreateObject("ADODB.Connection")
DB.Open Constr
Set EF = CreateObject("ADODB.Recordset")
EF.Open "Select * From PayType", DB, adOpenStatic, adLockReadOnly, adCmdText
cmbPayMethod.Clear
Do While Not EF.EOF()
If Not IsNull(EF.Fields(0)) Then
cmbPayMethod.AddItem EF.Fields(0).Value
End If
EF.MoveNext
Loop
EF.Close
Set EF = Nothing
DB.Close
Set DB = Nothing
If cmbPayMethod.ListCount > 0 Then
Dim sPos As Integer
sPos = GetSetting(App.EXEName, "Option", "PayMethod", 0)
If sPos > 0 Then
If sPos >= cmbPayMethod.ListCount Then
cmbPayMethod.ListIndex = cmbPayMethod.ListCount - 1
Else
cmbPayMethod.ListIndex = sPos
End If
Else
cmbPayMethod.ListIndex = 0
End If
SaveSetting App.EXEName, "Option", "PayMethod", cmbPayMethod.ListIndex
End If
Exit Sub
GetPaymentERR:
MsgBox "給出付款方法錯誤:" & Err.Description, vbCritical
Exit Sub
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -