SEMI——VB作业：鲜花订购系统 代码清单.docVIP

SEMI——VB作业：鲜花订购系统 代码清单 运行文件“鲜花订购系统：数据库脚本.doc”中的数据库脚本，在SQL Server中创建数据库和数据库表； 为数据库与应用程序的连接创建数据源（DSN）； 以下的窗体和代码在设计和编写的时候，没有做到完全规范，仅作为功能实现的参考； VB应用程序的代码如下： MDI主窗体界面及代码 界面： 图1 : MDI 主窗口 代码： Private Sub MDIForm_Load() Dim tlbr_btn As Button Dim img As ListImage Set img = ImageList1.ListImages.Add(1, Flower, LoadPicture(snow.ico)) Set img = ImageList1.ListImages.Add(2, Customer, LoadPicture(face02.ico)) Set img = ImageList1.ListImages.Add(3, Order, LoadPicture(project.bmp)) Toolbar1.ImageList = ImageList1 Set tlbr_btn = Toolbar1.Buttons.Add(1, , Flower, tbrDefault, Flower) tlbr_btn.ToolTipText = Open Flower Information Form Set tlbr_btn = Toolbar1.Buttons.Add(2, , , tbrSeparator) Set tlbr_btn = Toolbar1.Buttons.Add(3, , Customer, tbrDefault, Customer) tlbr_btn.ToolTipText = Open Customer Information Form Set tlbr_btn = Toolbar1.Buttons.Add(4, , , tbrSeparator) Set tlbr_btn = Toolbar1.Buttons.Add(5, , Order, tbrDefault, Order) tlbr_btn.ToolTipText = Open Order Information Form Dim mypanel As Panel Set mypanel = StatusBar1.Panels.Add() mypanel.AutoSize = sbrSpring mypanel.MinWidth = 1 Set mypanel = StatusBar1.Panels.Add(, , , sbrCaps) Set mypanel = StatusBar1.Panels.Add(, , , sbrNum) mypanel.Bevel = sbrInset mypanel.Alignment = sbrRight StatusBar1.Panels(1).Text = Status StatusBar1.Panels(1).AutoSize = sbrContents End Sub Private Sub mnu_cust_Click() Load frmCustomer frmCustomer.Show End Sub Private Sub mnu_Exit_Click() Unload Me End Sub Private Sub mnu_flower_Click() Load frmFlower frmFlower.Show End Sub Private Sub mnu_place_Click() Load frmOrder frmOrder.Show End Sub Private Sub mnu_search_Click() Load frmSearch frmSearch.Show End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Index = 1 Then mnu_flower_Click ElseIf Button.Index = 3 Then mnu_cust_Click ElseIf Button.Index = 5 Then mnu_place_Click End If End Sub 窗体FrmFlower.frm界面及代码 界面： 图2 : 鲜花信息 代码： ‘ General Declarations ‘Declaring the ADODB objects Dim rsfl