【正文】 ject。 。 。rq39。 .Asfloat 。 [5,i]: floattostr 39。k139。 .Asfloat 。 [3,i]: floattostr 39。j139。 .Asfloat 。 [1,i]: floattostr 39。xm39。bh39。日期 39。水電暖 39。房租 39。夜班 39。加班 39。崗位資 39。編號姓名 39。 : 7。 For I: 0 To Do [I].Clear。 。數(shù)據(jù)庫連接 error,程序退出 !39。 Try 。 order by bh39。%39。bm39。 。 39。Select bh,xm,z1,j1,j3,k1,k2,rq From ry 39。 。 var i:integer。 end。 showmessage 39。 end。 。 except showmessage 39。%39。bh39。%39。bm39。 .Value: [6,i]。 39。k239。 .Value: strtofloat [4,i] 。 39。j439。 .Value: strtofloat [3,i] 。 39。j239。 .Value: strtofloat [2,i] 。 39。 where bm like :bm and bh like :bh 39。 。 39。 update ry set j1 :j1,j2 :j2,j3 :j3,j4 :j4, 39。 。 for i: 1 to do begin s: [0,i]。 s: 39。 end。 k: k+1。列有非法數(shù)字 39。行 第 39。第 39。 for i: 1 to do for j: 2 to 5 do begin try [j,i]: floattostr strtofloat [j,i] 。 then exit。 if trim 39。確認更新數(shù)據(jù)嗎 ?39。 begin For I: 1 To Do [6,i]: 。 var i,j,k:integer。 end。 End。 .AsString 。 .AsString+ 39。 For I: 1 To Do Begin 39。 。服務(wù)器連接 error,程序退出 !39。 Try 。 order by bh39。 。 39。 。 begin : rgb 255,255,255 。 procedure Sender: TObject 。 action: cafree。 var Action: TCloseAction 。 end。 End。 .Asfloat 。 [10,i]: floattostr 39。k339。 .Asfloat 。 [8,i]: floattostr 39。z939。 .Asfloat 。 [6,i]: floattostr 39。z739。 .Asfloat 。 [4,i]: floattostr 39。z539。 .Asfloat 。 [2,i]: floattostr 39。z139。 .AsString。 .AsString+ 39。 [0,i]: 39。xm39。bh39。 。 // 39。保險 39。公積金 39。女工衛(wèi) 39。教護齡 39。護 10%39。醫(yī)務(wù)補 39。技師補 39。月效資 39。計生補 39。崗位資 39。編號姓名 39。 For I: 0 To Do [I].Clear。 : +1。 。數(shù)據(jù)庫連接 error,程序退出 !39。 Try 。 order by bh39。%39。bm39。 。 39。Select bh,xm,z1,z4,z5,z6,z7,z8,z9,z10,k3,kbx From ry 39。 。 var i:integer。 end。 showmessage 39。 end。 。 except showmessage 39。 .Value: strtofloat [10,i] 。 39。 .Value: copy s,1,2 +39。 39。 .Value: copy ,3,20 +39。 39。k339。 .Asfloat: 0。 // 39。z1139。 .Value: strtofloat [8,i] 。 39。z939。 .Value: strtofloat [6,i] 。 39。z739。 .Value: strtofloat [4,i] 。 39。z539。 .Value: strtofloat [2,i] 。 39。z339。 .Value: strtofloat [1,i] *。 39。z139。 。 39。z7 :z7,z8 :z8,z9 :z9,z10 :z10,z11 :z11,k3 :k3,kbx :kbx 39。 。 39。 。39。 if k 0 then exit。 end。 。+inttostr j +39。+inttostr i +39。 except showmessage 39。 k: 0。39。,mtconfirmation,[mbyes,mbno],0 mrno then exit。 begin if messagedlg 39。 var i,j,k:integer。 工資數(shù)據(jù)模塊 本模塊包括月基本工資數(shù)據(jù)、月活動工資填報、月數(shù)據(jù)存檔三個子模塊，分別用于查看修改月基本工資數(shù)據(jù)，填報月活動工資數(shù)據(jù)以及對填報好的所有數(shù)據(jù)存檔。 for i: 10 to 99 do inttostr i 。039。 。 。mc39。 End。 。 except showmessage 39。 。 39。Select mc From bm 39。 。 begin : rgb 220,170,140 。 procedure Sender: TObject 。 action: cafree。 var Action: TCloseAction 。 end。 : 39。 : 39。 End。 .AsString 。+ 39。 .AsString+39。+ 39。 For I: 1 To Do Begin 39。 編號 姓名 39。 End。 。 except showmessage 39。%39。bm39。 。 39。 where bm like :bm 39。 。 39。 。 var i:integer。 end。 End。 .AsString 。+ 39。 .AsString+39。+ 39。 For I: 1 To Do Begin 39。 編號 姓名 39。 End。 。 except showmessage 39。%39。bm39。 。 39。 where bm like :bm 39。 。 39。 。 var i:integer。 end。 end。 。 except showmessage 39。%39。bm39。%39。bh39。 。 39。delete from ry 39。 。 if length 2 then exit。,mtconfirmation,[mbyes,mbno],0 mrno then exit。 begin if messagedlg 39。 end。 end。 。 except showmessage 39。 .Value: 。 39。y139。 .Value: 。 39。 Values :y0,:y1,:y2 39。 。 39。 with Q1 do begin Close。 exit。編號與單位名稱不能為空 !39。 begin : trim 。 end。 for i: 10 to 50 do inttostr i 。039。 begin : rgb 220,170,140 。 procedure Sender: TObject 。 action: cafree。 var Action: TCloseAction 。 end。 End。 .AsString 。 [1,i]: 39。bh39。名稱 39。編號 39。 For I: 0 To Do [I].Clear。 : +1。 。服務(wù)器連接 error,程序退出 !39。 Try 。 order by bh39。 。 39。 begin 。 procedure Sender: TObject 。 。 。服務(wù)器連接 error,程序退出 !39。 Try 。 .Value: +39。 39。 where bh like :bh 39。 。 39。 。如果系統(tǒng)中存在本部門數(shù)據(jù)不能刪除 ,確要刪除嗎 ?39。 procedure Sender: TObject 。 end。 。服務(wù)器連接 error,程序退出 !39。 Try ExecSql。y139。 .Value: 。 39。 Values :y0,:y1 39。 。 39。 with Q1 do begin Close。 exit。編號與單位名稱不能為空 !39。 begin : trim 。 end。 : True。 //選中菜單顯示相應(yīng)的窗體，此處為部門管理 begin If Then //用 If 語句做異常處理 ELSE begin Tbmf,bmf 。 end。系統(tǒng)時間 :39。+datetostr date 。 //狀態(tài)欄系統(tǒng)日期與時間 begin [0].Text: 39。 end。 。連接數(shù)據(jù)庫失敗 ! 39。 try : true。 系統(tǒng)主界面如圖 所示： 圖 系統(tǒng)主界面 該模塊主要代碼： procedure Sender: TObject 。 在主界面顯示每個模塊的入口，點擊即可進入。由于企業(yè)工資管理系統(tǒng)是一個比較小型的系統(tǒng)，開發(fā)工具也均可免費使用，網(wǎng)絡(luò)資源豐富，只需較少的花費在技術(shù)文獻上，開發(fā)成本較低，因此，開發(fā)本系統(tǒng)具有經(jīng)濟上的可行性。 經(jīng)濟可行性 基于企業(yè)的現(xiàn)有計算機及配套設(shè)備，建設(shè) MIS 系統(tǒng)。對工資管理系統(tǒng)這一類的財務(wù)系統(tǒng)開發(fā)也有一定的認識，因此具備技術(shù)可行性。 可行性分析 技術(shù)可行性 技術(shù)上的可行性分析主 要分析現(xiàn)有技術(shù)條件能否順利完成開發(fā)工作，軟硬件配置能否滿足開發(fā)者需要等，這一特點非常適合計算機的特點，發(fā)揮計算機的數(shù)據(jù)處理速度快，準(zhǔn)確率高的優(yōu)勢，現(xiàn)代計算機硬件和軟件技術(shù)的飛速發(fā)展，為系統(tǒng)的建設(shè)提供了技術(shù)條件。 ④自檢性能高，用戶誤輸、錯輸均有提示。 ②開發(fā)方法，文檔規(guī)范化，便于管理，可擴充。具體包括，員工基本信息管理、部門管理、當(dāng)前工資及歷史工資管理等。 ADO 方式連接 Oracle 數(shù)據(jù)庫。本文概括性的介紹在 Windows XP 環(huán)境中 連接Oracle 數(shù)據(jù)庫的 3 種方式，它們分別是 BDE、 ADO、 DbExp