【導(dǎo)讀】隨著現(xiàn)代科學(xué)技術(shù)的迅猛發(fā)展，計(jì)算機(jī)技術(shù)已經(jīng)滲透到各個(gè)領(lǐng)域，步開(kāi)發(fā)和利用顯得尤為迫切。在這種信息環(huán)境下，對(duì)信息的手工管理已。經(jīng)遠(yuǎn)遠(yuǎn)落后于信息化管理。然而這些小型服裝廠的信息資源也亟待存儲(chǔ)和處理，這。需要高效的處理方式和管理方法。因此，加快小型服裝加工廠的信息化。進(jìn)程是必不可少的。在開(kāi)發(fā)過(guò)程中，針對(duì)當(dāng)前小型服裝廠管理人員的管理特點(diǎn)和。戶(hù)可以在短期內(nèi)完全掌握。把系統(tǒng)的正確性放在首位，力求數(shù)據(jù)的完整。并且在此基礎(chǔ)上優(yōu)化程序代碼，加速系統(tǒng)運(yùn)行和減少。但據(jù)有關(guān)調(diào)查顯示，目前我國(guó)服裝企業(yè)信息化的應(yīng)用普及。正確的決策，加快管理效率。因此，可以說(shuō)Delphi同時(shí)兼?zhèn)淞薞isualC++. 但編程人員最常使用的仍然是Delphi7。由于Delphi編譯器采用。使用獨(dú)特的VCL類(lèi)庫(kù)，使得編寫(xiě)出的程序顯得條理清晰，VCL是現(xiàn)在最優(yōu)秀的類(lèi)庫(kù)。是一個(gè)動(dòng)態(tài)過(guò)程，在其運(yùn)行過(guò)程中要采取多項(xiàng)措施。明了，不需要造作人員對(duì)數(shù)據(jù)庫(kù)進(jìn)行深入的了解。由此可知該系統(tǒng)的操

　　

【正文】 。 begin close。 。 (39。select * from ygjbxxb39。)。 open。 insert。 fieldbyname(39。ygbh39。).AsString:=。 fieldbyname(39。ygxm39。).AsString:=。 fieldbyname(39。xb39。).AsString:=sex。 fieldbyname(39。bmbh39。).AsString:=bmbh。 fieldbyname(39。zp39。).Assign(picture1)。 post。//提交。 end。 //以下就是用 update的方法插入其他項(xiàng)。 with do begin close。 。 (39。update ygjbxxb set csrq=:b,tel=:c,zz=:d,bz=:e where ygbh=:a39。)。 (39。a39。).Value:=trim()。 47 (39。b39。).Value:=formatdatetime(39。yyyymmdd39。,)。 (39。c39。).Value:=trim()。 (39。d39。).Value:=trim()。 (39。e39。).Value:=trim()。 execsql。 end。 begin (39。添加成功！ 39。,39。提示 39。,64)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 end。 end else//未選擇照片時(shí)。 begin with do begin close。 。 (39。insert ygjbxxb (ygbh,ygxm,xb,bmbh,csrq,tel,zz,bz) values(:a,:b,:c,:d,:e,:f,:g,:h)39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 (39。c39。).Value:=sex。 (39。d39。).Value:=bmbh。 (39。e39。).Value:=。 (39。f39。).Value:=trim()。 (39。g39。).Value:=trim()。 (39。h39。).Value:=trim()。 execsql。 end。 begin (39。添加成功！ 39。,39。提示 39。,64)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 48 end。 end。 end。 end。 end。 end。 end。 4．員工信息修改界面的保存按鈕代碼 procedure (Sender: TObject)。 var picture1:tpicture。 bmbh,sex:string。 begin if trim()=39。39。 then begin (39。員工姓名不允許為空！ 39。,39。提示 39。,64)。 end else begin if trim()=39。39。 then begin (39。所在部門(mén)不允許為空！ 39。,39。提示 39。,64)。 end else begin with do begin close。 。 (39。select * from bmxxb where bmmc=:a39。)。 (39。a39。).Value:=trim()。 open。 end。 //讀取部門(mén)編號(hào)。 if 0 then begin bmbh:=(39。bmbh39。).AsString。 end。 //讀取性別信息。 if then begin sex:=39。男 39。 end。 if then begin 49 sex:=39。女 39。 end。 //照片為修改時(shí)直接用 update進(jìn)行修改。 if =39。39。 then begin with do begin close。 。 (39。update ygjbxxb set ygxm=:b,xb=:c,bmbh=:d,csrq=:e,tel=:f,zz=:g,bz=:h where ygbh=:a39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 (39。c39。).Value:=sex。 (39。d39。).Value:=bmbh。 (39。e39。).Value:=formatdatetime(39。yyyymmdd39。,)。 (39。f39。).Value:=trim()。 (39。g39。).Value:=trim()。 (39。h39。).Value:=trim()。 execsql。 end。 (39。修改保存成功！ 39。,39。提示 39。,64)。 :=39。39。 end。 //照片修改時(shí)，先刪除再插入。 if 39。39。 then begin with do begin close。 。 (39。delete ygjbxxb where ygbh=:a39。)。 (39。a39。).Value:=trim()。 execsql。 end。 picture1:=。 (extractfilename())。 with do begin close。 。 (39。select * from ygjbxxb39。)。 open。 insert。 fieldbyname(39。ygbh39。).AsString:=。 fieldbyname(39。ygxm39。).AsString:=。 50 fieldbyname(39。xb39。).AsString:=sex。 fieldbyname(39。bmbh39。).AsString:=bmbh。 fieldbyname(39。zp39。).Assign(picture1)。 post。 end。 //以下就是用 update的方法插入其他項(xiàng)。 with do begin close。 。 (39。update ygjbxxb set csrq=:b,tel=:c,zz=:d,bz=:e where ygbh=:a39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=。 (39。c39。).Value:=trim()。 (39。d39。).Value:=trim()。 (39。e39。).Value:=trim()。 execsql。 end。 (39。修改保存成功！ 39。,39。提示 39。,64)。 :=39。39。 end。 end。 end。 end。 5．限制字符輸入代碼，只允許輸入數(shù)字 procedure (Sender: TObject。 var Key: Char)。 var i:boolean。 begin i:=(key8)or(key8)and(key48)or(key57)。 if i then key:=0。 end。