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

1、vb進銷存管理信息系統(tǒng)（1）添加 module模塊，編寫main過程：聲明全局對象變量adocn ，用于創(chuàng)建與數(shù)據(jù)庫的連接public adocn as connection 聲明全局變量strquery1用于存儲查詢條件pubic strquery1 as string public sub main() 定義數(shù)據(jù)庫連接字符串dim strsqlserver as string 用于連接sql server數(shù)據(jù)庫，其中 : server 為服務(wù)器名稱user id為登錄賬號， password為登錄口令database為具體的數(shù)據(jù)庫名請根據(jù)具體的實驗環(huán)境修改這些參數(shù)strsqlserver

2、= provider=sqloledb;server=bigdog;us_ er id=sa;password=sa;database=進銷存 連接 sql server數(shù)據(jù)庫adocn.open strsqlserver 顯示主窗體frmmain.show end sub 將 main過程設(shè)為工程啟動對象。（2） frmmain窗體主要代碼。 該窗體的代碼主要用于調(diào)度其他各窗體，起串接作用。private sub toolbar1_buttonclick(byval button as mscomctllib.but_ton) select case button case 物資臺賬管理 f

3、rm 臺賬 .show 1 case 物資入庫管理 frm 入庫 .show 1 case 物資出庫管理 frm 出庫 .show 1 case 退出系統(tǒng) 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 打開物

4、資臺賬if strquery1 then adors.open select * from 物資臺賬 where + strquery1 + order by 物資編碼 else adors.open select * from 物資臺賬 order by 物資編碼 end if 設(shè)置 msflexgrid控件的表頭msflexgrid1.clear msflexgrid1.rows = 0 msflexgrid1.cols = 6 strgrid = 物資編碼 + vbtab + 物資名稱 + vbtab + 計量單位 + vbtab strgrid = strgrid + 單價 + vbt

5、ab + 期初庫存 + vbtab + 期初金額 i = 0 在第 i 行增加一列msflexgrid1.additem strgrid, i i = i + 1 通過循環(huán)顯示表中所有記錄do while not adors.eof strgrid = adors(物資編碼 ) + vbtab + adors(物資名稱 ) + vbtab + adors( 計量單位 ) strgrid = strgrid + vbtab + str(adors(單價 ) + vbtab + str(adors(期初庫存 ) strgrid = strgrid + vbtab + str(adors(單價 )

6、* 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() 設(shè)置查詢條件變量的初值strquery1 = 顯示物資臺賬記錄displaygrid end sub private sub command1_click() 調(diào)用增加記錄窗體frmadd臺賬 .show 1 di

7、splaygrid 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 請先選擇一個記錄！, vbquestion + vbokonly, 信息提示 exit sub end if strsql = delete from 物資臺賬 strsql = strsql + where 物資編碼 = + ms

8、flexgrid1.textmatr _ ix(i, 0) + if msgbox(是否要刪除？ , vbquestion + vbokcancel, 信息提示 ) = vbok then adocn.execute strsql 執(zhí)行刪除操作end if 重新顯示displaygrid end sub private sub command3_click() 調(diào)用修改記錄窗體dim i as integer i = msflexgrid1.row if msflexgrid1.textmatrix(i, 0) = then msgbox 請先選擇一個記錄！, vbquestion + vbo

9、konly, 信息提示 exit sub end if 對 frmupdate臺賬窗體賦值with frmupdate臺賬.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) .show 1 end with 修改完后重新顯示displa

10、ygrid end sub private sub command4_click() 調(diào)用設(shè)置查詢條件窗體frmquery查詢 .show 1 設(shè)置完查詢條件后重新顯示記錄displaygrid end sub private sub command5_click() 調(diào)用打印報表窗體dim adors as new recordset adors.activeconnection = adocn if strquery1 then adors.open select * from 物資臺賬 where + strquery1 +order by 物資編碼 else adors.open se

11、lect * from 物資臺賬 order by 物資編碼 end if 設(shè)置報表窗體的datasource和 datamember屬性set frmreport臺賬 .datasource = adors.datasource frmreport臺賬 .datamember = adors.datamember frmreport臺賬 .show 1 end sub private sub command6_click() 退出本窗體unload me end sub （4）“ frmadd臺賬”窗體代碼。private sub command1_click() dim strsql as

12、 string dim adors as new recordset set adors.activeconnection = adocn 首先查詢主關(guān)鍵字“物資編碼”是否重復(fù)adors.open select 物資編碼 from 物資臺賬 where 物資編碼 = + text1(0) + if not adors.eof then msgbox 物資編碼已存在，請重新輸入, vbquestion + vbokonly, 信息提示 exit sub 退出本過程end if 增加一條新記錄strsql = insert into 物資臺賬 (物資編碼 ,物資名稱 ,計量單位 ,單價 ,期初庫存

13、 ) strsql = strsql + values( + text1(0) + , + text1(1) + , + combo1.text + , strsql = strsql + text1(2) + , + text1(3) + ) adocn.execute strsql msgbox 增加成功，請繼續(xù)！, vbquestion + vbokonly, 信息提示 end sub private sub command2_click() 退出本窗體unload me end sub private sub form_load() 賦初值text1(0) = text1(1) = t

14、ext1(2) = 0 text1(3) = 0 combo1.listindex = 0 end sub private sub text1_change(index as integer) 當“單價”和“期初庫存”值發(fā)生變化時，自動計算“期初金額”if index = 2 or index = 3 then text1(4) = trim(str(val(text1(2) * val(text1(3) end if end sub private sub text1_keypress(index as integer, keyascii as integer) 將用戶輸入的回車鍵轉(zhuǎn)換為ta

15、b 鍵，使焦點自動下移if keyascii = 13 then sendkeys tab end if 對于“單價”和“期初庫存”文本框只允許輸入數(shù)字、小數(shù)點和退格鍵if index = 2 or index = 3 then if not (chr(keyascii) = 0 and chr(keyascii) = 9) _or chr(keyascii) = . or keyascii = 8) then keyascii = 0 end if end if end sub （5）“ frmupdate臺賬”窗體代碼。主要代碼是：private sub command1_click()

16、dim strsql as string strsql = update 物資臺賬 set 物資名稱 = + text1(1) + , strsql = strsql + 計量單位 = + combo1.text + , strsql = strsql + 單價 = + text1(2) + , strsql = strsql + 期初庫存 = + text1(3) strsql = strsql + where 物資編碼 = + text1(0) + adocn.execute strsql unload me end sub （6）“ frmquery臺賬”窗體代碼。private sub

17、 command1_click() 拼寫查詢條件字符串dim str1, str2 as string str1 = str2 = if text1(0) then str1 = 物資編碼 + combo1.text + + text1(0) + end if if text1(1) then str1 = 物資名稱 + combo2.text + + text1(1) + end if if str1 = and str2 = then strquery1 = elseif str1 = and str2 then strquery1 = str2 elseif str1 and str2 = then strquery1 = str1 else strquery1 = str1 + and + str2 end if unload me end sub private sub command2_click() 退出本窗體unload me end sub private sub fo