【文章內(nèi)容簡介】 procedure cmb_khjcKeyPress(Sender: TObject。 var Key: Char)。 procedure cmb_fwrenKeyPress(Sender: TObject。 var Key: Char)。 procedure edt_fwdhKeyPress(Sender: TObject。 var Key: Char)。 procedure dtp_zhongtimeKeyPress(Sender: TObject。 var Key: Char)。 我下 vip 免費資源網(wǎng) procedure dtp_qitimeKeyPress(Sender: TObject。 var Key: Char)。 procedure edt_fwxmKeyPress(Sender: TObject。 var Key: Char)。 procedure edt_cpbhKeyPress(Sender: TObject。 var Key: Char)。 procedure cmb_cplbKeyPress(Sender: TObject。 var Key: Char)。 procedure edt_cpmcKeyPress(Sender: TObject。 var Key: Char)。 procedure edt_fwfKeyPress(Sender: TObject。 var Key: Char)。 procedure edt_bgbhKeyPress(Sender: TObject。 var Key: Char)。 procedure Memo_bgnrKeyPress(Sender: TObject。 var Key: Char)。 private { Private declarations } public adding:boolean。 procedure showdata。 我下 vip 免費資源網(wǎng) procedure frmcreate。 { Public declarations } end。 var frm_shfwgl: Tfrm_shfwgl。 implementation uses unit_shfwglquerry, unit_main, unit_shfwreport。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin frmcreate。 :=false。 我下 vip 免費資源網(wǎng) :=39。select * from shfwgl39。 :=true。 if 1 then begin showmessage(39。無記錄，先添加 39。)。 。 :=false。 abort。 end。 :=false。 :=39。select * from shfwgl39。 :=true。 showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 :=39。39。 :=39。39。 :=39。39。 我下 vip 免費資源網(wǎng) :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=now。 :=now。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 adding:=true。 end。 procedure 。 我下 vip 免費資源網(wǎng) begin with adodataset1 do begin :=fieldvalues[39?？蛻艉喎Q 39。]。 :=fieldvalues[39。服務(wù)人員 39。]。 :=fieldvalues[39。服務(wù)單號 39。]。 :=fieldvalues[39。服務(wù)項目 39。]。 :=fieldvalues[39。產(chǎn)品編號 39。]。 :=fieldvalues[39。產(chǎn)品類別 39。]。 :=fieldvalues[39。產(chǎn)品名稱 39。]。 :=floattostr(fieldvalues[39。服務(wù)費 39。])。 :=fieldvalues[39。報告編號 39。]。 :=fieldvalues[39。報告內(nèi)容 39。]。 :=strtodatetime(fieldvalues[39。開始時間 39。])。 :=strtodatetime(fieldvalues[39。終止時間 39。])。 end。 :=inttostr(on)+39。/39。 +inttostr()。 end。 我下 vip 免費資源網(wǎng) procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 :=true。 :=true。 :=false。 :=false。 if 1 then exit。 。 showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 if 1 then exit。 if not then begin 。 :=true。 :=true。 end 我下 vip 免費資源網(wǎng) else begin 。 :=false。 :=false。 :=true。 :=true。 end。 if then begin 。 :=false。 :=false。 :=true。 :=true。 end。 showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 我下 vip 免費資源網(wǎng) if 1 then exit。 if not then begin 。 :=true。 :=true。 end else begin 。 :=false。 :=false。 :=true。 :=true。 end。 if then begin 。 :=false。 :=false。 :=true。 :=true。 我下 vip 免費資源網(wǎng) end。 showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 :=false。 :=false。 :=true。 :=true。 if 1 then exit。 。 showdata。 end。 procedure (Sender: TObject)。 begin if adding=true then begin adding:=false。 playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 我下 vip 免費資源網(wǎng) with adodataset1 do begin append。 if (=39。39。) then begin fieldvalues[39。客戶簡稱 39。]:=39。無 39。 end else begin fieldvalues[39?？蛻艉喎Q 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。服務(wù)人員 39。]:=39。無 39。 end else begin fieldvalues[39。服務(wù)人員 39。]:=trim()。 end。 if (=39。39。) then 我下 vip 免費資源網(wǎng) begin fieldvalues[39。服務(wù)單號 39。]:=39。無 39。 end else begin fieldvalues[39。服務(wù)單號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。服務(wù)項目 39。]:=39。無 39。 end else begin fieldvalues[39。服務(wù)項目 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。產(chǎn)品編號 39。]:=39。無 39。 end else 我下 vip 免費資源網(wǎng) begin fieldvalues[39。產(chǎn)品編號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。產(chǎn)品名稱 39。]:=39。無 39。 end else begin fieldvalues[39。產(chǎn)品名稱 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。產(chǎn)品類別 39。]:=39。無 39。 end else begin fieldvalues[39。產(chǎn)品類別 39。]:=trim()。 end。 我下 vip 免費資源網(wǎng) if (=39。39。) then begin fieldvalues[39。服務(wù)費 39。]:=39。039。 end else begin fieldvalues[39。服務(wù)費 39。]:=strtofloat(trim())。 end。 if (=39。39。) then begin fieldvalues[39。報告編號 39。]:=39。無 39。 end else begin fieldvalues[39。報告編號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。報告內(nèi)容 39。]:=39。無 39。 end 我下 vip 免費資源網(wǎng) else begin fieldvalues[39。報告內(nèi)容 39。]:=trim()。 end。 fieldvalues[39。 開 始 時 間39。]:=formatdatetime(39。yyyymmdd39。,)。 fieldvalues[39。 終 止 時 間39。]:=formatdatetime(39。yyyymmdd39。,)。 post。 end。 。 :=true。 :=false。 :=false。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 end。 我下 vip 免費資源網(wǎng) procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 if (39。確定要修改當(dāng)前記錄嗎 !39。,39。修改記錄39。,mb_okcancel+mb_iconinformation)=idok then begin with adodataset1 do begin edit。 if (=39。39。) then begin fieldvalues[39?？蛻艉喎Q 39。]:=39。無 39。 end else begin fieldvalues[39?？蛻艉喎Q 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。服務(wù)人員 39。]:=39。無 39。 end 我下 vip 免費資源網(wǎng) else begin fieldvalues[39。服務(wù)人員 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。服務(wù)單號 39。]:=39。無 39。 end else begin fieldvalues[39。服務(wù)單號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。服務(wù)項目 39。]:=39。無 39。 end else begin fieldvalues[39。服務(wù)項目 39。]:=trim()。 end。 我下 vip 免費資源網(wǎng) if (=39。39。) then begin fieldvalues[39。產(chǎn)品編號 39。]:=39。無 39。 end else