untsystemset.pas

适合行业为眼镜业

         end;
         if trim(qz)<>'' then
         getqx(frm_main.ListView3.Items.Count+frm_main.ListView1.Items.Count+frm_main.Lviewbatch.Items.Count,frm_main.ListView4.Items.Count,gridbase);
       end;
    4: begin
          grid.RowCount:=frm_main.ListView5.Items.Count+1;
         for i:=1 to grid.RowCount-1 do
         begin
           grid.Cells[0,i]:=inttostr(i);
           grid.Cells[1,i]:=trim(frm_main.ListView5.Items.Item[i-1].Caption);
         end;
         if trim(qz)<>'' then
         getqx(frm_main.ListView3.Items.Count+frm_main.ListView1.Items.Count+frm_main.Lviewbatch.Items.Count+frm_main.ListView4.Items.Count,frm_main.ListView5.Items.Count,gridbase);
       end;
    5: begin
          grid.RowCount:=frm_main.ListView6.Items.Count+1;
         for i:=1 to grid.RowCount-1 do
         begin
           grid.Cells[0,i]:=inttostr(i);
           grid.Cells[1,i]:=trim(frm_main.ListView6.Items.Item[i-1].Caption);
         end;
         if trim(qz)<>'' then
         getqx(frm_main.ListView3.Items.Count+frm_main.ListView1.Items.Count+frm_main.Lviewbatch.Items.Count+frm_main.ListView4.Items.Count+frm_main.ListView5.Items.Count,frm_main.ListView6.Items.Count,gridbase);
       end;
    6: begin
          grid.RowCount:=frm_main.ListView7.Items.Count+1;
         for i:=1 to grid.RowCount-1 do
         begin
           grid.Cells[0,i]:=inttostr(i);
           grid.Cells[1,i]:=trim(frm_main.ListView7.Items.Item[i-1].Caption);
         end;
         if trim(qz)<>'' then
         getqx(frm_main.ListView3.Items.Count+frm_main.ListView1.Items.Count+frm_main.Lviewbatch.Items.Count+frm_main.ListView4.Items.Count+frm_main.ListView5.Items.Count+frm_main.ListView6.Items.Count,frm_main.ListView7.Items.Count,gridbase);
       end;
  end;
end;

/////////////////////////////////////////////
procedure TfmSystemset.btnCancelClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TfmSystemset.btnAddClick(Sender: TObject);
begin
  inherited;
  qz:='';
  SETQX;
  fmguestset:=tfmguestset.Create(self);
  fmguestset.editmode:=1;
  fmguestset.done:=qz;
  fmguestset.ShowModal;
  fmguestset.Free;
end;

procedure TfmSystemset.btnEditClick(Sender: TObject);
begin
  inherited;
  if TreeBase.Selected.Parent= nil then
  begin
    application.MessageBox('请选择具体的部门职员！',pchar(application.Title),mb_iconinformation);
    treebase.SetFocus;
    exit;
  end;
  qz:='';
  SETQX;
  fmguestset:=tfmguestset.Create(self);
  fmguestset.editmode:=2;
  fmguestset.cmbpart.Text:=trim(CDSdata.fieldbyname('part').AsString);
  fmguestset.cmbno.Text:=trim(CDSdata.fieldbyname('p_no').AsString);
  fmguestset.cmbname.Text:=trim(CDSdata.fieldbyname('employe_name').AsString);
  fmguestset.edtpwd.Text:=trim(CDSdata.fieldbyname('user_pwd').AsString);
  fmguestset.cmbtype.Text:=trim(CDSdata.fieldbyname('opertype').AsString);
  fmguestset.done:=qz;
  fmguestset.ShowModal;
  fmguestset.Free;
end;

procedure TfmSystemset.FormShow(Sender: TObject);
var
  i:integer;
begin
  inherited;
  gridbase.ColWidths[0]:=30;
  gridbase.ColWidths[2]:=60;
  gridbase.ColWidths[1]:=120;
  gridbase.Cells[0,0]:='序号';
  gridbase.Cells[1,0]:='功能名';
  gridbase.Cells[2,0]:='是否可用';
  gridb.ColWidths[0]:=30;
  gridb.ColWidths[2]:=60;
  gridb.ColWidths[1]:=120;
  gridb.Cells[0,0]:='序号';
  gridb.Cells[1,0]:='功能名';
  gridb.Cells[2,0]:='是否可用';
  setmenuname(mainmenu1);
  //getqx(0,60,gridbase);
  //getqx(61,98,gridb);
  pc1.ActivePageIndex:=0;
  ReadTree('',nil);
  qz:='';
  Mcount:=0;
  rdgclick(rdg);
end;

procedure TfmSystemset.GridbaseDblClick(Sender: TObject);
var
  pointx:integer;
begin
  inherited;
  if pcol=2 then
  begin
    if prow=0 then exit;
    CASE rdg.ItemIndex OF
    0: begin
         pointx:=prow;
       end;
    1: begin
         pointx:=prow+frm_main.ListView1.Items.Count;
       end;
    2: begin
         pointx:=prow+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
       end;
    3: begin
         pointx:=prow+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
       end;
    4: begin
         pointx:=prow+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
       end;
    5: begin
         pointx:=prow+frm_main.ListView5.Items.Count+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
       end;
    6: begin
         pointx:=prow+frm_main.ListView6.Items.Count+frm_main.ListView5.Items.Count+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count;
       end;

    END;
    if trim(gridbase.Cells[2,prow])='' then
    begin
      gridbase.Cells[2,prow]:='√';
      qx[pointx-1]:=1;
    end else
    begin
      gridbase.Cells[2,prow]:='';
      qx[pointx-1]:=0;
    end;
  end;
end;

procedure TfmSystemset.GridbaseSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  inherited;
  pcol:=acol;
  prow:=arow;
end;

procedure TfmSystemset.RdGClick(Sender: TObject);
begin
  inherited;
  Getfields(gridbase,rdg.ItemIndex);
  rball.Checked:=false;
  rbclear.Checked:=false;
end;

procedure TfmSystemset.GridBaseDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  s:string;
  r:TRect;
begin
  inherited;
  with Sender as Tstringgrid do
  begin
  if gdSelected in State then
  Canvas.Brush.Color:= clTeal;  //clBlue; //clyellow;//clRed;
  Canvas.TextRect(Rect,Rect.Left,Rect.Top,' '+Cells[ACol,ARow]);
  if gdFocused in State then
  Canvas.DrawFocusRect(Rect);
  end;
  with Sender as Tstringgrid do
  begin
    Canvas.FillRect(Rect);
    s:=Cells[ACol,ARow];
    r:=Rect;
    DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
  end;

end;

procedure TfmSystemset.RDg2Click(Sender: TObject);
begin
  inherited;
  SetGridMenu(mainmenu1,rdg2.ItemIndex);
  rball.Checked:=false;
  rbclear.Checked:=false;
end;

procedure TfmSystemset.GridBDblClick(Sender: TObject);
var
  pointx,i,counts,t:integer;
begin
  inherited;
  if pcol=2 then
  begin
    if prow=0 then exit;
    if trim(gridb.Cells[1,prow])='分隔符'  then exit;
    t:= frm_main.ListView5.Items.Count+frm_main.ListView4.Items.Count+frm_main.lviewbatch.Items.Count+frm_main.listview3.Items.Count+frm_main.ListView1.Items.Count+frm_main.ListView6.Items.Count+frm_main.ListView7.Items.Count;
    if  rdg2.ItemIndex>0 then
    begin
      for i:=1 to rdg2.ItemIndex do
      begin
        t:=t+ mainmenu1.Items[i-1].Count;
      end;
    end;
    pointx:=prow+t-1;
    if trim(gridb.Cells[2,prow])='' then
    begin
      gridb.Cells[2,prow]:='√';
      qx[pointx]:=1;
    end else
    begin
      gridb.Cells[2,prow]:='';
      qx[pointx]:=0;
    end;
  end;

end;

procedure TfmSystemset.Pc1Change(Sender: TObject);
begin
  inherited;
  if pc1.ActivePageIndex=1 then
  begin
    Mcount:=rdg.Items.Count;
    rdg2click(rdg2);
  end else
  begin
    Mcount:=0;
  end;
end;

procedure TfmSystemset.TreeBaseClick(Sender: TObject);
var
  i:integer;
begin
  inherited;
  if treebase.Selected<>nil then
  begin
    i:=ReadTree(copy(trim(treebase.Selected.Text),1,pos('_',trim(treebase.Selected.Text))-1),treebase.Selected);
    qz:='';
    if treebase.Selected.Parent<>nil then
    begin
      readDONE(copy(trim(treebase.Selected.Text),1,pos('_',trim(treebase.Selected.Text))-1));
    end;
  end;

end;

procedure TfmSystemset.RBAllClick(Sender: TObject);
begin
  inherited;
  if pc1.ActivePageIndex=0  then
  begin
    WaleAll(rDG.ItemIndex+mCOUNT,TRUE,GRIDBASE);
  end else
  begin
    WaleAll(rDG2.ItemIndex+mCOUNT,TRUE,GRIDB);
  end;
end;

procedure TfmSystemset.RBclearClick(Sender: TObject);
begin
  inherited;
  if pc1.ActivePageIndex=0  then
  begin
    WaleAll(rDG.ItemIndex+mCOUNT,FALSE,GRIDBASE);
  end else
  begin
    WaleAll(rDG2.ItemIndex+mCOUNT,FALSE,GRIDB);
  end;
end;

procedure TfmSystemset.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  for i:=0 to 200 do
  begin
    qx[i]:=0;
  end;
end;

procedure TfmSystemset.btnDeleteClick(Sender: TObject);
var
  sql:widestring;
begin
  inherited;
  if TreeBase.Selected.Parent= nil then
  begin
    application.MessageBox('请选择具体的部门职员！',pchar(application.Title),mb_iconinformation);
    treebase.SetFocus;
    exit;
  end;
  if application.MessageBox('是否确定删除该员工的登陆设置？',pchar(application.Title),mb_iconquestion+mb_yesno)=idyes then
  begin
    sql:='delete from chang where p_no='+''''+trim(copy(trim(treebase.Selected.Text),1,pos('_',trim(treebase.Selected.Text))-1))+'''';
    try
      adisp.updatesql(sql);
      treebase.Items.Delete(treebase.Selected);
    except
      application.MessageBox('服务器发生故障！',pchar(application.Title),mb_iconwarning);
      exit;
    end;
  end;
end;

end.