⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 hm_pinf1.pas

📁 本课题是为企业人事管理提供现代化技术支持的管理信息系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 

procedure Thm_pinf.Label50MouseEnter(Sender: TObject);
begin
Label50.Font.Style:=[fsItalic, fsUnderline];
end;

procedure Thm_pinf.Label50MouseLeave(Sender: TObject);
begin
Label50.Font.Style:=[];
end;

procedure Thm_pinf.DBGrid1CellClick(Column: TColumn);
begin
   if not (PageControl1.ActivePage = TabSheet1) then
   begin
      PageControl1.ActivePage:=TabSheet1;
   end
   else
   begin
      TabSheet1Show(nil);
   end;


end;

procedure Thm_pinf.TabSheet1Show(Sender: TObject);
var
  i: integer;
begin  //DBGrid1.Fields[0].AsString <> '' and
  ADOQuery1.close;
  ADOQuery1.Open;
  if not ADOQuery1.Eof then
  begin
    hm_pdep.Clear;
    for i :=0 to ADOQuery1.RecordCount - 1 do
    begin
      hm_pdep.AddItem(ADOQuery1.FieldByName('名称').AsString, nil);
      ADOQuery1.next;
    end;
  end;
  ADOQuery3.close;
  if (DBGrid1.Enabled =true) and (trim(DBGrid1.Fields[0].AsString)<>'') then
  begin
  ADOQuery3.SQL.Clear;
  ADOQuery3.SQL.Text := 'select * from 基本信息 where 编号=' + DBGrid1.Fields[0].AsString;
  ADOQuery3.Open;
  if FileExists(ExtractFilePath(Application.ExeName) + 'images\' + ADOQuery3.FieldByName('照片').AsString) then
    imgi.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'images\' + ADOQuery2.FieldByName('照片').AsString)
  else
    imgi.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'images\1.jpg');
  end;
end;

procedure Thm_pinf.TreeView1Click(Sender: TObject);
begin
  DBGrid1.Enabled :=true;
  ADOQuery2.close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Text := 'select * from 基本信息 where 部门编号 < '+inttostr(indextable[treeview1.Selected.AbsoluteIndex+1,1]+strtoint(floattostr(intpower(10,3-treeview1.Selected.Level))))+' and 部门编号>='+inttostr(indextable[treeview1.Selected.AbsoluteIndex+1,1]);
  ADOQuery2.Open;
  Label51.Caption:=inttostr(ADOQuery2.RecordCount)+' 人';
end;

procedure Thm_pinf.btninquClick(Sender: TObject);
begin
  ShowMessage('写入'+hm_pname.EditText);
  ADOQuery2.close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Text := 'select * from 基本信息 where 姓名 ='''+hm_pname.EditText+'''';
  ADOQuery2.Open;
  Label51.Caption:=inttostr(ADOQuery2.RecordCount)+' 人';
end;

procedure Thm_pinf.TabSheet2Show(Sender: TObject);
begin
  ADOQuery4.close;
  if (DBGrid1.Enabled =true) and (trim(DBGrid1.Fields[0].AsString)<>'') then
  begin
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Text := 'select * from 工作经历 where 员工编号=' + DBGrid1.Fields[0].AsString;
  ADOQuery4.Open;
  edit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;
  end;
end;
procedure Thm_pinf.TabSheet3Show(Sender: TObject);
begin
  ADOQuery4.close;
  if (DBGrid1.Enabled =true) and (trim(DBGrid1.Fields[0].AsString)<>'') then
  begin
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Text := 'select * from 社会关系 where 员工编号=' + DBGrid1.Fields[0].AsString;
  ADOQuery4.Open;
  edit6.Clear;edit7.Clear;edit8.Clear;edit9.Clear;memo1.Clear;
  end;
end;
procedure Thm_pinf.TabSheet4Show(Sender: TObject);
begin
  ADOQuery4.close;
  if (DBGrid1.Enabled =true) and (trim(DBGrid1.Fields[0].AsString)<>'') then
  begin
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Text := 'select * from 奖惩记录 where 员工编号=' + DBGrid1.Fields[0].AsString;
  ADOQuery4.Open;
  combobox1.Clear;
  edit10.Clear;edit11.Clear;edit12.Clear;memo2.Clear;
  end;
end;
procedure Thm_pinf.TabSheet5Show(Sender: TObject);
begin
  if (DBGrid1.Enabled =true) and (trim(DBGrid1.Fields[0].AsString)<>'') then
  begin
  ADOQuery4.close;
  ADOQuery4.SQL.Clear;
  ADOQuery4.SQL.Text := 'select * from 培训经历 where 员工编号=' + DBGrid1.Fields[0].AsString;
  ADOQuery4.Open;
  edit13.Clear;edit14.Clear;edit15.Clear;edit16.Clear;edit17.Clear;edit18.Clear;
  end;
end;

procedure Thm_pinf.dbgrid2CellClick(Column: TColumn);
begin
Edit1.Text := DBGrid2.Fields[0].AsString ;
Edit2.Text := DBGrid2.Fields[1].AsString ;
Edit3.Text := DBGrid2.Fields[2].AsString ;
Edit4.Text := DBGrid2.Fields[3].AsString ;
Edit5.Text := DBGrid2.Fields[4].AsString ;
end;

procedure Thm_pinf.SpeedButton2Click(Sender: TObject);
begin
  SpeedButton5.Visible:=true;
  SpeedButton6.Visible:=true;
  SpeedButton3.Enabled:=false;
  SpeedButton4.Enabled:=false;
  if PageControl1.ActivePageIndex = 0 then
  begin
      ADOQuery3.Edit;
  end
  else
  begin
      ADOQuery4.Edit;
  end;

end;

procedure Thm_pinf.SpeedButton5Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex = 0 then
  begin
     hm_time.EditText:=datetostr(date);
     ADOQuery3.Post;

  end
  else
  begin
     ADOQuery4.FieldByName('员工编号').AsString:=DBGrid1.Fields[0].AsString;
  end;
  if PageControl1.ActivePageIndex = 1 then
  begin
     ADOQuery4.FieldByName('开始时间').AsString:=Edit1.Text;
     ADOQuery4.FieldByName('结束时间').AsString:=Edit2.Text;
     ADOQuery4.FieldByName('公司').AsString:=Edit3.Text;
     ADOQuery4.FieldByName('部门').AsString:=Edit4.Text;
     ADOQuery4.FieldByName('职责').AsString:=Edit5.Text;
     ADOQuery4.Post;
  end;
  if PageControl1.ActivePageIndex = 2 then
  begin
     ADOQuery4.FieldByName('姓名').AsString:=Edit6.Text;
     ADOQuery4.FieldByName('关系').AsString:=Edit7.Text;
     ADOQuery4.FieldByName('电话').AsString:=Edit8.Text;
     ADOQuery4.FieldByName('单位').AsString:=Edit9.Text;
     ADOQuery4.FieldByName('备注').AsString:=Memo1.Text;
     ADOQuery4.Post;
  end;
  if PageControl1.ActivePageIndex = 3 then
  begin
     ADOQuery4.FieldByName('类别').AsString:=ComboBox1.Text;
     ADOQuery4.FieldByName('事件').AsString:=Edit10.Text;
     ADOQuery4.FieldByName('处理部门').AsString:=Edit11.Text;
     ADOQuery4.FieldByName('日期').AsString:=Edit12.Text;
     ADOQuery4.FieldByName('结果').AsString:=Memo2.Text;
     ADOQuery4.Post;
  end;
    if PageControl1.ActivePageIndex = 4 then
  begin
     ADOQuery4.FieldByName('培训课程').AsString:=Edit13.Text;
     ADOQuery4.FieldByName('期限').AsString:=Edit14.Text;
     ADOQuery4.FieldByName('开始时间').AsString:=Edit15.Text;
     ADOQuery4.FieldByName('结束时间').AsString:=Edit16.Text;
     ADOQuery4.FieldByName('培训单位').AsString:=Edit17.Text;
     ADOQuery4.FieldByName('证书').AsString:=Edit18.Text;
     ADOQuery4.Post;
  end;
  SpeedButton6Click(nil);

end;

procedure Thm_pinf.SpeedButton3Click(Sender: TObject);
begin
  SpeedButton5.Visible:=true;
  SpeedButton6.Visible:=true;
  SpeedButton2.Enabled:=false;
  SpeedButton4.Enabled:=false;
  if PageControl1.ActivePageIndex = 0 then
  begin
      ADOQuery3.Append;
  end
  else
  begin
      ADOQuery4.Append;
  end;
end;


procedure Thm_pinf.dbgrid3CellClick(Column: TColumn);
begin
Edit6.Text := DBGrid3.Fields[0].AsString ;
Edit7.Text := DBGrid3.Fields[1].AsString ;
Edit8.Text := DBGrid3.Fields[2].AsString ;
Edit9.Text := DBGrid3.Fields[3].AsString ;
Memo1.Text := DBGrid3.Fields[4].AsString ;
end;


procedure Thm_pinf.dbgrid4CellClick(Column: TColumn);
begin
ComboBox1.Text := DBGrid4.Fields[0].AsString ;
Edit10.Text := DBGrid4.Fields[1].AsString ;
Edit11.Text := DBGrid4.Fields[2].AsString ;
Edit12.Text := DBGrid4.Fields[3].AsString ;
Memo2.Text := DBGrid4.Fields[4].AsString ;
end;

procedure Thm_pinf.dbgrid5CellClick(Column: TColumn);
begin
Edit13.Text := DBGrid5.Fields[0].AsString ;
Edit14.Text := DBGrid5.Fields[1].AsString ;
Edit15.Text := DBGrid5.Fields[2].AsString ;
Edit16.Text := ADOQuery4.FieldByName('结束时间').AsString;
Edit17.Text := DBGrid5.Fields[3].AsString ;
Edit18.Text  := DBGrid5.Fields[4].AsString ;
end;

procedure Thm_pinf.SpeedButton4Click(Sender: TObject);
var
 tempstr:string;
begin
  if MessageBox(handle, '要删除此条目吗?', '提示', mb_IconQuestion + mb_OkCancel) = idOk then
  begin
      if PageControl1.ActivePageIndex = 0 then
      begin
        ADOQuery3.close;
        ADOQuery3.SQL.Clear;
        ADOQuery3.SQL.Text := 'delete from 基本信息 where 编号 ='+DBGrid1.Fields[0].AsString;
        ADOQuery3.ExecSQL;
        ADOQuery2.ExecSQL;
      end
      else
      begin
        tempstr:=ADOQuery4.FieldByName('条目号').AsString;
        ADOQuery4.close;
        ADOQuery4.SQL.Clear;
        ADOQuery4.SQL.Text := 'delete from '+PageControl1.ActivePage.Caption+' where 条目号 ='+tempstr;
        ADOQuery4.ExecSQL;
        PageControl1.ActivePage.OnShow(nil);
      end;

  end;
end;

procedure Thm_pinf.SpeedButton6Click(Sender: TObject);
begin
  SpeedButton5.Visible:=false;
  SpeedButton6.Visible:=false;
  SpeedButton2.Enabled:=true;
  SpeedButton3.Enabled:=true;
  SpeedButton4.Enabled:=true;
end;

procedure Thm_pinf.SpeedButton1Click(Sender: TObject);
var
  tempstr:string;
  tag:integer;
begin
   DBGrid1.Enabled :=true;
   ADOQuery2.close;
   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Text := 'select * from 基本信息 where 编号 > 0';
   if PageControl1.ActivePageIndex = 0 then
   begin
     if trim(hm_pnum.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 编号 = '+ trim(hm_pnum.EditText);
     end;
     if trim(hm_pname.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 姓名 = '''+ trim(hm_pname.EditText)+'''';
     end;
     if trim(hm_pcardid.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 身份证号 = '''+ trim(hm_pcardid.EditText)+'''';
     end;
     if trim(hm_psex.Text) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 性别 = '''+ trim(hm_psex.Text)+'''';
     end;
     if trim(hm_psorts.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 工种 = '''+ trim(hm_psorts.EditText)+'''';
     end;
     if trim(hm_pprovi.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 省市 = '''+ trim(hm_pprovi.EditText)+'''';
     end;
     if trim(hm_pfolk.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 民族 = '''+ trim(hm_pfolk.EditText)+'''';
     end;
     if trim(hm_pslevel.Text) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 学历 = '''+ trim(hm_pslevel.Text)+'''';
     end;
     if trim(hm_pspecial.EditText) <> '' then
     begin
         ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+'and 专业 = '''+ trim(hm_pspecial.EditText)+'''';
     end;

   end;
   tempstr:=' and 编号 in (select 员工编号 from ';
   tag:=0;
   tempstr:=tempstr+PageControl1.ActivePage.Caption+' where 条目号 >0 ';
   if PageControl1.ActivePageIndex = 1 then
   begin

     if trim(Edit3.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 公司 = '''+ trim(Edit3.Text)+'''';
     end;
     if trim(Edit5.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 职责 = '''+ trim(Edit5.Text)+'''';
     end;
   end;
   if PageControl1.ActivePageIndex = 2 then
   begin

     if trim(Edit6.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 姓名 = '''+ trim(Edit6.Text)+'''';
     end;
     if trim(Edit9.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 单位 = '''+ trim(Edit9.Text)+'''';
     end;
   end;
   if PageControl1.ActivePageIndex = 3 then
   begin

     if trim(Combobox1.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 类别 = '''+ trim(Combobox1.Text)+'''';
     end;
     if trim(Edit10.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 事件 = '''+ trim(Edit10.Text)+'''';
     end;
     if trim(Edit11.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 处理部门 = '''+ trim(Edit11.Text)+'''';
     end;
   end;
   if PageControl1.ActivePageIndex = 4 then
   begin

     if trim(Edit13.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 培训课程 = '''+ trim(Edit10.Text)+'''';
     end;
     if trim(Edit17.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 培训单位 = '''+ trim(Edit17.Text)+'''';
     end;
     if trim(Edit18.Text) <> '' then
     begin
         tag:=1;
         tempstr :=tempstr+'and 证书 = '''+ trim(Edit18.Text)+'''';
     end;
   end;
   if tag=1 then
   begin
      tempstr :=tempstr+' )';
      ADOQuery2.SQL.Text :=ADOQuery2.SQL.Text+ tempstr;
   end;
   ADOQuery2.Open;
   Label51.Caption:=inttostr(ADOQuery2.RecordCount)+' 人';
   Label21.Enabled:=true;
   Label46.Enabled:=true;
   Label47.Enabled:=true;
   Label48.Enabled:=true;
   Label49.Enabled:=true;
   Label50.Enabled:=true;
   SpeedButton1.Visible:=false;
   Image4.Visible:=false;

end;


end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -