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

1、VB進(jìn)銷存管理信息系統(tǒng)(1)添加Module模塊，編寫Main過程：聲明全局對(duì)象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫(kù)的連接Public ADOc n As Conn ectio n聲明全局變量strQueryl用于存儲(chǔ)查詢條件Pubic strQueryl As Stri ngPublic Sub Mai n()定義數(shù)據(jù)庫(kù)連接字符串Dim strSQLServer As Str ing用于連接SQL Server數(shù)據(jù)庫(kù)，其中：Server為服務(wù)器名稱User ID為登錄賬號(hào)，Password為登錄口令Database為具體的數(shù)據(jù)庫(kù)名請(qǐng)根據(jù)具體的實(shí)驗(yàn)環(huán)境修改這些參數(shù)strSQLServer = Pr

2、ovider二SQLOLEDB;Server二bigdog;Us_er ID=sa;Password=sa;Database=進(jìn)銷存連接SQL Server數(shù)據(jù)庫(kù)ADOc n.O pe n strSQLServerqns pusP9|9S PU3金膽PU3宙剝皋聽9IAI peo|unesejI MoqsSfffiI MoqsS（Y LU4I MoqsW9sbduonng esej pe|9S（uonngqniPiuojsiAl sv uoung 岸“日加Duongpeqi00丄 qns 邨八陽(yáng)。宙#尋串團(tuán)多刑茸旨IM壬宙蠱王咸聊陽(yáng)*帛KV屋王*晌加乙）。箸4X購(gòu)哥虱工M欲虱國(guó)weiAi易k

3、qns pus/voqsu!BIAILU4王土國(guó)通用部分聲明一個(gè)Sub過程，用于在MSFIexGrid中顯示記錄。Private Sub DispIayGrid()聲明變量Dim strGrid As Str ingDim i As In tegerDim ADOrs As New RecordsetADOrs.ActiveCo nn ectio n 二 ADOc n打開物資臺(tái)賬If strQuery1 The nADOrs.Open Select * From 物資臺(tái)賬 Where + strQueryl + OrderBy物資編碼ElseADOrs.Open Select * From 物

4、資臺(tái)賬 order by 物資編碼End If設(shè)置MSFIexGrid控件的表頭MSFIexGridl.CIearMSFIexGridl.Rows = 0MSFIexGridl.CoIs = 6strGrid =物資編碼+ vbTab + 物資名稱+ vbTab + 計(jì)量單位+ vbTab strGrid = strGrid + 單價(jià)+ vbTab + 期初庫(kù)存+ vbTab + 期初金額i = 0在第i行增加一列MSFIexGridl.Addltem strGrid, ii = i + 1通過循環(huán)顯示表中所有記錄Do While Not ADOrs.EOFstrGrid = ADOrs（物資

5、編碼）+ vbTab + ADOrs（物資名稱）+ vbTab +ADOrs（計(jì)量單位）strGrid = strGrid + vbTab + Str（ADOrs（單價(jià)）+ vbTab +Str（ADOrs（期初庫(kù)存）strGrid = strGrid + vbTab + Str（ADOrs（單價(jià)）* ADOrs（期初庫(kù)存）MSFIexGridl.Addltem strGrid, iADOrs.MoveNext 指針下移一條記錄i = i + 1LoopMSFIexGridl.Rows = i + 1MSFIexGridl.FixedRows = 1MSFIexGridl.FixedCols

6、= 1 End SubPrivate Sub Form_Load()設(shè)置查詢條件變量的初值strQuery1 =顯示物資臺(tái)賬記錄DisplayGridEnd SubPrivate Sub Comma nd1_Click()調(diào)用增加記錄窗體FrmAdd 臺(tái)賬.Show 1DisplayGridEnd SubPrivate Sub Comma nd2_Click()刪除一條記錄Dim strSQL As Stri ngDim i As In teger（）P!D飛pueiuLuco qns 邨八陽(yáng)qns puspuXeidsiQ41 PU3 #蟄觀IK馬唏 ibSHS 9W39X3-U3oav u

7、eqi OQA 二uejxoqA + uoiisen&qA ；.厶觀豆星晉Jxog6s|/| 劉+（0 !）x! -JieiAllxeripuox引tsIAI + 二竝幽眨 引西皿.+ ibSs 二 ibsis wot s引二 ibsns41 PU3 qnsNOIOqA + uoiisen&qA ；. i 沓02態(tài)毎爭(zhēng)氧 xog6s|/|1丄“二（0，!）xuie|/|ix9ripu9x引tsIAI 411旬衛(wèi)由迪o労陽(yáng)馬哩宗曲Moyipux9|dSI/l 二!Dim i As In tegeri = MSFIexGridl.RowIf MSFIexGrid1.TextMatrix(i, 0)

8、 = The nMsgBox 請(qǐng)先選擇一 記錄！； vbQuestion + vbOKO nly,信息提示Exit SubEnd If對(duì)frmUpdate臺(tái)賬窗體賦值With frmUpdate 臺(tái)賬.Text1(0) = MSFlexGrid1.TextMatrix(i, 0).Text1(1) = MSFlexGrid1.TextMatrix(i, 1).Combo1.Text = MSFlexGrid1.TextMatrix(i, 2).Text1 =MSFlexGrid1.TextMatrix(i, 3).Text1(3) = MSFlexGrid1.TextMatrix(i, 4).

9、Show 1End With修改完后重新顯示DisplayGridEnd SubPrivate Sub Comma nd4_Click()調(diào)用設(shè)置查詢條件窗體FrmQuery 查詢.Show 1設(shè)置完查詢條件后重新顯示記錄DisplayGridEnd SubPrivate Sub Comma nd5_Click()調(diào)用打印報(bào)表窗體Dim ADOrs As New RecordsetADOrs.ActiveCo nn ectio n 二 ADOc nIf strQuery1 The nADOrs.Open Select * From 物資臺(tái)賬 Where + strQueryl +OrderBy

10、物資編碼ElseADOrs.Open Select * From 物資臺(tái)賬 Order By 物資編碼End If設(shè)置報(bào)表窗體的DataSource和DataMember屬性Set frmReport 臺(tái)賬.DataSource = ADOrs.DataSourceFrmReport 臺(tái)賬.DataMember = ADOrs.DataMemberFrmReport 臺(tái)賬.Show 1End SubPrivate Sub Comma nd6_Click()退出本窗體Un load MeEnd Sub(4 )“frmAdd臺(tái)賬”窗體代碼。Private Sub Comma nd1_Click()

11、Dim strSQL As Stri ngDim ADOrs As New RecordsetSet ADOrs.ActiveCo nn ectio n 二 ADOc n首先查詢主關(guān)鍵字物資編碼是否重復(fù)ADOrs.Open Select物資編碼From物資臺(tái)賬Where物資編碼=”+ Text1(0) + If Not ADOrs.EOF The nMsgBox 物資編碼已存在，請(qǐng)重新輸入,vbQuestion + vbOKO nly, 信息提示Exit Sub 退出本過程End If增加一條新記錄strSQL = Insert Into物資臺(tái)賬(物資編碼，物資名稱，計(jì)量單位，單價(jià)，期初庫(kù)存)

12、strSQL = strSQL + Values( + Text1(0) + , + Text1(1) + , +Combol.Text + ,strSQL = strSQL + Text1(2) + , + Text1(3) + )ADOc n.Execute strSQLMsgBox 增加成功，請(qǐng)繼續(xù)！； vbQuestion + vbOKO nly,信息提示End SubPrivate Sub Comma nd2_Click()退出本窗體Un load MeEnd SubPrivate Sub Form_Load()賦初值Text1(0)=Text1(1)=Text1(2) = 0Tex

13、t1(3) = 0Combo 1. ListI ndex = 0End SubPrivate Sub Text1_Cha nge(I ndex As In teger)當(dāng)單價(jià)”和期初庫(kù)存值發(fā)生變化時(shí)，自動(dòng)計(jì)算“期初金額”If Index = 2 Or I ndex = 3 The nTextl (4) = Trim(Str(Va l(T ext1(2) * Val( Text1(3)End IfEnd SubPrivate Sub Text1_KeyPress(I ndex As In teger, KeyAscii As In teger)將用戶輸入的回車鍵轉(zhuǎn)換為Tab鍵，使焦點(diǎn)自動(dòng)下移If

14、 KeyAscii = 13 ThenSen dKeys TabEnd If對(duì)于單價(jià)”和期初庫(kù)存文本框只允許輸入數(shù)字、小數(shù)點(diǎn)和退格鍵If Index = 2 Or I ndex = 3 Thenqns pus9IAI peo|un ibSHS 9inD9X3-uDoaVz +（O）lixe丄 + 二竝幽眨 9J9MM . + ibSHS 二 ibsHS（）11X8丄+ “二呈卻魁抵+ 1旳匹二ibsHS代 + 口xe丄 + “抑就 + ibsms 二 ibsns仁 + ixerioquiOD + 二由書誤“ + -|0s4S 二 ibss仁 +（1）11X9丄 + 二遞牙眨 19S刃叩dm 二

15、 ibsns6uuis svibSHS iuia （）P!l：TlPueiuiuco qns eieAUd:者咸聊蠱王。咸找k雇Ws叩dny, （s）qns pus41 PU341 PU30 二！Psglq丄（8 二！PSV!O 二（!psv）q：）JO- （.6.二（!3SvXe|）jqD puy .0.二（!psv）q：） 2n jlPrivate Sub Comma nd1_Click()拼寫查詢條件字符串Dim strl, str2 As Str ingstrl =str2 =If Text1(O) Thenstr1 =物資編碼+ Combo1.Text + + Text1(0) +

16、End IfIf Text1(1) The nstr1 =物資名稱+ Combo2.Text + + Text1(1) + End IfIf str1 = And str2 = The nstrQuery1 =ElseIf str1 = And str2 The nstrQuery1 = str2ElseIf str1 And str2 = ThenstrQuery1 = str1ElsestrQueryl = strl + And + str2End IfUn load MeEnd SubPrivate Sub Comma nd2_Click()退出本窗體Un load MeEnd SubPrivate Sub Form_Load()對(duì)窗體對(duì)象