其制作过程如下:
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