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