理工移动网点收费系统.docx

1、理工移动网点收费系统河 北 联 合 大 学数据库课程设计说明书设计题目：移动网点收费系统姓 名：学 号：专 业：地理信息系统班 级：指导教师：黄丽王晓红王政矿业工程学院2013年 1 月 5 日目录1 概述 11.1 系统背景 12 需求分析 13 结构设计 24 行为设计 45 系统开发流程 66 系统使用说明及主要代码 87 课程设计体会及心得 178 参考文献 171 概述1.1 系统背景随着国民经济的发展,我国的通信事业得到了长足的进步，到现在为止电信行业已经成为国民经济中一个高科技含量最高的单位之一。尤其是在最近几年，移动的无线通信事业在国家的大力扶植下获得了飞速的发展，不仅营建了一

2、批技术先进的基站、交换机，还实现了与邮电网的互连互通，发展了一大批客户。整个GSM产业已经奠定了一个良好的发展开端。因此，在电信信息化的指导思想下，就如何减少移动客户管理和缴费耗费的人力物力资源成为此次课程设计的主要课题。2 需求分析需求是数据库开发的目的。需求分析就是分析软件用户的需求是什么，开发者耗费大量的人力、物力、财力、时间进行设计工作，目的就是要达到使用者的需求。需求分析之所以重要，就因为他具有决策性，方向性，策略性的作用，它在软件开发的过程中具有举足轻重的作用。此次数据库设计就需求方面设计了几个重要的地方。1） 系统包含了客户的主要信息，为了维护和避免客户的重要资料被意外或是人为故

3、意删除，系统内部建立了超级管理员和普通级管理员，超级管理员有添加、删除普通管理员和客户的权限。2） 当客户的信息被修改或添加时，系统需要提供一个客户的详细信息查询，以便在举行活动或是移动发送通知时能将信息准确到达客户手中。而为了准确、及时的得到客户信息，系统要提供依据客户名字或客户代码搜索的方式来进行对客户的提取。3） 除了对客户进行查询还要对系统的每个操作员进行记录查询，记录每个在这工作的操作员的一些基本信息，比如编号，姓名，登录密码等，以便发生人事调动时超级管理员能及时讲操作员的信息进行更新。4） 除此之外还有开停机、开户、缴费功能。5） 操作员信息库包括：编号，姓名，性别，密码，权限，家

4、庭住址，出生日期，备注。6） 客户信息库包括：编号，姓名，性别，出生日期，证件类型，证件编号，手机号，家庭住址，号码状态，备注。7） 账户信息库包括：账户号，手机号，联系人，账户金额。各种功能一起将对移动的收费业务进行执行和操作。3 结构设计客户E-R图操作员E-R图账户E-R图4 行为设计本系统的主要任务是对操作员、客户、手机号进行相关的操作管理。本系统需要完成的功能主要有：1） 登陆界面2） 对操作员的详细查询，添加与删除操作。3） 对客户的详细查询，添加与删除操作。4） 对手机进行开停机、缴费操作。5） 对新手机号进行开户操作。绘制功能图如下：5 系统开发流程操作员成功进入“登录”界面后

5、，进如“主窗体”界面，选择“客户信息管理”，下拉菜单分为两类：“客户信息查询”，“客户信息修改”。当进入“客户信息查询”后，可以选择“客户信息浏览”和“客户信息条件浏览”，按照里面编辑的一步一步的编辑即可。进入“客户信息修改”窗口，可以选择“添加”和“删除”选项，进行添加操作和删除操作。进入“操作员信息管理”下拉菜单选择“操作员信息查询”和“操作员信息修改”两项，“操作员信息查询”中有“操作员信息浏览”和“操作员条件查询”。“操作员信息修改”分为“添加”和“删除”。6 系统使用说明及主要代码 Private Sub Button1_Click(ByVal sender As System.Ob

6、ject, ByVal e As System.EventArgs) Handles Button1.Click 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.ExecuteR

7、eader(CommandBehavior.CloseConnection) 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(登录成功!, 提示, MessageBoxButt

8、ons.OK, MessageBoxIcon.Information) 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(ByVa

9、l sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ComboBox1.Items.Add(超级管理员) ComboBox1.Items.Add(管理员) End SubPrivate Sub 客户查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strsql = select * from 客户表 objda = New SqlClient.SqlDataAdapter

10、(strsql, strconn) 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, 客户表.性

11、别) TextBox4.DataBindings.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.DataBin

12、dings.Add(New 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

13、.Enabled = False 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 Butt

14、on2.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 bingpage.Posi

15、tion = 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 Button4_

16、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 e As Sys

17、tem.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, strconn) objda.Fill(objds, 客户表) Me

18、.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.Fill(objds, 客户表) Me.DataGridVi

19、ew1.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) Next For i = 1 To 12 ComboBox3.Items.Add(i) Next

20、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 Private Sub Button1_Click(ByVal sender As System.Obj

21、ect, 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 TextBox6.ReadOnly = False RichTextBox1.ReadOnly = False End Sub Pri

22、vate 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) & - & Trim(ComboBox4.Text) sql = insert into 客户表(编号,姓名,性别,出生日期,家庭住址,证件类型,证件编号,手机号,备注)v

23、alues( & Trim(TextBox1.Text) & , & Trim(TextBox2.Text) & , & Trim(ComboBox1.Text) & , & Trim(m) & , & Trim(TextBox3.Text) & , & Trim(TextBox4.Text) & , & Trim(TextBox5.Text) & , & Trim(TextBox6.Text) & , & Trim(RichTextBox1.Text) & ) cn.ConnectionString = strconn cn.Open() cmd = New SqlClient.SqlCom

24、mand(sql, cn) cmd.ExecuteNonQuery() cmd.Dispose() cn.Dispose() Button1.Enabled = True Button2.Enabled = False MessageBox.Show(添加客户成功！) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click DataGridView1.ReadOnly = False End Sub Private Su

25、b Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click DataGridView1.ReadOnly = True Dim sql As String sql = update 客户表 set 家庭住址= & Trim(TextBox8.Text) & or 备注= & Trim(RichTextBox2.Text) & where 编号 = & Trim(TextBox9.Text) & or 姓名= & Trim(TextBox9.Text) & cn

26、.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 Button5_Click(ByVal sender As System.Object, ByVal e As System.

27、EventArgs) Handles Button5.Click objds.Clear() If TextBox7.Text = Then MessageBox.Show(请输入查询条件！) Exit Sub Else strsql = select * from 客户表 where 手机号= & Trim(TextBox7.Text) & or 姓名= & Trim(TextBox7.Text) & objda = New SqlClient.SqlDataAdapter(strsql, strconn) objda.Fill(objds, 客户表) Me.DataGridView1.Da

28、taSource = objds.Tables(客户表) End If End Sub Private Sub Button6_Click(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 = Ne

29、w SqlClient.SqlCommand(sql, cn) cmd.ExecuteNonQuery() cmd.Dispose() 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()

30、If TextBox3.Text = Then MessageBox.Show(请输入查询条件！) 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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click DataGridView1.Enabled = False End Sub Private Sub Button3_