main.~pas

本系统是用delphi工具制作而成的一个简单的人事管理系统。

      end;
    end;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('insert into admin  values (:A,:B,:C,:D,:E,:F,:G)');
  ADOQuery1.Parameters.ParamByName('A').Value:='admin';
  ADOQuery1.Parameters.ParamByName('B').Value:='123';
  ADOQuery1.Parameters.ParamByName('C').Value:='人事部';
  ADOQuery1.Parameters.ParamByName('D').Value:=true;
  ADOQuery1.Parameters.ParamByName('E').Value:=true;
  ADOQuery1.Parameters.ParamByName('F').Value:=true;
  ADOQuery1.Parameters.ParamByName('G').Value:=formatdatetime('yyyy/mm/dd hh:mm:ss', now) ;
  try
    ADOQuery1.ExecSQL;
    MessageDlg('你已经成功初始化系统！！' + #13 + '系统初始帐号：admin 初始密码：123',mtInformation , [mbYes],0);
  except
    MessageDlg('操作失败！！', mtInformation, [mbYes],0);
  end;
  ADOQuery1.Free;
  end;
end;

procedure Tmainform.SpeedButton8Click(Sender: TObject);
var
  ADOQuery1:TADOQuery;
  right1:boolean;
  right2:boolean;
  right3:boolean;
begin
  if (c1.Checked =false) and (c2.Checked=false) and (c3.Checked= false) then
    c3.Checked := true;
  right1:=c1.Checked;
  right2:=c2.Checked;
  right3:=c3.Checked;
  ADOQuery1:=TADOQuery.Create(self);
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                               extractfilepath(application.ExeName)+
                              'database.mdb;Persist Security Info=False';
  if rb1.Checked then
  begin
    if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then
    begin
      messagedlg('请将资料填写完整！',mtWarning,[mbOK],0);
      exit;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from admin where name=:A');
    ADOQuery1.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
    ADOQuery1.Open;
    if ADOQuery1.RecordCount>0 then
    begin
      MessageDlg('这个用户已存在！！', mtInformation, [mbYes],0);
      ADOQuery1.Free;
      exit;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('insert into admin  values (:A,:B,:C,:D,:E,:F,:G)');
    ADOQuery1.Parameters.ParamByName('A').Value:=edit1.Text;
    ADOQuery1.Parameters.ParamByName('B').Value:=edit2.Text;
    ADOQuery1.Parameters.ParamByName('C').Value:=edit3.Text;
    ADOQuery1.Parameters.ParamByName('D').Value:=right1;
    ADOQuery1.Parameters.ParamByName('E').Value:=right2;
    ADOQuery1.Parameters.ParamByName('F').Value:=right3;
    ADOQuery1.Parameters.ParamByName('G').Value:=formatdatetime('yyyy/mm/dd hh:mm:ss', now) ;
    try
      ADOQuery1.ExecSQL;
      MessageDlg('你已经成功的添加了一条记录！！',mtInformation , [mbYes],0);
      edit1.Text:='';
      edit2.Text:='';
    except
      MessageDlg('操作失败！！',mtInformation , [mbYes],0);
    end;
    ADOQuery1.Free;
  end;

  if rb2.Checked then
  begin
    if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then
    begin
      messagedlg('请将资料填写完整！',mtWarning,[mbOK],0);
      exit;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from admin where name=:A');
    ADOQuery1.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
    ADOQuery1.Open;
    if ADOQuery1.RecordCount<=0 then
    begin
      MessageDlg('这个用户不存在！！', mtInformation, [mbYes],0);
      ADOQuery1.Free;
      exit;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('delete from admin where name=:A');
    ADOQuery1.Parameters.ParamByName('A').Value:= edit1.text;
    try
      ADOQuery1.ExecSQL;
    except
    begin
      MessageDlg('操作失败！！', mtInformation, [mbYes],0);
      exit;
    end;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('insert into admin  values (:A,:B,:C,:D,:E,:F,:G)');
    ADOQuery1.Parameters.ParamByName('A').Value:=edit1.Text;
    ADOQuery1.Parameters.ParamByName('B').Value:=edit2.Text;
    ADOQuery1.Parameters.ParamByName('C').Value:=edit3.Text;
    ADOQuery1.Parameters.ParamByName('D').Value:=right1;
    ADOQuery1.Parameters.ParamByName('E').Value:=right2;
    ADOQuery1.Parameters.ParamByName('F').Value:=right3;
    ADOQuery1.Parameters.ParamByName('G').Value:=formatdatetime('yyyy/mm/dd hh/mm/ss', now) ;
    try
      ADOQuery1.ExecSQL;
      MessageDlg('你已经成功的修改了一条记录！！',mtInformation , [mbYes],0);
      edit1.Text:='';
      edit2.Text:='';
    except
      MessageDlg('操作失败！！',mtInformation , [mbYes],0);
    end;
    ADOQuery1.Free;
  end;
//  由于用update语句进行数据修改一直提示有语法错误，所以改用苯办法，先删除数据再新建数据。
//  请帮我看下下面update语句到底哪儿错了，谢谢。V_V
//  ADOQuery1.Close;
//  ADOQuery1.SQL.Clear;
//  ADOQuery1.SQL.Add('update admin set password=:A,department=:B,r1=:C,r2=:D,r3=:E,stamp=:F where name=:G');
//  ADOQuery1.Parameters.ParamByName('A').Value:=edit2.Text;
//  ADOQuery1.Parameters.ParamByName('B').Value:=edit3.Text;
//  ADOQuery1.Parameters.ParamByName('C').Value:=right1;
//  ADOQuery1.Parameters.ParamByName('D').Value:=right2;
//  ADOQuery1.Parameters.ParamByName('E').Value:=right3;
//  ADOQuery1.Parameters.ParamByName('F').Value:=formatdatetime('yyyy/mm/dd hh/mm/ss', now);
//  ADOQuery1.Parameters.ParamByName('G').Value:=edit1.Text;
//  try
//    ADOQuery1.ExecSQL;
//    MessageDlg('你已经成功修改了一条记录！！',mtInformation , [mbYes],0);
//  except
//    MessageDlg('操作失败！！',mtInformation , [mbYes],0);
//  end;

  if rb3.Checked then
  begin
    if edit1.Text = '' then
    begin
      messagedlg('用户名不能为空！',mtWarning,[mbOK],0);
      exit;
    end;
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from admin where name=:A');
    ADOQuery1.Parameters.ParamByName('A').Value:=Trim(edit1.Text);
    ADOQuery1.Open;
    if ADOQuery1.RecordCount<=0 then
    begin
      MessageDlg('这个用户不存在！！', mtInformation, [mbYes],0);
      ADOQuery1.Free;
      exit;
    end;
    if MessageDlg('你真的要删除这条记录吗？', mtInformation,[mbYes,mbNo],0)= mrYes then
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('delete from admin where name=:A');
      ADOQuery1.Parameters.ParamByName('A').Value:= edit1.text;
      try
        ADOQuery1.ExecSQL;
        MessageDlg('删除记录成功！！', mtInformation, [mbYes],0);
      except
        MessageDlg('操作失败！！', mtInformation, [mbYes],0);
      end;
    end;
    ADOQuery1.Free;
  end;
  ADOQuery1.ClearFields;
end;


procedure Tmainform.N9Click(Sender: TObject);
begin
  tabsheet3.Show;
end;

procedure Tmainform.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
combobox1.Items.Clear;
combobox1.Items.Add('按编号查询');
combobox1.Items.Add('按姓名查询');
combobox1.Items.Add('按身份证号查询');
combobox1.Items.Add('按出生年月查询');
combobox1.Items.Add('按工资查询');
combobox1.Items.Add('按参加工作年月查询');
combobox1.Items.Add('全部');
combobox1.ItemIndex:=0;
end;

procedure Tmainform.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
combobox1.Items.Clear;
combobox1.Items.Add('按编号查询');
combobox1.Items.Add('按姓名查询');
combobox1.Items.Add('按身份证号查询');
combobox1.Items.Add('按出生年月查询');
combobox1.Items.Add('按工资查询');
combobox1.Items.Add('按参加工作年月查询');
combobox1.Items.Add('全部');
combobox1.ItemIndex:=0;
end;

procedure Tmainform.ComboBox1Exit(Sender: TObject);
begin
  if (combobox1.Text = '按编号查询') or (combobox1.Text = '按姓名查询') or (combobox1.Text = '按身份证号查询') or (combobox1.Text = '按出生年月查询') or (combobox1.Text = '按工资查询') or (combobox1.Text = '按参加工作年月查询') or (combobox1.Text = '全部') then
  else
  begin
    combobox1.Items.Clear;
    combobox1.Items.Add('按编号查询');
    combobox1.Items.Add('按姓名查询');
    combobox1.Items.Add('按身份证号查询');
    combobox1.Items.Add('按出生年月查询');
    combobox1.Items.Add('按工资查询');
    combobox1.Items.Add('按参加工作年月查询');
    combobox1.Items.Add('全部');
    combobox1.ItemIndex:=0;
  end;
end;

procedure Tmainform.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel2.BevelInner:= bvLowered ;
panel2.BevelOuter:= bvLowered ;
end;

procedure Tmainform.Panel2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel2.BevelInner:= bvRaised ;
panel2.BevelOuter:= bvRaised ;
end;

procedure Tmainform.Edit8Enter(Sender: TObject);
begin
edit8.Text:='';
end;

procedure Tmainform.Edit9Enter(Sender: TObject);
begin
edit9.Text:='';
end;

procedure Tmainform.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex = 0 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=true;
  edit8.Text:='开始编号';
  edit8.Text:='结束编号';
  exit;
end;
if combobox1.ItemIndex = 1 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=false;
  edit8.Text:='姓名';
  exit;
end;
if combobox1.ItemIndex = 2 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=true;
  edit8.Text:='身份证号';
  edit8.Text:='结束身份证号';
  exit;
end;
if combobox1.ItemIndex = 3 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=true;
  edit8.Text:='出生年月';
  edit8.Text:='结束编号';
  exit;
end;
if combobox1.ItemIndex = 4 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=true;
  edit8.Text:='开始编号';
  edit8.Text:='结束编号';
  exit;
end;
if combobox1.ItemIndex = 5 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=true;
  edit8.Text:='开始编号';
  edit8.Text:='结束编号';
  exit;
end;
if combobox1.ItemIndex = 6 then
begin
  maskedit1.Visible:=false;
  maskedit2.Visible:=false;
  edit8.Visible:=true;
  edit9.Visible:=true;
  edit8.Text:='开始编号';
  edit8.Text:='结束编号';
  exit;
end;
end;

end.