其制作过程如下：

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