版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、VB5.0中數(shù)據(jù)庫查詢模塊的真現(xiàn)摘要:查詢模塊是數(shù)據(jù)庫挨面系統(tǒng)中沒有成缺少的部分。本文介紹正在vb5.0狀況下四種數(shù)據(jù)庫查詢的真現(xiàn)要發(fā),并主要介紹了操做selet-sql語句去真現(xiàn)數(shù)據(jù)庫的查詢成效閉鍵字:vb5.0數(shù)據(jù)庫表查詢sqlvb齊稱visualbasi,是微硬公司推出的基于inds的可視化編程狀況,以其簡樸易教、編程煩瑣、程序散成化下、成效強衰而倍受程序員及寬年夜電腦愛好者的喜歡。它正在數(shù)據(jù)庫使用圓里也有相等強衰的成效。查詢模塊是數(shù)據(jù)庫挨面系統(tǒng)中沒有成缺少的部分。正在vb及第止數(shù)據(jù)庫紀錄查詢操做,根據(jù)翻開數(shù)據(jù)庫的方法去肯定。年夜要有四種查詢要發(fā):seek要發(fā)查詢、filter屬性查詢、
2、find要發(fā)查詢、sql查詢。本文對前三種要發(fā)只做簡樸分析,側(cè)重介紹第四種sql查詢要發(fā)。1、seek要發(fā)查詢、filter屬性查詢、find要發(fā)查詢的簡樸分析。用seek要發(fā)查詢:那種要發(fā)只操做于以pentable方法翻開的數(shù)據(jù)表,而且正在查詢之前必需要對查詢字段創(chuàng)立索引文件,因為已創(chuàng)立了索引文件,所以查詢速度快,那種方法結(jié)果是將指針移到切開前提的第一個紀錄。例如:settb=db.pentable(“input)tb.index=naeindextb.seek=,“石腦油用filter屬性查詢:filter屬性查詢是用去過濾數(shù)據(jù)的,只需我們給定過濾前提便可以將所需的紀錄挑選出去。需要分析的
3、是,我們需要將以filter屬性挑選出去的數(shù)據(jù)散翻開才華對其舉止操做。例如:setdy1=db.reatedynaset(“input)dy1.filter=物質(zhì)稱號like石*用find要發(fā)查詢。find查詢有findfirstfindnext兩個要發(fā),每次查詢到一個紀錄。例如:setdy=db.reatedynaset(“input)s=到貨數(shù)量100and物質(zhì)稱號like石腦油dy.findfirstsdy.findnexts2、用sql查詢。21、selet-sql查詢語句的格局:sqlstruturequerylanguage即規(guī)劃化查詢語止,是查詢閉連型數(shù)據(jù)庫的經(jīng)常使用語止。因為s
4、ql語止操做便當、成效豐富、簡樸易教獲得很快的使用戰(zhàn)推行,是各種閉連型數(shù)據(jù)庫的公用語止。操做sql查詢可以從一個表或多個表或視圖中對數(shù)據(jù)庫舉止查詢有閉sql的更多疑息,請參閱相閉書籍,本文沒有多介紹。它的核心語句是selet-sql語句。selet-sql查詢語句的格局:seletditint/all-查詢目的列frtableexpressin-表名/視圖名here-前提grupby.-將查詢結(jié)果的紀錄分組having.-開意前提的分組rderby.-對查詢結(jié)果舉止排序上里使用筆者完成的?供應處物質(zhì)挨面硬件?為例,。分析操做selet-sql查詢語句真現(xiàn)查詢模塊詳細要發(fā)。2.2單項查詢模塊的真
5、現(xiàn):包含表:input字段名:物質(zhì)稱號、供貨單位、供貨日期、到貨數(shù)量、總金額.等等。定義窗體及控件:以下表主要控件及稱號屬性設(shè)置分析frae(frae1)aptin字段挑選ptinbuttn(ptin1)aptin物質(zhì)稱號字段挑選ptinbuttn(ptin2)aptin供貨單位ptinbuttn(ptin3)aptin供貨日期ptinbuttn(ptin4)aptin到貨數(shù)量ptinbuttn(ptin5)aptin總金額textbx(text1)text為空查詢值textbx(text2)text為空andbuttn(and1)aptin肯定肯定本次查詢andbuttn(and2)apti
6、n挨消挨消本次查詢andbuttn(and3)aptin完畢完畢查詢data(data1)aptin數(shù)據(jù)閱讀databasenaed:zu_vbin_db.dbdbgrid(dbgrid1)datasuredata1查詢結(jié)果表示如圖1:單項查詢模塊窗體圖程序代碼:上述圓案完成后,可以對窗體及控件的事變編寫代碼:變量定義diy_dbasdatabasediy_drasrerdsetdifield_val1asstringdifield_val3asdatedifield_val32asdatedifield_val4asintegerdifield_val42asintegerdisearh_t
7、xtasintegerprivatesubfr_lad()searh_txt=1text1.text=text2.text=label2.aptin=endsubprivatesuband1_lik()肯定按鈕seletasesearh_txtase1假設(shè)挑選“物質(zhì)稱號field_val1=text1.textsety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)ss1=selet*frinputhere(物質(zhì)稱號=field_val1)data1.rerdsure=ss1data1.refreshase2假設(shè)挑選“
8、供貨單位.ase3假設(shè)挑選“供貨日期field_val3=text1.textfield_val32=text2.textifval(datediff(d,(text1.text),(text2.text)=0thensety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)ss1=selet*frinputhere供貨日期beteen#_field_val3#_and#field_val32#data1.rerdsure=ss1data1.refreshelsezz=sgbx(您輸進的起初日期比截至日期年夜,請從頭輸進
9、!,vbritial,寬峻警告,輸進無效!)endifase4假設(shè)挑選“到貨數(shù)量field_val4=text1.textfield_val42=text2.textsety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)ss1=selet*frinputhere到貨數(shù)量beteenfield_val4_andfield_val42data1.rerdsure=ss1data1.refreshase5.endseletendsubprivatesuband2_lik()挨消查詢text1.text=text2.text
10、=endsubprivatesuband3_lik()完畢查詢unladeendsubprivatesubptin1_lik()選定“物質(zhì)稱號字段searh_txt=1text1.text=label2.aptin=text2.enabled=falsetext2設(shè)為無效text2.visible=falsetext2設(shè)為沒有表示text1.setfusendsubprivatesubptin2_lik()選定“供貨單位字段略endsubprivatesubptin3_lik()選定“供貨日期字段searh_txt=3text1.text=text1.text=date起初日期text2.te
11、xt=date截至日期label2.aptin=至text2.enabled=truetext2.visible=truetext1.setfusendsubprivatesubptin4_lik()選定“到貨數(shù)量字段searh_txt=4text1.text=text2.text=text1.text=frat(text1.text,#,#,#0.00)設(shè)置字段格局為數(shù)值型text2.text=frat(text2.text,#,#,#0.00)設(shè)置字段格局為數(shù)值型label2.aptin=至text2.enabled=truetext2.visible=truetext1.setfusen
12、dsubprivatesubptin5_lik()選定“總金額字段略endsubprivatesubtext1_lstfus()斷定假設(shè)選定的是“供貨日期字段,text1的輸進值必須是日期型的ifsearh_txt=3thenifntisdate(text1.text)thenz=sgbx(犯警日期!請從頭輸進!,vbritial,寬峻警告,輸進無效!)text1.setfusendifendifendsubprivatesubtext2_lstfus()斷定假設(shè)選定的是“供貨日期字段,text2的輸進值必須是日期型的ifsearh_txt=3thentext2.text=frat(text2
13、.text,yyyy-dd)ifntisdate(text2.text)thenz=sgbx(犯警日期!請從頭輸進!,vbritial,寬峻警告,輸進無效!)text2.setfusendifendifendsub23多項復開查查詢模塊的真現(xiàn):包含表:input字段名:物質(zhì)稱號、供貨單位、供貨日期、到貨數(shù)量、總金額.等等。定義窗體及控件:以下表主要控件及稱號屬性設(shè)置分析frae(frae1)aptin查詢前提挑選bbxaptin為空物質(zhì)稱號挑選textbx(text1)text為空起初日期textbx(text2)text為空截至日期andbuttn(and1)aptin肯定肯定本次查詢and
14、buttn(and2)aptin完畢完畢查詢data(data1)aptin數(shù)據(jù)閱讀databasenaed:zu_vbin_db.dbdbbrid(dbgrid1)datasuredata1查詢結(jié)果表示如圖2多項查詢模塊窗體圖程序代碼:上述圓案完成后,可以對窗體及控件的事變編寫代碼:上里程序可真現(xiàn)“物質(zhì)稱號為某值,供貨日期正在一定范圍的采購明細的查詢。定義變量diy_dbasdatabasediy_drasrerdsetdi_txtasstringditxt1asdateditxt2asdateprivatesuband1_lik()斷定假設(shè)輸進值沒有是日期型的,是無效值ifntisdate
15、(text1.text)thenz=sgbx(犯警起初日期,請從頭輸進!,vbritial,寬峻警告,輸進無效!)text1.setfuselseifntisdate(text2.text)thenz=sgbx(犯警截至日期,請從頭輸進!,vbritial,寬峻警告,輸進無效!)text2.setfuselseifval(datediff(d,(text1.text),(text2.text)=0then*設(shè)置前提*sety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)1=selet*frinputhere(物質(zhì)稱號
16、=_txt_and(供貨日期beteen#txt1#_and#txt2#)data1.rerdsure=1data1.refreshelsezz=sgbx(您輸進的起初日期比截至日期年夜,請從頭輸進!,vbritial,寬峻警告,輸進無效!)endifendifendifendsubprivatesubfr_lad()將工程“石腦油、沉烴、雜苯增減到b1控件中b1.addite石腦油b1.addite沉烴b1.addite雜苯b1.addite丙烯腈b1.addite甲基丙烯酸甲脂b1.addite散丁兩烯乳膠b1.addite2b1.addite3/4b1.addite5b1.addite鹽酸
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 水力機械結(jié)構(gòu)課程設(shè)計
- 裝修質(zhì)量保證合同(范本)
- 自建房商鋪租賃合同(范本)
- 水泥制品模具設(shè)計與制造考核試卷
- unit6(基礎(chǔ)作業(yè))2024-2025學年六年級上冊 英語 譯林版
- 汽輪機運行人員技能提升與培訓考核試卷
- D打印技術(shù)在空間探索領(lǐng)域的應用考核試卷
- 辦公文具消費者行為與市場趨勢考核試卷
- 草原割草對草原生物多樣性的長期影響考核試卷
- 軟件項目沖突管理考核試卷
- 小學數(shù)學課題《小學生良好的數(shù)學學習習慣的培養(yǎng)策略》開題報告
- 譯林版九年級上學期英語第一次月考試卷(含答案解析)
- 橡膠行業(yè)定義與分類報告
- 飼料廠車間崗位質(zhì)量操作規(guī)范
- GB/T 43462-2023電化學儲能黑啟動技術(shù)導則
- 2024年九省聯(lián)考廣西新高考政治試卷(含答案)
- 麻醉藥品管理培訓課件
- 幼兒園公開課:中班語言《跑跑鎮(zhèn)》有聲動態(tài)課件
- 以瞄準我的妹妹沒剪板
- 垃圾能源回收
- 鈦及鈦合金陽極氧化膜 編制說明
評論
0/150
提交評論