VB程序的設(shè)計(jì)進(jìn)銷存管理信息系統(tǒng)方案

/VB進(jìn)銷存管理信息系統(tǒng)〔1添加Module模塊,編寫Main過程：'聲明全局對(duì)象變量ADOcn,用于創(chuàng)建與數(shù)據(jù)庫的連接PublicADOcnAsConnection'聲明全局變量strQuery1用于存儲(chǔ)查詢條件PubicstrQuery1AsStringPublicSubMain<>'定義數(shù)據(jù)庫連接字符串DimstrSQLServerAsString'用于連接SQLServer數(shù)據(jù)庫,其中:'Server為服務(wù)器名稱'UserID為登錄賬號(hào),Password為登錄口令'Database為具體的數(shù)據(jù)庫名'請(qǐng)根據(jù)具體的實(shí)驗(yàn)環(huán)境修改這些參數(shù)strSQLServer="Provider=SQLOLEDB;Server=bigdog;Us_erID=sa;Password=sa;Database=進(jìn)銷存"'連接SQLServer數(shù)據(jù)庫ADOcn.OpenstrSQLServer'顯示主窗體frmMain.ShowEndSub將Main過程設(shè)為工程啟動(dòng)對(duì)象?！?FrmMain窗體主要代碼。該窗體的代碼主要用于調(diào)度其他各窗體,起串接作用。PrivateSubToolbar1_ButtonClick<ByValButtonAsMSComctlLib.But_ton>SelectCaseButtonCase"物資臺(tái)賬管理"frm臺(tái)賬.Show1Case"物資入庫管理"frm入庫.Show1Case"物資出庫管理"frm出庫.Show1Case"退出系統(tǒng)"UnloadMe'或者使用End命令EndSelectEndSub〔3"frm臺(tái)賬"窗體代碼。"通用"部分聲明一個(gè)Sub過程,用于在MSFlexGrid中顯示記錄。PrivateSubDisplayGrid<>'聲明變量DimstrGridAsStringDimiAsIntegerDimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcn'打開物資臺(tái)賬IfstrQuery1<>""ThenADOrs.Open"Select*From物資臺(tái)賬Where"+strQuery1+"OrderBy物資編碼"ElseADOrs.Open"Select*From物資臺(tái)賬orderby物資編碼"EndIf'設(shè)置MSFlexGrid控件的表頭MSFlexGrid1.ClearMSFlexGrid1.Rows=0MSFlexGrid1.Cols=6strGrid="物資編碼"+vbTab+"物資名稱"+vbTab+"計(jì)量單位"+vbTabstrGrid=strGrid+"單價(jià)"+vbTab+"期初庫存"+vbTab+"期初金額"i=0'在第i行增加一列MSFlexGrid1.AddItemstrGrid,ii=i+1'通過循環(huán)顯示表中所有記錄DoWhileNotADOrs.EOFstrGrid=ADOrs<"物資編碼">+vbTab+ADOrs<"物資名稱">+vbTab+ADOrs<"計(jì)量單位">strGrid=strGrid+vbTab+Str<ADOrs<"單價(jià)">>+vbTab+Str<ADOrs<"期初庫存">>strGrid=strGrid+vbTab+Str<ADOrs<"單價(jià)">*ADOrs<"期初庫存">>MSFlexGrid1.AddItemstrGrid,iADOrs.MoveNext'指針下移一條記錄i=i+1LoopMSFlexGrid1.Rows=i+1MSFlexGrid1.FixedRows=1MSFlexGrid1.FixedCols=1EndSubPrivateSubForm_Load<>'設(shè)置查詢條件變量的初值strQuery1=""'顯示物資臺(tái)賬記錄DisplayGridEndSubPrivateSubCommand1_Click<>'調(diào)用增加記錄窗體FrmAdd臺(tái)賬.Show1DisplayGridEndSubPrivateSubCommand2_Click<>'刪除一條記錄DimstrSQLAsStringDimiAsInteger'取當(dāng)前光標(biāo)所在行i=MSFlexGrid1.Row'取當(dāng)前行的第0列單元值,即物資編碼列IfMSFlexGrid1.TextMatrix<i,0>=""ThenMsgBox"請(qǐng)先選擇一個(gè)記錄！",vbQuestion+vbOKOnly,"信息提示"ExitSubEndIfstrSQL="DeleteFrom物資臺(tái)賬"strSQL=strSQL+"Where物資編碼='"+MSFlexGrid1.TextMatr_ix<i,0>+"'"IfMsgBox<"是否要?jiǎng)h除？",vbQuestion+vbOKCancel,"信息提示">=vbOKThenADOcn.ExecutestrSQL'執(zhí)行刪除操作EndIf'重新顯示DisplayGridEndSubPrivateSubCommand3_Click<>'調(diào)用修改記錄窗體DimiAsIntegeri=MSFlexGrid1.RowIfMSFlexGrid1.TextMatrix<i,0>=""ThenMsgBox"請(qǐng)先選擇一個(gè)記錄！",vbQuestion+vbOKOnly,"信息提示"ExitSubEndIf'對(duì)frmUpdate臺(tái)賬窗體賦值WithfrmUpdate臺(tái)賬.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<>'調(diào)用設(shè)置查詢條件窗體FrmQuery查詢.Show1'設(shè)置完查詢條件后重新顯示記錄DisplayGridEndSubPrivateSubCommand5_Click<>'調(diào)用打印報(bào)表窗體DimADOrsAsNewRecordsetADOrs.ActiveConnection=ADOcnIfstrQuery1<>""ThenADOrs.Open"Select*From物資臺(tái)賬Where"+strQuery1+"OrderBy物資編碼"ElseADOrs.Open"Select*From物資臺(tái)賬OrderBy物資編碼"EndIf'設(shè)置報(bào)表窗體的DataSource和DataMember屬性SetfrmReport臺(tái)賬.DataSource=ADOrs.DataSourceFrmReport臺(tái)賬.DataMember=ADOrs.DataMemberFrmReport臺(tái)賬.Show1EndSubPrivateSubCommand6_Click<>'退出本窗體UnloadMeEndSub〔4"frmAdd臺(tái)賬"窗體代碼。PrivateSubCommand1_Click<>DimstrSQLAsStringDimADOrsAsNewRecordsetSetADOrs.ActiveConnection=ADOcn'首先查詢主關(guān)鍵字"物資編碼"是否重復(fù)ADOrs.Open"Select物資編碼From物資臺(tái)賬Where物資編碼='"+Text1<0>+"'"IfNotADOrs.EOFThenMsgBox"物資編碼已存在,請(qǐng)重新輸入",vbQuestion+vbOKOnly,"信息提示"ExitSub'退出本過程EndIf'增加一條新記錄strSQL="InsertInto物資臺(tái)賬<物資編碼,物資名稱,計(jì)量單位,單價(jià),期初庫存>"strSQL=strSQL+"Values<'"+Text1<0>+"','"+Text1<1>+"','"+Combo1.Text+"',"strSQL=strSQL+Text1<2>+","+Text1<3>+">"ADOcn.ExecutestrSQLMsgBox"增加成功,請(qǐng)繼續(xù)！",vbQuestion+vbOKOnly,"信息提示"EndSubPrivateSubCommand2_Click<>'退出本窗體UnloadMeEndSubPrivateSubForm_Load<>'賦初值Text1<0>=""Text1<1>=""Text1<2>="0"Text1<3>="0"Combo1.ListIndex=0EndSubPrivateSubText1_Change<IndexAsInteger>'當(dāng)"單價(jià)"和"期初庫存"值發(fā)生變化時(shí),自動(dòng)計(jì)算"期初金額"IfIndex=2OrIndex=3ThenText1<4>=Trim<Str<Val<Text1<2>>*Val<Text1<3>>>>EndIfEndSubPrivateSubText1_KeyPress<IndexAsInteger,KeyAsciiAsInteger>'將用戶輸入的回車鍵轉(zhuǎn)換為Tab鍵,使焦點(diǎn)自動(dòng)下移IfKeyAscii=13ThenSendKeys"{Tab}"EndIf'對(duì)于"單價(jià)"和"期初庫存"文本框只允許輸入數(shù)字、小數(shù)點(diǎn)和退格鍵IfIndex=2OrIndex=3ThenIfNot<<Chr<KeyAscii>>="0"AndChr<KeyAscii><="9">_OrChr<KeyAscii>="."OrKeyAscii=8>ThenKeyAscii=0EndIfEndIfEndSub〔5"frmUpdate臺(tái)賬"窗體代碼。主要代碼是：PrivateSubCommand1_Click<>DimstrSQLAsStringstrSQL="Update物資臺(tái)賬Set物資名稱='"+Text1<1>+"',"strSQL=strSQL+"計(jì)量單位='"+Combo1.Text+"',"strSQL=strSQL+"單價(jià)="+Text1<2>+","strSQL=strSQL+"期初庫存="+Text1<3>strSQL=strSQL+"Where物資編碼='"+Text1<0>+"'"ADOcn.ExecutestrSQLUnloadMeEndSub〔6"frmQuery臺(tái)賬"窗體代碼。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<>'對(duì)窗體對(duì)象賦初值Combo1.Cl