加油站管理系统说明书

1 加 油 站 管 理 系 统 说 明 书 姓名 学号 精品文档 2欢迎下载 目录说明 1 功能说明及流程 图 3 2 登陆界 面 4 3 注册界 面 6 4 系统主界 面 7 5 修改密码界 面 10 6 汽油信息录 入 11 7 汽油信息查 询 13 精品文档 3欢迎下载 8 柴油信息录 入 15 9 柴油信息查 询 16 10 加油机信息查 询 18 11 职工个人信息录 入 20 12 职工个人信息查 询 21 十三 超级记事 本 22 十四 帮 助 27 精品文档 4欢迎下载 一 功能说明 公司提供的加油站管理系统为加油站的信息提供安全的保障 方便的查询 可以提高加 油站的信息管理 慧眼加油站管理系统系统 让您可做到队加油站的信息邮详细的了解 加 油站管理系统方便您对加油站有关问题的查询 本软件实现了对成品油价格查询与录入 加油机的查询 职工的信息的录入查询 方便管理人员对系统的记录与查询 2 流程图 是 否 是 否 登陆界面 是否注册 注册界面 注册完毕 系统页面 成品油报价 加油站设备职工管理 详细记录帮助 太原 汽油 太原 柴油 录入 查询 完毕 查询 职工 信息 录入 职工 信息 查询 录入 完毕 查询 完毕 查询 完毕 打开 记事 本 关于 加油 站 退出关闭 结束 开始 修改登录密码 文件 文件 精品文档 5欢迎下载 一 设置登录界面 注释 本窗口是进入系统的登陆界面 未注册过的用户 请先经过注册 以下会介绍注册 界面 获得登录用户名和密码后 在登陆界面输入注册过的用户名和密码 确定后进入系 统界面 已经注册过的用户 直接输入用户名的密码便进入系统界面 此窗口使用 ADO 控 件实现与 acess 数据库的连接 登陆界面的代码 Private Sub Command3 Click Unload form1 Unload Form2 Command2 点击后进入 注册界面 Command3 退出系统 Command1 确定后进入 系统界面 此处输入内 容 同下 精品文档 6欢迎下载 Unload Form3 Unload Form4 Unload Form5 Unload Form6 Unload Form7 Unload Form8 Unload Form9 Unload Form10 Unload Form11 Unload Me End Sub Private Sub Command1 Click Adodc1 RecordSource select from 登录 where 用户名 Text1 Text If Adodc1 Recordset RecordCount 0 Then MsgBox 用户不存在 Text1 Text Text2 Text Else If Trim Text2 Text Trim Adodc1 Recordset Fields 密码 Then Me Hide Form4 Show Else MsgBox 密码错误 Text2 Text End If End If End Sub Private Sub Command2 Click Form2 Hide Form12 Show End Sub Private Sub Form Load Text1 Text Text2 Text End Sub Private Sub Text2 keydown KeyCode As Integer Shift As Integer If KeyCode 13 Then Call Command1 Click Else 精品文档 7欢迎下载 End If End Sub 二 注册界面 Private Sub Command1 Click 确定后 注册成功 Adodc1 Recordset AddNew Adodc1 Refresh End Sub Private Sub Command2 Click Form12 Hide Form2 Show End Sub 返回到登陆界面 进行登录 精品文档 8欢迎下载 Private Sub Form Load Text1 Text Text2 Text End Sub 三 系统主界面 精品文档 9欢迎下载 注释 此窗口是系统的主界面窗口 在此窗口中 进行选择用户的需要内容 查询或者录入完后仍然 返回这个窗口 代码 Private Sub mnu11 Click Form4 Hide Form11 Show End Sub Private Sub mnu21 Click Form4 Hide Form7 Show End Sub Private Sub mnu22 Click Form4 Hide Form10 Show End Sub Private Sub mnu41 Click Form4 Hide Mnusecret 点击进入修改密 码界面 Mnutuichu 点击后退出系统 mnuqiyou 录入 点击进入汽油 录入界面 Mnuqiyouchaxun 点击进入汽油查 询系统 Mnuchaiyouluru 点击进入柴油录 入系统 Mnuchaiyouchaxun 点击后进入柴油查 询系统 点击后进入加油机查询界 面 点击后分别进入职工信息录入或查询界面 精品文档 10欢迎下载 form1 Show End Sub Private Sub mnu51 Click MsgBox 使用说明文档可能已经被移除 请与作者联系 End Sub Private Sub mnuchaiyouchaxun Click Index As Integer Form4 Hide Form9 Show End Sub Private Sub mnuchaiyouluru Click Index As Integer Form4 Hide Form6 Show End Sub Private Sub mnuqiyouchaxun Click Index As Integer Form4 Hide Form8 Show End Sub Private Sub mnuqiyou 录入 Click Index As Integer Form4 Hide Form5 Show End Sub Private Sub mnusecret Click Form3 Show Form4 Hide End Sub Private Sub mnutuichu Click MsgBox 谢谢使用 欢迎再次光临 Unload form1 Unload Form2 Unload Form3 Unload Form4 Unload Form5 Unload Form6 Unload Form7 精品文档 11欢迎下载 Unload Form8 Unload Form9 Unload Form10 Unload Form11 Unload Me End Sub 四 修改密码窗口 此窗口是对登录的密码进行修改 用 ADO 控件实现与 Acess 数据库的连接 Private Sub Command1 Click 返回到系统界面 Command2 精品文档 12欢迎下载 If Text1 Text Or Text2 Text Or Text3 Text Or Text4 Text Then MsgBox 请重新输入 Else If Text3 Text Text4 Text Then Adodc1 Recordset MoveFirst Do While Adodc1 Recordset 用户名 Text1 Text And Not Adodc1 Recordset EOF Adodc1 Recordset MoveNext Loop If Adodc1 Recordset EOF Then MsgBox 没有找到 Else Adodc1 Recordset 密码 Text3 Text Adodc1 Recordset Update MsgBox 密码修改成功 Form3 Hide Form4 Show End If Else MsgBox 密码不一致 Text1 Text Text2 Text Text3 Text Text4 Text Text1 SetFocus End If End If End Sub Private Sub Command2 Click Form3 Hide Form2 Show End Sub Private Sub Form Load Text1 Text Text2 Text Text3 Text Text4 Text End Sub 五 汽油录入界面 精品文档 13欢迎下载 注释 此窗口用 ADO 控件实现对 acess 汽油信息的录入 包括编号 日期 种类 升位价 格 吨位价格 上期价格等 信息的输入 并显示在 DATAGRIDE 里 并实现对信息的添加 修改 删除 录入完成后返回到系统主界面 注意点击添加 输入信息完毕后 点击注意点击添加 输入信息完毕后 点击 datagridedatagride 中的未被显示的那个方框 意味着将输中的未被显示的那个方框 意味着将输 入的内容保存 入的内容保存 代码 Private Sub Command1 Click Adodc1 Recordset AddNew End Sub Private Sub Command2 Click Adodc1 Recordset Update End Sub Private Sub Command3 Click y MsgBox 要删除记录吗 vbYesNo 删除记录 If y vbYes Then Adodc1 Recordset Delete Adodc1 Recordset MoveNext End If End Sub Private Sub Command4 Click Form5 Hide 添加 修改 删除 显示主界面 精品文档 14欢迎下载 Form4 Show End Sub 六 汽油查询窗口 精品文档 15欢迎下载 注释 本窗口实现对汽油信息的按编号查询和按种类查询 点击编号查询 在弹出的窗口 中输入编号查询 或者点击按种类查询 输入种类名称查询 点击结束 返回到系统界面 代码 Private Sub Command1 Click Select Case Index Case 0 s Trim InputBox 请输入要查找的编号 查找 xh 编号 本窗口实现对加油机信息的查询 按产品类型和按产品的编号查询 结束后返回系统 主界面 代码 Private Sub Command1 Click Select Case Index Case 0 s Trim InputBox 请输入要查找的编号 查找 xh 编号 s Data1 Recordset FindFirst xh If Data1 Recordset NoMatch Then MsgBox 找不到编号为 xh 的加油机 Data1 Recordset MoveFirst End If Case 1 Data1 Recordset Close 按编号查询 精品文档 21欢迎下载 Unload Me End Select End Sub Private Sub Command2 Click Select Case Index Case 0 s Trim InputBox 请输入要查找的产品名称 xx 加油机 查找 xh 种类 s Data1 Recordset FindFirst xh If Data1 Recordset NoMatch Then MsgBox 找不到产品名称为 xh 的加油机 Data1 Recordset MoveFirst End If Case 1 Data1 Recordset Close Unload Me End Select End Sub Private Sub Command3 Click Form11 Hide Form4 Show End Sub Private Sub Form Load End Sub 按加油机类型查询 关闭 返回到系统主界面 精品文档 22欢迎下载 十 职工个人信息录入窗口 注释 本窗口实现对职工信息的录入 运用与记事本连接来实现 结束后返回到主界面 代码 Private Sub Command1 Click Dim bian As String 6 name As String 8 age As String 2 sex As String 2 state As String 8 money As Integer phon As String 8 bian Text1 Text name Text2 Text age Text3 Text sex Text4 Text state Text5 Text money Text6 Text phon Text7 Text Write 1 bian name age sex state money phon Text1 Text Text2 Text Text3 Text Text4 Text Command1 Command2 精品文档 23欢迎下载 Text5 Text Text6 Text Text7 Text Text1 SetFocus End Sub Private Sub Command2 Click Close 1 Form7 Hide Form4 Show End Sub Private Sub Form Load Open C Documents and Settings Administrator 桌面 大作业 职工信息 text For Output As 1 End Sub 十一 职工个人信息查询窗口 注释 本窗口与记事本连接 实现对所有信息的查询 代码 Dim x As String Dim b As String n As String a As String s As String te As String m As Integer p As String Command1 Command2 返回到主界 面 精品文档 24欢迎下载 Private Sub Command1 Click Dim b As String n As String a As String s As String te As String m As Integer p As String Open C Documents and Settings Administrator 桌面 大作业 职工信息 text For Input As 1 Do While Not EOF 1 Input 1 b n a s te m p x b Space 1 n Space 1 a Space 1 s Space 1 te Space 1 Str m Space 1 p List1 AddItem x Loop Close 1 End Sub Private Sub Command2 Click Form10 Hide Form4 Show End Sub 十二 记事本窗口 精品文档 25欢迎下载 注释 本窗口实现了文本的记事 代码 Private Sub Form Load Dim sFind As String 声明查找变量 Dim FileType FiType As String 声明文件类型 Me Height 6000 Me Width 9000 设置编辑框的位置和大小 Private Sub Form Resize End Sub Private Sub Form Resize On Error Resume Next 出错处理 RichTextBox1 Top 720 RichTextBox1 Left 20 RichTextBox1 Height ScaleHeight 40 RichTextBox1 Width ScaleWidth 40 End Sub Private Sub mnu1 Click RichTextBox1 Text 清空文本框 FileName 未命名 Me Caption FileName 精品文档 26欢迎下载 RichTextBox1 SetFocus End Sub Private Sub mnu2 Click CommonDialog1 Filter 文本文档 txt txt RTF 文档 rtf rtf 所有文件 CommonDialog1 ShowOpen FileName CommonDialog1 FileName RichTextBox1 LoadFile FileName Me Caption 超级记事本 FileName End Sub Private Sub mnu3 Click CommonDialog1 Filter 文本文档 txt txt RTF 文档 rtf rtf 所有文件 CommonDialog1 ShowSave FileType CommonDialog1 FileTitle FiType LCase Right FileType 3 FileName CommonDialog1 FileName Select Case FiType Case txt RichTextBox1 SaveFile FileName rtfText Case rtf RichTextBox1 SaveFile FileName rtfRTF Case RichTextBox1 SaveFile FileName End Select Me Caption 超级记事本 FileName End Sub Private Sub mnu10 Click Clipboard Clear Clipboard SetText RichTextBox1 SelText RichTextBox1 SelText End Sub Private Sub mnu11 Click RichTextBox1 SelText Clipboard GetText End Sub Mnu7 返回到 主界面 Mnu9 Mnu5 Mnu20 精品文档 27欢迎下载 Private Sub mnu14 Click sFind InputBox 请输入要查找的字 词 查找内容 sFind RichTextBox1 Find sFind End Sub Private Sub mnu16 Click On Error GoTo handler RichTextBox1 LoadFile Readme txt rtfText 请写好 Readme txt 文件并存入程序所 在文件夹中 Me Caption 超级记事本 使用说明 Exit Sub handler MsgBox 使用说明文档可能已经被移除 请与作者联系 vbOKOnly 错误信息 End Sub Private Sub mnu17 Click MsgBox 超级记事本 Ver1 0 版权所有 2011 土人 vbOKOnly 关于 End Sub Private Sub mnu18 Click CommonDialog1 Flags cdlCFBoth Or cdlCFEffects cdlCFBoth 对话框列出可用的打印 机和屏幕字体 cdlCFEffects 对话框允许删除线 下划线 以及颜色效果 CommonDialog1 ShowFont 显示 字体 对话框 RichTextBox1 SelFontName CommonDialog1 FontName 设置字体 RichTextBox1 SelFontSize CommonDialog1 FontSize 设置字号 RichTextBox1 SelBold CommonDialog1 FontBold 设置是否以粗体显示 RichTextBox1 SelItalic CommonDialog1 FontItalic 设置是否以斜体显示 RichTextBox1 SelStrikeThru CommonDialog1 FontStrikethru 设置是否显示删除线 RichTextBox1 SelUnderline CommonDialog1 FontUnderline 设置是否显示下划线 RichTextBox1 SelColor CommonDialog1 Color 设置字的颜色 End Sub Private Sub mnu20 Click RichTextBox1 SelStart 0 RichTextBox1 SelLength Len RichTextBox1 Text End Sub Private Sub mnu22 Click CommonDialog1 Flags 2 打开完整的对话框 Mnu18 精品文档 28欢迎下载 CommonDialog1 ShowColor 显示 颜色 对话框 RichTextBox1 BackColor CommonDialog1 Color 背景颜色为通用对话框选定的颜 End Sub Private Sub mnu4 Click RichTextBox1 SelStart RichTextBox1 SelStart RichTextBox1 SelLength 1 RichTextBox1 Find sFind Len RichTextBox1 End Sub Private Sub mnu5 Click RichTextBox1 SelText End Sub Private Sub mnu7 Click form1 Hide Form4 Show End Sub Private Sub mnu9 Click Clipboard Clear Clipboard SetText RichTextBox1 SelText End Sub Private Sub RichTextBox1 KeyUp KeyCode As Integer Shift As Integer If KeyCode vbKeySpace Then RichTextBox1 SelFontName CommonDialog1 FontName End If End Sub Private Sub RichTextBox1 MouseDown Button As Integer Shift As Integer x As Single y As Single If Button 2 Then PopupMenu mnu8 vbPopupMenuLeftAlign Else Exit Sub End If End Sub Mnu14 精品文档 29欢迎下载 Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 CommonDialog1 Filter 文本文档 txt txt RTF 文档 rtf rtf 所有文件 CommonDialog1 ShowSave FileType CommonDialog1 FileTitle FiType LCase Right FileType 3 FileName CommonDialog1 FileName Select Case FiType Case txt RichTextBox1 SaveFile FileName rtfText Case rtf RichTextBox1 SaveFile FileName rtfRTF Case RichTextBox1 SaveFile FileName End Select Me Caption 超级记事本 FileName Case 2 RichTextBox1 Text 清空文本框 FileName 未命名 Me Cap