main.frm

学生成绩管理系统,用vb编写,可以自行修改传播

VERSION 5.00
Begin VB.Form main 
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   Caption         =   "学生选课信息系统"
   ClientHeight    =   1995
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   4680
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1995
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.Label Lababout 
      Height          =   255
      Left            =   2280
      TabIndex        =   0
      Top             =   1560
      Visible         =   0   'False
      Width           =   2295
   End
   Begin VB.Image Image1 
      Height          =   2010
      Left            =   -480
      Picture         =   "main.frx":0E42
      Top             =   0
      Width           =   5670
   End
   Begin VB.Menu order 
      Caption         =   "命令(&O)"
      NegotiatePosition=   3  'Right
      Begin VB.Menu inquire 
         Caption         =   "查询(&Q)"
      End
      Begin VB.Menu admin 
         Caption         =   "管理(&A)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu contect 
         Caption         =   "内容(&N)"
      End
      Begin VB.Menu about 
         Caption         =   "关于(&A)"
      End
   End
   Begin VB.Menu quit 
      Caption         =   "退出(&Q)"
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sql As String
Dim db As Database
Private Sub about_Click()
Lababout.Visible = True
Lababout.Caption = "程序制作：王义勇 01022417"
End Sub
Private Sub admin_Click()
frmadmin.Show
End Sub

Private Sub contect_Click()
Lababout.Visible = True
Lababout.Caption = "课题：数据库系统概论实验"
End Sub

Private Sub inquire_Click()
frminquire.Show
End Sub

Private Sub lababout_Click()
Lababout.Visible = False
End Sub

Private Sub quit_Click()
dataname = App.Path & "\aaaa.mdb"
Data5.DatabaseName = dataname
Set db = OpenDatabase(dataname)
db.Execute "drop table temp"
db.Close
End
End Sub