unit13.pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  Tzhiwuchaxun = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhiwuchaxun: Tzhiwuchaxun;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,
  Unit7, Unit8, Unit9;

{$R *.dfm}

procedure Tzhiwuchaxun.Button1Click(Sender: TObject);
begin
 if (edit1.Text='') and (edit2.Text='') then
begin
application.MessageBox('请输入查询条件！！','错误',mb_iconhand+mb_yesno);
edit1.SetFocus;
end //都为空，出错 焦点放到部门代码上面
else
begin
if (edit1.Text<>'') and (edit2.Text='') then
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from zhiwuxinxi where 职务代码='''+edit1.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='职务代码';
  dbgrid1.Columns[1].FieldName:='职务名称';
  dbgrid1.Columns[2].FieldName:='工资等级id';
  dbgrid1.Columns[3].FieldName:='工资上限';
  dbgrid1.Columns[4].FieldName:='工资下限';
  dbgrid1.Columns[5].FieldName:='简介';
end
end  //按部门代码查询
else
begin
if (edit1.Text='') and (edit2.Text<>'') then
begin
  with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from zhiwuxinxi where 职务名称='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='职务代码';
  dbgrid1.Columns[1].FieldName:='职务名称';
  dbgrid1.Columns[2].FieldName:='工资等级id';
  dbgrid1.Columns[3].FieldName:='工资上限';
  dbgrid1.Columns[4].FieldName:='工资下限';
  dbgrid1.Columns[5].FieldName:='简介';
end
end //按部门名称查询
else
begin
  with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from zhiwuxinxi where 职务代码='''+edit1.Text+''' and 职务名称='''+edit2.Text+''''  );
Open;
dbgrid1.Columns[0].FieldName:='职务代码';
  dbgrid1.Columns[1].FieldName:='职务名称';
  dbgrid1.Columns[2].FieldName:='工资等级id';
  dbgrid1.Columns[3].FieldName:='工资上限';
  dbgrid1.Columns[4].FieldName:='工资下限';
  dbgrid1.Columns[5].FieldName:='简介';
end
end;//都不为空的情况
end;
if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit2.Text:='';
edit1.SetFocus;
end;
end;
end;

procedure Tzhiwuchaxun.Button4Click(Sender: TObject);
begin
zhiwuchaxun.Close;
end;

procedure Tzhiwuchaxun.Button2Click(Sender: TObject);
begin
application.CreateForm(Tshanchuzhiwu,shanchuzhiwu);
shanchuzhiwu.ShowModal;
shanchuzhiwu.Free;
end;

end.