• 所有问题

    • 求课程管理系统 （VB） 高分

    求课程管理系统 一定要是VB写的 要简单简化的 十分急啊 高手帮忙啊 可以的话希望大虾们可以把电脑程序文件发到 [email protected] 谢谢了
    要有实验报告 谢谢

    举报该问题
    推荐答案   2008-01-05
    VERSION 5.00
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
    Begin VB.Form FrmCourse
    Caption = "课程"
    ClientHeight = 6510
    ClientLeft = 165
    ClientTop = 735
    ClientWidth = 9450
    Icon = "FrmCourse.frx":0000
    LinkTopic = "Form1"
    ScaleHeight = 6510
    ScaleWidth = 9450
    StartUpPosition = 3 '窗口缺省
    Visible = 0 'False
    WindowState = 2 'Maximized
    Begin MSComDlg.CommonDialog CommonDialog1
    Left = 3480
    Top = 1440
    _ExtentX = 847
    _ExtentY = 847
    _Version = 393216
    End
    Begin MSComctlLib.ImageList ImageList1
    Left = 3600
    Top = 2520
    _ExtentX = 1005
    _ExtentY = 1005
    BackColor = -2147483643
    ImageWidth = 24
    ImageHeight = 24
    MaskColor = 12632256
    _Version = 393216
    BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
    NumListImages = 20
    BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":030A
    Key = "Last"
    EndProperty
    BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":0626
    Key = "Next"
    EndProperty
    BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":0A7A
    Key = "First"
    EndProperty
    BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":0D96
    Key = "Pre"
    EndProperty
    BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":11EA
    Key = "Seek"
    EndProperty
    BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":1306
    Key = "Stud"
    EndProperty
    BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":1622
    Key = "Depart"
    EndProperty
    BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":193E
    Key = "Key"
    EndProperty
    BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":1C5A
    Key = "Lock"
    EndProperty
    BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":1F76
    Key = "Cour"
    EndProperty
    BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":2292
    Key = "Teac"
    EndProperty
    BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":25AE
    Key = ""
    EndProperty
    BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":26AA
    Key = ""
    EndProperty
    BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":27A6
    Key = ""
    EndProperty
    BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":28A2
    Key = "Add"
    EndProperty
    BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":299E
    Key = "Del"
    EndProperty
    BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":2A9A
    Key = "Edit"
    EndProperty
    BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":2DB6
    Key = ""
    EndProperty
    BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":30D2
    Key = ""
    EndProperty
    BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
    Picture = "FrmCourse.frx":33EE
    Key = "Refresh"
    EndProperty
    EndProperty
    End
    Begin MSComctlLib.Toolbar Toolbar1
    Align = 1 'Align Top
    Height = 540
    Left = 0
    TabIndex = 49
    Top = 0
    Width = 9450
    _ExtentX = 16669
    _ExtentY = 953
    ButtonWidth = 820
    ButtonHeight = 794
    Appearance = 1
    ImageList = "ImageList1"
    _Version = 393216
    BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
    NumButtons = 16
    BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "First"
    ImageKey = "First"
    EndProperty
    BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Pre"
    ImageKey = "Pre"
    EndProperty
    BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Next"
    ImageKey = "Next"
    EndProperty
    BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Last"
    ImageKey = "Last"
    EndProperty
    BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Style = 3
    EndProperty
    BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Key"
    ImageKey = "Key"
    EndProperty
    BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Lock"
    ImageKey = "Lock"
    EndProperty
    BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Style = 3
    EndProperty
    BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Add"
    ImageKey = "Add"
    EndProperty
    BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Del"
    ImageKey = "Del"
    EndProperty
    BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Edit"
    ImageKey = "Edit"
    EndProperty
    BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Refresh"
    ImageKey = "Refresh"
    EndProperty
    BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Style = 3
    EndProperty
    BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Stud"
    ImageKey = "Stud"
    EndProperty
    BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Teac"
    ImageKey = "Teac"
    EndProperty
    BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
    Key = "Depart"
    ImageKey = "Depart"
    EndProperty
    EndProperty
    End
    Begin VB.Frame Frame2
    Height = 2415
    Left = 7800
    TabIndex = 45
    Top = 3480
    Width = 1455
    Begin VB.CommandButton CmdTeacher
    Caption = "教师"
    Height = 495
    Left = 240
    TabIndex = 48
    Top = 1020
    Width = 975
    End
    Begin VB.CommandButton CmdStudent
    Caption = "学生"
    Height = 495
    Left = 240
    TabIndex = 47
    Top = 360
    Width = 975
    End
    Begin VB.CommandButton CmdDepartment
    Caption = "系"
    Height = 495
    Left = 240
    TabIndex = 46
    Top = 1680
    Width = 975
    End
    End
    Begin VB.Frame Frame4
    Caption = "搜索"
    Height = 1095
    Left = 360
    TabIndex = 37
    Top = 4800
    Width = 7215
    Begin VB.CommandButton CmdIndex
    Caption = "开始搜索"
    Height = 430
    Left = 240
    TabIndex = 44
    Top = 415
    Width = 1095
    End
    Begin VB.TextBox TextPara
    Height = 345
    Left = 4440
    TabIndex = 41
    Top = 480
    Width = 2535
    End
    Begin VB.ComboBox ComboOper
    Height = 300
    Left = 3240
    TabIndex = 40
    Top = 480
    Width = 975
    End
    Begin VB.ComboBox ComboIndex
    Height = 300
    Left = 1560
    TabIndex = 39
    Top = 480
    Width = 1455
    End
    Begin VB.Label Label17
    Caption = "参数"
    Height = 255
    Left = 4440
    TabIndex = 43
    Top = 240
    Width = 495
    End
    Begin VB.Label Label16
    Caption = "操作符"
    Height = 255
    Left = 3240
    TabIndex = 42
    Top = 240
    Width = 615
    End
    Begin VB.Label Label15
    Caption = "索引"
    Height = 255
    Left = 1560
    TabIndex = 38
    Top = 240
    Width = 495
    End
    End
    Begin VB.Frame Frame3
    Height = 2835
    Left = 7800
    TabIndex = 32
    Top = 660
    Width = 1455
    Begin VB.CommandButton CmdRefresh
    Caption = "刷新"
    Height = 495
    Left = 240
    TabIndex = 36
    Top = 2040
    Width = 975
    End
    Begin VB.CommandButton CmdEdit
    Caption = "修改"
    Height = 495
    Left = 240
    TabIndex = 35
    Top = 1440
    Width = 975
    End
    Begin VB.CommandButton CmdDelete
    Caption = "删除"
    Height = 495
    Left = 240
    TabIndex = 34
    Top = 840
    Width = 975
    End
    Begin VB.CommandButton CmdAdd
    Caption = "添加"
    Height = 495
    Left = 240
    TabIndex = 33
    Top = 240
    Width = 975
    End
    End
    Begin VB.TextBox TextDepartment
    Height = 330
    Left = 1680
    TabIndex = 26
    Top = 1665
    Width = 735
    End
    Begin VB.TextBox TextTeacher
    Height = 330
    Left = 1680
    TabIndex = 25
    Top = 1230
    Width = 735
    End
    Begin VB.Frame Frame1
    Caption = "移动"
    Height = 1095
    Left = 360
    TabIndex = 20
    Top = 3480
    Width = 7215
    Begin VB.OptionButton Option2
    Caption = "向后"
    Height = 375
    Left = 3480
    TabIndex = 30
    Top = 600
    Width = 735
    End
    Begin VB.TextBox TextID
    Height = 330
    Left = 5160
    TabIndex = 14
    Top = 780
    Width = 855
    End
    Begin VB.Label Label10
    Caption = "学年"
    Height = 255
    Left = 4200
    TabIndex = 12
    Top = 2130
    Width = 735
    End
    Begin VB.Label Label9
    Caption = "学期"
    Height = 255
    Left = 4200
    TabIndex = 11
    Top = 1710
    Width = 735
    End
    Begin VB.Label Label8
    Caption = "节"
    Height = 255
    Left = 4200
    TabIndex = 10
    Top = 1275
    Width = 735
    End
    Begin VB.Label Label7
    Caption = "课程 ID"
    Height = 255
    Left = 4200
    TabIndex = 9
    Top = 840
    Width = 735
    End
    Begin VB.Label Label5
    Caption = "地点"
    Height = 255
    Left = 480
    TabIndex = 4
    Top = 2565
    Width = 735
    End
    Begin VB.Label Label4
    Caption = "上课时间"
    Height = 255
    Left = 480
    TabIndex = 3
    Top = 2130
    Width = 735
    End
    Begin VB.Label Label3
    Caption = "系(部门)ID"
    Height = 255
    Left = 480
    TabIndex = 2
    Top = 1710
    Width = 975
    End
    Begin VB.Label Label2
    Caption = "教师ID"
    Height = 255
    Left = 480
    TabIndex = 1
    Top = 1275
    Width = 735
    End
    Begin VB.Label Label1
    Caption = "课程名称"
    Height = 255
    Left = 480
    TabIndex = 0
    Top = 840
    Width = 735
    End
    Begin VB.Menu MnuSystem
    Caption = "系统"
    Begin VB.Menu MnuChangePassword
    Caption = "更改密码"
    End
    Begin VB.Menu MnuRestart
    Caption = "重新登录"
    End
    Begin VB.Menu Spt1
    Caption = "-"
    End
    Begin VB.Menu MnuExit
    Caption = "退出"
    End
    End
    Begin VB.Menu MnuRecord
    Caption = "记录"
    Begin VB.Menu MnuFirst
    Caption = "首记录"
    End
    Begin VB.Menu MnuPrevious
    Caption = "前记录"
    End
    Begin VB.Menu MnuNext
    Caption = "后记录"
    End
    Begin VB.Menu MnuLast
    Caption = "末记录"
    End
    Begin VB.Menu Spt2
    Caption = "-"
    End
    Begin VB.Menu MnuStep
    Caption = "任意移动"
    End
    Begin VB.Menu Spt3
    Caption = "-"
    End
    Begin VB.Menu MnuSeek
    Caption = "搜索"
    End
    End
    Begin VB.Menu MnuOperation
    Caption = "操作"
    Begin VB.Menu MnuAdd
    Caption = "添加"
    End
    Begin VB.Menu MnuDelete
    Caption = "删除"
    End
    Begin VB.Menu MnuEdit
    Caption = "修改"
    End
    Begin VB.Menu Spt4
    Caption = "-"
    End
    Begin VB.Menu MnuRefresh
    Caption = "刷新"
    End
    End
    Begin VB.Menu MnuWindow
    Caption = "窗口"
    Begin VB.Menu MnuDepartment
    Caption = "系"
    End
    Begin VB.Menu MnuTeacher
    Caption = "教师"
    End
    Begin VB.Menu MnuStudent
    Caption = "学生"
    End
    End

    Private Sub CmdMove_Click()
    On Error GoTo errhandle:
    If Option2.Value = True Then
    rs.Move CInt(Me.TextStep.Text)
    Call RefreshRecord
    Else
    rs.Move -CInt(Me.TextStep.Text)
    Call RefreshRecord
    End If
    Exit Sub

    还有，没发完
    要的话加我QQ：295284040
    新年快乐！
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2008-01-05
    相似回答
    vb 输入10名学生某门课程的成绩,求出其中最高分和最低分,并输出。_百...答：dim max,min,score,ifor i=1 to 10 score=val(inputbox("输入成绩") if i=1 then max=score min=score else if score>max then max=score end if if score<min then min=score end if end if next iprint "最高分：";maxprint "最低分："...
    求课程管理系统 (VB) 高分答：Caption = "课程名称" Height = 255 Left = 480 TabIndex = 0 Top = 840 Width = 735 End Begin VB.Menu MnuSystem Caption = "系统" Begin VB.Menu MnuChangePassword Caption = "更改密码" End Begin VB.Menu MnuRestart Caption = "重新登录" End Begin VB.Menu Spt1 Caption = "-" End ...
    用VB编程输入10名学生某一门课的成绩,求出其中的最高分,最低分和所有...答：Option Base 1 Dim score(10) As Integer Dim max As Integer, min As Integer, average As Single Private Sub Form_Load()For i = 1 To 10 score(i) = Val(InputBox("请输入第 " & Str(i) & "个学生的成绩", "成绩统计", ""))Text1.Text = Text1.Text & Str(score(i))Nex...
    最高分急求VB程序代码!答：Text4.Text = Text4.Text & sNum(i) & vbTab & sName(i) & vbTab & s(i) & vbTab & k & vbCrLf End Sub Private Sub Command4_Click()Dim i As Integer, j As Integer Text4.Text = "按学号排序" & vbCrLf For i = 1 To NN For j = 1 To NN If sNum1(j) = i ...
    大家正在搜
    课程管理系统 开源课程作业管理系统学生课程管理系统课程信息管理系统培训课程管理系统课程管理系统设计课程管理系统源码学生课程管理系统源码java课程管理系统