超市進(jìn)銷存管理系統(tǒng)

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

Access介紹:使用

Microsoft

Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft

Access

將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。第二章系統(tǒng)的分析系統(tǒng)開發(fā)的目標(biāo)和思想本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于高速公路收費(fèi)管理人員,方便工作人員,對(duì)過往車輛收費(fèi),發(fā)放收費(fèi)票據(jù)記錄,對(duì)信息的分類管理等.同時(shí)力求做到界面人性化,功能齊全,數(shù)據(jù)存儲(chǔ)安全.系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visualbasic6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于超市管理人員,提高了工作人員辦事效率,節(jié)省了開支.所以具有經(jīng)濟(jì)上的可行性.社會(huì)上:本系統(tǒng)同時(shí)也方便了廣大顧客,.所以具有社會(huì)可行性.第三章系統(tǒng)的設(shè)計(jì)系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)程序登陸程序登陸主界面銷售分析幫助退出3．2系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)1:用戶登陸表:2:購入商品表:3:商品保損表:4:商品信息表:5:供應(yīng)商表:6:銷售表:3.3界面設(shè)計(jì)與代碼設(shè)計(jì)登陸界面設(shè)計(jì):代碼分析:OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanDimm_AdminAsNewclsAdminDimm_nErrCountAsIntegerPrivateSubForm_Load()m_nErrCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()'ToDo:創(chuàng)建測(cè)試密碼是否正確'檢查正確密碼DimAccountAsStringDimPwdAsStringAccount=RealString(txtUserName.Text)Pwd=RealString(txtPassword.Text)'判斷密碼是否正確IfNotm_Admin.CheckPwd(Account,Pwd)Thenm_nErrCount=m_nErrCount+1Ifm_nErrCount>=3ThenMsgBox"輸入密碼錯(cuò)誤次數(shù)太多，請(qǐng)稍后重試",vbExclamationEndEndIfMsgBox"密碼錯(cuò)誤，再試一次！還有"&3-m_nErrCount&"次機(jī)會(huì)，注意密碼區(qū)分大小寫",vbCritical,"登錄"txtPassword.SetFocustxtPassword.SelStart=0txtPassword.SelLength=Len(txtPassword.Text)ElseOK=Trueg_Account=AccountMe.HideEndIfEndSub2:報(bào)損信息表:代碼分析:OptionExplicitPrivateOKAsBoolean'確定用戶按了OK還是CANCEL按鈕Privatem_objAsclsDispose'數(shù)據(jù)對(duì)象，用來存儲(chǔ)用戶輸入數(shù)據(jù)Publicm_ViewTypeAsgxcViewType'顯示狀態(tài)，指添加還是修改Privatem_TypeIdAsLongPrivatem_AccountAsString'調(diào)用此對(duì)話框的操作員'根據(jù)是“新增”還是修改，確定顯示內(nèi)容PrivateSubSetStatus()'設(shè)置控件默認(rèn)值CallSetDefaultValue'設(shè)置狀態(tài)SelectCasem_ViewTypeCasevtadd'添加CancelButton.Visible=TrueOKButton.Caption="確定"CasevtModify'修改CancelButton.Visible=TrueOKButton.Caption="保存"CasevtInfo'查看CancelButton.Visible=FalseOKButton.Caption="關(guān)閉"EndSelectEndSub'打開對(duì)話框，并傳出用戶輸入數(shù)據(jù)PublicFunctionShowDlg(ByRefobjAsObject,_ByValeViewTypeAsgxcViewType,_OptionalnTypeIdAsLong=-1,_OptionalstrUserAsString="")AsBoolean'保存數(shù)據(jù)Setm_obj=obj'用戶輸入數(shù)據(jù)存放于此對(duì)象中m_ViewType=eViewType'對(duì)話框狀態(tài)IfnTypeId=-1And(Notm_objIsNothing)Thenm_TypeId=m_obj.TypeIdElsem_TypeId=nTypeIdEndIfm_Account=strUser'調(diào)用此對(duì)話框的用戶賬號(hào)'根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容SetStatus'顯示對(duì)話框OK=FalseMe.ShowvbModalIfOK=FalseThenShowDlg=FalseExitFunctionEndIf'保存數(shù)據(jù)Setobj=m_obj'返回并釋放對(duì)話框ShowDlg=TrueUnloadMeEndFunction'設(shè)置控件默認(rèn)值PrivateSubSetDefaultValue()DimctlAsControlDimiAsInteger'如果是新增，則清空所有文本框'此處判斷m_obj為空與判斷m_ViewType=vtAdd等效，但更安全I(xiàn)fm_objIsNothingThenForEachctlInControlsIfTypeOfctlIsTextBoxThenctl.Text=""EndIfNextElse'用傳入對(duì)象的值更新數(shù)據(jù)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"請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容"ExitFunctionEndIfIfcboMerchName.Text=""ThenMsgBox"請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容"ExitFunctionEndIfIfNotIsNumeric(txtCount.Text)ThenMsgBox"數(shù)量請(qǐng)輸入數(shù)字"ExitFunctionEndIfIfNotIsDate(dtpRegDate.Value)ThenMsgBox"請(qǐng)輸入正確的日期格式"ExitFunctionEndIfCheckValid=TrueEndFunction'保存數(shù)據(jù)PrivateSubSaveValue()'給“成員變量”對(duì)象賦值Withm_obj'注意以下利用RealString函數(shù)替換去除輸入中的單引號(hào).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'操作者賬號(hào)EndWithEndSub'取消按鈕PrivateSubCancelButton_Click()UnloadMeEndSubPrivateSubForm_Load()DimopMerchAsNewclsOpMerchopMerch.FillCombocboMerchNameEndSub'確定按鈕PrivateSubOKButton_Click()OK=True'檢測(cè)輸入有效性IfNotCheckValidThenExitSub'如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象Ifm_ViewType=vtaddThenSetm_obj=NewclsDispose'保存用戶輸入SaveValueMe.HideEndSub3:供應(yīng)商表:代碼分析:OptionExplicitPrivateOKAsBoolean'確定用戶按了OK還是CANCEL按鈕Privatem_objAsclsProvider'數(shù)據(jù)對(duì)象，用來存儲(chǔ)用戶輸入數(shù)據(jù)Publicm_ViewTypeAsgxcViewType'顯示狀態(tài)，指添加還是修改'根據(jù)是“新增”還是修改，確定顯示內(nèi)容PrivateSubSetStatus()'設(shè)置控件默認(rèn)值CallSetDefaultValue'設(shè)置狀態(tài)SelectCasem_ViewTypeCasevtadd'添加CancelButton.Visible=TrueOKButton.Caption="確定"CasevtModify'修改CancelButton.Visible=TrueOKButton.Caption="保存"CasevtInfo'查看CancelButton.Visible=FalseOKButton.Caption="關(guān)閉"EndSelectEndSub'打開對(duì)話框，并傳出用戶輸入數(shù)據(jù)PublicFunctionShowDlg(ByRefobjAsObject,_ByValeViewTypeAsgxcViewType)AsBoolean'保存數(shù)據(jù)Setm_obj=obj'用戶輸入數(shù)據(jù)存放于此對(duì)象中m_ViewType=eViewType'對(duì)話框狀態(tài)'根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容SetStatus'顯示對(duì)話框OK=FalseMe.ShowvbModalIfOK=FalseThenShowDlg=FalseExitFunctionEndIf'保存數(shù)據(jù)Setobj=m_obj'返回并釋放對(duì)話框ShowDlg=TrueUnloadMeEndFunction'設(shè)置控件默認(rèn)值PrivateSubSetDefaultValue()DimctlAsControlDimiAsInteger'如果是新增，則清空所有文本框'此處判斷m_obj為空與判斷m_ViewType=vtAdd等效，但更安全I(xiàn)fm_objIsNothingThenForEachctlInControlsIfTypeOfctlIsTextBoxThenctl.Text=""EndIfNextElse'用傳入對(duì)象的值更新數(shù)據(jù)Withm_objtxtName.Text=.ProviderNametxtIntro.Text=.IntroducetxtRemark.Text=.RemarkEndWithEndIfEndSub'檢查輸入有效性PrivateFunctionCheckValid()AsBooleanIftxtName.Text=""_OrtxtIntro.Text=""_OrtxtRemark.Text=""ThenMsgBox"請(qǐng)?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容"CheckValid=FalseExitFunctionEndIfCheckValid=TrueEndFunction'保存數(shù)據(jù)PrivateSubSaveValue()'給“成員變量”對(duì)象賦值Withm_obj'注意以下利用RealString函數(shù)替換去除輸入中的單引號(hào).ProviderName=RealString(txtName.Text).Introduce=RealString(txtIntro.Text).Remark=RealString(txtRemark.Text)EndWithEndSub'取消按鈕PrivateSubCancelButton_Click()UnloadMeEndSub'確定按鈕PrivateSubOKButton_Click()OK=True'檢測(cè)輸入有效性IfNotCheckValidThenExitSub'如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象Ifm_ViewType=vtaddThenSetm_obj=NewclsProvider'保存用戶輸入SaveValueMe.HideEndSub5:管理員列表:代碼分析:OptionExplicitDimopAdminAsNewclsOpAdminPrivateSubCancelButton_Click()UnloadMeEndSubPrivateSubcmdAdd_Click()opAdmin.AddlvAdminEndSubPrivateSubcmdDel_Click()opAdmin.DeletelvAdminEndSubPrivateSubcmdModify_Click()opAdmin.ModifylvAdminEndSubPrivateSubForm_Load()opAdmin.FillListViewlvAdminEndSub6:主界面設(shè)計(jì):代碼分析: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"))'初始化數(shù)據(jù)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'設(shè)置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'設(shè)置Top屬性IftbToolBar.VisibleThentvTreeView.Top=tbToolBar.Height+picTitles.HeightElsetvTreeView.Top=picTitles.HeightEndIfsstabView.Top=tvTreeView.Top-picTitles.Height'設(shè)置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''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''屬性頁控件切換響應(yīng)函數(shù)''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''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"返回"'應(yīng)做:添加'返回'按鈕代碼。MsgBox"添加'返回'按鈕代碼。"Case"向前"'應(yīng)做:添加'向前'按鈕代碼。MsgBox"添加'向前'按鈕代碼。"Case"剪切"'應(yīng)做:添加'剪切'按鈕代碼。MsgBox"添加'剪切'按鈕代碼。"Case"復(fù)制"'應(yīng)做:添加'復(fù)制'按鈕代碼。MsgBox"添加'復(fù)制'按鈕代碼。"Case"粘貼"'應(yīng)做:添加'粘貼'按鈕代碼。MsgBox"添加'粘貼'按鈕代碼。"Case"刪除"'應(yīng)做:添加'刪除'按鈕代碼。MsgBox"添加'刪除'按鈕代碼。"Case"屬性"'應(yīng)做:添加'屬性'按鈕代碼。MsgBox"添加'屬性'按鈕代碼。"Case"大圖標(biāo)"lvMerch.View=lvwIconCase"小圖標(biāo)"lvMerch.View=lvwSmallIconCase"列表"lvMerch.View=lvwListCase"詳細(xì)資料"lvMerch.View=lvwReportEndSelectEndSubPrivateSubmnuHelpAbout_Click()frmAbout.ShowvbModal,MeEndSubPrivateSubmnuViewRefresh_Click()'應(yīng)做:添加'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'初始化所有數(shù)據(jù)函數(shù)PrivateSubInitMain()'InitMerchListviewlvMerch'初始化列表'ListAllMerchslvMerchTypeToTreeviewtvTreeView'將客戶類型顯示到樹型圖中opProvider.FillListViewlvProvideropMerch.FillListViewlvMerchopBuy.FillListViewlvBuyopSell.FillListViewlvSellopDispose.FillListViewlvDisposeEndSub''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''菜單響應(yīng)函數(shù)'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''==============================================='商品類型操作'===============================================PrivateSubmnuMType_Click()'設(shè)置樹型控件焦點(diǎn)tvTreeView.SetFocusEndSub'添加PrivateSubmnuMTypeAdd_Click()opMTy