VB程序的设计进销存管理信息系统方案.docVIP

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 + 期初库存 + vbTab + 期初金额 i = 0 在第i行增加一列 MSFlexGrid1.AddItem strGrid, i i = i + 1 通过循环显示表中所有记录 Do While Not ADOrs.EOF strGrid = ADOrs(物资编码) + vbTab + ADOrs(物资名称) + vbTab + ADOrs(计量单位) strGrid = strGrid + vbTab + Str(ADOrs(单价)) + vbTab + Str(ADOrs(期初库存)) strGrid = strGrid + vbTab + Str(ADOrs(单价) * ADOrs(期初库存)) MSFlexGrid1.AddItem strGrid, i ADOrs.MoveNext 指针下移一条记录 i = i + 1 Loop MSFlexGrid1.Rows = i + 1 MSFlexGrid1.FixedRows = 1 MSFlexGrid1.FixedCols = 1 End Sub Private Sub Form_Load() 设置查询条件变量的初值 strQuery1 = 显示物资台账记录 DisplayGrid End Sub Private Sub Command1_Click() 调用增加记录窗体 FrmAdd台账.Show 1 DisplayGrid End Sub Private Sub Command2_Click() 删除一条记录 Dim strSQL As String Dim i As Integer 取当前光标所在行 i = MSFlexGrid1.Row 取当前行的第0列单元值，即物资编码列 If MSFlexGrid1.TextMatrix(i, 0) = Then MsgBox 请先选择一个记录！,