理工—移动网点收费系统

1、河河 北北 联联 合合 大大 学学数据库课程设计说明书设计题目：移动网点收费系统姓姓 名：名：学学 号：号：专专 业：业：地理信息系统地理信息系统班班 级：级：指导教师：指导教师：黄丽黄丽王晓红王晓红王政王政矿业工程学院矿业工程学院2013 年年 1 月月 5 日日河北联合大学课程设计说明书交通与测绘学院0目目录录1 概述概述.11.1 系统背景.12 需求分析需求分析.13 结构设计结构设计.24 行为设计行为设计.45 系统开发流程系统开发流程.66 系统使用说明及主要代码系统使用说明及主要代码.87 课程设计体会及心得课程设计体会及心得.178 参考文献参考文献.17河北联合大学课程设计

2、说明书交通与测绘学院11 概述概述1.1 系统背景随着国民经济的发展,我国的通信事业得到了长足的进步，到现在为止电信行业已经成为国民经济中一个高科技含量最高的单位之一。尤其是在最近几年，移动的无线通信事业在国家的大力扶植下获得了飞速的发展，不仅营建了一批技术先进的基站、交换机，还实现了与邮电网的互连互通，发展了一大批客户。整个GSM 产业已经奠定了一个良好的发展开端。因此，在电信信息化的指导思想下，就如何减少移动客户管理和缴费耗费的人力物力资源成为此次课程设计的主要课题。2 需求分析需求分析需求是数据库开发的目的。需求分析就是分析软件用户的需求是什么，开发者耗费大量的人力、物力、财力、时间进行

3、设计工作，目的就是要达到使用者的需求。需求分析之所以重要，就因为他具有决策性，方向性，策略性的作用，它在软件开发的过程中具有举足轻重的作用。此次数据库设计就需求方面设计了几个重要的地方。1）系统包含了客户的主要信息，为了维护和避免客户的重要资料被意外或是人为故意删除，系统内部建立了超级管理员和普通级管理员，超级管理员有添加、删除普通管理员和客户的权限。2）当客户的信息被修改或添加时，系统需要提供一个客户的详细信息查询，以便在举行活动或是移动发送通知时能将信息准确到达客户手中。而为了准确、及时的得到客户信息，系统要提供依据客户名字或客户代码搜索的方式来进行对客户的提取。3）除了对客户进行查询还要

4、对系统的每个操作员进行记录查询，记录每个在这工作的操作员的一些基本信息，比如编号，姓名，登录密码等，以便发生人事调动时超级管理员能及时讲操作员的信息进行更新。河北联合大学课程设计说明书交通与测绘学院24）除此之外还有开停机、开户、缴费功能。5）操作员信息库包括：编号，姓名，性别，密码，权限，家庭住址，出生日期，备注。6）客户信息库包括：编号，姓名，性别，出生日期，证件类型，证件编号，手机号，家庭住址，号码状态，备注。7）账户信息库包括：账户号，手机号，联系人，账户金额。各种功能一起将对移动的收费业务进行执行和操作。3 结构设计结构设计客户姓名性别出生日期手机号证件类型证件编号家庭住址备注编号号

5、码状态客户 E-R 图河北联合大学课程设计说明书交通与测绘学院3操作员编号姓名性别出生日期密码权限家庭住址备注操作员 E-R 图账户账户号联系人账户金额手机号账户 E-R 图河北联合大学课程设计说明书交通与测绘学院44 行为设计行为设计本系统的主要任务是对操作员、客户、手机号进行相关的操作管理。本系统需要完成的功能主要有：1）登陆界面2）对操作员的详细查询，添加与删除操作。3）对客户的详细查询，添加与删除操作。4）对手机进行开停机、缴费操作。5）对新手机号进行开户操作。绘制功能图如下：河北联合大学课程设计说明书交通与测绘学院5移动收费系统客户信息退出业务办理操作员信息登录操作员信息添加操作员信

6、息修改客户信息添加客户信息修改开户业务办理缴费办理开停机业务办理河北联合大学课程设计说明书交通与测绘学院65 系统开发流程系统开发流程操作员主窗体客户信息查询客户信息修改客户信息浏览客户条件查询添加删除操作员成功进入“登录”界面后，进如“主窗体”界面，选择“客户信息管理”，下拉菜单分为两类：“客户信息查询”，“客户信息修改”。当进入“客户信息查询”后，可以选择“客户信息浏览”和“客户信息条件浏览”，按照里面编辑的一步一步的编辑即可。进入“客户信息修改”窗口，可以选择“添加”和“删除”选项，进行添加操作和删除操作。河北联合大学课程设计说明书交通与测绘学院7操作员信息管理操作员信息查询操作员信息修

7、改操作员信息浏览操作员条件查询添加删除进入“操作员信息管理”下拉菜单选择“操作员信息查询”和“操作员信息修改”两项，“操作员信息查询”中有“操作员信息浏览”和“操作员条件查询”。“操作员信息修改”分为“添加”和“删除”。河北联合大学课程设计说明书交通与测绘学院8业务办理开停机业务办理缴费业务办理正常使用停机缴费话费单打印开户业务办理6 系统使用说明及主要代码系统使用说明及主要代码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click河

8、北联合大学课程设计说明书交通与测绘学院9 strconn = data source=.;initial catalog=移动收费系统;user id=sa;password=123; strsql = select 编号,密码 from 操作员表 objcommand = New SqlClient.SqlCommand(strsql, New SqlClient.SqlConnection(strconn) objcommand.Connection.Open() objdr = objcommand.ExecuteReader(CommandBehavior.CloseConnectio

9、n) If ComboBox1.Text = Then MessageBox.Show(请输入登录条件！) Exit Sub End If With objdr Do While .Read = True str1 = .GetString(0) str2 = .GetString(1) If Trim(TextBox1.Text) = Trim(str1) And Trim(TextBox2.Text) = Trim(str2) Then MessageBox.Show(登录成功!, 提示, MessageBoxButtons.OK, MessageBoxIcon.Information)

10、main.Show() Me.Visible = False Exit Sub End If Loop End With i = i - 1 If i = 0 Then MessageBox.Show(您已经3次登录错误,系统自动退出!, 提示, MessageBoxButtons.OK, MessageBoxIcon.Error) TextBox1.Text = TextBox2.Text = TextBox2.Focus() Close() End If End Sub Private Sub 登录_Load(ByVal sender As System.Object, ByVal e A

11、s System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add(超级管理员) ComboBox1.Items.Add(管理员) End Sub河北联合大学课程设计说明书交通与测绘学院10Private Sub 客户查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strsql = select * from 客户表 objda = New SqlClient.SqlDataAdapter(strsql, strco

12、nn) objda.Fill(objds, 客户表) DataGridView1.DataSource = objds.Table(客户表) bingpage = Me.BindingContext(objds, 客户表) TextBox1.DataBindings.Add(New Binding(text, objds, 客户表.编号) TextBox2.DataBindings.Add(New Binding(text, objds, 客户表.姓名) TextBox3.DataBindings.Add(New Binding(text, objds, 客户表.性别) TextBox4.Da

13、taBindings.Add(New Binding(text, objds, 客户表.出生日期) TextBox4.Text = CDate(TextBox4.Text) TextBox5.DataBindings.Add(New Binding(text, objds, 客户表.家庭住址) TextBox6.DataBindings.Add(New Binding(text, objds, 客户表.证件类型) TextBox7.DataBindings.Add(New Binding(text, objds, 客户表.证件编号) TextBox9.DataBindings.Add(New

14、Binding(text, objds, 客户表.手机号) RichTextBox1.DataBindings.Add(New Binding(text, objds, 客户表.备注) ComboBox1.Items.Add(编号) ComboBox1.Items.Add(姓名) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click bingpage.Position = 1 Button1.Enabled = Fal

15、se Button2.Enabled = False Button3.Enabled = True Button4.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click bingpage.Position = bingpage.Position - 1 If bingpage.Position 1 Then Button1.Enabled = True河北联合大学课程设计说明书交通与测绘学

16、院11 Button2.Enabled = True Button3.Enabled = True Button4.Enabled = True Else Button1.Enabled = False Button2.Enabled = False Button3.Enabled = True Button4.Enabled = True End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click bingp

17、age.Position = bingpage.Position + 1 If bingpage.Position bingpage.Count - 1 Then Button1.Enabled = True Button2.Enabled = True Button3.Enabled = True Button4.Enabled = True Else Button1.Enabled = True Button2.Enabled = True Button3.Enabled = False Button4.Enabled = False End If End Sub Private Sub

18、Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click bingpage.Position = bingpage.Count - 1 Button1.Enabled = True Button2.Enabled = True Button3.Enabled = False Button4.Enabled = False End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal

19、e As System.EventArgs) Handles Button5.Click objds.Clear() If ComboBox1.Text = Or TextBox8.Text = Then MessageBox.Show(请输入查询条件！) Exit Sub Else strsql = select * from 客户表 where & Trim(ComboBox1.Text) & = & & Trim(TextBox8.Text) & objda = New SqlClient.SqlDataAdapter(strsql, strcon

20、n) objda.Fill(objds, 客户表) Me.DataGridView1.DataSource = objds.Tables(客户表) End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click objds.Clear() strsql = select * from 客户表 objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fi

21、ll(objds, 客户表)河北联合大学课程设计说明书交通与测绘学院12 Me.DataGridView1.DataSource = objds.Tables(客户表) End SubPrivate Sub 客户修改_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Integer ComboBox1.Items.Add(男) ComboBox1.Items.Add(女) For i = 1910 To 2009 ComboBox2.Items.Add(i)

22、 Next For i = 1 To 12 ComboBox3.Items.Add(i) Next For i = 1 To 31 ComboBox4.Items.Add(i) Next Dim strsql As String strsql = select * from 客户表 objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, 客户表) DataGridView1.ReadOnly = True bingpage = Me.BindingContext(objds, 客户表) End Sub Pr

23、ivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Enabled = False Button2.Enabled = True TextBox1.ReadOnly = False TextBox2.ReadOnly = False TextBox3.ReadOnly = False TextBox4.ReadOnly = False TextBox5.ReadOnly = False河北联合大学课程设计说明书交通与测绘

24、学院13 TextBox6.ReadOnly = False RichTextBox1.ReadOnly = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Button1.Enabled = True Dim sql As String Dim m As String m = Trim(ComboBox2.Text) & - & Trim(ComboBox3.Text) &

25、- & Trim(ComboBox4.Text) sql = insert into 客户表(编号,姓名,性别,出生日期,家庭住址,证件类型,证件编号,手机号,备注)values( & Trim(TextBox1.Text) & , & Trim(TextBox2.Text) & , & Trim(ComboBox1.Text) & , & Trim(m) & , & Trim(TextBox3.Text) & , & Trim(TextBox4.Text) & , & Trim(T

26、extBox5.Text) & , & Trim(TextBox6.Text) & , & Trim(RichTextBox1.Text) & ) cn.ConnectionString = strconn cn.Open() cmd = New SqlClient.SqlCommand(sql, cn) cmd.ExecuteNonQuery() cmd.Dispose() cn.Dispose() Button1.Enabled = True Button2.Enabled = False MessageBox.Show(添加客户成功！) End S

27、ub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click DataGridView1.ReadOnly = False End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click DataGridView1.ReadOnly = True Dim sql As S

28、tring sql = update 客户表 set 家庭住址= & Trim(TextBox8.Text) & or 备注= & Trim(RichTextBox2.Text) & where 编号 = & Trim(TextBox9.Text) & or 姓名= & Trim(TextBox9.Text) & cn.ConnectionString = strconn cn.Open() cmd = New SqlClient.SqlCommand(sql, cn) cmd.ExecuteNonQuery() cmd.Disp

29、ose() cn.Dispose() objds.Clear() MessageBox.Show(修改成功, 提示, MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click objds.Clear() If TextBox7.Text = Then MessageBox.Show(请输入查询条件！) Exit Sub El

30、se strsql = select * from 客户表 where 手机号= & Trim(TextBox7.Text) & or 姓名河北联合大学课程设计说明书交通与测绘学院14= & Trim(TextBox7.Text) & objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, 客户表) Me.DataGridView1.DataSource = objds.Tables(客户表) End If End Sub Private Sub Button6_Click(

31、ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click DataGridView1.ReadOnly = True Dim sql As String sql = delete 客户表 where 编号 = & Trim(TextBox7.Text) & cn.ConnectionString = strconn cn.Open() cmd = New SqlClient.SqlCommand(sql, cn) cmd.ExecuteNonQuery() cmd.Disp

32、ose() cn.Dispose() objds.Clear() MessageBox.Show(删除成功, 提示, MessageBoxButtons.OK, MessageBoxIcon.Information) End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click objds.Clear() If TextBox3.Text = Then MessageBox.Show(请输入查询条件！) Exit Sub Els

33、e strsql = select 姓名,手机号,号码状态 from 客户表 where 手机号= & Trim(TextBox3.Text) & objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, 客户表) Me.DataGridView1.DataSource = objds.Tables(客户表)河北联合大学课程设计说明书交通与测绘学院15 End If End Sub Private Sub Button2_Click(ByVal sender As System.Object,

34、 ByVal e As System.EventArgs) Handles Button2.Click DataGridView1.Enabled = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click DataGridView1.Enabled = True Dim sql As String sql = update 客户表 set 号码状态= & Trim(ComboBox6.Text) &

35、amp; where 手机号 = & Trim(TextBox3.Text) & cn.ConnectionString = strconn cn.Open() cmd = New SqlClient.SqlCommand(sql, cn) cmd.ExecuteNonQuery() cmd.Dispose() cn.Dispose() objds.Clear() MessageBox.Show(办理成功, 提示, MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Private Sub 业务办理_Load(By

36、Val sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim i As Integer ComboBox5.Items.Add(男) ComboBox5.Items.Add(女) For i = 1910 To 2009 ComboBox2.Items.Add(i) Next For i = 1 To 12 ComboBox3.Items.Add(i) Next For i = 1 To 31 ComboBox4.Items.Add(i) Next Dim strsql As String s

37、trsql = select * from 客户表 objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, 客户表) Me.ListBox1.DataSource = objds.Tables(客户表) bingpage = Me.BindingContext(objds, 客户表) ComboBox6.Items.Add(正常使用) ComboBox6.Items.Add(停机) End Sub Private Sub Button4_Click(ByVal sender As System.Object

38、, ByVal e As System.EventArgs) Handles Button4.Click Button1.Enabled = False Button2.Enabled = True TextBox1.ReadOnly = False TextBox2.ReadOnly = False TextBox4.ReadOnly = False TextBox5.ReadOnly = False TextBox6.ReadOnly = False河北联合大学课程设计说明书交通与测绘学院16 TextBox7.ReadOnly = False End Sub Private Sub Bu

39、tton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Button1.Enabled = True Dim sql As String Dim m As String m = Trim(ComboBox2.Text) & - & Trim(ComboBox3.Text) & - & Trim(ComboBox4.Text) sql = insert into 客户表(编号,姓名,性别,出生日期,家庭住址,证件类型,证件编号,手机号

40、)values( & Trim(TextBox1.Text) & , & Trim(TextBox2.Text) & , & Trim(ComboBox5.Text) & , & Trim(m) & , & Trim(TextBox7.Text) & , & Trim(TextBox4.Text) & , & Trim(TextBox5.Text) & , & Trim(TextBox6.Text) & ) cn.ConnectionString = strconn

41、cn.Open() cmd = New SqlClient.SqlCommand(sql, cn) cmd.ExecuteNonQuery() cmd.Dispose() cn.Dispose() Button1.Enabled = True Button2.Enabled = False End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) objds.Clear() If TextBox3.Text = Then MessageBox.Show(请输入查询条

42、件！) Exit Sub Else strsql = select * from 客户表 where & Trim(TextBox3.Text) & objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, 客户表) Me.DataGridView1.DataSource = objds.Tables(客户表) End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click objds.Cl