frmfixdeposit4.frm

本需求规格说明书是为了开发《飞机订票系统》而编写的

VERSION 5.00
Begin VB.Form frmFixDeposit4 
   BackColor       =   &H80000007&
   Caption         =   "Form1"
   ClientHeight    =   2025
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5325
   LinkTopic       =   "Form1"
   ScaleHeight     =   2025
   ScaleWidth      =   5325
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdFinally 
      Caption         =   "完 成"
      Default         =   -1  'True
      Height          =   345
      Left            =   2400
      TabIndex        =   4
      Top             =   1440
      Width           =   975
   End
   Begin VB.TextBox txt 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      IMEMode         =   3  'DISABLE
      Index           =   1
      Left            =   2520
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   720
      Width           =   2415
   End
   Begin VB.TextBox txt 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      IMEMode         =   3  'DISABLE
      Index           =   0
      Left            =   2520
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   240
      Width           =   2415
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取 消"
      Height          =   345
      Left            =   3600
      TabIndex        =   1
      Top             =   1440
      Width           =   975
   End
   Begin VB.CommandButton cmdBack 
      Caption         =   "上一步"
      Height          =   345
      Left            =   1200
      TabIndex        =   0
      Top             =   1440
      Width           =   975
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请用户再次输入帐户密码："
      ForeColor       =   &H00FFFFFF&
      Height          =   180
      Index           =   5
      Left            =   240
      TabIndex        =   6
      Top             =   840
      Width           =   2160
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请用户输入帐户密码："
      ForeColor       =   &H00FFFFFF&
      Height          =   180
      Index           =   4
      Left            =   600
      TabIndex        =   5
      Top             =   360
      Width           =   1800
   End
End
Attribute VB_Name = "frmFixDeposit4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''详细说明请参照 frmOAA4↓
Public theID As String
Public theName As String
Public thePassword As String
Public thePhone As String
Public theStationID As String
Public theAddress As String
Public theMoney As Double
Public thePassTime As Double
Public theDepositTime As String
Public theFetchTime As String
Public theFAccrual As Double
Public theCAccrual As Double
Public theNowTime As String

'响应 "上一步" 铵钮
Private Sub cmdBack_Click()
    Unload Me
    frmFixDeposit3.Show
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdFinally_Click()
    If Len(txt(0)) > 12 Or Len(txt(1)) > 12 Then
        MsgBox "密码不得长于12位", vbExclamation, "提示"
        txt(0).Text = ""
        txt(1).Text = ""
        txt(0).SetFocus
        Exit Sub
    End If
    If txt(0) <> txt(1) Then
        MsgBox "两次密码输入不一样，请重新输入", vbExclamation, "提示"
        txt(0).Text = ""
        txt(1).Text = ""
        txt(0).SetFocus
        Exit Sub
    End If
    
    thePassword = txt(0).Text
    
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    con.Execute "insert FConsumers values('" & theID & "','" & theName & "','" & thePassword & "'," & theMoney & "," & thePassTime & ",'" & theStationID & "','" & theAddress & "','" & thePhone & "','" & theCAccrual & "'," & theFAccrual & ",'" & userName & "','1','')"
    con.Close
    MsgBox "你的账号是：" & theID

    Unload Me
End Sub

Private Sub Form_Load()

End Sub