【導(dǎo)讀】畢業(yè)設(shè)計(jì)的同學(xué)請(qǐng)與我們聯(lián)系!護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性。和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,用統(tǒng)一標(biāo)準(zhǔn)處理和提供信息，排除使用前后矛盾的不完整的數(shù)據(jù)。完整、及時(shí)提供在管理及決策中需要的數(shù)據(jù)。利用指定的數(shù)據(jù)關(guān)系式分析數(shù)據(jù)，客觀預(yù)測(cè)未來。向各級(jí)管理機(jī)構(gòu)提供不同詳細(xì)程度的報(bào)告，縮短分析和解釋時(shí)間。決策者選擇最佳的實(shí)施方案，以提高企業(yè)的經(jīng)濟(jì)效益。該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用。新和維護(hù)都帶來了不少的困難。存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高貿(mào)

　　

【正文】 FieldByName(39。公司地址 39。).AsString:=。 FieldByName(39。公司主頁(yè) 39。).AsString:=。 FieldByName(39。所在城市 39。).AsString:=。 FieldByName(39。所在地區(qū) 39。).AsString:=。 FieldByName備注信 息 39。).AsString:=。 post。 refresh。 end。 end。 except begin showmessage(39。關(guān)鍵字已存在 ,添加失敗 !39。)。 。 end。 end。 （二） 顧客信息管理 procedure (Sender: TObject)。 begin try if (=39。39。)or(=39。39。)or(=39。39。)or(=39。39。)or(=39。39。)or(=39。39。) then showmessage(39。Data is not enough!39。) else begin with do begin Insert。 FieldByName(顧客編號(hào) 39。).AsString:=。 FieldByNam（聯(lián)系人名 39。).AsString:=。 FieldByName(電話號(hào)碼 39。).AsString:=。 FieldByName(郵政編碼 39。).AsString:=。 FieldByName(傳真號(hào)碼 39。).AsString:=。 畢業(yè)論文 第 64 頁(yè) 共 74 頁(yè) FieldByName(公司名稱 39。).AsString:=。 FieldByName(公司地址 39。).AsString:=。 FieldByName(公司主頁(yè) 39。).AsString:=。 FieldByName(所在城市 39。).AsString:=。 FieldByName（ 所在地區(qū) 39。).AsString:=。 FieldByName(39。備注信息 39。).AsString:=。 post。 refresh。 end。 end。 except begin showmessage(39。關(guān)鍵字已存在 ,添加失敗 !39。)。 end。 （三） 商品信息管理 procedure (Sender: TObject)。 begin try if (=39。39。)or(=39。39。)or(=39。39。)or(=39。39。) then showmessage(39。No data put in!39。) else begin with do begin Insert。 FieldByName(39。商品編號(hào) 39。).AsString:=。 FieldByName(39。商品名稱 39。).AsString:=。 FieldByName(39。商品規(guī)格 39。).AsString:=。 FieldByName(39。計(jì)量單位 39。).AsString:=。 FieldByName(39。備注信息 39。).AsString:=。 post。 refresh。 end。 畢業(yè)論文 第 65 頁(yè) 共 74 頁(yè) end。 except begin showmessage(39。關(guān)鍵字已存在 ,添加失敗 !39。)。 。 end。 （四） 進(jìn)貨信息管理 procedure (Sender: TObject)。 begin try with do begin close。 。 (39。insert into 進(jìn)貨信息 (進(jìn)貨信息編號(hào) ,供應(yīng)商編號(hào) ,公司名稱 ,商品編號(hào) ,商品名稱 ,商品規(guī)格 ,計(jì)量單位 ,商品數(shù)量 ,商品單價(jià) ,商品總價(jià) ,進(jìn)貨日期 ,備注信息 )39。)。 (39。values(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12)39。)。 (39。a139。).Value:=。 (39。a239。).Value:=。 (39。a339。).Value:=。 (39。a439。).Value:=。 (39。a539。).Value:=。 (39。a639。).Value:=。 (39。a739。).Value:=。 (39。a839。).Value:=strtoint() (39。a939。).Value:=strtofloat()。 (39。a1039。).Value:=strtofloat()。 (39。a1139。).Value:=strtodate()。 (39。a1239。).Value:=。 execsql。 close。 。 (39。select * from 進(jìn)貨信息 39。)。 畢業(yè)論文 第 66 頁(yè) 共 74 頁(yè) open。 end。 except showmessage(39。關(guān)鍵字重復(fù) ,添加失敗 !39。)。 end。 （五） 銷售信息管理 procedure (Sender: TObject)。 begin if =true then with do begin if =true then begin close。 。 (39。select sum(商品數(shù)量 *商品單價(jià) ) as 總價(jià)格 from 銷售信息 where39。)。 ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 (39。and39。)。 (39。 銷售日期 = :A and 進(jìn)貨日期 = :B39。)。 (39。A39。).Value:=datetostr(ate) (39。B39。).Value:=datetostr(ate)。 open。 :=fieldbyname(39?？們r(jià)格 39。).AsString。 close。 。 (39。select * from 銷售信息 where39。)。 ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 (39。and39。)。 (39。 銷售日期 = :A and 進(jìn)貨日期 = :B39。)。 畢業(yè)論文 第 67 頁(yè) 共 74 頁(yè) (39。A39。).Value:=datetostr(ate)。 (39。B39。).Value:=datetostr(ate)。 open。 :=inttostr()。 end else begin close。 。 (39。select sum(商品數(shù)量 *商品單價(jià) ) as 總價(jià)格 from 銷售信息 where39。)。 ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 open。 :=fieldbyname(39?？們r(jià)格 39。).AsString。 close。 。 (39。select * from 銷售信息 where39。)。 ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 open。 :=inttostr()。 end。 end else with do begin if =true then begin close。 。 (39。select sum(商品數(shù)量 *商品單價(jià) ) as 總價(jià)格 from 銷售信息 where39。)。 畢業(yè)論文 第 68 頁(yè) 共 74 頁(yè) ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 (39。and39。)。 (39。 銷售日期 = :A and 進(jìn)貨日期 = :B39。)。 (39。A39。).Value:=datetostr(ate) (39。B39。).Value:=datetostr(ate)。 open。 :=fieldbyname(39?？們r(jià)格 39。).AsString。 close。 。 (39。select * from 銷售信息 where39。)。 ([])。 (39。=39。+39。39。39。39。++39。39。39。39。)。 (39。and39。)。 (39。 銷售日期 = :A and 進(jìn)貨日期 = :B39。)。 (39。A39。).Value:=datetostr(ate)。 (39。B39。).Value:=datetostr(ate)。 open。 :=inttostr()。 end else begin close。 。 (39。select sum(商品數(shù)量 *商品單價(jià) ) as 總價(jià)格 from 銷售信息 where39。)。 ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 open。 :=fieldbyname(39?？們r(jià)格 39。).AsString。 畢業(yè)論文 第 69 頁(yè) 共 74 頁(yè) close。 。 (39。select * from 銷售信息 where39。)。 ([])。 (39。= 39。+39。39。39。39。++39。39。39。39。)。 open。 :=inttostr()。 end。 九、 參考資料 [1] 劉瑞新、汪遠(yuǎn)征、李鳳華 編著 《 DELPHI程序設(shè)計(jì)教程》 機(jī)械工業(yè)出版社 2020年 1月第一版 [2] 侯太平、童愛紅 編著，張琦 主審 《 DELPHI數(shù)據(jù)庫(kù)編程》 清華大學(xué)出版社 北京交通大學(xué)出版社 2020年 10月第二次 [3] 文斌 劉長(zhǎng)青 田原 編著 《軟件工程