汽车零部件查询系统设计说明书(6)

VB的课程设计题

图2系统主要流程图

2.2程序界面和代码设计

2.2.1系统工程设计框架

在设计程序之前，应先布局整个工程。本系统可设立一个工程文件，取名汽车零部件查询系统.vbp，该工程中包括1个模块文件，11个窗体文件，如图3所示。

VB的课程设计题

图3工程内容

模块代码如下：

Dim h Type qiche pj As String * 10 ljxh As String * 10 sych As String * 10 jg As String * 10 fb As String * 10 rq As String * 10 dw As String * 10 End Type Dim cars As qiche Type manager bh As String * 10 xb As Variant xm As Variant mm As String * 10

VB的课程设计题

Dim pers As manager Sub save()

Kill App.Path + "\mag.dat"

Open App.Path + "\mag.dat" For Random As #1 For i = 0 To Form4.List1.ListCount - 1 pers.bh = Form4.List1.List(i) pers.xb = Form4.List2.List(i) pers.xm = Form4.List3.List(i) pers.mm = Form4.List4.List(i) Put #1, i + 1, pers Next i Close End Sub Sub xishi(p) Form10.Text5(0) = "" Form10.Text5(1) = "" Form10.Text5(2) = "" Form10.Text5(3) = "" Form10.Text5(4) = "" Form10.Text5(5) = ""

Form10.Text5(0) = Form12.List1(0).List(p) Form10.Text5(1) = Form12.List1(1).List(p) Form10.Text5(2) = Form12.List1(2).List(p) Form10.Text5(3) = Form12.List1(3).List(p) Form10.Text5(4) = Form12.List1(4).List(p) Form10.Text5(5) = Form12.List1(5).List(p) End Sub

2.2.2 系统各界面设计

根据功能不同，在本系统中设计了11个窗体。