VB程序设计进销存管理信息系统.pdfVIP

VB进销存管理信息系统 （1 ）添加 Module 模块，编写 Main 过程： 声明全局对象变量 ADOcn ，用于创建与数据库的连接 Public ADOcn As Connection 声明全局变量 strQuery1 用于存储查询条件 Pubic strQuery1 As String Public Sub Main() 定义数据库连接字符串 Dim strSQLServer As String 用于连接 SQL Server 数据库，其中 : Server 为服务器名称 User ID 为登录账号， Password 为登录口令 Database 为具体的数据库名 请根据具体的实验环境修改这些参数 strSQLServer = Provider=SQLOLEDB;Server=bigdog;Us_ er ID=sa;Password=sa;Database= 进销存 连接 SQL Server 数据库 ADOcn.Open strSQLServer 显示主窗体 frmMain.Show End Sub 将 Main 过程设为工程启动对象。 （2 ）FrmMain 窗体主要代码。 该窗体的代码主要用于调度其他各窗体， 起串接作用。 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.But_ton) Select Case Button Case 物资台账管理 frm 台账 .Show 1 Case 物资入库管理 frm 入库 .Show 1 Case 物资出库管理 frm 出库 .Show 1 Case 退出系统 Unload Me 或者使用 End 命令 End Select End Sub （3 ）“frm 台账”窗体代码。 “通用”部分声明一个 Sub 过程，用于在 MSFlexGrid 中显示记录。 Private Sub DisplayGrid() 声明变量 Dim strGrid As String Dim i As Integer Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn 打开物资台账 If strQuery1 Then ADOrs.Open Select * From 物资台账 Where + strQuery1 + Order By 物资编码 Else ADOrs.Open Select * From 物资台账 order by 物资编码 End If 设置 MSFlexGrid 控件的表头 MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 MSFlexGrid1.Cols = 6 strGrid = 物资编码 + vbTab + 物资名称 + vbTab + 计量单位 + vbTab strGrid = strGrid + 单价 + vbTab + 期初库