【導(dǎo)讀】立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)。據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程。序功能完備,易使用等特點(diǎn)。完整、及時(shí)提供在管理及決策中需要的數(shù)據(jù)。利用指定的數(shù)據(jù)關(guān)系式分析數(shù)據(jù)，客觀預(yù)測(cè)未來。使決策者選擇最佳的實(shí)施方案，以提高企業(yè)的經(jīng)濟(jì)效益。爭(zhēng)中占有一席之地。統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍兪褂脗鹘y(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),于查找、更新和維護(hù)都帶來了不少的困難。高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地。界接軌的重要條件。

　　

【正文】 y if =39。39。 then showmessage(39。Data is not enough!39。) else begin with do begin insert。 FieldByName(39。 供應(yīng)商編號(hào)39。).AsString:=。 FieldByName(39。 聯(lián)系人姓名39。).AsString:=。 FieldByName(39。電話號(hào)碼 39。).AsString:=。 FieldByName(39。郵政編碼 39。).AsString:=。 FieldByName(39。傳真號(hào)碼 39。).AsString:=。 FieldByName(39。公司名稱 39。).AsString:=。 FieldByName(39。公司地址 39。).AsString:=。 FieldByName(39。公司主頁 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(ext=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:=。 FieldByName(公司名稱 39。).AsString:=。 FieldByName(公司地址 39。).AsString:=。 FieldByName(公司主頁 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(ext=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。 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。)。 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(DateTimePicker) (39。B39。).Value:=datetostr(DateTimePicker)。 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。)。 (39。A39。).Value:=datetostr(DateTimePicker)。 (39。B39。).Value:=datetostr(DateTimePicker)。 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。)。 ([])。 (39。like 39。+39。39。39。%39。++39。%39。39。39。)。 (39。and39。)。 (39。 銷售日期 = :A and 進(jìn)貨日期 = :B39。)。 (39。A39。).Value:=datetostr(DateTimePicker) (39。B39。).Value:=datetostr(DateTimePicker)。 open。 :=fieldbyname(39。總價(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(DateTimePicker)。 (39。B39。).Value:=datetostr(DateTimePicker)。 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。s