加油站管理系统说明
书
姓名：
学号：
目录说明：
一、功能说明及流程图 (3)
二、登陆界面 (4)
三、注册界面 (6)
四、系统主界面 (7)
五、修改密码界面 (10)
六、汽油信息录入 (11)
七、汽油信息查询 (13)
八、柴油信息录入 (15)
九、柴油信息查询 (16)
十、加油机信息查询 (18)
十一、职工个人信息录入 (20)
十二、职工个人信息查询.........................21 十三、超级记事本...............................22 十四、帮助. (27)
一、功能说明
公司提供的加油站管理系统为加油站的信息提供安全的保障,方便的查询,可以提高加 油站的信息管理，慧眼加油站管理系统系统,让您可做到队加油站的信息邮详细的了解，加油站管理系统方便您对加油站有关问题的查询！本软件实现了对成品油价格查询与录入、加油机的查询、职工的信息的录入查询，方便管理人员对系统的记录与查询。 二、流程图
是
否 是 否
登陆界面 是否注册
注册界面
注册完毕 系统页面 成品油报价 加油站设备 职工管理 详细记录 帮助 太原 汽油 太原 柴油 查询 职工信息录入
职工 信息 查询 打开 记事 本 关于 加油 站 结束 开始
修改登录密码 文件
文件
一、设置登录界面
录入 查询 完毕 录入完毕
查询完毕
查询
完毕 退出 关闭
Command2 点击后进入注册界面
Command3 退出系统
Command1 确定后进入 系统界面 此处输入内容，同下
注释：本窗口是进入系统的登陆界面，未注册过的用户，请先经过注册（以下会介绍注册界面）获得登录用户名和密码后，在登陆界面输入注册过的用户名和密码，确定后进入系统界面，已经注册过的用户，直接输入用户名的密码便进入系统界面。此窗口使用ADO控件实现与acess数据库的连接！
登陆界面的代码：
Private Sub Command3_Click()
Unload form1
Unload Form2
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
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
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
三、系统主界面
Mnusecret
点击进入修改密
Mnutuichu
点击后退出系统
mnuqiyou 录入 点击进入汽油录入界面
Mnuqiyouchaxun 点击进入汽油查询系统
注释：此窗口是系统的主界面窗口，在此窗口中
进行选择用户的需要内容，查询或者录入完后仍然
返回这个窗口。
代码：
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 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
Mnuchaiyouluru 点击进入柴油录入系统
Mnuchaiyouchaxun
点击后进入柴油查
询系统
点击后进入加油机查询界 点击后分别进入职工信息录入或查询界面
