(完整版)旅行社综合管理系统计算机毕业设计

其制作过程如下:

1.设置窗体first_f的基本属性如下表所示。

系统启动窗体first_f的主要属性

属性项名 Border Style StartUpPosition WindowsState Picture 属性设置内容 None 2-屏幕中心 2-maximized 选定的图片文件 2.在窗体中放入一个标签控件,设其Caption属性为“系统登录”并为该标签控件赋予一个过程代码,当用户单击该标签时即进入系统权限认证窗体。其过程代码如下: Private Sub Label1_Click() login_f.Show

End Sub

3.再放入一个标签控件,设其Caption属性为“旅行社综合管理系统”,用于说明该系统的名称。

4.最后放入一个标签控件,设其Caption属性为“退出系统”,用于退出系统,其过程代码如下: Private Sub Label2_Click() end '用于退出系统 End Sub

(2) 创建系统登录界面

系统登录界面是一个管理系统进行权限认证中不可缺少的一环,它主

要用来验证系统使用的合法身份。保证系统的安全运行。其制作过程如下:

1.在工程中增加一个新的窗体Login_f;窗体布局如图5.2.2.2.1所示。

2.在Login_f窗体中放入两个文本框控件用来接收用户名和密码信息。在具体制作中将密码框的passwordchar的属性改为*,作用是为了保证输入密码时不被他人看见。

3.在两个文本框的边上放入两个标签控件,设两个标签的Caption属性分别为“用户名和密码”。用于说明两个文本框的作用。

4.在窗体中放入两个按钮控件,分别设置其Caption属性为“进入”、“退出”。用于系统登录和退出启动界面之用。登录按钮的过程代码如下: 进入按钮的过程代码如下: Private Sub Command1_Click()

text1.Text = Replace(text1.Text, \text1.Text = Replace(text1.Text, Chr(34), \Text2.Text = Replace(Text2.Text, \

Text2.Text = Replace(Text2.Text, Chr(34), \

sql = \密码表 where 用户名='\密码= '\‘查询密码和用户是否与表中的相符 Set rs = conn.Execute(sql)

If rs.EOF Or rs.BOF Then ‘若其中至少有一个不相符,则不能登录。 MsgBox \帐号口令错误,请检查后重新进入!\vbOKOnly + vbExclamation, \警告\Else

glymc = rs(\用户名\quanxian = rs(\权限\Unload Me MDIForm1.Show End If End Sub

返回按钮的过程代码如下: Private Sub Command2_Click() Unload Me '放弃登录,返回启动界面 End Sub

(3) 创建系统主控界面:

系统主控界面是集中管理系统的界面,它主要通过菜单或命令按钮对其他窗体进行调用,对报表进行显示或打印,其制作过程如下: 1. 在工程中增加一个新的MDI窗体MDIform1,并加入一个图片框

picture1用于放入在系统启动后加载的图片。保存后创建系统主菜单。 2. 右键单窗体,出现弹出式菜单,选择“菜单编辑器”菜单项,进入菜

单编辑对话框,菜单编辑器如图5.2.2.3.1所示。

3. 在菜单编辑器中添加系统各个模块的信息,添加好后的系统界面如图

5.2.2.3.2所示。

4.在系统使用中,若你登录时的权限选择为USER,你就不可以使用添加用户菜单,只有当你的选择权限为SYSTEM时,你才可使用。其认证代码如下:

Private Sub MDIForm_Load()

Picture1.Picture = LoadPicture(App.Path & \If quanxian = \当权限为system时,增加用户可用 adduser_menu.Enabled = True Else

adduser_menu.Enabled = False End If End Sub

其余菜单的过程代码基本为打开其它窗体,在此不一一列出。 完成窗体设置后,保存退出。 (4) 创建旅游线路管理窗体

旅游线路管理是旅行社管理的一个重要的管理方面,该窗体主要用于对一个旅行社的旅游线路数据进行增加、修改、删除等操作,创建该管理窗体的基本方法如下:

1.在工程中增加一个新的窗体,并将该窗体的名称修改为lyxlgl。 设置该窗体的基本属性,如下表所示:

窗体lyxlgl的主要属性

属性项名 Borderstyle 属性设置内容 1-fixed

联系客服:779662525#qq.com(#替换为@)