主窗体设计.docVIP

主窗体的设计步骤 在d盘新建一个文件夹，取名为“图书管理系统” 1.窗体外观设计 新建一个窗体，将其保存在“图书管理系统”下，改变其属性入下表 属性 值 名称 frmmain caption 图书馆管理系统 borderstyle 1-fixed single startupposition 2-屏幕中心 picture Main.bmp minbottom true （1）制作菜单 （2）制作图片工具栏 添加label控件给每个工具栏按钮添加文字，设置背景色为透明模式，label的name属性为lbl_info； 添加label控件给每个工具栏按钮空文字达到窗体浮动效果，设置背景色为透明模式，label的name属性为lbl_pic； （3）制作树状节点和功能列表 加treeview控件 listview控件 imagelist控件（工程---部件---microsoft common control 6.0），设置treeview的线条样式为2（增加子菜单） 在imagelist中添加图片作为treeview的图标，treeview与imagelist相连（右击treeview 单击属性） 给listview控件添加一幅图像（picture属性） 给imagelist插入图标图像作为listview功能列表的图标，记住其索引值。连接imagelist和listview（右击listview 单击属性） （4）添加两个ADO控件 （5）添加一个timer控件 （6）添加一个状态栏，设置四个窗格，第一个显示“欢迎进入图书管理系统”，第四个显示 2.主窗体的代码设计 准备工作：首先将数据库db_library.mbd数据库复制“图书管理系统”文件夹下。 （1）数据库连接 建立一个公共模块，将以下代码复制粘贴： Public temp, str, BS As String Public adoCon As New ADODB.Connection Public adoRs As New ADODB.Recordset Public Sub Main() adoCon.Open Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=tsgl End Sub Function cnn() As ADODB.Connection Set cnn = New ADODB.Connection cnn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \db_library.mdb;Persist Security Info=False End Function （2）图片工具栏浮动效果 在lb1_pic的鼠标移动事件中添加如下代码，实现鼠标划过时文字变红 Private Sub Lbl_Pic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Lbl_info(Index).ForeColor = RGB(255, 0, 0) End Sub 在form的鼠标移动事件中添加如下代码，实现鼠标划过窗体时文字变黑 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 0 To Lbl_info.Count - 1 Lbl_info(i).ForeColor = RGB(0, 0, 0) Next i End Sub （3）treeview控件的节点显示代码 在form的load事件中添加如下代码 Private Sub Form_Load() Adodc1.ConnectionString = cnn.ConnectionString Adodc2.ConnectionString = cnn.ConnectionString Call Tree_change TreeView1.LabelEdit = tvwManual ListView1.OLEDragMode = ccOLEDragAutomatic End Sub 在定义tree_change方法代码如下： Public Sub Tree_change() Dim Key, Tex