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

/VB进销存管理信息系统〔1添加Module模块,编写Main过程：'声明全局对象变量ADOcn,用于创建与数据库的连接PublicADOcnAsConnection'声明全局变量strQuery1用于存储查询条件PubicstrQuery1AsStringPublicSubMain<>'定义数据库连接字符串DimstrSQLServerAsString'用于连接SQLServer数据库,其中:'Server为服务器名称'UserID为登录账号,Password为登录口令'Database为具体的数据库名'请根据具体的实验环境修改这些参数strSQLServer="Provider=SQLOLEDB;Server=bigdog;Us_erID=sa;Password=sa;Database=进销存"'连接SQLServer数据库ADOcn.OpenstrSQLServer'显示主窗体frmMain.ShowEndSub将Main过程设为工程启动对象。〔2FrmMain窗体主要代码。该窗体的代码主要用于调度其他各窗体,起串接作用。PrivateSubToolbar1_ButtonClick<ByValButtonAsMSComctlLib.But_ton>SelectCaseButtonCase"物资台账管理"frm台账.Show1Case"物资入库管理"frm入库.Show1Case"物资出库管理"frm出库.Show1Case"退出系统"UnloadMe'或者使用End命令EndSelectEndSub〔3"frm台账"窗体代码。"通用"部分声明一个Sub过程,用于在MSFlexGrid中显示记录。PrivateSubDisplayGrid<>'声明变量DimstrGridAsStringDimiAsIntegerDimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcn'打开物资台账IfstrQuery1<>""ThenADOrs.Open"Select*From物资台账Where"+strQuery1+"OrderBy物资编码"ElseADOrs.Open"Select*From物资台账orderby物资编码"EndIf'设置MSFlexGrid控件的表头MSFlexGrid1.ClearMSFlexGrid1.Rows=0MSFlexGrid1.Cols=6strGrid="物资编码"+vbTab+"物资名称"+vbTab+"计量单位"+vbTabstrGrid=strGrid+"单价"+vbTab+"期初库存"+vbTab+"期初金额"i=0'在第i行增加一列MSFlexGrid1.AddItemstrGrid,ii=i+1'通过循环显示表中所有记录DoWhileNotADOrs.EOFstrGrid=ADOrs<"物资编码">+vbTab+ADOrs<"物资名称">+vbTab+ADOrs<"计量单位">strGrid=strGrid+vbTab+Str<ADOrs<"单价">>+vbTab+Str<ADOrs<"期初库存">>strGrid=strGrid+vbTab+Str<ADOrs<"单价">*ADOrs<"期初库存">>MSFlexGrid1.AddItemstrGrid,iADOrs.MoveNext'指针下移一条记录i=i+1LoopMSFlexGrid1.Rows=i+1MSFlexGrid1.FixedRows=1MSFlexGrid1.FixedCols=1EndSubPrivateSubForm_Load<>'设置查询条件变量的初值strQuery1=""'显示物资台账记录DisplayGridEndSubPrivateSubCommand1_Click<>'调用增加记录窗体FrmAdd台账.Show1DisplayGridEndSubPrivateSubCommand2_Click<>'删除一条记录DimstrSQLAsStringDimiAsInteger'取当前光标所在行i=MSFlexGrid1.Row'取当前行的第0列单元值,即物资编码列IfMSFlexGrid1.TextMatrix<i,0>=""ThenMsgBox"请先选择一个记录！",vbQuestion+vbOKOnly,"信息提示"ExitSubEndIfstrSQL="DeleteFrom物资台账"strSQL=strSQL+"Where物资编码='"+MSFlexGrid1.TextMatr_ix<i,0>+"'"IfMsgBox<"是否要删除？",vbQuestion+vbOKCancel,"信息提示">=vbOKThenADOcn.ExecutestrSQL'执行删除操作EndIf'重新显示DisplayGridEndSubPrivateSubCommand3_Click<>'调用修改记录窗体DimiAsIntegeri=MSFlexGrid1.RowIfMSFlexGrid1.TextMatrix<i,0>=""ThenMsgBox"请先选择一个记录！",vbQuestion+vbOKOnly,"信息提示"ExitSubEndIf'对frmUpdate台账窗体赋值WithfrmUpdate台账.Text1<0>=MSFlexGrid1.TextMatrix<i,0>.Text1<1>=MSFlexGrid1.TextMatrix<i,1>.Combo1.Text=MSFlexGrid1.TextMatrix<i,2>.Text1<2>=MSFlexGrid1.TextMatrix<i,3>.Text1<3>=MSFlexGrid1.TextMatrix<i,4>.Show1EndWith'修改完后重新显示DisplayGridEndSubPrivateSubCommand4_Click<>'调用设置查询条件窗体FrmQuery查询.Show1'设置完查询条件后重新显示记录DisplayGridEndSubPrivateSubCommand5_Click<>'调用打印报表窗体DimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnIfstrQuery1<>""ThenADOrs.Open"Select*From物资台账Where"+strQuery1+"OrderBy物资编码"ElseADOrs.Open"Select*From物资台账OrderBy物资编码"EndIf'设置报表窗体的DataSource和DataMember属性SetfrmReport台账.DataSource=ADOrs.DataSourceFrmReport台账.DataMember=ADOrs.DataMemberFrmReport台账.Show1EndSubPrivateSubCommand6_Click<>'退出本窗体UnloadMeEndSub〔4"frmAdd台账"窗体代码。PrivateSubCommand1_Click<>DimstrSQLAsStringDimADOrsAsNewRecordsetSetADOrs.ActiveConnection=ADOcn'首先查询主关键字"物资编码"是否重复ADOrs.Open"Select物资编码From物资台账Where物资编码='"+Text1<0>+"'"IfNotADOrs.EOFThenMsgBox"物资编码已存在,请重新输入",vbQuestion+vbOKOnly,"信息提示"ExitSub'退出本过程EndIf'增加一条新记录strSQL="InsertInto物资台账<物资编码,物资名称,计量单位,单价,期初库存>"strSQL=strSQL+"Values<'"+Text1<0>+"','"+Text1<1>+"','"+Combo1.Text+"',"strSQL=strSQL+Text1<2>+","+Text1<3>+">"ADOcn.ExecutestrSQLMsgBox"增加成功,请继续！",vbQuestion+vbOKOnly,"信息提示"EndSubPrivateSubCommand2_Click<>'退出本窗体UnloadMeEndSubPrivateSubForm_Load<>'赋初值Text1<0>=""Text1<1>=""Text1<2>="0"Text1<3>="0"Combo1.ListIndex=0EndSubPrivateSubText1_Change<IndexAsInteger>'当"单价"和"期初库存"值发生变化时,自动计算"期初金额"IfIndex=2OrIndex=3ThenText1<4>=Trim<Str<Val<Text1<2>>*Val<Text1<3>>>>EndIfEndSubPrivateSubText1_KeyPress<IndexAsInteger,KeyAsciiAsInteger>'将用户输入的回车键转换为Tab键,使焦点自动下移IfKeyAscii=13ThenSendKeys"{Tab}"EndIf'对于"单价"和"期初库存"文本框只允许输入数字、小数点和退格键IfIndex=2OrIndex=3ThenIfNot<<Chr<KeyAscii>>="0"AndChr<KeyAscii><="9">_OrChr<KeyAscii>="."OrKeyAscii=8>ThenKeyAscii=0EndIfEndIfEndSub〔5"frmUpdate台账"窗体代码。主要代码是：PrivateSubCommand1_Click<>DimstrSQLAsStringstrSQL="Update物资台账Set物资名称='"+Text1<1>+"',"strSQL=strSQL+"计量单位='"+Combo1.Text+"',"strSQL=strSQL+"单价="+Text1<2>+","strSQL=strSQL+"期初库存="+Text1<3>strSQL=strSQL+"Where物资编码='"+Text1<0>+"'"ADOcn.ExecutestrSQLUnloadMeEndSub〔6"frmQuery台账"窗体代码。PrivateSubCommand1_Click<>'拼写查询条件字符串Dimstr1,str2AsStringstr1=""str2=""IfText1<0><>""Thenstr1="物资编码"+Combo1.Text+"'"+Text1<0>+"'"EndIfIfText1<1><>""Thenstr1="物资名称"+Combo2.Text+"'"+Text1<1>+"'"EndIfIfstr1=""Andstr2=""ThenstrQuery1=""ElseIfstr1=""Andstr2<>""ThenstrQuery1=str2ElseIfstr1<>""Andstr2=""ThenstrQuery1=str1ElsestrQuery1=str1+"And"+str2EndIfUnloadMeEndSubPrivateSubCommand2_Click<>'退出本窗体UnloadMeEndSubPrivateSubForm_Load<>'对窗体对象赋初值Combo1.Cl