mainunit.pas

人事管理系统 人事管理系统

               viewform.DelRecord(dataform.txquy,mainid);
             end;
         end;
      4: begin   //js active
           if messagebox(0,pchar('真的要删除减少职工'+dataform.jsquy.Fields.fieldbyname('name').AsString+'吗？'),'提示',MB_OKCANCEL+MB_ICONQUESTION) = IDOK  then
             begin
               mainid:= dataform.jsquy.Fields.fieldbyname('main_id').AsInteger;
               barform.DelNode(barform.jsTree,mainid);
               viewform.DelRecord(dataform.jsquy,mainid);
             end;
         end;
    end;    // case
  end
else
  begin
    messagebox(application.Handle,'记录不在浏览状态不能删除记录！','提示',MB_OK+MB_ICONQUESTION);
  end;
end;

procedure TMainForm.SearchBtnClick(Sender: TObject);
begin
  case barform.Tag of
    0: begin
         viewform.ZZView;
         searchform.InitSearch('ZZ');
       end;
    1: begin
         viewform.NTView;
         searchform.InitSearch('NT');
       end;
    2: begin
         viewform.TYView;
         searchform.InitSearch('TY');
       end;
    3: begin
         viewform.TXView;
         searchform.InitSearch('TX');
       end;
    4: begin
         searchform.InitSearch('JS');
         viewform.JSView;
       end;
  end;    // case
    searchform.Show;
end;

procedure TMainForm.MovbtnClick(Sender: TObject);
begin
if viewform.Tag = 1 then
  begin
      case barform.Tag of    //
        0: begin   //zz
             movform.NTRadBtn.Checked := true;
             movform.ShowModal;
           end;
        1: begin   //nt
             movform.TXRadBtn.Checked := true;
             movform.NTRadBtn.Enabled := false;
             movform.ShowModal;
           end;
        2: begin   //ty
             movform.TXRadBtn.Checked := true;
             movform.NTRadBtn.Enabled := false;
             movform.ShowModal;
           end;
        3: begin   //tx
             movform.JSRadBtn.Checked := true;
             movform.NTRadBtn.Enabled := false;
             movform.TXRadBtn.Enabled := false;
             movform.ShowModal;
           end;
        4: begin   //js

           end;
      end;    // case
  end
else
  begin
    messagebox(application.Handle,'记录不在浏览状态不能调动人员！','提示',MB_OK+MB_ICONQUESTION);
  end;
end;

procedure TMainForm.dd2Click(Sender: TObject);
begin
  barform.ZZenter;
end;

procedure TMainForm.dd3Click(Sender: TObject);
begin
  barform.NTenter;
end;

procedure TMainForm.dd4Click(Sender: TObject);
begin
  barform.TYenter;
end;

procedure TMainForm.T1Click(Sender: TObject);
begin
  barform.TXenter;
end;

procedure TMainForm.S1Click(Sender: TObject);
begin
  barform.JSenter;
end;

procedure TMainForm.X1Click(Sender: TObject);
begin
  close;
end;

procedure TMainForm.L1Click(Sender: TObject);
begin
  editlistform.ShowModal;
end;

procedure TMainForm.D2Click(Sender: TObject);
begin
  if not assigned(editdwform) then
    editdwform := teditdwform.Create(application);
    editdwform.ShowModal;
end;

procedure TMainForm.H2Click(Sender: TObject);
begin
  messagebox(application.Handle,
             '关于本软件的使用问题，请与作者直接联系!',
             '帮助',mb_ok+mb_iconinformation);
end;

procedure TMainForm.S2Click(Sender: TObject);
begin
  printer.Refresh;
  if printer.Printers.Count = 0 then
    messagebox(application.Handle,
               '你未安装打印机，请先安装打印机!','警告',
               MB_OK+MB_ICONWARNING)
  else
    printersetupdialog1.Execute;
end;

procedure TMainForm.A2Click(Sender: TObject);
begin
  if not assigned(aboutform) then
    aboutform := taboutform.create(self);
  aboutform.showmodal;
end;

procedure TMainForm.Z1Click(Sender: TObject);
begin
if messagebox(application.Handle,
              '你真的要清空在职人员数据库吗？','警告',
              mb_yesno + mb_iconquestion) =IDYES then
  begin
    EmptyData('ZZ');
    DATAFORM.ZZquy.Requery();
  end;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
if messagebox(application.Handle,
              '你真的要清空内退人员数据库吗？','警告',
              mb_yesno + mb_iconquestion) =IDYES then
  begin
    EmptyData('NT');
    DATAFORM.NTquy.Requery();
  end;

end;

procedure TMainForm.Y1Click(Sender: TObject);
begin
if messagebox(application.Handle,
              '你真的要清空退养人员数据库吗？','警告',
              mb_yesno + mb_iconquestion) =IDYES then
  begin
    EmptyData('TY');
    DATAFORM.TYquy.Requery();
  end;

end;

procedure TMainForm.T2Click(Sender: TObject);
begin
if messagebox(application.Handle,
              '你真的要清空退休人员数据库吗？','警告',
              mb_yesno + mb_iconquestion) =IDYES then
  begin
    EmptyData('TX');
    DATAFORM.TXquy.Requery();
  end;

end;

procedure TMainForm.S4Click(Sender: TObject);
begin
if messagebox(application.Handle,
              '你真的要清空减少人员数据库吗？','警告',
              mb_yesno + mb_iconquestion) =IDYES then
  begin
    EmptyData('JS');
    DATAFORM.JSquy.Requery();
  end;

end;

procedure TMainForm.A3Click(Sender: TObject);
begin
if messagebox(application.Handle,
              '你真的要清空所有人员数据库吗？','警告',
              mb_yesno + mb_iconquestion) =IDYES then
  begin
    EmptyData('');
    DATAFORM.ZZquy.Requery();
    dataform.NTquy.Requery();
    dataform.TYquy.Requery();
    dataform.TXquy.Requery();
    dataform.JSquy.Requery();
  end;
end;

procedure TMainForm.Z2Click(Sender: TObject);
begin
  dataform.selquy.Close;
  dataform.selquy.SQL.Clear;
  dataform.selquy.SQL.LoadFromFile(filepath+'sql\zzjb.sql');
  dataform.selquy.Open;
  frDBDataSet1.DataSet := dataform.selquy;
  frReport1.LoadFromFile(filepath+'report\zzjb.frf');
  frReport1.ShowReport;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
  dataform.selquy.Close;
  dataform.selquy.SQL.Clear;
  dataform.selquy.SQL.LoadFromFile(filepath+'sql\ntjb.sql');
  dataform.selquy.Open;
  frDBDataSet1.DataSet := dataform.selquy;
  frReport1.LoadFromFile(filepath+'report\ntjb.frf');
  frReport1.ShowReport;
end;

procedure TMainForm.Y2Click(Sender: TObject);
begin
  dataform.selquy.Close;
  dataform.selquy.SQL.Clear;
  dataform.selquy.SQL.LoadFromFile(filepath+'sql\tyjb.sql');
  dataform.selquy.Open;
  frDBDataSet1.DataSet := dataform.selquy;
  frReport1.LoadFromFile(filepath+'report\tyjb.frf');
  frReport1.ShowReport;

end;

procedure TMainForm.X2Click(Sender: TObject);
begin
  dataform.selquy.Close;
  dataform.selquy.SQL.Clear;
  dataform.selquy.SQL.LoadFromFile(filepath+'sql\txjb.sql');
  dataform.selquy.Open;
  frDBDataSet1.DataSet := dataform.selquy;
  frReport1.LoadFromFile(filepath+'report\txjb.frf');
  frReport1.ShowReport;

end;

procedure TMainForm.J1Click(Sender: TObject);
begin
  dataform.selquy.Close;
  dataform.selquy.SQL.Clear;
  dataform.selquy.SQL.LoadFromFile(filepath+'sql\jsjb.sql');
  dataform.selquy.Open;
  frDBDataSet1.DataSet := dataform.selquy;
  frReport1.LoadFromFile(filepath+'report\jsjb.frf');
  frReport1.ShowReport;
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
  showmessage(inttostr(barform.Tag));
end;

procedure TMainForm.HelpBtnClick(Sender: TObject);
begin
  h2.Click;
end;

end.