frmlogin.frm

Visual Basic管理信息系统开发 文档管理(源代码)

         Top             =   990
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "驾驶照号:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   3
         Left            =   180
         TabIndex        =   25
         Top             =   1350
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "信用卡号:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   4
         Left            =   180
         TabIndex        =   24
         Top             =   1665
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "住址:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   5
         Left            =   180
         TabIndex        =   23
         Top             =   1995
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "电话:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   6
         Left            =   2625
         TabIndex        =   22
         Top             =   1320
         Width           =   1815
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "办公电话:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   7
         Left            =   2625
         TabIndex        =   21
         Top             =   1695
         Width           =   1815
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "电子邮件:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   8
         Left            =   180
         TabIndex        =   20
         Top             =   3075
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "邮政编码:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   9
         Left            =   180
         TabIndex        =   19
         Top             =   3570
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "传真:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   10
         Left            =   3420
         TabIndex        =   18
         Top             =   3540
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "主页:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   11
         Left            =   180
         TabIndex        =   17
         Top             =   3975
         Width           =   975
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "护照号码:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   12
         Left            =   2625
         TabIndex        =   16
         Top             =   960
         Width           =   1815
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "职务:"
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   13
         Left            =   2940
         TabIndex        =   15
         Top             =   285
         Width           =   795
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00E0E0E0&
      Caption         =   "[获得许可证]"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4515
      Left            =   60
      TabIndex        =   29
      Top             =   60
      Width           =   6075
      Begin VB.Image Image1 
         Height          =   990
         Left            =   4140
         Picture         =   "frmLogin.frx":0000
         Top             =   3300
         Width           =   1695
      End
      Begin VB.Label Label1 
         BackColor       =   &H00E0E0E0&
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00FF0000&
         Height          =   4155
         Left            =   240
         TabIndex        =   30
         Top             =   240
         Width           =   5655
      End
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdNext_Click()
    Frame1.ZOrder 0
    Frame4.Visible = False
    cmdOK.Enabled = True
    cmdCancel.Enabled = True
End Sub

Private Sub cmdOK_Click()
    If txt您的名字.Text <> "" Then
        SaveSetting "wlf", "DM", "UserName", txt您的名字.Text
    Else
        MsgBox "必须输入您的名字，该信息不能为空白！", vbCritical, "错误"
        txt您的名字.SetFocus
        Exit Sub
    End If
    
    If Len(txt身份证号.Text) < 15 Then
        
        MsgBox "身份证号的格式是：XXXXXX您的生日XXXX，您输入的是非法号码。", vbCritical, "提示"
        Exit Sub
    End If
    
    DEDocuments.rs个人信息表.UpdateBatch adAffectCurrent
    Unload Me
End Sub

Private Sub Command1_Click()
    Frame4.ZOrder 0
    Frame1.Visible = False
    cmdOK.Enabled = False
    cmdCancel.Enabled = True
End Sub

Private Sub Form_Load()
    Label1.Caption = "请使用合法软件！您可以通过以下方式得到许可证：" & vbCrLf
    Label1.Caption = Label1.Caption & "在以后的软件升级和技术服务上将得到保证。如果您非法使用，将产生严重后果。为支持国产软件，请您遵纪守法。联系方式：" & vbCrLf
    Label1.Caption = Label1.Caption & "1.电话：" & vbCrLf
    Label1.Caption = Label1.Caption & "1.传真：" & vbCrLf
    Label1.Caption = Label1.Caption & "1.邮件：" & vbCrLf
    Label1.Caption = Label1.Caption & "1.热线：" & vbCrLf
    Label1.Caption = Label1.Caption & "We Link Zone。2001年3月。" & vbCrLf
End Sub