📄 frmoaa4.frm
字号:
VERSION 5.00
Begin VB.Form frmOAA4
BackColor = &H00404040&
BorderStyle = 1 'Fixed Single
Caption = "开户：完成"
ClientHeight = 3915
ClientLeft = 45
ClientTop = 435
ClientWidth = 7215
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 3915
ScaleWidth = 7215
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取 消"
Height = 345
Left = 4320
TabIndex = 10
Top = 3240
Width = 975
End
Begin VB.CommandButton cmdFinally
Caption = "完 成"
Default = -1 'True
Height = 345
Left = 2880
TabIndex = 6
Top = 3240
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 = 3000
PasswordChar = "*"
TabIndex = 5
Top = 2520
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 = 3000
PasswordChar = "*"
TabIndex = 4
Top = 2040
Width = 2415
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "(密码不得大于12位)"
ForeColor = &H00FFFFFF&
Height = 180
Index = 6
Left = 2760
TabIndex = 9
Top = 1560
Width = 1620
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请用户再次输入帐户密码："
ForeColor = &H00FFFFFF&
Height = 180
Index = 5
Left = 720
TabIndex = 8
Top = 2640
Width = 2160
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请用户输入帐户密码："
ForeColor = &H00FFFFFF&
Height = 180
Index = 4
Left = 1080
TabIndex = 7
Top = 2160
Width = 1800
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "将用刚打印出来的单子，交由用户签名后收回！"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 3
Left = 1320
TabIndex = 3
Top = 720
Width = 4410
End
Begin VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 1
X1 = 0
X2 = 9000
Y1 = 960
Y2 = 960
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第四步"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 1
Left = 6480
TabIndex = 2
Top = 360
Width = 675
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "完成帐户的新建"
BeginProperty Font
Name = "华文新魏"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 315
Index = 2
Left = 2400
TabIndex = 1
Top = 240
Width = 2205
End
Begin VB.Label lbl
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Finally"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 210
Index = 0
Left = 0
TabIndex = 0
Top = 360
Width = 840
End
Begin VB.Line line
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 0
X2 = 9000
Y1 = 600
Y2 = 600
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 '如果密码长于12位
MsgBox "密码不得长于12位"
Exit Sub
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If txt(0).Text = txt(1).Text Then '如果密码验证正确
password = txt(0).Text
Call addConsumer '将客户信息插入到客户表
Call createCTable '创建一个由客户ID为名字的表
MsgBox "你的帐户号码是：" & id
If MsgBox("请击 OK 打印用户存根表，单击 Cancel 完成帐户的新建！", vbOKCancel, "提示") = vbOK Then '如果确认提示
frmPrintFinallyOAA.PrintForm
Unload frmPrintFinallyOAA
End If
MsgBox "帐户创建成功"
Unload Me
Else
MsgBox "两次密码输入不相同请重新输入"
Exit Sub
End If
End Sub
'创建用户表
Private Sub createCTable()
Call LinkDB(landWay, SName, "weboy", SUName, SUPw) '此语句用于连接数据库，具体可以到 shareFunction 模块中找到说明
con.Open
con.Execute "create table " & id & "(WDate char(15),Way char(3),Money float,Balance float,procedurePerson varchar(12))"
con.Close
End Sub
'将新用户的信息插入到 CConsumers 表
Private Sub addConsumer()
Call LinkDB(landWay, SName, "weboy", SUName, SUPw) '此语句用于连接数据库，具体可以到 shareFunction 模块中找到说明
con.Open
con.Execute "insert CConsumers values('" & id & "','" & password & "','" & userName & "','" & deputizeName & "','" & userStationID & "','" & deputizeStationID & "','" & userAddress & "','" & userPhone & "','" & deputizePhone & "','活期','" & procedurePerson & "')"
con.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -