数据库大作业(程序开发)

“行天下”

汽车小软件

数据库

大作业

目录

一、需求分析 (3)

（一）基本信息 (3)

（二）用户需求 (3)

二、数据字典 (3)

三、E-R图： (6)

四、关系： (6)

五、详细设计 (7)

一、需求分析

（一）基本信息

本系统的用户为汽车所有者，根据日常生活中的经验，以及自家车辆的花销情况，得出用户需要下列基本信息：

1、爱车：自己的车辆的信息，包括序号和车型。

2、加油：加油是汽车最重要的花销方面。

3、维修保养：现代社会人们越来越重视汽车的维修保养，在这方面的投入也越来越大。

4、事故违章：记录交通事故和违章罚款。

5、保险：记录各种汽车保险。

6、其他：汽车的其他花销方面，如汽车内饰的购买等。

（二）用户需求

1、信息要求：

用户能添加以上信息的相关花销记录，包括加油、维修保养、事故违章、保险、其他。

2、处理要求：

①能够对五个基本账单（加油、维修保养、事故违章、保险、其他）进行插入和删除。

②在五个基本账单中进行插入数据的同时，在账单“总账”中插入相关记录，使总账和其

他账户中数据同步。

③能够对自己爱车的信息（序号和车型）进行增加、删除和修改。删除车辆信息时，同时

删除六个账单中该车的相关记录。

3、安全性和完整性要求

安全性：

用户登录时验证用户名和密码。

完整性：

a)各种信息记录的完整性，信息记录内容不能为空。

b)各种数据间相互联系的正确性。六个基本表中“爱车”一列参照“爱车”表中的“序

号”一列，为外码。

c)相同数据在不同记录中的一致性。保证加油、维修保养、事故违章、保险、其他五

个账单中的数据和总账中的数据保持一致。

二、数据字典

1、数据项：

2、数据结构：

3、数据流：

三、E-R图：

四、关系：

用户{用户名，密码}

爱车{序号，车型}

加油{日期，爱车，加油量，加油金额，加油单价}

维修保养{日期，爱车，维修保养内容，服务商，金额} 事故违章{日期，爱车，事故简述，金额}

保险{日期，爱车，保险项目，有效时间，金额}

其他{日期，爱车，简述，金额}

总账{日期，爱车，项目，金额}

五、详细设计

a)“爱车记账簿”

1、模块概述

此模块整体分为两个部分，分别为“记账”和“查看账单”，其中“查看账单”中包括对已添加记录的删除。

根据日常生活中人们对自己汽车的花费情况，账簿中设有“加油”、“维修保养”、“事故违章”、“保险”以及“其他”五大项，另外设有“总账”，即把所有的各类花销都统计在该表上，直观明了。

可以添加“爱车”，删除时可以级联删除。

2、界面设计

点击“查看账单”后：

其他五个TabPage均类似，在此不一一截图展示。

3、解决的关键问题

①提取出MonthCalendar中选定的日期，并将其存入数据库中：

运用MonthCalendar的DateSelected事件，将选定的日期赋给一个label，然后将label的text存入数据库。也可将MonthCalendar中选定的日期直接以dateTime的数据类型存入数据库，此方法已调试成功，但考虑到格式的美观问题，故放弃此方法。

源代码：

‘用事件共享提取出选定的日期

Private Sub MonthCalendar1_DateSelected(ByVal sender As Object, ByVal e As

System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar2.DateSelected,

MonthCalendar3.DateSelected, MonthCalendar4.DateSelected, MonthCalendar5.DateSelected,

MonthCalendar6.DateSelected

Label26.Text = MonthCalendar6.SelectionRange.Start

Label29.Text = MonthCalendar2.SelectionRange.Start

Label30.Text = MonthCalendar3.SelectionRange.Start

Label31.Text = MonthCalendar4.SelectionRange.Start

Label32.Text = MonthCalendar5.SelectionRange.Start

End Sub

……

insertCmd1 = " insert into 加油(日期,加油金额,加油量,加油单价) values ('" & Label26.Text & " ','"& Val(TextBox2.Text) & "','"& Val(TextBox3.Text) & "','"& Val(Label8.Text) & "')" ……

②“加油单价”为“加油金额”与“加油量”的商，计算出它的值并保留两位小数：

添加事件共享，定义division函数来计算商值，用Format将结果保留两位小数。

源代码：

‘添加事件共享

Private Sub记账_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

AddHandler TextBox2.TextChanged, AddressOf division

AddHandler TextBox3.TextChanged, AddressOf division

……

End Sub

‘保留两位小数

Private Sub division(ByVal sender As System.Object, ByVal e As System.EventArgs)

Label8.Text = Format(Val(TextBox2.Text) / Val(TextBox3.Text), "0.00") End Sub

③将选中的RadioButton的文本信息存入数据库：

用RadioButton的CheckedChanged事件，将文本信息存入数据库。

源代码：

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged

Dim radio As RadioButton

radio = CType(sender, RadioButton)

a = radio.Text

End Sub

④删除“爱车”记录时，同时删除账簿中该车的相关记录。

通过代码删除相关记录

Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click

Dim connstr, delCmd As String

connstr = "server=LENOVO-PC;database=task;uid=ma;pwd=ma;"

Dim conn As SqlConnection

Dim cmd As SqlCommand

Dim mydataset As New DataSet

conn = New SqlConnection(connstr)

conn.Open()

delCmd = "delete from 加油 where 爱车='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

delCmd = "delete from 维修保养 where 爱车='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

delCmd = "delete from 事故违章 where 爱车='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

delCmd = "delete from 保险 where 爱车='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

delCmd = "delete from 其他 where 爱车='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

delCmd = "delete from 总账 where 爱车='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

delCmd = "delete from 爱车 where 序号='" & TextBox1.Text & "' "

cmd = New SqlCommand(delCmd, conn)

cmd.ExecuteNonQuery()

conn.Close()

showperson()

MsgBox("删除成功！")

End Sub

b)驾考小测验

1、模块概述

此模块为驾照模拟考试功能，题目从数据库中调用，将用户选择的答案录入数据库，并与库中的正确答案一一对比，算出最终成绩。

（考虑到真正驾照考试的题库太大，所以在此我只在题库中存放了10道题，这10 道题依次顺序出现，每题10分，满分100分。）

2、界面设计

3、解决的关键问题

①将题目从数据库中调出，显示在label 和RadioButton 中：

第1题的调出使用数据绑定；其余9道题使用DataTable ，用变量i 控制。 源代码：

Private Sub test_Load(ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles MyBase .Load

（数据库的连接……）

myAdapter = New SqlDataAdapter (selectCmd, conn) myAdapter.Fill(myDataSet, "test")

Dim myDataTable As DataTable = myDataSet.Tables("test") Label1.Text = myDataTable.Rows(0).Item(0)

Label2.DataBindings.Add("Text", myDataSet, "test.题目")

A.DataBindings.Add("Text", myDataSet, "test.A")

B.DataBindings.Add("Text", myDataSet, "test.B")

C.DataBindings.Add("Text", myDataSet, "test.C")

D.DataBindings.Add("Text", myDataSet, "test.D")

Timer1.Enabled = True

time.Text = "时间：" & seconds.ToString() & "s"

End Sub

Private Sub nextOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

A.Checked = False

B.Checked = False

C.Checked = False

D.Checked = False

former.Enabled = True

（数据库连接……）

myAdapter = New SqlDataAdapter(selectCmd, conn)

myAdapter.Fill(myDataSet, "test")

Dim myDataTable As DataTable = myDataSet.Tables("test")

Label1.Text = myDataTable.Rows(i).Item(0)

Label2.Text = myDataTable.Rows(i). Item(1)

A.Text = myDataTable.Rows(i).Item(2)

B.Text = myDataTable.Rows(i).Item(3)

C.Text = myDataTable.Rows(i).Item(4)

D.Text = myDataTable.Rows(i).Item(5)

……

End Sub

②将选定的答案存入数据库：

用RadioButtond的CheckedChanged事件，和“update”语句，将答案存入数据库。

源代码：

Private Sub A_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A.CheckedChanged, B.CheckedChanged, C.CheckedChanged, D.CheckedChanged （数据库连接……）

myAdapter = New SqlDataAdapter(selectCmd, conn)

myAdapter.Fill(mydataset, "test")

Dim updateCmd As String

Dim radio As RadioButton

radio = CType(sender, RadioButton)

updateCmd = "update test set 选择答案='" & https://www.360docs.net/doc/c16115848.html, & "' where 题号='" & Label1.Text & "'"

cmd = New SqlCommand(updateCmd, conn)

cmd.ExecuteNonQuery()

End Sub

③做第1题时“上一题”按钮不可用，做最后一题时“下一题”按钮不可用：

窗体加载时，former.Enabled = False。之后每点一次“nextOne”，i+=1，当i=10时，nextOne.Enabled

= False，submit.Enabled = True。

源代码：

Dim i As Integer = 1

Private Sub nextOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

A.Checked = False

B.Checked = False

C.Checked = False

D.Checked = False

former.Enabled = True

……

i += 1

If i = 10 Then

nextOne.Enabled = False

submit.Enabled = True

End If

End Sub

④计算分数：

将数据库中的两列数据，“选择答案”和“正确答案”，一一进行比较，定义变量score来计算分数。源代码：

Private Sub result_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

（数据库连接……）

myAdapter = New SqlDataAdapter(selectCmd, conn)

myAdapter.Fill(myDataSet, "test")

Dim myDataTable As DataTable = myDataSet.Tables("test")

DataGridView1.DataSource = myDataSet.Tables("test")

Dim score, i As Integer

For i = 0 To 9 Step 1

If myDataTable.Rows(i).Item(6) = myDataTable.Rows(i).Item(7) Then

score += 10

End If

Next

label.Text = "您的分数为：" & score

End Sub

End Class

二、登录与界面设计

1、界面设计

2、解决的关键问题

①“登录”界面中，用画图画出艺术字“行天下”：

源代码：

Private Sub login_Paint(ByVal sender As Object, ByVal e As

System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim rect As New Rectangle(100, 100, 100, 100)

Dim brush As New LinearGradientBrush(rect, Color.Gray, Color.Black, 70)

Dim g As Graphics

g = Me.CreateGraphics

g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias g.DrawString("行天下", New Font(New FontFamily("times new roman"), 85,

FontStyle.Bold, GraphicsUnit.Pixel), brush, 40, 40)

End Sub

②用timer控件控制两个功能选择图标（奔驰和宝马标志）渐渐出现：

源代码：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

seconds += 1

PictureBox1.Width = seconds * 10

PictureBox2.Width = seconds * 11

If seconds = 9 Then

Timer1.Enabled = False

End If

End Sub

③固定每个窗体的大小不能被改变：

用resize函数

源代码：（此段代码每个窗体中都有）

Private Sub登录_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

Height = 530

Width = 920

End Sub

④注册新用户名时，若该用户名已被注册，弹出提示；若两次密码输入不符，弹出提示。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

（数据库连接……）

selectCmd = "select* from 用户 where 用户名='" & TextBox1.Text & " ' and 密码='" & TextBox2.Text & " ' "

myConnection = New SqlConnection(connStr)

myConnection.Open()

myAdapter = New SqlDataAdapter(selectCmd, myConnection)

myAdapter.Fill(myDataSet, "用户")

Dim myDataTable As DataTable = myDataSet.Tables("用户")

If myDataTable.Rows.Count Then

MsgBox("用户名重复！请重新输入！")

ElseIf TextBox2.Text <> TextBox3.Text Then

MsgBox("两次输入不附，请重新输入！")

Else

Dim conn As SqlConnection

Dim myDataSet1 As DataSet = New DataSet()

conn = New SqlConnection (connStr) conn.Open()

myAdapter = New SqlDataAdapter (selectCmd, conn) myAdapter.Fill(myDataSet1, "用户") Dim insertCmd As String Dim cmd As SqlCommand

insertCmd = " insert into 用户(用户名,密码) values ('" & TextBox1.Text & " ','" & TextBox2.Text & "')"

cmd = New SqlCommand (insertCmd, conn) cmd.ExecuteNonQuery() conn.Close()

MsgBox("用户名注册成功！") Me .Close()

End If

End Sub

三、 数据库设计

题库：共8列，用来存储题目、正确答案和用户选择的答案，分数计算依赖此表。

总账：其他五个账簿的汇总，其中“类别”一栏为表“类别”中“序号”列的外码。

爱车：

加油：

维修保养：

事故违章：

保险：

其他：