form1.frm

试卷生成和评分系统 试卷生成和评分系统

      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   14475
      Width           =   19080
      _ExtentX        =   33655
      _ExtentY        =   661
      ShowTips        =   0   'False
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   27984
            MinWidth        =   4410
            Text            =   "试卷生成和评分系统 V1.0"
            TextSave        =   "试卷生成和评分系统 V1.0"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            TextSave        =   "2008-4-7"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "10:31"
         EndProperty
      EndProperty
      Enabled         =   0   'False
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "！"
      Height          =   195
      Left            =   3600
      TabIndex        =   21
      Top             =   120
      Width           =   180
   End
   Begin VB.Label Label4 
      Caption         =   "老师，"
      Height          =   255
      Index           =   0
      Left            =   1080
      TabIndex        =   5
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "欢迎"
      ForeColor       =   &H80000008&
      Height          =   200
      Index           =   0
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   360
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   600
      TabIndex        =   3
      Top             =   120
      Width           =   45
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      ForeColor       =   &H8000000D&
      Height          =   195
      Left            =   2640
      TabIndex        =   2
      Top             =   120
      Width           =   45
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "您的权限是"
      ForeColor       =   &H80000008&
      Height          =   195
      Index           =   2
      Left            =   1680
      TabIndex        =   1
      Top             =   120
      Width           =   900
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim c1 As Integer
Dim c2 As Integer
Dim c3 As Integer

Private Sub CoFraadduser1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select * from 权限表"
Set mrc = exesql(txtsql)
If TexFraadduser1 = "" Or TexFraadduser2 = "" Or TexFraadduser3 = "" Or ComFraadduser1.Text = "" Then
    MsgBox "输入信息不完整，请补充！", vbOKOnly
ElseIf Trim(TexFraadduser2) <> Trim(TexFraadduser3) Then
    MsgBox "两次输入的密码不一致，请重新输入！", vbOKOnly
    TexFraadduser2 = ""
    TexFraadduser3 = ""
ElseIf Trim(TexFraadduser2) = Trim(TexFraadduser3) And TexFraadduser3.Text <> "" Then
    mrc.AddNew
    mrc.Fields("用户名") = TexFraadduser1.Text
    mrc.Fields("密码") = TexFraadduser2.Text
    mrc.Fields("所有权限") = ComFraadduser1.Text
    mrc.Update
    mrc.Close
End If
End Sub

Private Sub CoFraadduser2_Click()
    TexFraadduser1 = ""
    TexFraadduser2 = ""
    TexFraadduser3 = ""
    ComFraadduser1.Text = ""
End Sub

Private Sub CoFramodify1_Click()
Dim mrc As ADODB.Recordset
If TexFramodify1 = "" Or TexFramodify2 = "" Or TexFramodify3 = "" Then
    MsgBox "输入信息不能为空，请补充！ ", vbOKOnly
ElseIf Trim(TexFramodify2) = Trim(TexFramodify3) Then
    txtsql = "select * from 权限表 where 用户名 = '" & main.Label5.Caption & "'"
    Set mrc = exesql(txtsql)
        If TexFramodify1 = mrc.Fields("密码") Then
           mrc.Fields("密码") = TexFramodify1
           MsgBox "密码修改成功!", vbOKOnly
           Else
            MsgBox "你的旧密码不正确!", vbOKOnly
            TexFramodify1.SetFocus
        End If
    Else
        MsgBox "你两次的密码不一致！", vbOKOnly
        TexFramodify1.SetFocus
    End If
End Sub

Private Sub CoFramodify2_Click()
TexFramodify1 = ""
TexFramodify2 = ""
TexFramodify3 = ""
End Sub

Private Sub Command1_Click()
If c1 = 0 And c2 = 0 Then
    Framen2.Visible = True
    Framen2.Top = Command1.Top + Command1.Height
    Command2.Top = Framen2.Top + Framen2.Height
    Command3.Top = Command2.Top + Command2.Height
    Framen4.Top = Command3.Top + Command3.Height
    c1 = 1
ElseIf c1 = 0 Then
    Framen2.Visible = True
    Framen2.Top = Command1.Top + Command1.Height
    Command2.Top = Framen2.Top + Framen2.Height
    Framen3.Top = Command2.Top + Command2.Height
    Command3.Top = Framen3.Top + Framen3.Height
    Framen4.Top = Command3.Top + Command3.Height
    c1 = 1
ElseIf c1 = 1 And c2 = 0 Then
    Framen2.Visible = False
    Command2.Top = Command1.Top + Command1.Height
    Command3.Top = Command2.Top + Command3.Height
    Framen4.Top = Command3.Top + Command3.Height
    c1 = 0
ElseIf c1 = 1 Then
    Framen2.Visible = False
    Command2.Top = Command1.Top + Command1.Height
    Framen3.Top = Command2.Top + Command2.Height
    Command3.Top = Framen3.Top + Framen3.Height
    Framen4.Top = Command3.Top + Command3.Height
    c1 = 0
End If

End Sub

Private Sub Command2_Click()
If c2 = 0 Then
    Framen3.Visible = True
    Framen3.Top = Command2.Top + Command2.Height
    Command3.Top = Framen3.Top + Framen3.Height
    Framen4.Top = Command3.Top + Command3.Height
    c2 = 1
ElseIf c2 = 1 Then
    Framen3.Visible = False
    Command3.Top = Command2.Top + Command2.Height
    Framen4.Top = Command3.Top + Command3.Height
    c2 = 0
End If

End Sub

Private Sub Command3_Click()
If c3 = 0 Then
    Framen4.Visible = True
    Framen4.Top = Command3.Top + Command3.Height
    c3 = 1
ElseIf c3 = 1 Then
    Framen4.Visible = False
    c3 = 0
End If

End Sub

Private Sub Form_Click() '这里应该是控制系统设置框的
End Sub

Private Sub Form_Load()
    c1 = 1
    c2 = 1
    c3 = 1
    Framen1.Left = Me.Left + 120
    Framen1.Top = Me.Top + 400
    Fraadduser.Top = Me.Top + 400
    Fraadduser.Left = Framen1.Left + Framen1.Width
    Fraadduser.Width = Me.Width - Framen1.Width - 400
    Fraadduser.Height = Me.Height - 1700
    Framodify.Top = Me.Top + 400
    Framodify.Left = Framen1.Left + Framen1.Width
    Framodify.Width = Me.Width - Framen1.Width - 400
    Framodify.Height = Me.Height - 1700
    Fralimite.Top = Me.Top + 400
    Fralimite.Left = Framen1.Left + Framen1.Width
    Fralimite.Width = Me.Width - Framen1.Width - 400
    Fralimite.Height = Me.Height - 1700
    Fraopen.Top = Me.Top + 400
    Fraopen.Left = Framen1.Left + Framen1.Width
    Fraopen.Width = Me.Width - Framen1.Width - 400
    Fraopen.Height = Me.Height - 1700
    Frarecord.Top = Me.Top + 400
    Frarecord.Left = Framen1.Left + Framen1.Width
    Frarecord.Width = Me.Width - Framen1.Width - 400
    Frarecord.Height = Me.Height - 1700
    Frahand.Top = Me.Top + 400
    Frahand.Left = Framen1.Left + Framen1.Width
    Frahand.Width = Me.Width - Framen1.Width - 400
    Frahand.Height = Me.Height - 1700
    Fraauto.Top = Me.Top + 400
    Fraauto.Left = Framen1.Left + Framen1.Width
    Fraauto.Width = Me.Width - Framen1.Width - 400
    Fraauto.Height = Me.Height - 1700
    Fraadduser.Visible = False
    Fralimite.Visible = False
    Framodify.Visible = False
    Fraauto.Visible = False
    Frahand.Visible = False
    Frarecord.Visible = False
    Fraopen.Visible = False
    If Label6.Caption = "系统管理员" Then  '这里没有写方法
        ElseIf Label6.Caption = "试卷读写" Then
            ElseIf Label6.Caption = "试卷只读" Then
    End If
    'Frame1.Top = Me.Top

End Sub

Private Sub Form_Resize()
    'Frame1.Height = Me.Height
End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    For j = 0 To 9
    Label3(j).FontUnderline = False
    Label3(j).ForeColor = vbDefault
    Next
End Sub

Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    For j = 0 To 9
    Label3(j).FontUnderline = False
    Label3(j).ForeColor = vbDefault
    Next
End Sub

Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    For j = 0 To 9
    Label3(j).FontUnderline = False
    Label3(j).ForeColor = vbDefault
    Next
End Sub

Private Sub Labe3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim j As Integer
  j = Index
   For i = 0 To 9
    Label3(i).MousePointer = 99
    Label3(i).MouseIcon = Image14.Picture
Next
    Label3(j).FontUnderline = True
    Label3(j).ForeColor = vbBlue
End Sub

Private Sub Labeln1_Click(Index As Integer)
shut
Fraadduser.Visible = True
End Sub

Private Sub Labeln10_Click()
shut
Unload Me
qidong.Show
End Sub

Private Sub Labeln2_Click()
shut
Fralimite.Visible = True
End Sub

Private Sub Labeln3_Click()
shut
Framodify.Visible = True
End Sub

Private Sub Labeln4_Click()
Frahand.Visible = True
End Sub

Private Sub Labeln5_Click()
shut
Fraauto.Visible = True
End Sub

Private Sub Labeln6_Click()
shut
Frarecord.Visible = True
End Sub

Private Sub Labeln7_Click()
shut
Fraopen.Visible = True
End Sub

Private Sub Labeln8_Click()
shut
'Shell App.Path & "\help.bat"
End Sub

Private Sub Labeln9_Click()
shut
about.Show
End Sub

Private Sub shut()
Fraadduser.Visible = False
Fralimite.Visible = False
Framodify.Visible = False
Fraauto.Visible = False
Frahand.Visible = False
Frarecord.Visible = False
Fraopen.Visible = False
End Sub