畢業設計超市進銷存管理系統院系_成教學院________專業_計算機科學與技術_班級_計算機（3）班____學號_A0911003001_______姓名_殷洪磊_______贊賠鑒幣近撞商碼年怕克月身栗日奮摘貓要籮……石……宏……棋……喚……驗……篇……劇……呆……被……保……樓……井……歲……家1供Ab顆st扯ra餓ct谷……突……犬……修……抗……染……插……維……栽……默……涂……限……刺……樂…2趟第一愿章折引言稍……肚……老……挪……寬……撇……濁……嫁……悲……綱……貞……毯……局…饅4駕1．瓣1輔和課題匪背景慰……泥……詢……旅……液……擠……僵……乎……何……惡……授……拆……的……炮4眠1．憤2匯系統拍簡介射……稍……探……蔬……怖……拆……蘭……悟……括……淡……衰……比……瞞……染5順1.覆3念硬開發筋軟件捕介紹寇……錯……勒……俘……奶……身……父……槐……劉……笛……幣……到……探6腫第二拳章義系統喜的分貓析礙……付……喊……渣……孔……便……屋……搜……偉……蠅……堅……換…斷8專2．印1賊系統抬開發勵的目天標和睛思想舍……家……政……治……休……茂……哈……辱……兆……期……奧9抬2．赤2珠系鄭統的眾可行嬌性分激析歲……臘……沸……青……線……霞……知……翁……縮……簡……陜……拼13信第三拋章頑系淡統的漿設計作……頸……結……剩……池……孕……愈……取……淋……堪……碧……瓜…1剛8塵3家．1渾疑系統騾的功狀能結奶構設屑計倦……雀……然……繡……宏……配……淡……已……勾……喚……喂…同1歇8丟3習．痰2片系統誘的數首據庫古設計萌滔……蕉……穗……束……彎……統……濤……禍……候……遺……別…望.1透9聯3五．印3伯界面細設計黑與代既碼設泊計伸……昂……綁……車……傲……萌……懶……烤……鼠……宇……炭……懷……技……手23才結束碌語組……武……箭……前……熱……繁……站……旁……愈……府……悼……幣……燃……停……寄……慌4擋6湊致謝茶……堤……低……朽……蠟……留……鉛……淋……衡……宴……練……憲……兔……蝶……誕……魯…4荷7拜參考根文獻錫……堆……和……榜……腫……算……證……杏……峰……群…皆49摘要忌隨著熔經濟捎的發孔展，解社會務的進距步，非計算脆機越手來越這深入灶到我判們日型常的盒工作紐學習遣及生往活中織，成鏟為我迅們日債常生卵活中記不可午缺少頁的輔跌助工重具。日狼隨著舊科學兄技術旗的不共斷提駐高,議計算碌機科尺學日釀漸成異熟,譜其強愉大的宿功能肢已為監人們哭深刻賭認識仁,它危已進闖入人友類社呀會的趨各個評領域信并發盜揮著從越來垮越重臺要的稅作用初。燭它已宇經深斧入到屈日常蜂工作催和生失活的虹方方塑面面段，比嫁如文艙字處好理、山信息梅管理腎、輔抽助設既計、朱圖形趟圖像令處理早、教殼育培義訓以鬼及游僵戲娛臘樂等址。各嘉行各萬業的凱人們膝無須冠經過府特別鞋的訓活練就討能夠野使用吃電腦敢完成懼許許而多多抹復雜泄的工斤作。滲然而餡，雖絲然現笨在世兼界上烏已經黑充滿叮了多國如牛菜毛的曬各種盤軟件鑰，但臣它們支依然畜不能惰滿足租用戶址的各滾種特櫻殊需版要，敲人們場還不沸得不于開發佳適合尚自己更特殊際需求惠的軟淹件。趣以前侵開發狼Wi糟nd鴉ow文s應閣用軟拋件是役專業榴人員歌的工撥作，軋需要撕掌握寫許多業專業皇知識鞭和經六過特需殊的允培訓虎才能祖勝任徑。現停在不校同了趨，即肌使你龜沒有節接受籍過嚴卵格的鄉程序娛設計誰訓練轎，使形用V首is高ua腹l洞Ba飯si針c也順一樣窯能夠消開發崇出功劉能強朵大、剖適合屈自己杏特殊熱需求鎖的應視用程稱序了冊。V割is亮ua半l凳Ba認si重c繼疫承了怕Ba展si糕c語廚言易圾學易況用的偷特點鍛，特把別適胳合于脖初學思者學摩習W旁in投do還ws基系統嶄編程蒼。堪翅澤超市撕進銷虧存管歪理系紫統用鄙計算僚機管茫理超蓄市庫親存進作出管謊理的投一種至計算醒機應騰用技閘術的遙創新刻,在泊計算門機還瓶未普施及之銹前庫罩存管泄理都慰是由趁工作劈人員躺手工面書寫規的方員式來粘操作姻的.閱現在睬一般湯的超義市都繡采用朽計算滴機智輸能化肉管理洽,采咐用計使算機秧作為蹈工具遠的實涉用的壯計算語機超弓市庫取存管顏理程辱序來盟幫助燭管理銷員進陡行更訂有效狗的超貓市庫陶存管最理工邊作。套超市謀進銷黎存管饑理系六統正是典縮型的刷信息碼管理秤系統奶(M捷IS爛),壞其開音發主釋要包巖括后械臺數夾據庫遼的建嶺立和范維護紗以及峰前端醒應用堅程序葉的開射發兩孩個方忘面。咱對于佛前者赤要求遙建立橋起數頁據一鵝致性捎和完妻整性武強、漲數據爬安全容性好飲的庫導。而絮對于腰后者簡則要負求應鉗用程娛序功拒能完漂備,夕易使大用等莊特點躲。插經過屑分析刻,我舍們使晌用帽MI小CR傻OS雞OF炮T公該司的外V梢IS艱UA見L障BA卡SI鞏C開物發工勉具,階利用貨其提拳供的唐各種威面向塊對象果的開沉發工和具,捉尤其液是數駁據窗掉口這普一能連方便鈴而簡財潔操狐縱數落據庫梁的智危能化啞對象捎,首種先在潔短時轟間內郊建立箭系統躺應用桂原型獅,然蛋后,武對初蓬始原償型系凡統進這行需浩求迭煮代,金不斷費修正劉和改岸進,置直到無形成櫻用戶墊滿意斥的可飾行系于統。自因為品本人撫能力慚有限尚，加懲上時環間緊松迫，津所以衡設計盯出來爽的本逼系統授可能才功能長比較賠簡單濤，另遍外本爆系統貪是單嬌機版交，不恨能實綢現網嚴絡互旅聯操灰作遼,鉤這些班都有冤待于旱我在繡以后吸的工郊作學合習中堆進一固步改側進。躍關鍵澆字忍:超院市進子銷存置管理賢,M板IS蟻,v野is秒ua算l紫ba償si筆c孫,數兇據庫砍Ab享st機ra嗓ctWitheconomicdevelopment,socialprogress,thecomputerandwenttoworklearningandourdailylives,webecomeanindispensabletoolineverydaylife.Asscienceandtechnologycontinuetoimprove,computerscienceincreasinglymature,anditspowerfulfunctionsforthepeopletodeeplyunderstandthatithasenteredhumansocietyinvariousfieldsandisplayinganincreasinglyimportantrole.Ithastogodowntothedailyworkandlife,suchaswordprocessing,informationmanagement,aideddesign,graphicsandvideoprocessing,aswellaseducationandtraininggameentertainment.Allpeoplewithoutspecialtrainingwillbeabletousecomputerstocompletenumerouscomplex.However,althoughnowtheworldhasbeenfilledwithanover-abundanceofsoftware,buttheystillcannotmeetthespecialneedsofthevarioususers,italsohadtodevelopsoftwaresuitedtotheirparticularneeds.ProfessionalWindowsapplicationsoftwaredevelopmentbeforetheworkisneededinmanyprofessionalknowledgeandcompetencethroughspecialtraining.Differentnow,evenifyouhavenotreceivedstrictproceduresdesignedtraining,theuseofVisualBasicalsoliketodevelopapowerful,andsuitedtotheirspecialneedsapplications.VisualBasicinheritedBasiclanguagelearnuser-friendlyfeatures,andareparticularlysuitedtonewlearnerlearningWindowssystemprogramming.執Su暮pe尚rm島ar不ke析t胖Ji槐nx章ia幻oc之un報m蠶an抬ag躺em剝en凈t翁sy煮st合em捐u諸si打ng就c敢om希pu聯te柿r勉ma請na晶ge世me哈nt穗S妄up滲er耽ma臉rk坐et萍s躺to眠ck穿s由a雹co雁mp肢ut腎er伴a膛pp糊li姻ca緒ti師on斑a阻nd請m膏an士ag評em友en眨t磚of療t蟲ec稠hn之ol醋og掩y芹in準no釣va羊ti濁on縱i杰n潮th豬e頸co隆mp駱ut鏈er敲b薄ef翠or譜e霉th順e賽in榆ve默nt壩or乎y帶ma卻na卵ge漆me狠nt筐a胳re誘n撤ot伏y導et漂u撇ni倆ve犁rs效al懸m殺an效ua因l印wr淘it我te淡n育by輩t蝶he餃s絡ta溪ff寒t屆o都op凍er捧at郵e.蔬S斤up列er刮ma縫rk鼓et驅s允ar繼e供no廊w濾ge戰ne孔ra窗ll匙y放us裂ed委c協om眨pu塊te糕r燒in充te恢ll券ig禿en均t盟ma綱na羞ge底me羊nt戚,誤us睛in氣g漂th殃e路co脫mp劈ut金er城a劃s方a躺to乒ol隊f詞or稠c嗽om占pu線te燒r唇su川pe油rm疏ar拍ke燈t確in燒ve窯nt多or長y帝ma天na蠢ge綢me梯nt陪p災ro形ce慎du鄙re捏s悟to配h貧el銜p政ma千na閣ge玉rs懲m幫or眼e偏ef祖fe漿ct鹿iv租el頸y叼su腦pe謝rm震ar處ke夠t封in培ve緊nt扒or艇y撞ma清na急ge奪me委nt達.旅Su劣pe柱rm申ar肝ke詢t香Ji晚nx條ia超oc稻un蛇m桌an尊ag度em健en內t偏sy長st縣em蛇i張s減a謠ty賠pi嶄ca姐l子ma喜na叢ge級me襪nt線i劣nf耍or針ma楊ti噴on鎖s剝ys生te窄m鬧(M威IS忘),看i綱nc復lu慌di做ng溉i做ts喘m喝ai應n記de底ve菠lo路pm北en們t荷ba乖ck娛gr蘆ou助nd奸t嫌o攔th昆e或es睬ta持bl窩is介hm繁en波t權an濃d描ma硬in庭te桌na軌nc提e紹of纏t胸he風d輩at缺ab都as調e圍an狠d厭fr遞on筐t-唇en懲d創ap犯pl義ic經at塘io峰n則de崖ve練lo苦pm溪en小t坐2.襖T頂he哭r銅eq叉ue鈔st懲f玉or和t丈he或e暫st孫ab虹li夏sh孩me畏nt擔o驢f夸st鋪ro劫ng永d考at綱a休co亂ns釘is薄te露nc憶y協an刻d插in團te溉gr示it鐵y,懂g地oo領d艙fo劑r形th奪e渠se尸cu蒙ri泄ty掉o練f貧th比e泄da毛ta萄.伏Fo被r拖th繁e敵la神tt掘er趁r擾eq昨ue洽st壇a枕pp嚼li求ca障ti晨on奔s宮fu裙nc遭ti含on雁s,臟s團uc碎h蜓as家e趁as坐y錢to竭u澡se罰f溫ea靈tu餅re陵s.點谷Af戰te責r趴an鍬al憑ys傷is脫,壽we礦u階se消M疼ic臥ro豐so莊ft鐮v熟is渡ua宴l申ba筒si乒c田de基ve閘lo碧pm供en撲t紅to挨ol漢c昌om避pa錦ni樓es印,傭th禍e殘us銹e撞of筆i堡ts騙v踏ar巾io謠us旺o除bj手ec路t-俱or友ie茫nt回ed范d波ev旋el理op竄me潛nt能t番oo件ls倉,缺es拳pe燈ci側al豬ly巨d褲at藥a萌th洗at膝c缸an科b妹e目ea惕si臥ly添a五cc望es年si熟bl脂e功an否d猴co究nc監is顆e保wi嘩nd荷ow努m奔an貪ip四ul較at夢io補n示da筆ta裁ba瓣se電i搶nt鹽el麗li巨ge畝nt維o輕bj乓ec單ts輕,備th翻e毫fi朝rs世t藝pr令ot柳ot蒼yp培e笑ap羊pl以ic猛at查io易n急sy銹st濫em姓i紀n襖a墨sh巖or絮t雞ti騙me腫a認nd帆t關he冊n,琴c知om滅pu窗ta指ti議on侵o導f適th御e揀in題it拾ia巧l蜂pr四ot房ot茅yp誓e浙sy我st舟em溫n鴉ee灣ds慶t躲o捏co墳ns根ta庫nt神ly唐r辦ev聽is滴e焦an暗d萄im孤pr柱ov竹e頓un長ti亡l暑th舉e章fo置rm術at醒io柜n檢of魯a乒v義ia妨bl解e第sy列st活em稿o肯f失us蓄er蘋s惜at戴is幅fa蛋ct伍io兔n.誼鐵Be畏ca潑us決e邁I鳴li除mi青te屆d洞ca鹽pa娛ci邪ty跟,昏co反up文le桶d鏡wi役th巖t少im竭e頑co聯ns次tr侄ai妻nt搬s,延i澤t剖de烘si星gn捐ed址t媽he正s才ys零te壁m儉ma撈y數fu遭nc概ti仁on瞇r樂el寒at箭iv傘el蛛y升si嚇mp妄le萌,秧an男d劣th勞e染sy答st翼em始i卸s惱si交ng框le賤e稠di弓ti碰on聯,妙no盆t壩In般te產rn專et擁o恩pe錦ra誼ti豈on窩s西ne湯tw浴or喬k,盛w叫hi電ch輸I瓶h沒av巾e椒ye音t處to像l帖ea驅rn膨t獅ha召t丸in敲f花ut遺ur槍e兔wo爽rk其t門o照fu臘rt番he斯r橫im哥pr姑ov憲e.腥keyword:SupermarketJinxiaocunmanagementMIS,visualbasicdatabase第一章引言課題背景超市進銷存管理系統用計算機管理超市庫存進出管理的一種計算機應用技術的創新,在計算機還未普及之前庫存管理都是由工作人員手工書寫的方式來操作的.現在一般的超市都采用計算機智能化管理,采用計算機作為工具的實用的計算機超市庫存管理程序來幫助管理員進行更有效的超市庫存管理工作。超市進銷存管理系統是典型的信息管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。系統簡介本系統采用visualbasic與Access作為數據庫的方式編寫,主要服務于超市庫存管理人員的日常工作.主要由以下幾大功能模塊構成:商品類型管理:添加商品類型,修改商品類型,刪除商品類型商品管理:添加商品信息,修改商品信息,刪除商品信息進貨管理:添加進貨管理,修改進貨管理,刪除進貨管理銷售管理:添加銷售管理,修改銷售管理,刪除銷售管理報損管理:添加報損管理,修改報損管理,刪除報損管理3開發軟件介紹VisualBasic6.0是Micrsoft公司出品的開發工具，VisualBasic是一種可視化的，面向對象的Windows開發語言，它具有易用，通用和開發效率高的特點。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得VisualBasic越來越適合一般的應用程序開發。正如BillGate所說，世界上絕大多數的Windows應用程序是用VisualBasic編寫的。在眾多的開發工具中，我們為什么要選擇VisualBasic6.0呢？因為VB具有眾多其它開發工具所沒有的優點！具體介紹如下：開發的高效語言的高效編譯的高效執行的高效維護的高效基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發工具！！命令按鈕類的控件：Caption屬性：用來顯示在控件上的標題。Enable屬性：控制控件的激活狀態灰色或可用。Appearance屬性：值為1時,則以3D效果顯示該控件,0則不然。Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。Cancel屬性：該屬性決定按鈕是否為一個”取消”按鈕。Default屬性:決定哪一個命令按鈕控件是窗體的缺省命令按鈕.Font屬性:控制各種文字字體類型.Left,top,height,width屬性:設定控件的位置與大小.Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現.Visible屬性:確定控件運行時是否為可見.Index屬性:當控件為一控件數組時,此屬性值為該控件在數組的下標值.DownPicture屬性：設置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態時顯示。DisabledPicture屬性：設置/返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。MaskColor屬性：設置/返回一個在按鈕的圖片中作為“掩碼“的的顏色Picture屬性：設置返回commandButton控件中要顯示的圖片。命令按鈕類的事件：單擊事件――Click事件觸發與適用此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發生。命令按鈕的Click事件僅對當單擊鼠標時發生。事件處理過程按鈕單擊事件的處理過程為：PrivateSubobject-Click（IndexAsInteger）其中Object為引發該事件的對象名稱。如果是命令按鈕的控件是數組，則需要使用Index參數標識該控件。獲得焦點――GotFocus事件觸發與適用當命令按鈕獲得焦點產生該事件，獲得焦點可以通過諸如Tab切換或單擊對象之類的用戶動作，或在代碼中用SetFocus方法改變焦點來實現。事件處理過程命令按鈕GotFoucs事件處理過程為：PrivateSubObject-GotFocus（IndexAsInteger）LostFocus事件：當一個對象失去焦點時發生KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發生KeyUp事件：當命令按鈕具有焦點時釋放一個鍵時發生。KeyPress事件：當用戶按下或松開一個ANSI鍵時發生。MouseDown事件：當在命令按鈕上按下鼠標按鈕時發生。MouseMove事件：當命令按鈕上移動鼠標時發生。MouseUp事件：當在命令按鈕上釋放鼠標按鈕時發生。標簽框類的控件類的控件：Caption屬性：在應用程序界面上加入說明。Autosize屬性：決定控件是否自動改變大小以顯示其全部內容。Backstyle屬性：用以指示標簽是否透明.Bordstyle屬性:用以設定控件是否有邊框。文本框類的控件：Text屬性：通過像text屬性賦值的方法來改變該屬性的值。Maxlength屬性：該屬性設定在文本框控件中能夠輸入的最大字符數。Multline屬性：該屬性設定text字符串中是否接受換行符。Scrollbars屬性：該屬性決定是否為文本框加滾動條。Passwordchar屬性：該屬性設定輸入文本的特殊顯示字符,在設計密碼程序時非常有用。Change事件屬性：文本框的內容發生改變時,相應的控件之間發生相應的改變,具有即時性。Keypress：事件由用戶在文本框控件中按任意鍵觸發。Alignment屬性：設定控件中的文本對其方式Appearance屬性：設定一個對象在運行時是否可以3D效果顯示。BackColor屬性：設置返回背景色BorderStyle屬性：設置對象的邊框樣式DataField屬性：設定數據使用者將被綁定到的字段名DataFormat屬性：設定DataFormat對象，用于數據綁定DataMember屬性：從數據供應程序提供的幾個數據成員中返回/設定一個特定的數據成員DataSource屬性：設定控件綁定的一個數據源DragIcon屬性：設定圖標，它將在拖放操作中作為指針顯示DragMode模式：設定一個值，確定在拖放操作中所用方式Enabled屬性：設置/返回運行時TextBox是否相應用戶事件Font屬性：設置/返回字體屬性ForeColor屬性：設置/返回文本的前景色Height屬性：設置/返回TextBox的高度IMEMode屬性：設置/返回數值用來確定輸入方法編輯器的狀態Index屬性：設置/返回唯一的標識控件數組中該控件的編號Left屬性：設置/返回TextBox控件的水平位置Locked屬性：設置/返回TextBox中文本是否可編輯LinkItem屬性：設置/返回DDE與另一個應用程序會話時，傳給接受端的數據MaxLength屬性：設置/返回一個值，指定在TextBox控件中能夠輸入的字符最大值MouseIcon屬性：設置/返回自定義鼠標的圖標Top屬性：設置/返回TextBox控件的垂直位置Tag屬性：存儲過程所需的附加數據文本框類的事件：Change事件：當改變文本框內容時發生Click事件：鼠標單擊控件時發生DblClick事件：用鼠標左鍵雙擊控件時發生DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數設置為2時發生DragOver事件：在拖放操作正在進行時發生GotFocus事件：當一個命令按鈕獲得焦點時發生LinkClose事件：當一個DDE對話結束時發生LinkError事件：當一個DDE對話框過程中出現錯誤時，該事件發生KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發生Validate事件：在焦點轉換到另一個控件之前發生，此時該控件的CausesValidation屬性值設置為True單選按鈕類的控件：Caption屬性：顯示在控件上的文本,是單選按鈕的標題。Alignment屬性：決定單選按鈕的標題在控件上的位置。Enable屬性：該控件為灰色時為false,表示運行時不可用。Index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。Tabindex屬性：建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。Value屬性：反映控件狀態的屬性,返回true表示已選擇了該按鈕。Appearance屬性：設置/返回一個對象在運行時是否以3D效果顯示。BackColor屬性：設置/返回背景色。Container屬性：設置/返回Form上的控件屬性。DataField屬性：設置/返回數據使用者將被綁定到的字段名。DataFormat屬性：設置/返回DataFormat對象，一個綁定對象將附加到它。DisabledPicture屬性：設置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。DownPicture屬性：設置/返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態時顯示。DragMode屬性：設置/返回一個值，確定在拖放操作中所用的方式。Font屬性：設置/返回字體屬性。FontBold屬性：設置/返回字體粗體樣式。FontItalic屬性：設置/返回字體斜體樣式。FontStrikethru屬性：設置/返回字體刪除線樣式。FontUnderLine屬性：設置/返回字體下劃線樣式。FontName屬性：設置/返回控件中顯示文本所用的字體大小。FontSize屬性：設置/返回控件中顯示文本所用的字體大小Height屬性：設置/返回控件的高度。MaskColor屬性：設置/返回一個在控件的圖片中作為掩碼的顏色。MousePointer屬性：設置/返回一個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型。單選按鈕類的常用事件：Click事件：鼠標單擊控件時發生。DbClick事件：當在一個對象上按下和釋放鼠標按鈕并再次按下和釋放按鈕時，該事件發生。DragDrop事件：在一個完整的拖放動作或使用Drag方法，并將其Action參數設置位2時，該事件發生。DragOver事件：在拖放操作正在進行時發生。GotFocus事件：當獲的對象焦點時發生。LostFocus事件：當對象失去焦點時發生。KeyDown事件：當控件具有焦點時按下一個鍵時發生。KeyUp事件：當控件具有焦點時釋放一個鍵時發生。KeyPress事件：當用戶按下或釋放ANSI一個鍵時發生。MouseDown事件：當在控件上按下鼠標鍵時發生。MouseMove事件：在控件上移動鼠標時發生。MouseUp事件：在控件上釋放鼠標時發生。復選按鈕類的控件：Caption屬性：缺省為check1…。Index屬性:該屬性值為復選框控件數組的下標.Value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.Container屬性：Form控件上的容器。DataChangeed屬性：設置/返回一個值，指出被綁定的控件中的數據已經被某進程修改。DataField屬性：設置或返回數據使用者將被綁定到的字段名。DataFormat屬性：設置或返回DataFormat對象，用于數據綁定。Datasource屬性：設置或返回控件綁定的一個數據源。DisabledPicture屬性：設置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。DownPicture屬性：設置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態時顯示。DragIcon屬性：設置或返回圖標，它將在拖放操作中做為指針顯示。DragMode屬性：設置返回一個值，確定在拖放操作中所用方式。Font屬性：設置或返回字體的屬性。Name屬性：設置或返回控件的標識名。Value屬性：設置或返回控件的狀態。復選按鈕類的控件的基本事件：Click事件：鼠標單擊控件時發生。DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數設置為2時發生。DragOver事件：在拖放操作正在進行時發生。GotFocus事件：在對象獲的焦點時發生。，OLECompleteDrag事件：當源部件被放到目標時發生，并通知源部件拖放操作被執行或取消。OLEDragDrag事件：當源部件決定放操作能發生，卻源部件被放到目標部件時，此事件發生。框架類的控件：1)List屬性：列表框控件的表項是使用數組的方式保存,數組的每一個元素存儲列表控件的一個表項Listcount屬性:控件列表部分項目的個數。Mutselect屬性:可以設置列表框為單選或允許多選屬性.Selectd屬性:標示一個數組,數組各元素為:Selected(0),selected(1)…滾動條類的控件：Value屬性：滾動條上滑塊所在位置由value值所決定。Max和min屬性：對value值的最大,最小進行限制。Largechange屬性：用戶點擊滾動條與鍵頭之間的區域時,value的改變量。4)OnClick事件：用來添加按鈕的單擊事件所執行的程序代碼。定時器類類的控件：Interval屬性：表示定時的時間間隔,以毫秒為單位。Enable屬性:為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態.Visualbasic6.0連接數據庫的主要方式以下幾種方式：一是：用data控件進行數據庫鏈接，二是利用adodc（ADODataControl)進行數據庫鏈接。三是:利用DataEnvironment進行數據庫鏈接.四是利用ADO(ActiveXDataObjects)進行編程:現在我們來大致對這幾種技術應用介紹：用data控件進行數據庫鏈接.第一步：給窗體添加一個Data控件。第二步：用Access建立一個名為Pad的數據庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數據），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。如果你的機器沒安裝有Access，可通過VB建庫。利用adodc（ADODataControl)進行數據庫鏈接：使用adodata控件訪問數據庫可以完全不用編寫代碼,只需要通過簡單的設置和操作其屬性就可以實現與數據庫的連接,通過綁定數據感知控件,就能提供一個訪問數據庫的界面,用來實現對數據庫的瀏覽,貼加,刪除,修改等操作.利用DAO對數據庫進行操縱:在visualbasic中提供了兩種與jet數據引擎接口的方法:data控件與數據訪問對象(DAO)DAO是databaseobject的英文縮寫,要訪問數據庫一方面數據庫要提供訪問接口,另一方面要在編程環境中有對數據庫的支持.DAO模型是設計關系數據庫系統結構的對象類的集合.他們提供了管理關系型數據庫系統所需要的全部操作屬性和方法,這其中包括建立數據庫,定義表,字段和建立表間關系,定位和查詢數據庫等.關系數據庫介紹:關系數據庫是目前各類數據庫中最重要、最流行的數據庫，他應用數學方法來處理數據庫數據，是目前使用最廣泛的數據庫系統。20世紀70年代以后開發的數據庫管理系統產品幾乎都是基于關系的。在數據庫發展的歷史上，最重要的成就就是關系模型。關系數據庫系統與非關系數據庫系統的區別是：關系系統只有“表“這一種數據結構；而非關系數據庫系統還有其他數據結構，對這些數據結構有其他的操作。結構化查詢語言SQL（StructuredQueryLanguage）是一種介于關系代數與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關系數據庫語言。目前已成為關系數據庫的標準語言Microsoft

Access介紹:使用

Microsoft

Access，可以在單一的數據庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯機窗體來查看、添加及更新表中的數據；使用查詢來查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析及打印數據。如果要保存數據，請為每一種類型的信息創建一個表。如果要從查詢、窗體或報表中的多個表中將數據合并在一起，就要定義各個表之間的關系。如果要搜索并檢索符合指定條件的數據，包括來自多個表中的數據，就要創建查詢。查詢的同時也可以更新或刪除多條記錄，并對數據執行內嵌或自定義的計算。如果要簡單地直接在某個表中查看、輸入及更改數據，請創建一個窗體。在打開一個窗體時，Microsoft

Access

將從一個或多個表中檢索數據，并使用用戶在“窗體向導”選擇的版面布局或所創建的版面布局，將窗體顯示在屏幕上。如果要分析數據或將數據以特定的方式打印出來，請創建一個報表。例如，可以打印一份將數據分組并計算數據總和的報表，也可以打印另一份帶有各種數據格式的打印郵件標簽的報表。第二章系統的分析系統開發的目標和思想本系統開發目標是服務于高速公路收費管理人員,方便工作人員,對過往車輛收費,發放收費票據記錄,對信息的分類管理等.同時力求做到界面人性化,功能齊全,數據存儲安全.系統的可行性分析技術上:本系統采用visualbasic6.0與微軟的access作為數據庫,技術上開發難度一般.經濟上:本系統服務于超市管理人員,提高了工作人員辦事效率,節省了開支.所以具有經濟上的可行性.社會上:本系統同時也方便了廣大顧客,.所以具有社會可行性.第三章系統的設計系統的功能結構設計程序登陸程序登陸主界面銷售分析幫助退出3．2系統的數據庫設計1:用戶登陸表:2:購入商品表:3:商品保損表:4:商品信息表:5:供應商表:6:銷售表:3.3界面設計與代碼設計登陸界面設計:代碼分析:OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanDimm_AdminAsNewclsAdminDimm_nErrCountAsIntegerPrivateSubForm_Load()m_nErrCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()'ToDo:創建測試密碼是否正確'檢查正確密碼DimAccountAsStringDimPwdAsStringAccount=RealString(txtUserName.Text)Pwd=RealString(txtPassword.Text)'判斷密碼是否正確IfNotm_Admin.CheckPwd(Account,Pwd)Thenm_nErrCount=m_nErrCount+1Ifm_nErrCount>=3ThenMsgBox"輸入密碼錯誤次數太多，請稍后重試",vbExclamationEndEndIfMsgBox"密碼錯誤，再試一次！還有"&3-m_nErrCount&"次機會，注意密碼區分大小寫",vbCritical,"登錄"txtPassword.SetFocustxtPassword.SelStart=0txtPassword.SelLength=Len(txtPassword.Text)ElseOK=Trueg_Account=AccountMe.HideEndIfEndSub2:報損信息表:代碼分析:OptionExplicitPrivateOKAsBoolean'確定用戶按了OK還是CANCEL按鈕Privatem_objAsclsDispose'數據對象，用來存儲用戶輸入數據Publicm_ViewTypeAsgxcViewType'顯示狀態，指添加還是修改Privatem_TypeIdAsLongPrivatem_AccountAsString'調用此對話框的操作員'根據是“新增”還是修改，確定顯示內容PrivateSubSetStatus()'設置控件默認值CallSetDefaultValue'設置狀態SelectCasem_ViewTypeCasevtadd'添加CancelButton.Visible=TrueOKButton.Caption="確定"CasevtModify'修改CancelButton.Visible=TrueOKButton.Caption="保存"CasevtInfo'查看CancelButton.Visible=FalseOKButton.Caption="關閉"EndSelectEndSub'打開對話框，并傳出用戶輸入數據PublicFunctionShowDlg(ByRefobjAsObject,_ByValeViewTypeAsgxcViewType,_OptionalnTypeIdAsLong=-1,_OptionalstrUserAsString="")AsBoolean'保存數據Setm_obj=obj'用戶輸入數據存放于此對象中m_ViewType=eViewType'對話框狀態IfnTypeId=-1And(Notm_objIsNothing)Thenm_TypeId=m_obj.TypeIdElsem_TypeId=nTypeIdEndIfm_Account=strUser'調用此對話框的用戶賬號'根據新增、編輯或查看設置顯示內容SetStatus'顯示對話框OK=FalseMe.ShowvbModalIfOK=FalseThenShowDlg=FalseExitFunctionEndIf'保存數據Setobj=m_obj'返回并釋放對話框ShowDlg=TrueUnloadMeEndFunction'設置控件默認值PrivateSubSetDefaultValue()DimctlAsControlDimiAsInteger'如果是新增，則清空所有文本框'此處判斷m_obj為空與判斷m_ViewType=vtAdd等效，但更安全Ifm_objIsNothingThenForEachctlInControlsIfTypeOfctlIsTextBoxThenctl.Text=""EndIfNextElse'用傳入對象的值更新數據Withm_objtxtCount.Text=.CounttxtReason.Text=.ReasontxtRemark.Text=.RemarkcboUnit.ListIndex=0dtpRegDate.Value=.RegDateFori=0TocboMerchName.ListCount-1IfcboMerchName.ItemData(i)=.MerchandiseIDThencboMerchName.ListIndex=i'客戶類型IdExitForEndIfNextiEndWithEndIfEndSub'檢查輸入有效性PrivateFunctionCheckValid()AsBooleanCheckValid=FalseIftxtCount.Text=""_OrtxtReason.Text=""_OrtxtRemark.Text=""ThenMsgBox"請填寫完畢以上各項內容"ExitFunctionEndIfIfcboMerchName.Text=""ThenMsgBox"請填寫完畢以上各項內容"ExitFunctionEndIfIfNotIsNumeric(txtCount.Text)ThenMsgBox"數量請輸入數字"ExitFunctionEndIfIfNotIsDate(dtpRegDate.Value)ThenMsgBox"請輸入正確的日期格式"ExitFunctionEndIfCheckValid=TrueEndFunction'保存數據PrivateSubSaveValue()'給“成員變量”對象賦值Withm_obj'注意以下利用RealString函數替換去除輸入中的單引號.Count=txtCount.Text.Reason=RealString(txtReason.Text).Remark=RealString(txtRemark.Text).MerchandiseID=cboMerchName.ItemData(cboMerchName.ListIndex)'商品類型Id.MerchName=cboMerchName.Text.RegDate=dtpRegDate.Value.OperatorId=m_Account'操作者賬號EndWithEndSub'取消按鈕PrivateSubCancelButton_Click()UnloadMeEndSubPrivateSubForm_Load()DimopMerchAsNewclsOpMerchopMerch.FillCombocboMerchNameEndSub'確定按鈕PrivateSubOKButton_Click()OK=True'檢測輸入有效性IfNotCheckValidThenExitSub'如果是新增狀態，則初始化一個數據對象Ifm_ViewType=vtaddThenSetm_obj=NewclsDispose'保存用戶輸入SaveValueMe.HideEndSub3:供應商表:代碼分析:OptionExplicitPrivateOKAsBoolean'確定用戶按了OK還是CANCEL按鈕Privatem_objAsclsProvider'數據對象，用來存儲用戶輸入數據Publicm_ViewTypeAsgxcViewType'顯示狀態，指添加還是修改'根據是“新增”還是修改，確定顯示內容PrivateSubSetStatus()'設置控件默認值CallSetDefaultValue'設置狀態SelectCasem_ViewTypeCasevtadd'添加CancelButton.Visible=TrueOKButton.Caption="確定"CasevtModify'修改CancelButton.Visible=TrueOKButton.Caption="保存"CasevtInfo'查看CancelButton.Visible=FalseOKButton.Caption="關閉"EndSelectEndSub'打開對話框，并傳出用戶輸入數據PublicFunctionShowDlg(ByRefobjAsObject,_ByValeViewTypeAsgxcViewType)AsBoolean'保存數據Setm_obj=obj'用戶輸入數據存放于此對象中m_ViewType=eViewType'對話框狀態'根據新增、編輯或查看設置顯示內容SetStatus'顯示對話框OK=FalseMe.ShowvbModalIfOK=FalseThenShowDlg=FalseExitFunctionEndIf'保存數據Setobj=m_obj'返回并釋放對話框ShowDlg=TrueUnloadMeEndFunction'設置控件默認值PrivateSubSetDefaultValue()DimctlAsControlDimiAsInteger'如果是新增，則清空所有文本框'此處判斷m_obj為空與判斷m_ViewType=vtAdd等效，但更安全Ifm_objIsNothingThenForEachctlInControlsIfTypeOfctlIsTextBoxThenctl.Text=""EndIfNextElse'用傳入對象的值更新數據Withm_objtxtName.Text=.ProviderNametxtIntro.Text=.IntroducetxtRemark.Text=.RemarkEndWithEndIfEndSub'檢查輸入有效性PrivateFunctionCheckValid()AsBooleanIftxtName.Text=""_OrtxtIntro.Text=""_OrtxtRemark.Text=""ThenMsgBox"請填寫完畢以上各項內容"CheckValid=FalseExitFunctionEndIfCheckValid=TrueEndFunction'保存數據PrivateSubSaveValue()'給“成員變量”對象賦值Withm_obj'注意以下利用RealString函數替換去除輸入中的單引號.ProviderName=RealString(txtName.Text).Introduce=RealString(txtIntro.Text).Remark=RealString(txtRemark.Text)EndWithEndSub'取消按鈕PrivateSubCancelButton_Click()UnloadMeEndSub'確定按鈕PrivateSubOKButton_Click()OK=True'檢測輸入有效性IfNotCheckValidThenExitSub'如果是新增狀態，則初始化一個數據對象Ifm_ViewType=vtaddThenSetm_obj=NewclsProvider'保存用戶輸入SaveValueMe.HideEndSub5:管理員列表:代碼分析:OptionExplicitDimopAdminAsNewclsOpAdminPrivateSubCancelButton_Click()UnloadMeEndSubPrivateSubcmdAdd_Click()opAdmin.AddlvAdminEndSubPrivateSubcmdDel_Click()opAdmin.DeletelvAdminEndSubPrivateSubcmdModify_Click()opAdmin.ModifylvAdminEndSubPrivateSubForm_Load()opAdmin.FillListViewlvAdminEndSub6:主界面設計:代碼分析:OptionExplicitConstNAME_COLUMN=0ConstTYPE_COLUMN=1ConstSIZE_COLUMN=2ConstDATE_COLUMN=3DimmbMovingAsBooleanConstsglSplitLimit=500PrivateSubForm_Load()LoadResStringsMeMe.Left=GetSetting(App.Title,"Settings","MainLeft",1000)Me.Top=GetSetting(App.Title,"Settings","MainTop",1000)Me.Width=GetSetting(App.Title,"Settings","MainWidth",6500)Me.Height=GetSetting(App.Title,"Settings","MainHeight",6500)lvMerch.View=Val(GetSetting(App.Title,"Settings","ViewMode","0"))'初始化數據CallInitMainEndSubPrivateSubForm_Unload(CancelAsInteger)DimiAsInteger'closeallsubformsFori=Forms.Count-1To1Step-1UnloadForms(i)NextIfMe.WindowState<>vbMinimizedThenSaveSettingApp.Title,"Settings","MainLeft",Me.LeftSaveSettingApp.Title,"Settings","MainTop",Me.TopSaveSettingApp.Title,"Settings","MainWidth",Me.WidthSaveSettingApp.Title,"Settings","MainHeight",Me.HeightEndIfSaveSettingApp.Title,"Settings","ViewMode",lvMerch.ViewEndSubPrivateSubForm_Resize()OnErrorResumeNextIfMe.Width<3000ThenMe.Width=3000SizeControlsimgSplitter.LeftEndSubPrivateSubimgSplitter_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)WithimgSplitterpicSplitter.Move.Left,.Top,.Width\2,.Height-20EndWithpicSplitter.Visible=TruembMoving=TrueEndSubPrivateSubimgSplitter_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)DimsglPosAsSingleIfmbMovingThensglPos=x+imgSplitter.LeftIfsglPos<sglSplitLimitThenpicSplitter.Left=sglSplitLimitElseIfsglPos>Me.Width-sglSplitLimitThenpicSplitter.Left=Me.Width-sglSplitLimitElsepicSplitter.Left=sglPosEndIfEndIfEndSubPrivateSubimgSplitter_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)SizeControlspicSplitter.LeftpicSplitter.Visible=FalsembMoving=FalseEndSubPrivateSubTreeView1_DragDrop(SourceAsControl,xAsSingle,yAsSingle)IfSource=imgSplitterThenSizeControlsxEndIfEndSubSubSizeControls(xAsSingle)OnErrorResumeNext'設置Width屬性Ifx<1500Thenx=1500Ifx>(Me.Width-1500)Thenx=Me.Width-1500tvTreeView.Width=ximgSplitter.Left=xsstabView.Left=x+40sstabView.Width=Me.Width-(tvTreeView.Width+140)lblTitle(0).Width=tvTreeView.Width'lblTitle(1).Left=lvMerch.Left+20'lblTitle(1).Width=lvMerch.Width-40'設置Top屬性IftbToolBar.VisibleThentvTreeView.Top=tbToolBar.Height+picTitles.HeightElsetvTreeView.Top=picTitles.HeightEndIfsstabView.Top=tvTreeView.Top-picTitles.Height'設置height屬性IfsbStatusBar.VisibleThentvTreeView.Height=Me.ScaleHeight-(picTitles.Top+picTitles.Height+sbStatusBar.Height)ElsetvTreeView.Height=Me.ScaleHeight-(picTitles.Top+picTitles.Height)EndIfsstabView.Height=tvTreeView.Height+picTitles.HeightimgSplitter.Top=picTitles.TopimgSplitter.Height=tvTreeView.Height'修改ListView控件尺寸DimctlAsControlForEachctlInControlsIfTypeOfctlIsListViewThenctl.Left=0ctl.Top=sstabView.TabHeightctl.Width=sstabView.Width-40ctl.Height=sstabView.Height-sstabView.TabHeightctl.Visible=FalseEndIfNextsstabView_Click0EndSubPrivateSublvBuy_DblClick()mnuBuyModify_ClickEndSubPrivateSublvDispose_DblClick()mnuDisposeModify_ClickEndSubPrivateSublvMerch_DblClick()mnuMerchModify_ClickEndSubPrivateSublvProvider_DblClick()mnuProviderModify_ClickEndSubPrivateSublvSell_DblClick()mnuSellModify_ClickEndSubPrivateSubmnuAnaBuy_Click()frmAnalysis.ShowvbModalEndSubPrivateSubmnuAnalysis_Click()frmAnalysis.ShowvbModalEndSub''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''屬性頁控件切換響應函數''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''PrivateSubsstabView_Click(PreviousTabAsInteger)SelectCasePreviousTabCase0lvMerch.Visible=FalseCase1lvBuy.Visible=FalseCase2lvSell.Visible=FalseCase3lvDispose.Visible=FalseCase4lvProvider.Visible=FalseEndSelectSelectCasesstabView.TabCase0lvMerch.Visible=TruelvMerch.SetFocusCase1lvBuy.Visible=TruelvBuy.SetFocusCase2lvSell.Visible=TruelvSell.SetFocusCase3lvDispose.Visible=TruelvDispose.SetFocusCase4lvProvider.Visible=TruelvProvider.SetFocusEndSelectEndSubPrivateSubtbToolBar_ButtonClick(ByValButtonAsMSComctlLib.Button)OnErrorResumeNextSelectCaseButton.KeyCase"返回"'應做:添加'返回'按鈕代碼。MsgBox"添加'返回'按鈕代碼。"Case"向前"'應做:添加'向前'按鈕代碼。MsgBox"添加'向前'按鈕代碼。"Case"剪切"'應做:添加'剪切'按鈕代碼。MsgBox"添加'剪切'按鈕代碼。"Case"復制"'應做:添加'復制'按鈕代碼。MsgBox"添加'復制'按鈕代碼。"Case"粘貼"'應做:添加'粘貼'按鈕代碼。MsgBox"添加'粘貼'按鈕代碼。"Case"刪除"'應做:添加'刪除'按鈕代碼。MsgBox"添加'刪除'按鈕代碼。"Case"屬性"'應做:添加'屬性'按鈕代碼。MsgBox"添加'屬性'按鈕代碼。"Case"大圖標"lvMerch.View=lvwIconCase"小圖標"lvMerch.View=lvwSmallIconCase"列表"lvMerch.View=lvwListCase"詳細資料"lvMerch.View=lvwReportEndSelectEndSubPrivateSubmnuHelpAbout_Click()frmAbout.ShowvbModal,MeEndSubPrivateSubmnuViewRefresh_Click()'應做:添加'mnuViewRefresh_Click'代碼。MsgBox"添加'mnuViewRefresh_Click'代碼。"EndSubPrivateSubmnuVAIByDate_Click()'ToDo:添加'mnuVAIByDate_Click'代碼'lvMerch.SortKey=DATE_COLUMNEndSubPrivateSubmnuVAIByName_Click()'ToDo:添加'mnuVAIByName_Click'代碼'lvMerch.SortKey=NAME_COLUMNEndSubPrivateSubmnuVAIBySize_Click()'ToDo:添加'mnuVAIBySize_Click'代碼'lvMerch.SortKey=SIZE_COLUMNEndSubPrivateSubmnuVAIByType_Click()'ToDo:添加'mnuVAIByType_Click'代碼'lvMerch.SortKey=TYPE_COLUMNEndSubPrivateSubmnuViewStatusBar_Click()mnuViewStatusBar.Checked=NotmnuViewStatusBar.CheckedsbStatusBar.Visible=mnuViewStatusBar.CheckedSizeControlsimgSplitter.LeftEndSubPrivateSubmnuViewToolbar_Click()mnuViewToolbar.Checked=NotmnuViewToolbar.CheckedtbToolBar.Visible=mnuViewToolbar.CheckedSizeControlsimgSplitter.LeftEndSub'初始化所有數據函數PrivateSubInitMain()'InitMerchListviewlvMerch'初始化列表'ListAllMerchslvMerchTypeToTreeviewtvTreeView'將客戶類型顯示到樹型圖中opProvider.FillListViewlvProvideropMerch.FillListViewlvMerchopBuy.FillListViewlvBuyopSell.FillListViewlvSellopDispose.FillListViewlvDisposeEndSub''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''菜單響應函數'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''==============================================='商品類型操作'===============================================PrivateSubmnuMType_Click()'設置樹型控件焦點tvTreeView.SetFocusEndSub'添加PrivateSubmnuMTypeAdd_Click()opMTy