frmoaa4.frm

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

VERSION 5.00
Begin VB.Form frmOAA4 
   BackColor       =   &H80000007&
   Caption         =   "Form1"
   ClientHeight    =   1785
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5280
   LinkTopic       =   "Form1"
   ScaleHeight     =   1785
   ScaleWidth      =   5280
   StartUpPosition =   3  '窗口缺省
   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            =   2640
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   360
      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           =   1
      Left            =   2640
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   720
      Width           =   2415
   End
   Begin VB.CommandButton cmdFinally 
      Caption         =   "完 成"
      Default         =   -1  'True
      Height          =   345
      Left            =   1320
      TabIndex        =   1
      Top             =   1320
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取 消"
      Height          =   345
      Left            =   3240
      TabIndex        =   0
      Top             =   1320
      Width           =   975
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请用户输入帐户密码："
      ForeColor       =   &H00FFFFFF&
      Height          =   180
      Index           =   4
      Left            =   720
      TabIndex        =   6
      Top             =   480
      Width           =   1800
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请用户再次输入帐户密码："
      ForeColor       =   &H00FFFFFF&
      Height          =   180
      Index           =   5
      Left            =   360
      TabIndex        =   5
      Top             =   840
      Width           =   2160
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "(密码不得大于12位)"
      ForeColor       =   &H00FFFFFF&
      Height          =   180
      Index           =   6
      Left            =   2640
      TabIndex        =   4
      Top             =   120
      Width           =   1620
   End
End
Attribute VB_Name = "frmOAA4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public id As String
Public password As String
Public userName As String
Public deputizeName As String
Public userStationID As String
Public deputizeStationID As String
Public userAddress As String
Public userPhone As String
Public deputizePhone As String
Public procedurePerson As String

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdFinally_Click()
    If Len(txt(0).Text) > 12 Or Len(txt(1).Text) > 12 Then
        MsgBox "密码不得长于12位"
        Exit Sub
    End If

    If txt(0).Text = txt(1).Text Then
        password = txt(0).Text
        Call addConsumer
        Call createCTable
        MsgBox "你的帐户号码是：" & id
        MsgBox "帐户创建成功"
        Unload Me
    Else
        MsgBox "两次密码输入不相同请重新输入"
        Exit Sub
    End If
End Sub


Private Sub createCTable()
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    con.Execute "create table " & id & "(WDate char(15),Way char(3),Money float,Balance float,procedurePerson varchar(12))"
    con.Close
End Sub


Private Sub addConsumer()
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    con.Execute "insert CConsumers values('" & id & "','" & password & "','" & userName & "','" & deputizeName & "','" & userStationID & "','" & deputizeStationID & "','" & userAddress & "','" & userPhone & "','" & deputizePhone & "','活期','" & procedurePerson & "')"
    con.Close
End Sub

Private Sub Form_Load()

End Sub