delphi＋sql办公自动化系统（＋开题报告源程序＋论文正文＋外文翻译＋答辩ppt）(十一)

delphi＋sql办公自动化系统（＋开题报告源程序＋论文正文＋外文翻译＋答辩ppt）(十一) 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.bbtnModifyClick(Sender: TObject);
begin
bbtnsave.Enabled:=true;
combobox2.Enabled:=true;
edit2.Enabled:=true;
combobox3.Enabled:=true;
memo1.Enabled:=true;
combobox3.Enabled:=true;
dm.ATEmpInfo.Edit;
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;

end;

end.

主界面设计与代码设计
unit Umain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ToolWin, XPMan, Buttons, ExtCtrls,QStdCtrls,
StdActns, ActnList;

type
TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    EmpMgr: TMenuItem;
    ClientMgr: TMenuItem;
    BusinessMgr: TMenuItem;
    MoneyMgr: TMenuItem;
    systemMgr: TMenuItem;
    StatusBar1: TStatusBar;
    empInfo: TMenuItem;
    empRaise: TMenuItem;
    XPManifest1: TXPManifest;
    CoolBar1: TCoolBar;
    sbtnEmpBrow

首页上一页 8 9 10 11 12 13 14 下一页尾页 11/15/15