TObject);
var
SelectFields,FieldsValue:String;
begin
if ComboBox1.Text='' then Exit;
if combobox1.Text='员工编号' then
begin
SelectFields:='Empno';
end
else if ComboBox1.Text='姓名' then
begin
SelectFields:='EmpName';
end
else if ComboBox1.Text='所在部门' then
begin
SelectFields:='Department';
end
else if ComboBox1.Text='职位' then
begin
SelectFields:='Post';
end;
FieldsValue:='%'+Trim(Edit1.Text)+'%';
with dm.AQEmpInfo do
begin
close;
sql.Clear;
sql.Add('select * from Employees where '+SelectFields+' like '''+FieldsValue+'''');
open;
dm.ATEmpInfo.Clone(dm.AQEmpInfo);
end;
end;
procedure TfrmPersonalChange.FormCreate(Sender: TObject);
begin
bbtnsave.Enabled:=false;
combobox3.Enabled:=false;
edit2.Enabled:=false;
end;
procedure TfrmPersonalChange.bbtnExitClick(Sender: TObject);
begin
close;
end;
procedure TfrmPersonalChange.sbtnShowAllClick(Sender: TObject);
begin
dm.ATEmpInfo.Close;
dm.ATEmpInfo.Open;
end;
procedure TfrmPersonalChange.bbtnSaveClick(Sender: TObject);
begin
with dm.ATEmpInfo do
begin
Edit;
FieldByName('Status').Value:=Trim(ComboBox2.Text);
FieldByName('Post').Value:=Trim(Edit2.Text);
FieldByName('Department').Value:=Trim(ComboBox3.Text);
FieldByName('Notes').Value:=Trim(Memo1.Text);
Post;
ShowMessage('已存盘！');
Close;
Open;
end;
