加油站管理系统说明书.doc

30 加油站管理系统说明书 姓名： 学号：目录说明：1、 功能说明及流程图32、 登陆界面43、 注册界面64、 系统主界面75、 修改密码界面106、 汽油信息录入117、 汽油信息查询138、 柴油信息录入159、 柴油信息查询1610、 加油机信息查询1811、 职工个人信息录入2012、 职工个人信息查询21十三、超级记事本22十四、帮助27一、功能说明公司提供的加油站管理系统为加油站的信息提供安全的保障,方便的查询,可以提高加 油站的信息管理，慧眼加油站管理系统系统,让您可做到队加油站的信息邮详细的了解，加油站管理系统方便您对加油站有关问题的查询！本软件实现了对成品油价格查询与录入、加油机的查询、职工的信息的录入查询，方便管理人员对系统的记录与查询。2、 流程图开始 登陆界面注册完毕注册界面 是是否注册 否 是 系统页面加油站设备 否文件 修改登录密码文件帮助详细记录职工管理成品油报价结束关于加油站太原汽油打开记事本职工信息查询职工信息录入太原柴油查询录入完毕查询完毕录入关闭退出查询完毕查询 完毕一、设置登录界面此处输入内容，同下Command1确定后进入系统界面Command2点击后进入注册界面Command3退出系统 注释：本窗口是进入系统的登陆界面，未注册过的用户，请先经过注册（以下会介绍注册界面）获得登录用户名和密码后，在登陆界面输入注册过的用户名和密码，确定后进入系统界面，已经注册过的用户，直接输入用户名的密码便进入系统界面。此窗口使用ADO控件实现与acess数据库的连接！登陆界面的代码：Private Sub Command3_Click()Unload form1Unload Form2Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8Unload Form9Unload Form10Unload Form11Unload MeEnd SubPrivate 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 IfEnd IfEnd SubPrivate Sub Command2_Click()Form2.HideForm12.ShowEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End SubPrivate Sub Text2_keydown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenCall Command1_ClickElseEnd IfEnd Sub二、注册界面Private Sub Command1_Click() 确定后，注册成功Adodc1.Recordset.AddNew Adodc1.RefreshEnd Sub返回到登陆界面，进行登录Private Sub Command2_Click() Form12.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = End Sub三、系统主界面Mnutuichu点击后退出系统Mnusecret点击进入修改密码界面Mnuqiyouchaxun点击进入汽油查询系统mnuqiyou录入点击进入汽油录入界面Mnuchaiyouchaxun点击后进入柴油查询系统Mnuchaiyouluru点击进入柴油录入系统注释：此窗口是系统的主界面窗口，在此窗口中进行选择用户的需要内容，查询或者录入完后仍然返回这个窗口。代码：点击后进入加油机查询界面Private Sub mnu11_Click()Form4.Hide Form11.ShowEnd SubPrivate Sub mnu21_Click()点击后分别进入职工信息录入或查询界面Form4.HideForm7.ShowEnd SubPrivate Sub mnu22_Click()Form4.HideForm10.ShowEnd SubPrivate Sub mnu41_Click()Form4.Hideform1.ShowEnd SubPrivate Sub mnu51_Click()MsgBox 使用说明文档可能已经被移除，请与作者联系。End SubPrivate Sub mnuchaiyouchaxun_Click(Index As Integer)Form4.HideForm9.ShowEnd SubPrivate Sub mnuchaiyouluru_Click(Index As Integer)Form4.HideForm6.ShowEnd SubPrivate Sub mnuqiyouchaxun_Click(Index As Integer)Form4.HideForm8.ShowEnd SubPrivate Sub mnuqiyou录入_Click(Index As Integer)Form4.HideForm5.ShowEnd SubPrivate Sub mnusecret_Click()Form3.ShowForm4.HideEnd SubPrivate Sub mnutuichu_Click()MsgBox 谢谢使用，欢迎再次光临Unload form1Unload Form2Unload Form3Unload Form4Unload Form5Unload Form6Unload Form7Unload Form8Unload Form9Unload Form10Unload Form11Unload MeEnd Sub四、修改密码窗口返回到系统界面Command2此窗口是对登录的密码进行修改，用ADO控件实现与Acess数据库的连接。Private Sub Command1_Click()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 IfElseMsgBox 密码不一致！Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub五、汽油录入界面注释：此窗口用ADO控件实现对acess汽油信息的录入，包括编号、日期、种类、升位价格、吨位价格、上期价格等 信息的输入，并显示在DATAGRIDE里，并实现对信息的添加、修改、删除，录入完成后返回到系统主界面。注意点击添加，输入信息完毕后，点击datagride中的未被显示的那个方框，意味着将输入的内容保存。代码：添加Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd Sub修改Private Sub Command2_Click()Adodc1.Recordset.UpdateEnd Sub删除Private Sub Command3_Click()y = MsgBox(要删除记录吗？, vbYesNo, 删除记录)If y = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextEnd IfEnd Sub显示主界面Private Sub Command4_Click()Form5.HideForm4.ShowEnd Sub六、汽油查询窗口Command2Command11返回到系统界面注释：本窗口实现对汽油信息的按编号查询和按种类查询，点击编号查询，在弹出的窗口中输入编号查询，或者点击按种类查询，输入种类名称查询。点击结束，返回到系统界面。代码：Private Sub Command1_Click()Select Case IndexCase 0 s = Trim(InputBox(请输入要查找的编号, 查找) xh = 编号= & s & Data1.Recordset.FindFirst xh If Data1.Recordset.NoMatch Then MsgBox 找不到编号为 & xh & 的汽油！ Data1.Recordset.MoveFirstEnd IfCase 1 Data1.Recordset.Close Unload MeEnd SelectEnd SubPrivate Sub Command2_Click()Select Case IndexCase 0 s = Trim(InputBox(请输入要查找的种类（例如90号汽油，93号汽油，97号汽油等）, 查找) xh = 种类= & s & Data1.Recordset.FindFirst xh If Data1.Recordset.NoMatch Then MsgBox 找不到种类为 & xh & 的汽油！ Data1.Recordset.MoveFirstEnd IfCase 1 Data1.Recordset.Close Unload MeEnd SelectEnd SubPrivate Sub Command3_Click()Form8.HideForm4.ShowEnd SubPrivate Sub Form_Load()End Sub七、柴油录入窗口注释：本窗口实现对柴油信息的录入，实现对柴油的添加、删除、修改等，同于对汽油的录入，最后返回到系统主界面。代码：Private Sub Command1_Click()Command4Command3Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()y = MsgBox(要删除记录吗？, vbYesNo, 删除记录)If y = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command4_Click()Form6.HideForm4.ShowEnd Sub八、柴油查询窗口注释：本窗口实现对柴油信息的查询，按编号查询和按种类查询，结束后返回到系统主界面。代码：按编号查询Private Sub Command1_Click()Select Case IndexCase 0 s = Trim(InputBox(请输入要查找的编号, 查找) xh = 编号= & s & Data1.Recordset.FindFirst xh If Data1.Recordset.NoMatch Then MsgBox 找不到编号为 & xh & 的柴油！ Data1.Recordset.MoveFirstEnd IfCase 1 Data1.Recordset.Close Unload MeEnd SelectEnd Sub按种类查询Private Sub Command2_Click()Select Case IndexCase 0 s = Trim(InputBox(请输入要查找的种类（例如0号柴油，10号柴油等）, 查找) xh = 种类= & s & Data1.Recordset.FindFirst xh If Data1.Recordset.NoMatch Then MsgBox 找不到种类为 & xh & 的柴油！ Data1.Recordset.MoveFirstEnd IfCase 1 Data1.Recordset.Close Unload MeEnd SelectEnd SubPrivate Sub Command3_Click()Form9.HideForm4.ShowEnd SubPrivate Sub Form_Load()End Sub九、加油机信息查询窗口注释;本窗口实现对加油机信息的查询，按产品类型和按产品的编号查询，结束后返回系统主界面。代码：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.MoveFirstEnd IfCase 1 Data1.Recordset.Close Unload MeEnd SelectEnd Sub按加油机类型查询Private Sub Command2_Click()Select Case IndexCase 0 s = Trim(InputBox(请输入要查找的产品名称（xx加油机）, 查找) xh = 种类= & s & Data1.Recordset.FindFirst xh If Data1.Recordset.NoMatch Then MsgBox 找不到产品名称为 & xh & 的加油机！ Data1.Recordset.MoveFirstEnd IfCase 1 Data1.Recordset.Close Unload MeEnd SelectEnd SubPrivate Sub Command3_Click() 关闭返回到系统主界面Form11.HideForm4.ShowEnd SubPrivate Sub Form_Load()End Sub十、职工个人信息录入窗口Command2Command1注释：本窗口实现对职工信息的录入。运用与记事本连接来实现。结束后返回到主界面。代码：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 * 8bian = Text1.Textname = Text2.Textage = Text3.Textsex = Text4.Textstate = Text5.Textmoney = Text6.Textphon = Text7.TextWrite #1, bian, name, age, sex, state, money, phonText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click()Close #1Form7.HideForm4.ShowEnd SubPrivate Sub Form_Load()Open C:Documents and SettingsAdministrator桌面大作业职工信息.text For Output As #1End Sub十一、职工个人信息查询窗口Command2返回到主界面Command1 注释：本窗口与记事本连接，实现对所有信息的查询。代码：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 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 SettingsAdministrator桌面大作业职工信息.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 xLoopClose #1End SubPrivate Sub Command2_Click()Form10.HideForm4.ShowEnd Sub十二、记事本窗口注释：本窗口实现了文本的记事。代码：Private Sub Form_Load()Dim sFind As String 声明查找变量 Dim FileType, FiType As String 声明文件类型 Me.Height = 6000 Me.Width = 9000 设置编辑框的位置和大小 Private Sub Form_Resize()End SubPrivate Sub Form_Resize() On Error Resume Next 出错处理 RichTextBox1.Top = 720 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width = ScaleWidth - 40End SubPrivate Sub mnu1_Click() RichTextBox1.Text = 清空文本框 FileName = 未命名 Me.Caption = FileNameRichTextBox1.SetFocusEnd SubPrivate Sub mnu2_Click()CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenFileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = 超级记事本： & FileNameEnd SubPrivate Sub mnu3_Click() CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.* CommonDialog1.ShowSaveMnu7返回到主界面 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 = 超级记事本： & FileNameEnd SubMnu9Private Sub mnu10_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = End SubMnu20Mnu5Private Sub mnu11_Click()RichTextBox1.SelText = Clipboard.GetTextEnd SubPrivate Sub mnu14_Click()sFind = InputBox(请输入要查找的字、词：, 查找内容, sFind)RichTextBox1.Find sFindEnd SubPrivate Sub mnu16_Click()On Error GoTo handlerRichTextBox1.LoadFile Readme.txt, rtfText 请写好Readme.txt文件并存入程序所在文件夹中Me.Caption = 超级记事本： & 使用说明Exit Subhandler:MsgBox 使用说明文档可能已经被移除，请与作者联系。, vbOKOnly, 错误信息End SubPrivate Sub mnu17_Click()MsgBox 超级记事本 Ver1.0 版权所有? 2011 土人, vbOKOnly, 关于End SubPrivate 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 设置字的颜色Mnu18End SubPrivate Sub mnu20_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End SubPrivate Sub mnu22_Click()CommonDialog1.Flags = 2 打开完整的对话框CommonDialog1.ShowColor 显示“颜色”对话框RichTextBox1.BackColor = CommonDialog1.Color 背景颜色为通用对话框选定的颜End SubPrivate Sub mnu4_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.Find sFind, , Len(RichTextBox1)End SubPrivate Sub mnu5_Click()RichTextBox1.SelText = End SubPrivate Sub mnu7_Click()form1.HideForm4.ShowMnu14End SubPrivate Sub mnu9_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd SubPrivate Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = 2 ThenPopupMenu mnu8, vbPopupMenuLeftAlignElseExit Sub End If End SubPrivate 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