?? intraweb開(kāi)發(fā)指南.htm
字號(hào):
adocHR.RollbackTrans;</SPAN></P>
<P><SPAN lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> emInsert:</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
//todo:</SPAN><SPAN style="FONT-FAMILY: 宋體">判斷其他字段的值</SPAN></P>
<P><SPAN lang=EN-US> if
Trim(iweChnName.Text) = '' then</SPAN></P>
<P><SPAN lang=EN-US>
begin</SPAN></P>
<P><SPAN
lang=EN-US>
WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋體">中文名稱不能為空</SPAN><SPAN
lang=EN-US>');</SPAN></P>
<P><SPAN
lang=EN-US>
Exit;</SPAN></P>
<P><SPAN lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US> with
dmHR do</SPAN></P>
<P><SPAN lang=EN-US>
begin</SPAN></P>
<P><SPAN
lang=EN-US>
adocHR.BeginTrans;</SPAN></P>
<P><SPAN
lang=EN-US>
try</SPAN></P>
<P><SPAN
lang=EN-US>
//</SPAN><SPAN style="FONT-FAMILY: 宋體">這里直接用</SPAN><SPAN
lang=EN-US>Sql</SPAN><SPAN style="FONT-FAMILY: 宋體">來(lái)實(shí)現(xiàn)的</SPAN></P>
<P><SPAN lang=EN-US>
adocEdit.CommandText
:=</SPAN></P>
<P><SPAN lang=EN-US>format('Insert Into TblCorp
(ChnName,EngName,Phone, Fax, ChnInfo, EngInfo, </SPAN></P>
<P><SPAN lang=EN-US>Comments) Values(''%s'', ''%s'', ''%s'', ''%s'',
''%s'', ''%s'', ''%s'')', </SPAN></P>
<P><SPAN lang=EN-US>[iweChnName.text, iweEngName.text,
iwePhone.Text, iweFax.Text,</SPAN></P>
<P><SPAN lang=EN-US>
iwmChninfo.Lines.Text,
iwmEngInfo.Lines.Text,</SPAN></P>
<P><SPAN
lang=EN-US>
iwmComments.Lines.Text, CorpId]);</SPAN></P>
<P><SPAN
lang=EN-US>
S:=adocEdit.CommandText;</SPAN></P>
<P><SPAN
lang=EN-US>
adocEdit.Execute;</SPAN></P>
<P><SPAN
lang=EN-US>
adocHR.CommitTrans;</SPAN></P>
<P><SPAN
lang=EN-US>
badoCorp.Requery;</SPAN></P>
<P><SPAN
lang=EN-US>
except</SPAN></P>
<P><SPAN lang=EN-US>
adocHR.RollbackTrans;</SPAN></P>
<P><SPAN
lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US>
end;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> hide;</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditCorp.iwbCancelClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> hide;</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN
style="FONT-FAMILY: 宋體">這里唯一需要注意的就是編輯信息入庫(kù)后，要想返回主界面，只要調(diào)用當(dāng)前界面的</SPAN><SPAN
lang=EN-US>Hide</SPAN><SPAN
style="FONT-FAMILY: 宋體">方法就可以了。</SPAN></P>
<P><B><SPAN style="FONT-FAMILY: 宋體">人員信息編輯</SPAN></B></P>
<P><SPAN
style="FONT-FAMILY: 宋體">完成了公司信息界面后，只剩下了職員信息編輯了，界面如下</SPAN><SPAN
lang=EN-US>:</SPAN></P>
<P><SPAN lang=EN-US><IMG height=387
src="IntraWeb開(kāi)發(fā)指南.files/image022.jpg" width=456
v:shapes="_x0000_i1035"> </SPAN></P>
<P><SPAN
style="FONT-FAMILY: 宋體">里面的瀏覽等功能的實(shí)現(xiàn)方法同公司信息編輯非常類似，這里就不進(jìn)行詳細(xì)論述了，其中同公司信息編輯稍微有些不同的是，人員信息編輯界面支持簡(jiǎn)歷上傳的操作，上傳操作是通過(guò)</SPAN><SPAN
lang=EN-US>TIWFile</SPAN><SPAN
style="FONT-FAMILY: 宋體">來(lái)實(shí)現(xiàn)的，我們添加一個(gè)上傳簡(jiǎn)歷的按鈕來(lái)實(shí)現(xiàn)上傳的功能，代碼如下：</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditHuman.iwbUploadClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> FileName: string;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> FileName := gsAppPath + 'resumes\' +
iwfResume.Filename;</SPAN></P>
<P><SPAN lang=EN-US> if FileExists(FileName) then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>WebApplication.ShowMessage(format('</SPAN><SPAN
style="FONT-FAMILY: 宋體">同名的</SPAN><SPAN lang=EN-US>%s</SPAN><SPAN
style="FONT-FAMILY: 宋體">文件已經(jīng)存在，請(qǐng)將文檔改名后重新</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋體">上傳</SPAN><SPAN lang=EN-US>',
[FileName]));</SPAN></P>
<P><SPAN lang=EN-US> Exit;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US> //</SPAN><SPAN
style="FONT-FAMILY: 宋體">將簡(jiǎn)歷文檔保存起來(lái)</SPAN></P>
<P><SPAN lang=EN-US> iwfResume.SaveToFile(gsAppPath +
'resumes\' + iwfResume.FileName);</SPAN></P>
<P><SPAN lang=EN-US> iwlResume.Caption :=
ExtractFilename(FileName);</SPAN></P>
<P><SPAN lang=EN-US> WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋體">文件上傳成功</SPAN><SPAN lang=EN-US>');</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋體">有上傳文件，自然就要允許人力資源部門的人員通過(guò)</SPAN><SPAN
lang=EN-US>Web</SPAN><SPAN
style="FONT-FAMILY: 宋體">查看簡(jiǎn)歷，當(dāng)用戶點(diǎn)擊</SPAN><SPAN
lang=EN-US>resume.doc</SPAN><SPAN
style="FONT-FAMILY: 宋體">的超級(jí)聯(lián)結(jié)的時(shí)候，通過(guò)調(diào)用</SPAN><SPAN
lang=EN-US>WebApplication.SendFile</SPAN><SPAN
style="FONT-FAMILY: 宋體">可以將文件內(nèi)容傳送給瀏覽器，打開(kāi)</SPAN><SPAN
lang=EN-US>Word</SPAN><SPAN
style="FONT-FAMILY: 宋體">文檔，代碼如下：</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditHuman.iwlResumeClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> FileName: string;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> if (Trim(iwlResume.Caption) <>
'</SPAN><SPAN style="FONT-FAMILY: 宋體">無(wú)</SPAN><SPAN lang=EN-US>')
and (Trim(iwlResume.Caption) <> '') then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US> //gsAppPath</SPAN><SPAN
style="FONT-FAMILY: 宋體">定義在</SPAN><SPAN
lang=EN-US>SWSystem</SPAN><SPAN style="FONT-FAMILY: 宋體">中</SPAN></P>
<P><SPAN lang=EN-US> FileName := gsAppPath +
'resumes\' + iwlResume.Caption;</SPAN></P>
<P><SPAN lang=EN-US> if not FileExists(FileName)
then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋體">沒(méi)有找到相應(yīng)的簡(jiǎn)歷</SPAN><SPAN
lang=EN-US>!');</SPAN></P>
<P><SPAN lang=EN-US> Exit;</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US>
WebApplication.SendFile(gsAppPath + 'resumes\' + iwlResume.Caption,
'', '',</SPAN></P>
<P><SPAN lang=EN-US> true);</SPAN></P>
<P><SPAN lang=EN-US> end;</SPAN></P>
<P><SPAN lang=EN-US>end;</SPAN></P>
<P><SPAN style="FONT-FAMILY: 宋體">職員技能信息同職員是多對(duì)一的關(guān)系，這里我們采用</SPAN><SPAN
lang=EN-US>IWGrid</SPAN><SPAN
style="FONT-FAMILY: 宋體">來(lái)實(shí)現(xiàn)技能列表信息編輯的功能，它其實(shí)就是一個(gè)</SPAN><SPAN
lang=EN-US>TStringGrid</SPAN><SPAN
style="FONT-FAMILY: 宋體">的</SPAN><SPAN lang=EN-US>Web</SPAN><SPAN
style="FONT-FAMILY: 宋體">版本，用法也非常相似，代碼如下：</SPAN></P>
<P><SPAN lang=EN-US>procedure TformEditHuman.iwbAddClick(Sender:
TObject);</SPAN></P>
<P><SPAN lang=EN-US>var</SPAN></P>
<P><SPAN lang=EN-US> I: Integer;</SPAN></P>
<P><SPAN lang=EN-US>begin</SPAN></P>
<P><SPAN lang=EN-US> //</SPAN><SPAN
style="FONT-FAMILY: 宋體">添加信息，判斷是否已經(jīng)添加過(guò)相應(yīng)技術(shù)了，如果是就退出</SPAN></P>
<P><SPAN lang=EN-US> for I := 0 to iwgTech.RowCount - 1
do</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US> if iwgTech.Cell[I, 0].Text =
iwcTech.Text then</SPAN></P>
<P><SPAN lang=EN-US> begin</SPAN></P>
<P><SPAN lang=EN-US>
WebApplication.ShowMessage('</SPAN><SPAN
style="FONT-FAMILY: 宋體">列表中已經(jīng)有相應(yīng)的技術(shù)了</SPAN><SPAN
lang=EN-US>');</SPAN></P>
<P><SPAN lang=EN-US> Exit;</SPAN></P>
<P><SPAN lang=?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -