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

VB 进销存管理信息系统（1）添加 Module 模块，编写 Main 过程：'声明全局对象变量 ADOcn，用于创建与数据库的连接Public ADOcn As Connection'声明全局变量 strQuery1 用于存储查询条件Pubic strQuery1 As StringPublic 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.ShowEnd Sub将 Main 过程设为工程启动对象。（2）FrmMain 窗体主要代码。该窗体的代码主要用于调度其他各窗体，起串接作用。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.But_ton)Select Case ButtonCase "物资台账管理"frm 台账.Show 1Case "物资入库管理"frm 入库.Show 1Case "物资出库管理"frm 出库.Show 1Case "退出系统"Unload Me '或者使用 End 命令End SelectEnd Sub（3）“frm 台账”窗体代码。“通用”部分声明一个 Sub 过程，用于在 MSFlexGrid 中显示记录。Private Sub DisplayGrid()'声明变量Dim strGrid As StringDim i As IntegerDim ADOrs As New RecordsetADOrs.ActiveConnection = ADOcn'打开物资台账If strQuery1 <> "" ThenADOrs.Open "Select * From 物资台账 Where " + strQuery1 + " Order By 物资编码"ElseADOrs.Open "Select * From 物资台账 order by 物资编码"End If'设置 MSFlexGrid 控件的表头MSFlexGrid1.ClearMSFlexGrid1.Rows = 0MSFlexGrid1.Cols = 6strGrid = "物资编码" + vbTab + "物资名称" + vbTab + "计量单位" + vbTabstrGrid = strGrid + "单价" + vbTab + "期初库存" + vbTab + "期初金额"i = 0'在第 i 行增加一列MSFlexGrid1.AddItem strGrid, ii = i + 1'通过循环显示表中所有记录Do While Not ADOrs.EOFstrGrid = ADOrs("物资编码") + vbTab + ADOrs("物资名称") + vbTab + ADOrs("计量单位")strGrid = strGrid + vbTab + Str(ADOrs("单价")) + vbTab + Str(ADOrs("期初库存"))strGrid = ...