?? cformedithuman.pas
字號:
{-----------------------------------------------------------------------------
Unit Name: CFormEditHuman
Author: hubdog(陳省)
Purpose: 人員信息編輯單元
BeginDate: 2002-7-1
History:
-----------------------------------------------------------------------------}
unit CFormEditHuman;
{PUBDIST}
interface
//todo:考慮將上傳的文件存到字段中?
uses
IWAppForm, IWApplication, IWTypes, IWCompButton, IWHTMLControls, SysUtils,
IWCompLabel, IWCompMemo, Classes, Controls, IWControl, IWCompEdit,
IWCompListbox, CFormEditCorp, SWSystem, IWGrids, Graphics, Variants;
type
TformEditHuman = class(TIWAppForm)
iweChnName: TIWEdit;
IWLabel1: TIWLabel;
IWLabel2: TIWLabel;
iwlTitle: TIWLabel;
iwrIWHRule1: TIWHRule;
iwrIWHRule2: TIWHRule;
IWButton1: TIWButton;
iwbEdit: TIWButton;
iwbCancel: TIWButton;
iwmEduInfo: TIWMemo;
IWLabel3: TIWLabel;
iwcSex: TIWComboBox;
iweAge: TIWEdit;
IWLabel6: TIWLabel;
iwcCountry: TIWComboBox;
IWLabel7: TIWLabel;
IWLabel8: TIWLabel;
IWLabel9: TIWLabel;
iweWorkAge: TIWEdit;
IWLabel10: TIWLabel;
iweEmail: TIWEdit;
IWLabel11: TIWLabel;
iwePhone: TIWEdit;
iweMobile: TIWEdit;
IWLabel4: TIWLabel;
IWLabel12: TIWLabel;
iwcEngLevel: TIWComboBox;
IWLabel5: TIWLabel;
iwmPrjInfo: TIWMemo;
IWLabel13: TIWLabel;
IWLabel14: TIWLabel;
iwrIWHRule3: TIWHRule;
iwcCorp: TIWComboBox;
IWLabel15: TIWLabel;
iwcEduLevel: TIWComboBox;
iwfResume: TIWFile;
iwbUpload: TIWButton;
iwlResume: TIWLink;
iwgTech: TIWGrid;
iwcTech: TIWComboBox;
iwcTechLevel: TIWComboBox;
IWLabel16: TIWLabel;
iwbAdd: TIWButton;
procedure iwbEditClick(Sender: TObject);
procedure iwbCancelClick(Sender: TObject);
procedure IWAppFormCreate(Sender: TObject);
procedure iwlResumeClick(Sender: TObject);
procedure iwbUploadClick(Sender: TObject);
procedure iwgTechRenderCell(ACell: TIWGridCell; const ARow,
AColumn: Integer);
procedure iwgTechCellClick(const ARow, AColumn: Integer);
procedure iwbAddClick(Sender: TObject);
private
FEditMode: TEditMode;
FHId: Integer;
procedure SetEditMode(const Value: TEditMode);
function ValidateInput: Boolean;
function GetAge: Integer;
function GetWorkAge: Integer;
function GetCorpId: Integer;
function GetSex: string;
function GetCountry: string;
function GetEduLevel: string;
function GetEngLevel: string;
function GetResume: string;
procedure SetHId(const Value: Integer);
procedure InsertHumanTech;
procedure DelHumanTech;
public
FCorpList,
FSexList,
FCountryList,
FEduLevelList,
FEngLevelList,
FTechList,
FTechLevelList: TStrings;
function InsertRecord: Boolean;
function EditRecord: Boolean;
property EditMode: TEditMode read FEditMode write SetEditMode;
property Age: Integer read GetAge;
property WorkAge: Integer read GetWorkAge;
property CorpID: Integer read GetCorpId;
property Sex: string read GetSex;
property Country: string read GetCountry;
property EduLevel: string read GetEduLevel;
property EngLevel: string read GetEngLevel;
property Resume: string read GetResume;
property HId: Integer read FHId write SetHId;
end;
THumanTech = class(TPersistent)
private
FTechCode: Integer;
FTechLevel: Integer;
procedure SetTechCode(const Value: Integer);
procedure SetTechLevel(const Value: Integer);
published
property TechCode: Integer read FTechCode write SetTechCode;
property TechLevel: Integer read FTechLevel write SetTechLevel;
end;
implementation
{$R *.dfm}
uses
ServerController, DatamoduleUnit, CWebUtils;
{ TformEditHuman }
//function GetComboBoxValue(AComboBox: TIWComboBox): string;
//begin
// if AComboBox.ItemIndex = -1 then
// raise Exception.Create('列表索引為-1,無法獲取相應(yīng)的值');
// Result := AComboBox.Items.Values[AComboBox.Items.Names[AComboBox.ItemIndex]];
//end;
procedure TformEditHuman.SetEditMode(const Value: TEditMode);
begin
FEditMode := Value;
case FEditMode of
emEdit:
begin
iwlTitle.Caption := '編輯人員信息';
end;
emInsert:
begin
iwbEdit.Caption := '增加人員';
iweChnName.Text := '';
iweAge.Text := '';
iweWorkAge.Text := '';
iwePhone.Text := '';
iweMobile.Text := '';
iweEmail.Text := '';
iwcSex.ItemIndex := 0;
iwcCountry.ItemIndex := 0;
iwcCorp.ItemIndex := 0;
iwcEduLevel.ItemIndex := 0;
iwcEngLevel.ItemIndex := 0;
iwcSex.ItemIndex := 0;
iwcCountry.ItemIndex := 0;
iwmEduInfo.Lines.Text := '';
iwmPrjInfo.Lines.Text := '';
iwlResume.Caption := '無';
iwgTech.RowCount := 1;
end;
end;
end;
procedure TformEditHuman.iwbEditClick(Sender: TObject);
var
EditResult: Boolean;
begin
EditResult := False;
case EditMode of
emEdit: EditResult := EditRecord;
emInsert: EditResult := InsertRecord;
end;
if EditResult then
hide;
end;
procedure TformEditHuman.iwbCancelClick(Sender: TObject);
begin
hide;
end;
function TformEditHuman.EditRecord: Boolean;
begin
Result := False;
//編輯記錄
if not ValidateInput then
Exit;
with dmHR do
adocHR.BeginTrans;
try
//這里直接用Sql來實現(xiàn)的
//Todo:部分Memo字段應(yīng)該采用 參數(shù)化來實現(xiàn)否則會有問題
DelHumanTech;
adocEdit.CommandText :=
format('Update TblHuman Set ' +
'CorpID=%d,ChnName=''%s'',SexCode=''%s'', Age=%d, CountryCode=''%s'',EduLevelCode=''%s'', WorkAge=%d,Email=''%s'',Phone=''%s'', Mobile=''%s'',EngLevelCode=''%s'',Education=''%s'',PrjInfo=''%s'',Resume=''%s'' Where HID=%d',
[CorpID, iweChnName.text, Sex, Age, Country, EduLevel,
WorkAge, iweEmail.Text, iwePhone.Text, iweMobile.Text, EngLevel,
iwmEduInfo.Lines.Text, iwmPrjInfo.Lines.Text, Resume, HID]);
// S := adocEdit.CommandText;
//CodeSite.SendString('CommandText', adocEdit.CommandText);
adocEdit.Execute;
InsertHumanTech;
adocHR.CommitTrans;
badoHuman.Refresh;
Result := True;
except
adocHR.RollbackTrans;
end;
end;
end;
function TformEditHuman.InsertRecord: Boolean;
begin
//todo:判斷其他字段的值
Result := False;
if not ValidateInput then
Exit;
//inserthumantech;
with dmHR do
begin
adocHR.BeginTrans;
try
//這里直接用Sql來實現(xiàn)的
//Todo:部分Memo字段應(yīng)該采用 參數(shù)化來實現(xiàn)否則會有問題
adocEdit.CommandText :=
format('Insert Into TblHuman' +
'(CorpID,ChnName,SexCode, Age, CountryCode,EduLevelCode, WorkAge,Email,Phone, Mobile,EngLevelCode,Education,PrjInfo,Resume)' + ' Values'
+
'(%d,''%s'',''%s'', %d , ''%s'' , ''%s'', %d, ''%s'',''%s'',''%s'',''%s'', ''%s'',''%s'', ''%s'' )',
[CorpID, iweChnName.text, Sex, Age, Country, EduLevel,
WorkAge, iweEmail.Text, iwePhone.Text, iweMobile.Text, EngLevel,
iwmEduInfo.Lines.Text, iwmPrjInfo.Lines.Text, Resume]);
// S := adocEdit.CommandText;
//CodeSite.SendString('CommandText', adocEdit.CommandText);
adocEdit.Execute; //這句話執(zhí)行后應(yīng)該返回CorpID和HID
badohuman.requery;
if badoHuman.Locate('CorpID;ChnName', VarArrayOf([CorpID,
iweChnName.Text]), []) then
FHId := badoHuman.FieldByName('HID').AsInteger;
insertHumanTech;
adocHR.CommitTrans;
badoHuman.Requery;
Result := True;
except
adocHR.RollbackTrans;
end;
end;
end;
procedure TformEditHuman.IWAppFormCreate(Sender: TObject);
begin
with dmHR do
begin
//初始化公司下拉編輯框中的內(nèi)容
FCorpList := GetDataDicList(badoCorp, 'CorpID', 'ChnName');
FillValueToCombo(iwcCorp, FCorpList);
//初始化性別列表
FSexList := GetDataDicList(badoSex, 'SexCode', 'SexName');
FillValueToCombo(iwcSex, FSexList);
//初始化國家列表
FCountryList := GetDataDicList(badoCountry, 'CountryCode', 'CountryName');
FillValueToCombo(iwcCountry, FCountryList);
//初始化學歷列表
FEduLevelList := GetDataDicList(badoEduLevel, 'EduLevelCode',
'EduLevelName');
FillValueToCombo(iwcEduLevel, FEduLevelList);
//初始化英文水平列表
FEngLevelList := GetDataDicList(badoEngLevel, 'EngLevelCode',
'EngLevelName');
FillValueToCombo(iwcEngLevel, FEngLevelList);
//初始化技術(shù)列表
//Todo:考慮以后將初始化列表改造成動態(tài)創(chuàng)建Dataset的形式
FTechList := GetDataDicList(badoTech, 'TechCode', 'Name');
FillValueToCombo(iwcTech, FTechList);
//初始化水平列表
FTechLevelList := GetDataDicList(badoTechLevel, 'TechLevel', 'LevelName');
FillValueToCombo(iwcTechLevel, FTechLevelList);
end;
end;
function TformEditHuman.ValidateInput;
begin
Result := False;
if Trim(iweChnName.Text) = '' then
begin
WebApplication.ShowMessage('中文姓名不能為空');
Exit;
end;
if iwcCorp.ItemIndex = -1 then
begin
WebApplication.ShowMessage('必須指定人員所屬公司');
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -