?? frmadduser.vb
字號:
'****************************************************************************
'人人為我,我為人人
'枕善居漢化收藏整理
'發布日期:2007/07/23
'描 述:網吧計費管理系統客戶端/服務器端
'網 站:http://www.Mndsoft.com/ (VB6源碼博客)
'網 站:http://www.VbDnet.com/ (VB.NET源碼博客,主要基于.NET2005)
'e-mail :Mndsoft@163.com
'e-mail :Mndsoft@126.com
'OICQ :88382850
' 如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Public Class FrmAddUser
Inherits System.Windows.Forms.Form
#Region " Windows 窗體設計器生成的代碼 "
Public Sub New()
MyBase.New()
'該調用是 Windows 窗體設計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調用之后添加任何初始化
End Sub
'窗體重寫處置以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗體設計器所必需的
Private components As System.ComponentModel.IContainer
'注意:以下過程是 Windows 窗體設計器所必需的
'可以使用 Windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
Friend WithEvents TxtPassword As System.Windows.Forms.TextBox
Friend WithEvents TxtUserName As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents BtCancel As System.Windows.Forms.Button
Friend WithEvents BtOK As System.Windows.Forms.Button
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents BtnValidateUserName As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents TxtRealName As System.Windows.Forms.TextBox
Friend WithEvents ComboBirthDate As System.Windows.Forms.DateTimePicker
Friend WithEvents ComboGroup As System.Windows.Forms.ComboBox
Friend WithEvents TxtPhone As System.Windows.Forms.TextBox
Friend WithEvents ComboValidDate As System.Windows.Forms.DateTimePicker
Friend WithEvents ComboCertificateType As System.Windows.Forms.ComboBox
Friend WithEvents TxtCertificateNo As System.Windows.Forms.TextBox
Friend WithEvents TxtAddress As System.Windows.Forms.TextBox
Friend WithEvents TxtPostCode As System.Windows.Forms.TextBox
Friend WithEvents TxtMemo As System.Windows.Forms.TextBox
Friend WithEvents TxtFee As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TxtPassword = New System.Windows.Forms.TextBox
Me.TxtUserName = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.BtCancel = New System.Windows.Forms.Button
Me.BtOK = New System.Windows.Forms.Button
Me.TxtFee = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.BtnValidateUserName = New System.Windows.Forms.Button
Me.Label3 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.Label6 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.TxtRealName = New System.Windows.Forms.TextBox
Me.ComboBirthDate = New System.Windows.Forms.DateTimePicker
Me.ComboGroup = New System.Windows.Forms.ComboBox
Me.TxtPhone = New System.Windows.Forms.TextBox
Me.ComboValidDate = New System.Windows.Forms.DateTimePicker
Me.ComboCertificateType = New System.Windows.Forms.ComboBox
Me.TxtCertificateNo = New System.Windows.Forms.TextBox
Me.TxtAddress = New System.Windows.Forms.TextBox
Me.TxtPostCode = New System.Windows.Forms.TextBox
Me.TxtMemo = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'TxtPassword
'
Me.TxtPassword.Location = New System.Drawing.Point(105, 61)
Me.TxtPassword.MaxLength = 10
Me.TxtPassword.Name = "TxtPassword"
Me.TxtPassword.Size = New System.Drawing.Size(121, 21)
Me.TxtPassword.TabIndex = 17
'
'TxtUserName
'
Me.TxtUserName.Location = New System.Drawing.Point(105, 21)
Me.TxtUserName.MaxLength = 10
Me.TxtUserName.Name = "TxtUserName"
Me.TxtUserName.Size = New System.Drawing.Size(121, 21)
Me.TxtUserName.TabIndex = 16
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(49, 65)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(41, 12)
Me.Label2.TabIndex = 15
Me.Label2.Text = "密碼:"
'
'BtCancel
'
Me.BtCancel.Location = New System.Drawing.Point(298, 412)
Me.BtCancel.Name = "BtCancel"
Me.BtCancel.Size = New System.Drawing.Size(104, 26)
Me.BtCancel.TabIndex = 13
Me.BtCancel.Text = "取消"
'
'BtOK
'
Me.BtOK.Location = New System.Drawing.Point(95, 411)
Me.BtOK.Name = "BtOK"
Me.BtOK.Size = New System.Drawing.Size(92, 27)
Me.BtOK.TabIndex = 12
Me.BtOK.Text = "確定"
'
'TxtFee
'
Me.TxtFee.Location = New System.Drawing.Point(105, 140)
Me.TxtFee.MaxLength = 3
Me.TxtFee.Name = "TxtFee"
Me.TxtFee.Size = New System.Drawing.Size(120, 21)
Me.TxtFee.TabIndex = 21
Me.TxtFee.Text = "0"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(25, 143)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(65, 12)
Me.Label4.TabIndex = 20
Me.Label4.Text = "交款金額:"
'
'BtnValidateUserName
'
Me.BtnValidateUserName.Location = New System.Drawing.Point(262, 19)
Me.BtnValidateUserName.Name = "BtnValidateUserName"
Me.BtnValidateUserName.Size = New System.Drawing.Size(62, 23)
Me.BtnValidateUserName.TabIndex = 22
Me.BtnValidateUserName.Text = "確認賬號"
Me.BtnValidateUserName.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(25, 104)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(65, 12)
Me.Label3.TabIndex = 23
Me.Label3.Text = "用戶類型:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(25, 26)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(65, 12)
Me.Label1.TabIndex = 14
Me.Label1.Text = "用戶帳號:"
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(261, 65)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(76, 24)
Me.Label5.TabIndex = 24
Me.Label5.Text = "用戶姓名:"
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(262, 104)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(75, 24)
Me.Label6.TabIndex = 25
Me.Label6.Text = "出生日期:"
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(255, 224)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(69, 24)
Me.Label7.TabIndex = 26
Me.Label7.Text = "聯系電話:"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(261, 143)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(69, 24)
Me.Label8.TabIndex = 27
Me.Label8.Text = "有效日期:"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(25, 260)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(65, 12)
Me.Label9.TabIndex = 28
Me.Label9.Text = "證件類型:"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(255, 263)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(65, 12)
Me.Label10.TabIndex = 29
Me.Label10.Text = "證件號碼:"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(25, 182)
Me.Label11.Name = "Label11"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -