综合性设计实验报告.docVIP

1 需求分析 程序完成的功能 ：学生课程查询：上课时间，地点，任教教师和对应的课程；增加课程，以及所有课程一览表。 2 运行环境 WINDOWS XP系统；VB6.0精简版 3开发工具和编程语言 Visual Basic6.0语言； 4 系统设计 该部分可由以下内容组成： 程序的组织结构（包括窗体、模块及其功能）。 Type cause kecheng As String * 100 jiaoshi As String * 100 didian As String * 100 shijian As String * 100 End Type Public s As cause （模块级变量和类型的声明） 窗体一 Private Sub chaxun_Click() Form3.Show End Sub （查询窗体显示） Private Sub shuru_Click() Form2.Show Form2.Text1.Text = Form2.Text1.SelStart = 10 End Sub （输入课程相关信息的窗体显示） Private Sub tuichu_Click() End End Sub（退出程序） Private Sub yilian_Click() Dim a As String Form4.Show Form4.List1.AddItem 课名 上课教师 上课地点 上课时间 Open F:\s.dat For Random As #1 Len = Len(s) For i = 1 To LOF(1) / Len(s) Get #1, i, s Form4.List1.AddItem Trim(s.kecheng) Trim(s.jiaoshi) Trim(s.didian) Trim(s.shijian) Next i Close #1 End Sub（获得输入的所有信息） 功能简介：控制所有相关窗体的隐藏与显示，以及各个窗体内部的输入与保存 窗体二 Private Sub Command1_Click() With s .kecheng = Trim(Text1.Text) .jiaoshi = Text2.Text .didian = Text3.Text .shijian = Text4.Text End With （给自定义函数赋值） Open F:\S.dat For Random As #1 Len = Len(s)（打开文件） Put #1, LOF(1) / Len(s) + 1, s Close #1End Sub Private Sub Command2_Click() Unload Form2 Load Form1 End Sub（ 窗体的卸载与装载） 功能简介：保存输入的课程信息，返回主窗体。 思路：给每一个记录存一个值 窗体三 Private Sub Command1_Click() Open F:\s.dat For Random As #1 Len = Len(s) （打开文件） For i = 1 To LOF(1) / Len(s) Get #1, i, s If Trim(s.kecheng) = Trim(Text2.Text) Then Text1.Text = s.kecheng vbCrLf s.jiaoshi vbCrLf s.didian vbCrLf s.shijian End If（查询输入的课程） Next i Close #1 End Sub Private Sub Command2_Click() Unload Form3 Load Form1（ 窗体的卸载与装载） End Sub