D6HECHUAN/公用模块/企业资源/u_sys_dep_emp.~pas

unit u_sys_dep_emp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, BusinessSkinForm, bsSkinCtrls, dxExEdtr, dxCntner,
  dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, Menus;

type
  Tfrm_sys_dep_emp = class(TForm)
    t_sys_department: TADOQuery;
    t_sys_department1: TDataSource;
    t_sys_employee1: TDataSource;
    t_sys_employee: TADOQuery;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel2: TbsSkinPanel;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridMaskColumn;
    dxDBGrid3Column2: TdxDBGridMaskColumn;
    dxDBGrid3Column3: TdxDBGridMaskColumn;
    dxDBGrid3Column4: TdxDBGridMaskColumn;
    dxDBGrid3Column5: TdxDBGridMaskColumn;
    dxDBGrid3Column6: TdxDBGridMaskColumn;
    dxDBGrid3Column7: TdxDBGridDateColumn;
    dxDBGrid3Column8: TdxDBGridMaskColumn;
    dxDBGrid3Column9: TdxDBGridMaskColumn;
    dxDBGrid3Column10: TdxDBGridMaskColumn;
    bsSkinPanel4: TbsSkinPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    v_all_employee: TADOQuery;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    p_employee_change: TADOStoredProc;
    p_employee_delete: TADOStoredProc;
    t_sys_code_data: TADOQuery;
    t_sys_code: TADOQuery;
    t_sys_code_emp: TADOQuery;
    t_sys_code_data_all: TADOQuery;
    p_employee_change_no: TADOStoredProc;
    p_employee_delete_no: TADOStoredProc;
    bsSkinButton7: TbsSkinButton;
    dxDBGrid3Column11: TdxDBGridColumn;
    bsSkinButton8: TbsSkinButton;
    dxDBGrid3Column12: TdxDBGridCheckColumn;
    bsSkinButton13: TbsSkinButton;
    ADOQuery1: TADOQuery;
    dxDBGrid3Column13: TdxDBGridDateColumn;
    dxDBGrid3Column14: TdxDBGridDateColumn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    dxDBGrid1Column2: TdxDBGridCheckColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    procedure t_sys_departmentBeforePost(DataSet: TDataSet);
    procedure t_sys_employeeBeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure t_sys_department_twoBeforeInsert(DataSet: TDataSet);
    procedure t_sys_employeeBeforeInsert(DataSet: TDataSet);
    procedure t_sys_departmentDeleteError(DataSet: TDataSet;
      E: EDatabaseError; var Action: TDataAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure v_all_employeeAfterScroll(DataSet: TDataSet);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure t_sys_employeeAfterPost(DataSet: TDataSet);
    procedure t_sys_employeeBeforeEdit(DataSet: TDataSet);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure t_sys_employeeAfterInsert(DataSet: TDataSet);
    procedure N3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
  private
    function isopvisible(emp,otemp,quan:string):Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_dep_emp: Tfrm_sys_dep_emp;
  dep_emp_insert:boolean;
  dep_emp_name:string;

implementation

uses u_main, my_sys_function, u_data_share, u_sys_dep_emp_delete,
  u_sys_progress, u_sys_dep_emp_department;

{$R *.dfm}

procedure Tfrm_sys_dep_emp.t_sys_departmentBeforePost(
  DataSet: TDataSet);
begin
  table_before_post(t_sys_department,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_sys_dep_emp.t_sys_employeeBeforePost(DataSet: TDataSet);
begin
  table_before_post(t_sys_employee,'<27><><EFBFBD><EFBFBD>');
  if t_sys_employee.State=dsinsert then
    dep_emp_insert:=true
  else
    dep_emp_insert:=false;
end;

procedure Tfrm_sys_dep_emp.FormShow(Sender: TObject);
begin
  t_sys_department.open;
  t_sys_employee.open;
  v_all_employee.Open;
end;

procedure Tfrm_sys_dep_emp.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_data_share.t_sys_employee.requery;
  frm_data_share.t_sys_department.requery;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton1Click(Sender: TObject);
begin
  t_sys_department.insert;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_sys_department);
end;

procedure Tfrm_sys_dep_emp.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_sys_department);
end;

procedure Tfrm_sys_dep_emp.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_sys_department);
end;

procedure Tfrm_sys_dep_emp.bsSkinButton9Click(Sender: TObject);
begin
  t_sys_employee.insert;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton10Click(Sender: TObject);
begin
  table_post(t_sys_employee);
end;

procedure Tfrm_sys_dep_emp.bsSkinButton11Click(Sender: TObject);
begin
  if t_sys_employee.IsEmpty then
    exit;
  if v_all_employee.IsEmpty then
  begin
    if t_sys_employee.State=dsinsert then
    begin
      t_sys_employee.cancel;
    end  
    else
    begin
      t_sys_employee.cancel;
      p_employee_delete_no.Parameters.ParamByName('name').Value:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
      p_employee_delete_no.ExecProc;
      t_sys_employee.delete;
    end;
  end
  else
  begin
    try
      frm_sys_dep_emp_delete:=Tfrm_sys_dep_emp_delete.Create(self);
      frm_sys_dep_emp_delete.ShowModal;
    finally
      frm_sys_dep_emp_delete.Free;
      frm_sys_dep_emp_delete:=nil;
    end;
  end;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton12Click(Sender: TObject);
begin
  table_cancel(t_sys_employee);
end;

procedure Tfrm_sys_dep_emp.t_sys_department_twoBeforeInsert(
  DataSet: TDataSet);
begin
  table_before_insert(t_sys_department);
end;

procedure Tfrm_sys_dep_emp.t_sys_employeeBeforeInsert(DataSet: TDataSet);
begin
  table_before_insert(t_sys_department);
end;

procedure Tfrm_sys_dep_emp.t_sys_departmentDeleteError(
  DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
  showmessage('<27><><EFBFBD><EFBFBD>ְԱ<D6B0><D4B1>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>');
  abort;
end;

procedure Tfrm_sys_dep_emp.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(t_sys_department);
  CanClose:=frm_close_query(t_sys_employee);
end;

procedure Tfrm_sys_dep_emp.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_sys_dep_emp.v_all_employeeAfterScroll(DataSet: TDataSet);
begin
  if v_all_employee.IsEmpty then
    dxDBGrid3Column1.ReadOnly:=false
  else
    dxDBGrid3Column1.ReadOnly:=true;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton6Click(Sender: TObject);
var
  old_str,str:string;
begin
  if t_sys_employee.IsEmpty then
    exit;
  if v_all_employee.IsEmpty then
  begin
    showmessage('<27><>ְԱ<D6B0><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>л<EFBFBD>û<EFBFBD><C3BB>ʹ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>Ӹ<EFBFBD><D3B8>ģ<EFBFBD>');
    exit;
  end;
  str:=trim(InputBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ְԱ<D6B0>µ<EFBFBD><C2B5><EFBFBD><EFBFBD><EFBFBD>', '<27>µ<EFBFBD><C2B5><EFBFBD><EFBFBD>֣<EFBFBD>', ''));
  if str=''then
  begin
    exit;
  end;
  try
    old_str:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    t_sys_employee.Edit;
    t_sys_employee['<27><><EFBFBD><EFBFBD>']:=str;
    t_sys_employee.post;
    p_employee_change.Parameters.ParamByName('old_name').Value:=old_str;
    p_employee_change.Parameters.ParamByName('new_name').Value:=str;
    p_employee_change.ExecProc;
    v_all_employee.requery;
  except
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>');
  end;
end;

procedure Tfrm_sys_dep_emp.t_sys_employeeAfterPost(DataSet: TDataSet);
begin
  if dep_emp_insert then
  begin
    if not ASSIGNED(frm_sys_progress) then
      frm_sys_progress:=tfrm_sys_progress.Create(self);
    frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD>Ȩ<EFBFBD>޴<EFBFBD><DEB4>롣<EFBFBD><EBA1A3><EFBFBD><EFBFBD>';
    frm_sys_progress.Show;
    frm_sys_progress.bsSkinGauge1.MaxValue:=20000;
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;
    frm_sys_progress.Update;

    t_sys_code.close;
    t_sys_code.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data_all.close;
    t_sys_code_data_all.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data.close;
    t_sys_code_data.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_emp.Close;
    t_sys_code_emp.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    frm_data_share.t_sys_employee.requery;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    frm_sys_progress.bsSkinGauge1.MaxValue:=10+t_sys_code.RecordCount
      +frm_data_share.t_sys_employee.RecordCount*(t_sys_code_data_all.RecordCount*2-1);
    t_sys_code.first;
    while not t_sys_code.eof do
    begin
      t_sys_code_emp.insert;
      t_sys_code_emp['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>']:=t_sys_code['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>'];
      t_sys_code_emp['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_code['һ<><D2BB>ģ<EFBFBD><C4A3>'];
      t_sys_code_emp['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_code['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
      t_sys_code_emp['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_code['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_sys_code_emp['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
      t_sys_code_emp['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
      t_sys_code_emp.post;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
      t_sys_code.next;
    end;

    frm_data_share.t_sys_employee.first;
    while not frm_data_share.t_sys_employee.eof do
    begin
      if frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>']<>t_sys_employee['<27><><EFBFBD><EFBFBD>'] then
      begin
        t_sys_code_data_all.first;
        while not t_sys_code_data_all.eof do
        begin
          t_sys_code_data.insert;
          t_sys_code_data['<27><>Ա']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'];
          t_sys_code_data['<27><><EFBFBD><EFBFBD>']:=t_sys_code_data_all['<27><><EFBFBD><EFBFBD>'];
//          t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=isopvisible(t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'],t_sys_code_data_all['<27><><EFBFBD><EFBFBD>']);
          t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
          t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
          t_sys_code_data['ְԱ']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
          t_sys_code_data.post;
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          t_sys_code_data_all.next;
        end;
      end;
      frm_data_share.t_sys_employee.next;
    end;

    frm_data_share.t_sys_employee.first;
    while not frm_data_share.t_sys_employee.eof do
    begin
      t_sys_code_data_all.first;
      while not t_sys_code_data_all.eof do
      begin
        t_sys_code_data.insert;
        t_sys_code_data['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
        t_sys_code_data['<27><><EFBFBD><EFBFBD>']:=t_sys_code_data_all['<27><><EFBFBD><EFBFBD>'];
        t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
        t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
        t_sys_code_data['ְԱ']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'];
        t_sys_code_data.post;
        frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
        t_sys_code_data_all.next;
      end;
      frm_data_share.t_sys_employee.next;
    end;

    t_sys_code_data.insert;
    t_sys_code_data['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    t_sys_code_data['<27><><EFBFBD><EFBFBD>']:='3006';
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['ְԱ']:='<27>׼۹<D7BC><DBB9><EFBFBD>';
    t_sys_code_data.post;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data.insert;
    t_sys_code_data['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    t_sys_code_data['<27><><EFBFBD><EFBFBD>']:='3006';
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['ְԱ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
    t_sys_code_data.post;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data.insert;
    t_sys_code_data['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    t_sys_code_data['<27><><EFBFBD><EFBFBD>']:='3006';
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['ְԱ']:='ȫ<><C8AB><EFBFBD>׼<EFBFBD>';
    t_sys_code_data.post;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data.insert;
    t_sys_code_data['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    t_sys_code_data['<27><><EFBFBD><EFBFBD>']:='3006';
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['ְԱ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
    t_sys_code_data.post;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data.insert;
    t_sys_code_data['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    t_sys_code_data['<27><><EFBFBD><EFBFBD>']:='3006';
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_sys_code_data['ְԱ']:='һ<><D2BB><EFBFBD>ۼ<EFBFBD>';
    t_sys_code_data.post;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    frm_sys_progress.close;
    frm_sys_progress:=nil;
  end;
  if dep_emp_name<>t_sys_employee['<27><><EFBFBD><EFBFBD>'] then
  begin
    p_employee_change_no.Parameters.ParamByName('old_name').Value:=dep_emp_name;
    p_employee_change_no.Parameters.ParamByName('new_name').Value:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
    p_employee_change_no.ExecProc;
  end;
end;

procedure Tfrm_sys_dep_emp.t_sys_employeeBeforeEdit(DataSet: TDataSet);
begin
  dep_emp_name:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
end;

procedure Tfrm_sys_dep_emp.bsSkinButton7Click(Sender: TObject);
begin
  if t_sys_employee.isempty then
    exit;
  try
    frm_sys_dep_emp_department:=Tfrm_sys_dep_emp_department.Create(self);
    frm_sys_dep_emp_department.ShowModal;
  finally
    frm_sys_dep_emp_department.Free;
    frm_sys_dep_emp_department:=nil;
  end;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton8Click(Sender: TObject);
begin
  if t_sys_employee.IsEmpty then
    exit;
  if t_sys_employee['ͣ<><CDA3>']=0 then begin
    t_sys_employee.Edit;
    t_sys_employee['ͣ<><CDA3>']:=1;
    t_sys_employee.Post;
  end else begin
    t_sys_employee.Edit;
    t_sys_employee['ͣ<><CDA3>']:=0;
    t_sys_employee.Post;
  end;

end;

procedure Tfrm_sys_dep_emp.t_sys_employeeAfterInsert(DataSet: TDataSet);
begin
  t_sys_employee['ͣ<><CDA3>']:=0;

end;

procedure Tfrm_sys_dep_emp.N3Click(Sender: TObject);
var
  aQuery:TADOQuery;
begin
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      Close;SQL.Clear;
      SQL.Add('Select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+t_sys_employee.fieldByName('<27><><EFBFBD><EFBFBD>').AsString+''' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><>'''+t_sys_employee.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' and (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> between '''+t_sys_employee.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''' and '''+t_sys_employee.fieldByName('ͣ<><CDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString+''')');
      Open;
      First;
      while not eof do begin
        Edit;
        FieldByName('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>').AsString:=t_sys_employee.fieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
        Post;
        Next;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;
end;

procedure Tfrm_sys_dep_emp.N1Click(Sender: TObject);
begin
     if not ASSIGNED(frm_sys_progress) then
      frm_sys_progress:=tfrm_sys_progress.Create(self);
    frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD>Ȩ<EFBFBD>޴<EFBFBD><DEB4>롣<EFBFBD><EBA1A3><EFBFBD><EFBFBD>';
    frm_sys_progress.Show;
    frm_sys_progress.bsSkinGauge1.MaxValue:=20000;
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;
    frm_sys_progress.Update;

    t_sys_code.close;
    t_sys_code.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data_all.close;
    t_sys_code_data_all.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_data.close;
    t_sys_code_data.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    t_sys_code_emp.Close;
    t_sys_code_emp.open;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    frm_data_share.t_sys_employee.requery;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    frm_sys_progress.bsSkinGauge1.MaxValue:=10+t_sys_code.RecordCount
      +frm_data_share.t_sys_employee.RecordCount*(t_sys_code_data_all.RecordCount*2-1);
    t_sys_code.first;
    while not t_sys_code.eof do
    begin
      IF NOT t_sys_code_emp.Locate('Ȩ<>޴<EFBFBD><DEB4><EFBFBD>;<3B><>Ա',VarArrayOf([t_sys_code['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>'],t_sys_employee['<27><><EFBFBD><EFBFBD>']]),[]) then begin
      t_sys_code_emp.insert;
      t_sys_code_emp['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>']:=t_sys_code['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>'];
      t_sys_code_emp['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_code['һ<><D2BB>ģ<EFBFBD><C4A3>'];
      t_sys_code_emp['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_code['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
      t_sys_code_emp['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_code['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_sys_code_emp['<27><>Ա']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
      t_sys_code_emp['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
      t_sys_code_emp.post;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
      t_sys_code.next;
    end;
   ADOQuery1.Open;
    frm_data_share.t_sys_employee.first;
    while not frm_data_share.t_sys_employee.eof do
    begin
      if frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>']<>t_sys_employee['<27><><EFBFBD><EFBFBD>'] then
      begin
        t_sys_code_data_all.first;
        while not t_sys_code_data_all.eof do
        begin
          if not ADOQuery1.Locate('<27><>Ա;<3B><><EFBFBD><EFBFBD>;ְԱ',VarArrayOf([frm_data_share.t_sys_employee.FieldByName('<27><><EFBFBD><EFBFBD>').asstring,t_sys_code_data_all.FieldByName('<27><><EFBFBD><EFBFBD>').asstring,t_sys_employee.FieldByName('<27><><EFBFBD><EFBFBD>').asstring]),[]) then begin
          t_sys_code_data.insert;
          t_sys_code_data['<27><>Ա']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'];
          t_sys_code_data['<27><><EFBFBD><EFBFBD>']:=t_sys_code_data_all['<27><><EFBFBD><EFBFBD>'];
//          t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=isopvisible(t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString,frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'],t_sys_code_data_all['<27><><EFBFBD><EFBFBD>']);
          t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
          t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
          t_sys_code_data['ְԱ']:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
          t_sys_code_data.post;
          END;
          frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
          t_sys_code_data_all.next;
        end;
      end;
      frm_data_share.t_sys_employee.next;
    end;

   ADOQuery1.Close;

    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    frm_sys_progress.close;
    frm_sys_progress:=nil;
end;

procedure Tfrm_sys_dep_emp.bsSkinButton13Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton13.ClientToScreen(Point(0,bsSkinButton13.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y);
end;

function Tfrm_sys_dep_emp.isopvisible(emp, otemp, quan: string):Integer;
var
  aQuery:TADOQuery;
begin
  result:=0;
  aQuery:=CreateAdoQuery;
  try
    with aQuery do begin
      Close;SQL.Text:='select <20><><EFBFBD>ӷ<EFBFBD>Χ from t_sys_code_sql where <20><><EFBFBD><EFBFBD>='''+quan+''' and <20><>Ա='''+otemp+''' '
      +' and <20><>Ա in (select <20><><EFBFBD><EFBFBD> from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+emp+''')';
      Open;
      if not IsEmpty then begin
        if FieldByName('<27><><EFBFBD>ӷ<EFBFBD>Χ').AsString='<27><><EFBFBD><EFBFBD>' then begin
          result:=1;
        end;
      end;
    end;
  finally
    FreeAndNil(aQuery);
  end;

end;

end.