unit15.~pas

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

unit Unit15;

interface

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

type
  Tygxiugaisc = class(TForm)
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label14: TLabel;
    Label27: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ygxiugaisc: Tygxiugaisc;

implementation

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

{$R *.dfm}

procedure Tygxiugaisc.Button1Click(Sender: TObject);
var i:integer;
begin
 if edit1.Text='' then
begin
application.MessageBox('请输入员工编号！！','木鱼工作室',mb_iconhand+mb_yesno);
edit1.SetFocus;
end //若为空，出错 焦点放到部门代码上面
else
begin
with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygjibenxinxi where 员工id='''+edit1.Text+''''  );
Open;
dbedit1.DataField:='员工id';
dbedit2.DataField:='姓名';
dbedit3.DataField:='出生日期';
dbedit4.DataField:='籍贯';
dbedit5.DataField:='身份证号';
dbedit6.DataField:='部门代码';
dbedit7.DataField:='进入部门日期';
dbedit8.DataField:='职务代码';
dbedit9.DataField:='起薪日期';
dbedit10.DataField:='专业';
dbedit11.DataField:='外语';
dbedit12.DataField:='地址';
dbedit13.DataField:='电话';
dbedit14.DataField:='邮箱';
 ComboBox1.Text:=Fieldbyname('性别').AsString;
 ComboBox2.Text:=Fieldbyname('民族').AsString;
 ComboBox3.Text:=Fieldbyname('政治面貌').AsString;
 ComboBox4.Text:=Fieldbyname('职称').AsString;
 ComboBox5.Text:=Fieldbyname('学历').AsString;
 ComboBox6.Text:=Fieldbyname('在岗状态').AsString;
dbgrid1.Columns[0].FieldName:='员工id';
 dbgrid1.Columns[1].FieldName:='姓名';
 dbgrid1.Columns[2].FieldName:='性别';
 dbgrid1.Columns[3].FieldName:='出生日期';
 dbgrid1.Columns[4].FieldName:='籍贯';
 dbgrid1.Columns[5].FieldName:='民族';
 dbgrid1.Columns[6].FieldName:='身份证号';
 dbgrid1.Columns[7].FieldName:='政治面貌';
 dbgrid1.Columns[8].FieldName:='部门代码';
 dbgrid1.Columns[9].FieldName:='进入部门日期';
 dbgrid1.Columns[10].FieldName:='职务代码';
 dbgrid1.Columns[11].FieldName:='职称';
 dbgrid1.Columns[12].FieldName:='起薪日期';
 dbgrid1.Columns[13].FieldName:='原企业';
 dbgrid1.Columns[14].FieldName:='原职称';
 dbgrid1.Columns[15].FieldName:='员工id';
 dbgrid1.Columns[16].FieldName:='毕业学校';
 dbgrid1.Columns[17].FieldName:='毕业日期';
 dbgrid1.Columns[18].FieldName:='学历';
 dbgrid1.Columns[19].FieldName:='专业';
 dbgrid1.Columns[20].FieldName:='外语';
 dbgrid1.Columns[21].FieldName:='地址';
 dbgrid1.Columns[22].FieldName:='电话';
 dbgrid1.Columns[23].FieldName:='邮箱';
 dbgrid1.Columns[24].FieldName:='在岗状态';
  for i:=0 to 24 do
  dbgrid1.Columns[i].Width:=80;
  
end;
  if dm.ADOQuery1.Eof then
begin
application.MessageBox('对不起，数据库中没有您所要的信息。请与管理员联系！！','错误',mb_iconhand+mb_yesno);
edit1.Text:='';
edit1.SetFocus;
end;
end;

end;

procedure Tygxiugaisc.FormCreate(Sender: TObject);
begin
RadioButton2.Checked:=true;
 Button2.Enabled:=false;
 dbedit1.Enabled:=false;
 dbedit2.Enabled:=false;
 dbedit3.Enabled:=false;
 dbedit4.Enabled:=false;
 dbedit5.Enabled:=false;
 dbedit6.Enabled:=false;
 dbedit7.Enabled:=false;
 dbedit8.Enabled:=false;
 dbedit9.Enabled:=false;
 dbedit10.Enabled:=false;
 dbedit11.Enabled:=false;
 dbedit12.Enabled:=false;
 dbedit13.Enabled:=false;
 dbedit14.Enabled:=false;
  ComboBox1.Enabled:=false;
  ComboBox2.Enabled:=false;
  ComboBox3.Enabled:=false;
  ComboBox4.Enabled:=false;
  ComboBox5.Enabled:=false;
  ComboBox6.Enabled:=false;
 ComboBox1.Items.Add('男');
ComboBox1.Items.Add('女');
ComboBox2.Items.Add('汉族');
ComboBox2.Items.Add('壮族');
ComboBox2.Items.Add('维吾儿族');
ComboBox2.Items.Add('蒙古族');
ComboBox2.Items.Add('其他少数民族');
ComboBox3.Items.Add('中共党员');
ComboBox3.Items.Add('共青团员');
ComboBox3.Items.Add('群众');
ComboBox3.Items.Add('民主党员');
ComboBox4.Items.Add('初级');
ComboBox4.Items.Add('中级');
ComboBox4.Items.Add('高级');
ComboBox5.Items.Add('高中');
ComboBox5.Items.Add('大专');
ComboBox5.Items.Add('本科');
ComboBox5.Items.Add('研究生');
ComboBox5.Items.Add('博士生');
ComboBox6.Items.Add('在岗');
ComboBox6.Items.Add('离岗');
ComboBox6.Items.Add('退休');
end;

procedure Tygxiugaisc.Button4Click(Sender: TObject);
begin
ygxiugaisc.Close;
end;

procedure Tygxiugaisc.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=true then
begin
Button2.Enabled:=false;
 Button3.Enabled:=true;
 dbedit1.Enabled:=false;
 dbedit2.Enabled:=false;
 dbedit3.Enabled:=false;
 dbedit4.Enabled:=false;
 dbedit5.Enabled:=false;
 dbedit6.Enabled:=false;
 dbedit7.Enabled:=false;
 dbedit8.Enabled:=false;
 dbedit9.Enabled:=false;
 dbedit10.Enabled:=false;
 dbedit11.Enabled:=false;
 dbedit12.Enabled:=false;
 dbedit13.Enabled:=false;
 dbedit14.Enabled:=false;
  ComboBox1.Enabled:=false;
  ComboBox2.Enabled:=false;
  ComboBox3.Enabled:=false;
  ComboBox4.Enabled:=false;
  ComboBox5.Enabled:=false;
  ComboBox6.Enabled:=false;
end

end;

procedure Tygxiugaisc.RadioButton1Click(Sender: TObject);
begin
 if RadioButton1.Checked=true then
begin
Button2.Enabled:=true;
 Button3.Enabled:=false;
 dbedit1.Enabled:=true;
 dbedit2.Enabled:=true;
 dbedit3.Enabled:=true;
 dbedit4.Enabled:=true;
 dbedit5.Enabled:=true;
 dbedit6.Enabled:=true;
 dbedit7.Enabled:=true;
 dbedit8.Enabled:=true;
 dbedit9.Enabled:=true;
 dbedit10.Enabled:=true;
 dbedit11.Enabled:=true;
 dbedit12.Enabled:=true;
 dbedit13.Enabled:=true;
 dbedit14.Enabled:=true;
  ComboBox1.Enabled:=true;
  ComboBox2.Enabled:=true;
  ComboBox3.Enabled:=true;
  ComboBox4.Enabled:=true;
  ComboBox5.Enabled:=true;
  ComboBox6.Enabled:=true;
end
end;

procedure Tygxiugaisc.Button3Click(Sender: TObject);
begin
 if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery1.Delete;
 dm.ADOQuery1.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Tygxiugaisc.Button2Click(Sender: TObject);
begin
with dm.ADOQuery1 do
begin
edit;
FieldByName('员工id').AsString:=trim(dbedit1.Text);
FieldByName('姓名').AsString:=trim(dbedit2.Text);
FieldByName('出生日期').AsString:=trim(dbedit3.Text);
FieldByName('籍贯').AsString:=trim(dbedit4.Text);
FieldByName('民族').AsString:=trim(combobox2.Text);
FieldByName('性别').AsString:=trim(combobox1.Text);
FieldByName('身份证号').AsString:=trim(dbedit5.Text);
FieldByName('政治面貌').AsString:=trim(combobox3.Text);
FieldByName('部门代码').AsString:=trim(dbedit6.Text);
FieldByName('进入部门日期').AsString:=trim(dbedit7.Text);
FieldByName('职务代码').AsString:=trim(dbedit8.Text);
FieldByName('职称').AsString:=trim(combobox4.Text);
FieldByName('起薪日期').AsString:=trim(dbedit9.Text);
FieldByName('学历').AsString:=trim(combobox5.Text);
FieldByName('专业').AsString:=trim(dbedit10.Text);
FieldByName('地址').AsString:=trim(dbedit12.Text);
FieldByName('电话').AsString:=trim(dbedit13.Text);
FieldByName('邮箱').AsString:=trim(dbedit14.Text);
FieldByName('在岗状态').AsString:=trim(combobox6.Text);
FieldByName('外语').AsString:=trim(dbedit11.Text);
post;
end;
application.MessageBox('修改成功!','提示',64);
end;

end.