room.pas

pasa人力资源考勤管理系统

     popupmenu2.Items[2].Enabled :=false;
     popupmenu2.Items[3].Enabled :=false;
   end
  else begin
    manyfield:=true;
    tbnsort.hint:='取消多字段排序'; //说明现在dbgrid1正处于多字段排序中
    f:='';
    popupmenu2.Items[0].Enabled :=true;
    popupmenu2.Items[1].Enabled :=true;
    popupmenu2.Items[2].Enabled :=true;
    popupmenu2.Items[3].Enabled :=true;
    fcount:=0;
    for i:=1 to 5 do
     begin
      findex[i]:=0;
      fsort[i]:='';
     end;
  end;
end;

procedure Tformroom.N1Click(Sender: TObject);
var i:integer;
   db:Tdbgrid;
begin
  case dbgrid of
  1:db:=dbgrid1;
  2:db:=dbgrid2;
  3:db:=dbgrid3;
  else
    exit;
  end;
  for i:=1 to fcount do
   if db.SelectedIndex =findex[i] then
    begin
     fsort[i]:='ASC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=db.selectedindex;
    fsort[fcount]:='ASC';
    db.Columns[db.selectedindex].Color :=clgray;
   end;
  case dbgrid of
  1:fcount1:=fcount;
  2:fcount2:=fcount;
  3:fcount3:=fcount;
  end;
end;

procedure Tformroom.N2Click(Sender: TObject);
var i:integer;
   db:Tdbgrid;
begin
  case dbgrid of
  1:db:=dbgrid1;
  2:db:=dbgrid2;
  3:db:=dbgrid3;
  end;           
  for i:=1 to fcount do
   if db.SelectedIndex =findex[i] then
    begin
     fsort[i]:='DESC';
     exit;
    end;
  if fcount<5 then
   begin
    fcount:=fcount+1;
    findex[fcount]:=db.selectedindex;
    fsort[fcount]:='DESC';
    db.Columns[db.selectedindex].Color :=clgray;
   end;
  case dbgrid of
  1:fcount1:=fcount;
  2:fcount2:=fcount;
  3:fcount3:=fcount;
  end;
end;

procedure Tformroom.N4Click(Sender: TObject);
var i:1..5;
   db:Tdbgrid;
   sortexp:string;
begin
  if dbgrid=1 then
    db:=dbgrid1
  else if dbgrid=2 then
    db:=dbgrid2
  else
    exit;
  Sortexp:='';
  for i:=1 to fcount do
  begin
   if db.Columns[findex[i]].Color=clgray then
    begin
     Sortexp :=Sortexp+db.Columns[findex[i]].FieldName+' '+fsort[i];
     if i<fcount then Sortexp:=Sortexp+',';
    end;
  end;
  if sortexp<>'' then
    case dbgrid of
    1:datamod.Adoroom1.sort:=sortexp;
    2:datamod.Adoroom2.Sort:=sortexp;
    end;
end;

procedure Tformroom.N3Click(Sender: TObject);
var i:1..5;
begin
  for i:=1 to fcount do
   case dbgrid of
   1:dbgrid1.Columns[findex[i]].Color :=clwindow;
   2:dbgrid2.Columns[findex[i]].Color :=clwindow;
   end;
  if dbgrid=1 then
    fcount1:=0
  else
    fcount2:=0;  
end;

procedure Tformroom.oEnter(Sender: TObject);
begin
  dbgrid:=1;
  fcount:=fcount1;
end;

procedure Tformroom.DBGrid2Enter(Sender: TObject);
begin
  dbgrid:=2;
  fcount:=fcount2;
end;

procedure Tformroom.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  (sender as Tpagecontrol).activepage.highlighted:=false;
end;

procedure Tformroom.ToolButton8Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.prior;
  2:datamod.Adoroom2.prior;
  3:datamod.Adoroom3.prior;
  end;
end;

procedure Tformroom.ToolButton9Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.next;
  2:datamod.Adoroom2.next;
  3:datamod.Adoroom3.next;
  end;
end;

procedure Tformroom.ToolButton10Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.last;
  2:datamod.Adoroom2.last;
  3:datamod.Adoroom3.last;
  end;
end;

procedure Tformroom.DBGrid1Enter(Sender: TObject);
begin
  dbgrid:=3;
  fcount:=fcount3;
end;

procedure Tformroom.tbnfindClick(Sender: TObject);
begin
  if assigned(formcanfind) then  formcanfind.close;
  case pagecontrol1.activepageindex of
  1:findrecorder(datamod.adoroom1,'Adoroom1','vrom02010');   //调用publicfuction中的查询功能
  2:findrecorder(datamod.adoroomnow,'Adoroomnow','rom03010');
  end;
end;

procedure Tformroom.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_contents0036');
    end;
end;

procedure Tformroom.TreeView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_contents0036');
    end;
end;

procedure Tformroom.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_contents0036');
    end;
end;

procedure Tformroom.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_contents0036');
    end;
end;

procedure Tformroom.DBGrid3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_contents0036');
    end;
end;

procedure Tformroom.ppReport1BeforePrint(Sender: TObject);
begin
  pplabel11.Caption:=companyname1;
  pplabel8.Caption:=pubworkname;
end;

procedure Tformroom.ppReport1PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Tformroom.tbnprintClick(Sender: TObject);
begin
  ppReport2.print;
end;

procedure Tformroom.ppDBText10GetText(Sender: TObject; var Text: String);
begin
  if text='0' then
     text:='否'
  else
     text:='是';
end;

procedure Tformroom.FormCreate(Sender: TObject);
begin
  pagecontrol1.activepageindex:=1;
    Adodataset5.open;
end;
procedure Tformroom.N5Click(Sender: TObject);
var
  id:integer;
  bedno:string;
begin
  id:=Application.messagebox(pchar('确实要对 '''+ btext+''' 的分配取消吗？'),'提示',mb_yesnocancel+mb_iconinformation);
  if id=6 then   //yes
    begin
      bedno:=copy(TEdit(PopupMenu1.PopupComponent).name,5,2);
      if strtoint(bedno)>28 then bedno:=inttostr(strtoint(bedno)-28);
      with datamod do
        begin
          query1.close;
          query1.sql.text:='delete rom02010 where roomno='''+combobox1.text+''' and bedno='+bedno+' ';
          query1.execsql;
        end;
      TEdit(PopupMenu1.popupcomponent).text:=bedno;
      TEdit(PopupMenu1.popupcomponent).hint:=bedno;
      showtree(sender);  //显示宿舍树状结构
    end;
  if id=7 then  //no
    begin
      ;
    end;
end;

procedure Tformroom.TabSheet3Show(Sender: TObject);
begin
  DBNavigator1.Visible:=true;
  DBNavigator1.Enabled:=true;

end;

procedure Tformroom.TabSheet1Show(Sender: TObject);
begin
  DBNavigator1.Visible:=false;
end;

procedure Tformroom.TabSheet2Show(Sender: TObject);
begin
  DBNavigator1.Visible:=true;
  DBNavigator1.Enabled:=false;
end;

procedure Tformroom.ToolButton6Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('delete from rom02010 where workno in (select workno from per24010  where leave=1)');
  ADOQuery1.ExecSQL;
  FormActivate(Sender);
end;

procedure Tformroom.Edit57KeyPress(Sender: TObject; var Key: Char);
begin
  {if key=#13 then
  if pos('000',edit1.text)=1 then
    begin
      trim(copy(treeview1.selected.text,1,pos(' ',treeview1.selected.text)-1))=edit.text
    end;  }
  showmessage('暂时还不能使用');
end;

procedure Tformroom.ppReport2BeforePrint(Sender: TObject);
begin
  pplabel28.Caption:=companyname1;
  pplabel22.caption:='舍长人员名单'
end;
procedure Tformroom.ppReport2PreviewFormCreate(Sender: TObject);
begin
  tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;
procedure Tformroom.ToolButton1Click(Sender: TObject);
begin
  ppreport3.Print;
end;

procedure Tformroom.ppReport3BeforePrint(Sender: TObject);
begin
  pplabel31.Caption:=companyname1;
  pplabel19.caption:='外宿人员名单'
end;
procedure Tformroom.ppReport3PreviewFormCreate(Sender: TObject);
begin
    tppReport(Sender).PreviewForm.WindowState:=wsMaximized;
end;

procedure Tformroom.ToolButton3Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.First;
  2:datamod.Adoroom2.First;
  3:datamod.Adoroom3.First;
  end;
end;

procedure Tformroom.ToolButton7Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.prior;
  2:datamod.Adoroom2.prior;
  3:datamod.Adoroom3.prior;
  end;
end;

procedure Tformroom.ToolButton11Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.next;
  2:datamod.Adoroom2.next;
  3:datamod.Adoroom3.next;
  end;
end;

procedure Tformroom.ToolButton13Click(Sender: TObject);
begin
  case dbgrid of
  1:datamod.Adoroom1.last;
  2:datamod.Adoroom2.last;
  3:datamod.Adoroom3.last;
  end;
end;

procedure Tformroom.ToolButton14Click(Sender: TObject);
begin
  with datamod.adoquery2 do
  begin
    close;
    case dbgrid of
    1://datamod.Adoroom1.delete;
      begin
        sql.text:='delete from rom02010 where workno='''+datamod.adoroom1.fieldbyname('workno').asstring+'''';
        execsql;
        datamod.adoroom1.close;
        datamod.adoroom1.open;
      end;
    2://datamod.Adoroom2.delete;
      begin
        sql.text:='delete from rom02010 where workno='''+datamod.adoroom2.fieldbyname('workno').asstring+'''';
        execsql;
        datamod.adoroom2.close;
        datamod.adoroom2.open;
      end;
    3://datamod.Adoroom3.delete;
      begin
        sql.text:='delete from rom02010 where workno='''+datamod.adoroom3.fieldbyname('workno').asstring+'''';
        execsql;
        datamod.adoroom3.close;
        datamod.adoroom3.open;
      end;
    end;
  end;
end;

end.