汽車銷售系統(tǒng)-數(shù)據(jù)庫課程設(shè)計(jì)

淮海工學(xué)院計(jì)算機(jī)科學(xué)系課程設(shè)計(jì)報(bào)告設(shè)計(jì)名稱：數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計(jì)姓名：學(xué)號(hào)：110511530專業(yè)班級(jí)：計(jì)算機(jī)科學(xué)與技術(shù)055系院〕：計(jì)算機(jī)科學(xué)系設(shè)計(jì)時(shí)間：2007.6.18~2007.6.29設(shè)計(jì)地點(diǎn)：計(jì)算機(jī)機(jī)房成績：指導(dǎo)教師評(píng)語：成績：簽名：年月日數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計(jì)一、課程設(shè)計(jì)的目的?數(shù)據(jù)庫原理及應(yīng)用?課程設(shè)計(jì)是計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)集中實(shí)踐性環(huán)節(jié)之一，是學(xué)習(xí)完?數(shù)據(jù)庫原理及應(yīng)用?課程后進(jìn)行的一次全面的綜合練習(xí)。本課程設(shè)計(jì)主要在于加深學(xué)生對(duì)數(shù)據(jù)庫根底理論和根本知識(shí)的理解，掌握數(shù)據(jù)庫應(yīng)用系統(tǒng)設(shè)計(jì)開發(fā)的根本方法，到達(dá)進(jìn)一步使學(xué)生綜合運(yùn)用所學(xué)知識(shí)和增強(qiáng)實(shí)際動(dòng)手能力的目的。二、課程設(shè)計(jì)的任務(wù)與要求要求學(xué)生根據(jù)自身對(duì)題目的理解情況，從給定的設(shè)計(jì)題目中選擇一個(gè)，以MSSQLServer作為后臺(tái)數(shù)據(jù)庫平臺(tái)，以PowerBuilder作為前臺(tái)開發(fā)工具，完成一個(gè)小型數(shù)據(jù)庫應(yīng)用系統(tǒng)的系統(tǒng)的分析、設(shè)計(jì)和開發(fā)。三、課程設(shè)計(jì)說明書汽車銷售系統(tǒng)系統(tǒng)汽車銷售行業(yè)已經(jīng)能夠作成一個(gè)很大的系統(tǒng).此銷售要涉及到汽車制造廠商,汽車售賣公司和消費(fèi)者.如果只是依靠人工記錄和管理很出現(xiàn)很大的漏洞,很有可能造成企業(yè)和消費(fèi)者的利益損失.這就需要我們?cè)O(shè)計(jì)一個(gè)適合汽車銷售的管理系統(tǒng).本設(shè)計(jì)課題就是為了適應(yīng)新形勢的開展而提出的。1系統(tǒng)需求分析汽車銷售管理系統(tǒng)涉及到車輛采購,存庫信息,公司收益,客戶廠商的信息,還要有一定的管理者來管理這個(gè)系統(tǒng),能夠?qū)ο到y(tǒng)內(nèi)容進(jìn)行更新,修改和刪除.操作員登錄:因?yàn)椴僮鲉T有權(quán)限之分，不同權(quán)限的操作員對(duì)系統(tǒng)能夠進(jìn)行的操作不同.1級(jí)操作員可以對(duì)系統(tǒng)進(jìn)行全部操作,而2級(jí)以上的就有限制了.根本信息管理:此選項(xiàng)中包括對(duì)廠商信息,車型信息和客戶信息的查詢.①廠商信息:包括對(duì)廠商的根本信息的查詢,修改,增加.操作員在需要對(duì)廠商信息進(jìn)行更新的時(shí)候可以對(duì)它進(jìn)行操作.汽車銷售公司的廠商根本上是固定的,所以經(jīng)常使用的是對(duì)廠商信息的查詢,這個(gè)操作屬于公司內(nèi)部人員操作的范圍.②車型信息:銷售汽車需要各種類型的車,來適應(yīng)不同使用人群.車型信息包括對(duì)車的根本信息的描述.作為管理員要定時(shí)的對(duì)車型信息進(jìn)行添加.③客戶信息:公司需要對(duì)購置車輛的用戶進(jìn)行根本信息的登記和定時(shí)的更新,這項(xiàng)工作對(duì)于汽車銷售的售后效勞有重要作用.公司可以對(duì)客戶進(jìn)行產(chǎn)品使用情況跟蹤.此項(xiàng)功能應(yīng)該包括對(duì)客戶信息的添加,修改和不需要的資料的刪除.進(jìn)貨管理:汽車進(jìn)貨需要登記進(jìn)貨的價(jià)格,日期,廠家編號(hào)和車的根本信息.進(jìn)貨操作應(yīng)該是進(jìn)貨管理者應(yīng)該進(jìn)行的管理.①車輛采購:進(jìn)貨需要跟廠家進(jìn)貨,所以需要跟廠家打交道.采購時(shí)不僅應(yīng)該記錄車輛的型號(hào)等根本信息,還要記錄廠家的信息.②車輛入庫:采購來的車輛要存入倉庫.需要記錄入庫的單號(hào),以便以后進(jìn)行檢查.銷售管理:汽車銷售時(shí)的根本信息管理①車輛銷售:要包括對(duì)汽車主要信息的記錄,如成交價(jià),客戶的編號(hào),名稱.車輛銷售出去后,還要對(duì)銷售信息進(jìn)行復(fù)查,防止出現(xiàn)帳目不準(zhǔn)確的情況.②倉庫管理:對(duì)倉庫車輛的檢查,保存.維護(hù)系統(tǒng):是對(duì)系統(tǒng)操作員能夠進(jìn)行的根本操作,包括添加,刪除除去一級(jí)管理員之外的其他管理員的登錄名登錄密碼.需求分析1.2.1數(shù)據(jù)流圖汽車銷售系統(tǒng)涉及到汽車銷售管理員對(duì)根本業(yè)務(wù)的維護(hù)管理操作和用戶對(duì)汽車根本信息的查詢.下面列出主要事務(wù)的數(shù)據(jù)流圖：根底信息管理根底信息管理信息進(jìn)貨管理詢進(jìn)貨管理 查加汽車銷售管理系統(tǒng) 增汽車銷售管理系統(tǒng)銷售管理根本信息查詢 檢查銷售管理主管理員主管理員倉庫管理 修改更新 增加倉庫管理 管理登錄用戶系統(tǒng)維護(hù)系統(tǒng)維護(hù)次等級(jí)的管理員可以對(duì)系統(tǒng)進(jìn)行的操作根底信息管理根底信息管理管理查詢進(jìn)貨者 查看 進(jìn)行查看管理查詢進(jìn)貨者進(jìn)貨管理 進(jìn)貨登記進(jìn)貨管理 登記入貨查看查看登記營銷者銷售管理查看 登記營銷者銷售管理 登記根底信息查看無修改根底信息管理管理倉庫根本信息倉庫管理員 登錄 進(jìn)貨修改倉庫根本信息倉庫管理員系統(tǒng)維護(hù)只能是級(jí)別為1的才可以進(jìn)行修改。數(shù)據(jù)流分析汽車銷售管理系統(tǒng)的數(shù)據(jù)劉如下:系統(tǒng)管理員:對(duì)廠商,車型信息,客戶信息的查詢,添加,刪除等操作,并且可以對(duì)普通操作員的權(quán)限進(jìn)行設(shè)置.該操作員擁有的權(quán)限是最高的.普通管理員:對(duì)該管理員對(duì)應(yīng)的職能進(jìn)行相應(yīng)的維護(hù),更改,刪除等操作.定期對(duì)所管理的事務(wù)進(jìn)行檢查.客戶:想要購置汽車的用戶,可以通過該系統(tǒng)的客戶窗口登錄,進(jìn)行對(duì)汽車根本信息的查詢,且只能進(jìn)行查詢,不具備對(duì)其他功能的操作1.3數(shù)據(jù)字典數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的信息的集合，也就是對(duì)數(shù)據(jù)流圖中包含的所有元素的定義的集合。數(shù)據(jù)流圖和數(shù)據(jù)字典共同構(gòu)成系統(tǒng)的邏輯模型。汽車銷售管理系統(tǒng)的數(shù)據(jù)流圖得到數(shù)據(jù)字典如下:(1)名字：廠商信息描述：對(duì)廠商身份的描述,不同廠商具有不同的信息,用來構(gòu)成汽車銷售的一局部.定義：廠商信息=廠商編號(hào)+廠商名稱+聯(lián)系+通信地址+入庫日期位置：出現(xiàn)在對(duì)廠商信息查詢時(shí)的窗口,還有在查詢車輛和庫存﹑入庫時(shí)會(huì)查詢到廠商的主要信息(2)名字：客戶信息描述：對(duì)購置汽車的用戶的根本情況的記錄,它對(duì)公司統(tǒng)計(jì)車輛的售出情況有作用.同時(shí)記錄客戶的根本聯(lián)系方式,便于跟客戶進(jìn)行聯(lián)系和售后效勞.客戶的編號(hào)能夠唯一的表示一個(gè)客戶,防止重名的人.定義：客戶信息=客戶編號(hào)+客戶名稱+組織機(jī)構(gòu)+聯(lián)系+公司行業(yè)+通信地址+入檔日期位置：查詢客戶信息時(shí)顯示客戶的全部信息,并且在銷售管理的車輛銷售中出現(xiàn)相應(yīng)的客戶信息.(3)名字:車型信息描述:車輛信息的根本情況,公司用來記錄采購來的車輛,定義:車型信息=車型代碼+廠商編號(hào)+車輛類型+車身顏色+產(chǎn)地+進(jìn)貨指導(dǎo)價(jià)+備注+訂單號(hào)+出廠日期+入庫日期+車價(jià)位置:在車型信息查詢窗口﹑進(jìn)貨功能中的車輛采購和車輛入庫中都要出現(xiàn).(4)名字:車輛入庫信息描述:進(jìn)貨來的車輛需要放到倉庫中存放,車輛多了也就必須對(duì)入庫的車輛進(jìn)行記錄.定義:入庫信息=入庫單號(hào)+廠商編號(hào)+廠商名稱+車型代碼+車輛類型+產(chǎn)地+出廠日期+入庫日期.位置:入庫信息就在進(jìn)貨管理的車輛入庫窗口中出現(xiàn).(5)名字:采購信息描述:對(duì)需要進(jìn)貨的車輛進(jìn)行描述,記錄車輛的根本信息,并且記錄重要的采購日期,這項(xiàng)工作是采購員需要進(jìn)行的,對(duì)于做好他的工作非常重要.定義:采購信息=采購訂單號(hào)+廠商編號(hào)+廠商名稱+聯(lián)系+通信地址+車型代碼+車輛類型+產(chǎn)地+采購單價(jià)+業(yè)務(wù)員+制單員+采購日期位置:出現(xiàn)在車輛采購窗口內(nèi),同時(shí)庫存車輛倉庫明細(xì)中也會(huì)用到相應(yīng)的信息.(6)名字:銷售信息描述:對(duì)車輛銷售情況的統(tǒng)計(jì)記錄,包括對(duì)賣出車輛數(shù)目﹑庫存車輛數(shù)目,還有對(duì)賣出車輛的金額的統(tǒng)計(jì),作出公司的營銷狀況報(bào)表.定義:銷售信息=銷售單號(hào)+客戶編號(hào)+客戶名稱+車型代碼+車輛類型+產(chǎn)地+車價(jià)+成交價(jià)+制單員+銷售日期位置:出現(xiàn)在銷售管理的窗口里,包括車輛銷售和收益統(tǒng)計(jì)(7)名字:操作員管理信息描述:記錄關(guān)于操作員管理的根本信息,要求有代號(hào)和密碼,起到保護(hù)作用.定義:操作員信息=操作員編號(hào)+操作員名稱+操作員密碼+操作員權(quán)限位置:在系統(tǒng)的登陸界面中需要進(jìn)行用戶的選擇,只有操作員用戶可以對(duì)系統(tǒng)中的數(shù)據(jù)進(jìn)行修改.系統(tǒng)維護(hù)界面中需要用到操作員的根本信息,系統(tǒng)管理員可以對(duì)普通的操作員進(jìn)行對(duì)菜單項(xiàng)的授權(quán)和收權(quán).(8)客戶登陸描述:客戶登陸的界面應(yīng)該和操作員是不同的,他們對(duì)系統(tǒng)具有不同的操作。2系統(tǒng)總體設(shè)計(jì)系統(tǒng)管理流程圖：汽車銷售管理系統(tǒng)汽車銷售管理系統(tǒng)根底信息管理系統(tǒng)維護(hù)倉庫管理根底信息管理系統(tǒng)維護(hù)倉庫管理銷售管理進(jìn)貨管理倉庫明細(xì)收益統(tǒng)計(jì)操作員管理進(jìn)銷存統(tǒng)計(jì)庫存車輛車輛銷售車輛入庫車輛采購客戶信息權(quán)限設(shè)置車型管理廠商管理倉庫明細(xì)收益統(tǒng)計(jì)操作員管理進(jìn)銷存統(tǒng)計(jì)庫存車輛車輛銷售車輛入庫車輛采購客戶信息權(quán)限設(shè)置車型管理廠商管理圖1-1E-R圖E-R圖表示實(shí)體、屬性、關(guān)系之間的表示實(shí)體：用矩形表示，矩形框內(nèi)寫明實(shí)體名*屬性：用橢圓型表示，并用無向邊與其相應(yīng)實(shí)體連接起來*聯(lián)系：用菱形表示，菱形框內(nèi)寫明聯(lián)系名，并用無向邊與其有關(guān)實(shí)體連接起來，同時(shí)聯(lián)系的類型。庫存車型信息系統(tǒng)E-R圖如下:庫存車型信息制單員制單員入庫日期存放采購入庫日期存放采購銷售銷售采購單價(jià)采購單價(jià)入庫單號(hào)入庫單號(hào)采購日期廠商信息客戶信息采購日期廠商信息客戶信息包含包含圖1-2廠商名稱廠商信息E-R圖：廠商名稱廠商編號(hào)聯(lián)系廠商編號(hào)聯(lián)系廠商信息廠商信息地址入檔日期地址入檔日期圖1-3客戶信息E-R圖客戶編號(hào)客戶名稱客戶編號(hào)客戶名稱入檔日期入檔日期客戶信息組織機(jī)構(gòu)客戶信息組織機(jī)構(gòu)聯(lián)系通信地址聯(lián)系通信地址公司性質(zhì)公司性質(zhì)圖1-4入庫號(hào)庫存表E-R圖：入庫號(hào)廠商編號(hào)入庫日期廠商編號(hào)入庫日期庫存庫存廠商名稱車型代碼廠商名稱車型代碼圖1-5操作員編號(hào) 操作員E-R圖：操作員編號(hào)操作員姓名操作員姓名操作員級(jí)別操作員操作員級(jí)別操作員操作員密碼操作員密碼圖1-6銷售關(guān)系E-R圖客戶編號(hào)：客戶編號(hào)銷售客戶名稱車型代碼車輛類型產(chǎn)地車價(jià)預(yù)訂單號(hào)銷售客戶名稱車型代碼車輛類型產(chǎn)地車價(jià)預(yù)訂單號(hào)圖1-7車型信息E-R圖車型代碼：車型代碼車輛類型車輛類型車身顏色車身顏色車型信息車型信息產(chǎn)地廠商編號(hào)產(chǎn)地廠商編號(hào)車價(jià)車價(jià)圖1圖1-8關(guān)系模式將E-R模型轉(zhuǎn)換為關(guān)系模型本系統(tǒng)中的實(shí)體有:庫存,車型,廠商,客戶,操作員本系統(tǒng)中的關(guān)系有:入庫,銷售,生產(chǎn),采購各實(shí)體的關(guān)系模型為:廠商信息(廠商編號(hào),廠商名稱,聯(lián)系,通信地址,入庫日期)客戶信息(客戶編號(hào),客戶名稱,組織機(jī)構(gòu),聯(lián)系,公司行業(yè),通信地址,入檔日期)車型信息(車型代碼,廠商編號(hào),車輛類型,車身顏色,產(chǎn)地,進(jìn)貨指導(dǎo)價(jià),備注,訂單號(hào),出廠日期,制單員,入庫日期,車價(jià))操作員管理(操作員編號(hào),操作員姓名,操作員密碼,操作員權(quán)限)各關(guān)系轉(zhuǎn)化為關(guān)系模式為:銷售(銷售單號(hào),客戶編號(hào),車型代碼,客戶名稱,車輛類型,產(chǎn)地,成交價(jià),制單員,銷售日期)入庫(入庫單號(hào),廠商編號(hào),車型代碼,廠商名稱,車輛類型,產(chǎn)地,出廠日期,進(jìn)價(jià),制單員,入庫日期)采購(采購訂單號(hào),廠商編號(hào),車型代碼,廠商名稱,聯(lián)系,通信地址,車輛類型,產(chǎn)地,采購單價(jià),制單員,采購日期)為了使關(guān)系模型到達(dá)3NF,要把個(gè)關(guān)系模型中主屬性對(duì)碼的局部和函數(shù)依賴消除,對(duì)上述模式要改寫成:銷售(銷售單號(hào),客戶編碼,車型代碼)入庫(入庫單號(hào),廠商編號(hào),車型代碼,制單員,入庫日期)采購(采購訂單號(hào),廠商編號(hào),車型代碼,采購單價(jià),制單員,采購日期)數(shù)據(jù)表廠商信息表：表中有廠商編號(hào)〔char(10)〕,廠商名稱〔char(20)〕,聯(lián)系〔char(20)〕,通信地址〔char20〕〕,入庫日期〔smalldatetime(4)〕,記錄了汽車廠商的根本信息,其中主健為〔廠商編號(hào)〕。客戶信息：表中有客戶編號(hào)〔char10〕，客戶名稱〔char10〕，組織機(jī)構(gòu)〔char10〕，聯(lián)系〔char(10)，公司行業(yè)〔char(20)〕，通信地址〔char(20)〕，入檔日期〔smalldatetime(4)〕,其中主健為客戶編號(hào)。操作員管理：表中記錄的是對(duì)系統(tǒng)操作的人員，其中主鍵是操作員編號(hào)車型信息：表中有車型代碼〔char(10)〕，廠商編號(hào)〔char(10)〕，車輛類型〔char(10)〕，車身類顏色〔char(10)〕，產(chǎn)地(char(20))，進(jìn)貨指導(dǎo)價(jià)(char(20))，備注(char(10))，訂單號(hào)(char(10))，出廠日期〔smalldatetime(4)〕，制單員〔char(10)〕，入庫日期〔smalldatetime(4)〕，車價(jià)〔char(20)〕，其中主鍵為車型代碼，外鍵為廠商編號(hào)。銷售表：表中包括銷售單號(hào)(char(10)),客戶編號(hào)(char(10)),客戶名稱(char(10)),車型代碼(char(10)),車輛類型(char(10)),產(chǎn)地(char(20)),車價(jià)(char(20)),制單員(char(10)),銷售日期(smalldatetime(4)),主鍵為銷售單號(hào),外鍵為客戶編號(hào),車型代碼采購表：表中包括:采購訂單號(hào)(varchar(50)),廠商編號(hào)(char(10)),廠商名稱(char(10)),聯(lián)系(char(10)),通信地址(char(10)),車型代碼(char(10)),車輛類型(char(10)),產(chǎn)地(char(10)),采購單價(jià)(char),制單員(char(10)),采購日期(smalldatetime(4)),主鍵為采購訂單號(hào),外鍵為廠商編號(hào),車型代碼.入庫表：表中包括:入庫單號(hào)(char(10)),廠商編號(hào)(char(10)),廠商名稱(char(10)),車型代碼(char(10)),車輛類型(char(10)),產(chǎn)地(char(20)),出廠日期(smalldatetime(4)),進(jìn)價(jià)(char(20)),制單員(char(10)),入庫日期(smalldatetime(4)),主鍵為入庫單號(hào),外鍵為廠商編號(hào),車型代碼。庫存表：表中包括:入庫單號(hào)(char(10)),廠商編號(hào)(char(10)),廠商名稱(char(10)),車型代碼(char(10)),車輛類型(char(10)),產(chǎn)地(char(20)),出廠日期(smalldatetime(4)),進(jìn)價(jià)(char(20)),制單員(char(10)),入庫日期(smalldatetime(4)),車身顏色(char(10)),訂單號(hào)(char(10)),主鍵為入庫單號(hào),外鍵為廠商編號(hào),車型代碼。3．系統(tǒng)實(shí)施在SQL2000中新建數(shù)據(jù)庫qcxsglxt,并建立上面邏輯結(jié)構(gòu)設(shè)計(jì)完成的表,要表達(dá)各種表的關(guān)系約束等.建立數(shù)據(jù)源的連接:在控制面板->性能維護(hù)->管理工具->數(shù)據(jù)源(ODBC)->系統(tǒng)DSN->添加->SQLServer,起個(gè)名字,然后選擇效勞器,你要連的數(shù)據(jù)庫,然后點(diǎn)測試連接,成功后就可以進(jìn)行PB的設(shè)計(jì)了.新建一個(gè)工作區(qū),新建一個(gè)Application,然后進(jìn)行與數(shù)據(jù)庫的連接.如:圖1-10右擊屬性選擇數(shù)據(jù)庫,然后把Preview中的代碼復(fù)制到Application的open事件中去,代碼如下://Profileqcxsglxt//ProfileqcxsglxtSQLCA.DBMS="ODBC"SQLCA.AutoCommit=FalseSQLCA.DBParm="ConnectString='DSN=qcxsglxt;UID=;PWD='"④建立菜單:m_menu,方法:new->PbObject->menu如圖1-11圖1-11⑤建立數(shù)據(jù)窗口圖1-12圖1-13操作員數(shù)據(jù)窗口圖1-14廠商數(shù)據(jù)窗口圖1-15車型信息數(shù)據(jù)窗口⑥建立窗口:用來把數(shù)據(jù)窗口掛入,還有通過參加控件用程序來實(shí)現(xiàn)系統(tǒng)的各種查詢修改功能.方法:new->PbObject->window翻開窗口,進(jìn)行設(shè)計(jì)實(shí)現(xiàn)功能,如圖1-16圖1-16車型信息窗口圖1-17客戶,操作員選擇登陸窗口圖1-18車輛入庫查詢窗口圖1-19車輛銷售管理窗口圖1-20廠商信息添加圖1-21操作員增刪用戶登陸窗口圖1-22客戶信息查詢窗口圖1-23菜單掛的窗口圖1-24操作員增加刪除修改界面圖1-25操作員,客戶選擇登陸圖1-26操作員登陸窗口圖1-27廠商信息查詢運(yùn)行窗口圖1-28車輛銷售情況一覽表圖1-29一級(jí)操作員修改其他用戶圖1-30增加操作員運(yùn)行窗口系統(tǒng)個(gè)局部代碼:①w_choose窗口各局部代碼ddlb_1的Item中寫入:操作員,客戶確定按鈕(cb_1)代碼:stringxuanzexuanze=trim(ddlb_1.text)ifxuanze="操作員"then open(w_login) close(parent)else open(w_menu) m_menu.m_根底信息管理.m_車型信息.enabled=true m_menu.m_退出系統(tǒng).enabled=false m_menu.m_系統(tǒng)管理.m_操作員管理.enabled=false m_menu.m_系統(tǒng)管理.m_權(quán)限設(shè)置.enabled=false m_menu.m_進(jìn)貨管理.m_車輛采購.enabled=false m_menu.m_進(jìn)貨管理.m_車輛入庫.enabled=false m_menu.m_銷售管理.enabled=false m_menu.m_銷售管理.m_車輛銷售.enabled=false m_menu.m_倉庫管理.m_庫存車輛.enabled=false m_menu.m_根底信息管理.m_廠商信息.enabled=false m_menu.m_根底信息管理.m_客戶信息.enabled=false close(parent)endif退出按鈕(cb_2)代碼:close(parent)②操作員選擇登陸窗口各局部代碼open窗口代碼:stringczy1,czy2,czybh2,czyjb2,pwd2czy2="xiaotong"czybh2="0001"czyjb2="1"pwd2="xiaotong"select操作員姓名into:czy1from操作員管理;ifczy1=""theninsertinto操作員管理(操作員編號(hào),操作員級(jí)別,操作員姓名,操作員密碼)values(:czybh2,:czyjb2,:czy2,:pwd2);endifstringczy100declarecursor1cursorforselectdistinct操作員姓名from操作員管理;opencursor1;fetchcursor1into:czy100;dowhilesqlca.sqlcode=0ddlb_1.additem(czy100)fetchcursor1into:czy100;loopclosecursor1;p_1.picturename="E:\pb設(shè)計(jì)\汽車銷售\小人.bmp"ddlb_1.setfocus()ddlb_1下拉框的代碼:sle_1.setfocus()確定按鈕://登錄窗口w_login的“確定〞按鈕的clicked()事件，判斷密碼是否正確，正確那么進(jìn)入主窗體stringczy99,pwd99,czy100,pwd100,pwd200czy99=trim(ddlb_1.text)pwd99=trim(sle_1.text)ifczy99=""thenmessagebox("","請(qǐng)選擇操作員!")elseifpwd99=""thenmessagebox("","請(qǐng)輸入密碼!")sle_1.setfocus()elseselect操作員密碼into:pwd100from操作員管理where操作員姓名=:czy99;pwd200=trim(pwd100)ifpwd200=pwd99thenczyvar=trim(czy99)open(w_menu)close(parent)elsemessagebox("","密碼有誤!")sle_1.text=""sle_1.setfocus()endifendifendif③open窗口代碼://窗口w_csxx的open()事件，連接數(shù)據(jù)庫，檢索數(shù)據(jù)//連接數(shù)據(jù)庫dw_1.settransobject(sqlca)dw_1.retrieve()//檢索數(shù)據(jù)④w_csxxtj窗口添加(cb_1)按鈕事件代碼:sle_1.enabled=truesle_2.enabled=truesle_3.enabled=trueem_1.enabled=trueem_2.enabled=truesle_1.text=""sle_2.text=""sle_3.text=""em_1.text=""em_2.text=""cb_1.enabled=falsecb_2.enabled=trueem_2.text=string(today())保存(cb_2)按鈕:sle_1.enabled=falsesle_2.enabled=falsesle_3.enabled=falseem_1.enabled=falseem_2.enabled=falsecb_2.enabled=falsecb_1.enabled=truestringcsbh,csmc,lxdh,rkrq,txdz,csbh1realyfkje,yufkje,sjjeyfkje=0yufkje=0sjje=0csbh=trim(sle_1.text)csmc=trim(sle_2.text)txdz=trim(sle_3.text)lxdh=trim(em_1.text)rkrq=trim(em_2.text)select廠商編號(hào)into:csbhfrom廠商信息表where廠商編號(hào)=:csbhor廠商名稱=:csmc;ifcsbh1=""thenifcsbh=""orcsmc=""ortxdz=""orlxdh=""thenmessagebox("","輸入信息不全!") elseinsertinto廠商信息表(廠商編號(hào),廠商名稱,聯(lián)系,通信地址,入檔日期)values(:csbh,:csmc,:lxdh,:txdz,:rkrq);messagebox("","保存成功!")endifelsemessagebox("","庫中已有該廠商信息!") endif⑤w_clxs窗口open事件://窗口w_clxs的open()事件，連接數(shù)據(jù)庫檢索數(shù)據(jù)//連接數(shù)據(jù)庫dw_1.settransobject(sqlca)//檢索數(shù)據(jù)dw_1.retrieve()em_1的顯示方式為:yyyy-mm-dddw_1導(dǎo)入的是數(shù)據(jù)窗口:d_clxs"開始"按鈕的代碼:stringxsrq,sqlsql="select銷售單號(hào),客戶編號(hào),客戶名稱,車型代碼,車輛類型,產(chǎn)地,車價(jià),制單員,銷售日期from銷售表where銷售日期='"+xsrq+"'"dw_1.setsqlselect(sql)//在當(dāng)前行前面以手形顯示dw_1.setrowfocusindicator(hand!)dw_1.retrieve()"退出"按鈕代碼:close(parent如圖1-⑥w_zengjiashanchu的open事件代碼:open(w_czygl)cb_1的代碼://窗口w_zengjiashanchu的標(biāo)有下一條標(biāo)記“>>〞按鈕的clicked()事件，用來顯示下一條記錄stringczybh1select操作員編號(hào)into:czybh1from操作員管理;ifczybh1=""thenelse//向下移動(dòng)一條記錄dw_1.scrollnextrow()introwrow=dw_1.getrow()stringczybh,czyjb,czy,pwdczybh=dw_1.getitemstring(row,1)czyjb=dw_1.getitemstring(row,4)czy=dw_1.getitemstring(row,2)pwd=dw_1.getitemstring(row,3)em_1.text=czybhsle_1.text=czyjbsle_2.text=czysle_3.text=pwdendifcb_2代碼://窗口w_zengjiashanchu的標(biāo)有上一條標(biāo)記“<<〞按鈕的clicked()事件，用來顯示上一條記錄stringczybh1select操作員編號(hào)into:czybh1from操作員管理;ifczybh1=""then else//向上移動(dòng)一條記錄dw_1.scrollpriorrow()introwrow=dw_1.getrow()stringczybh,czyjb,czy,pwdczybh=dw_1.getitemstring(row,1)czyjb=dw_1.getitemstring(row,4)czy=dw_1.getitemstring(row,2)pwd=dw_1.getitemstring(row,3)em_1.text=czybhsle_1.text=czyjbsle_2.text=czysle_3.text=pwdendifcb_3"增加"按鈕代碼://窗口zsyh_win的“添加〞按鈕的clicked()事件，添加新用戶,并自動(dòng)生成操作員編號(hào)intczybh,a//得到記錄總數(shù)selectcount(*)into:czybhfrom操作員管理;//記錄總數(shù)加1給aa=czybh+1intczybh4//利用游標(biāo)檢索編號(hào)declarecursor1cursorforselect操作員編號(hào)from操作員管理;//翻開游標(biāo)opencursor1;//執(zhí)行游標(biāo)賦值給變量czybh4fetchcursor1into:czybh4;//如果檢索成功進(jìn)行循環(huán)dowhilesqlca.sqlcode=0//假設(shè)czybh4等于a，那么把a(bǔ)加1賦值給aifczybh4=athena=a+1endiffetchcursor1into:czybh4;loop//關(guān)閉游標(biāo)closecursor1;//把a(bǔ)轉(zhuǎn)換成字符型賦值給掩碼框em_1.text=string(a)sle_1.text=string(2)em_1.enabled=falsesle_1.enabled=falsecb_3.enabled=falsecb_4.enabled=truesle_2.text=""sle_3.text=""cb_4"保存"按鈕的代碼://窗口zsyh_win的“保存〞按鈕的clicked()事件，保存新添加的用戶信息stringczy,pwd,czybh,czyjb1czybh=trim(em_1.text)czy=trim(sle_2.text)czyjb1=trim(sle_1.text)pwd=trim(sle_3.text)ifczy=""orpwd=""then//判斷操作員和密碼是否為空，假設(shè)為空提示保存失敗messagebox("","保存失敗!")else//假設(shè)操作員和密碼不為空提示保存成功insertinto操作員管理(操作員編號(hào),操作員級(jí)別,操作員姓名,操作員密碼)values(:czybh,:czyjb1,:czy,:pwd);messagebox("","保存成功!")cb_6.enabled=falsecb_5.enabled=truesle_2.text=""sle_3.text=""endifdw_1.settransobject(sqlca)dw_1.retrieve()cb_5"取消"按鈕代碼://窗口zsyh_win的“取消〞按鈕的clicked()事件，取消尚未保存的操作em_1.text=""sle_1.text=""sle_2.text=""sle_3.text=""cb_5.enabled=truecb_3.enabled=truecb_6.enabled=falsecb_6"刪除"代碼://窗口zsyh_win的“刪除〞按鈕的clicked()事件，刪除當(dāng)前記