unit1.pas

DELPHI的报表控件

      reg.Free;
    end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  RichEdit1.CutToClipboard;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  RichEdit1.CopyToClipboard;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  RichEdit1.PasteFromClipboard;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  N5.Enabled:=RichEdit1.SelLength>0;
  N7.Enabled:=Clipboard.AsText<>'';
  N6.Enabled:=N5.Enabled;
  N1.Enabled:=RichEdit1.Text<>'';
end;

procedure TForm1.TreeView1GetImageIndex(Sender: TObject;
  Node: TTreeNode);
var
  Tmp_Str: String;
begin
//  Tmp_Str := TreeViewEn1.GetPath(Node);
  node.ImageIndex := node.Level+1;

end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  i : integer;
begin
  case node.Level of
  1: begin
       ShapeEx1.Items[0,0] := 'Type';
       ShapeEx1.Items[0,1] := Session.GetAliasDriverName(Node.Text);
       Session.GetAliasParams(Node.Text,TmpStrList);
       TmpStrList.Sort;
       ShapeEx1.RowCount := TmpStrList.Count+1;
       For i:= 0 to TmpStrList.Count-1 do
       begin
         ShapeEx1.Items[i+1,0] := TmpStrList.Names[i];
         ShapeEx1.Items[i+1,1] := TmpStrList.Values[TmpStrList.Names[i]];
       end;
     end;
  3: begin
       if Node.Parent.Index = 0 then
       begin
         if DataSource1.DataSet<>nil then DataSource1.DataSet.Close;
         DataSource1.DataSet := Table1;
         Table1.DatabaseName := Node.Parent.Parent.Text;
         Table1.TableName := Node.Text;
         Table1.Open;
         PageControl1.ActivePageIndex := 0;
       end;
     end;

  end;
end;

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
var
  i:integer;
  TD :TDataBase;
//TmpNode : TTreeNode;
begin
  case Node.Level of
  1: if Integer(Node.Data)=0 then begin
{       TRY
         Session.FindDatabase(Node.Text).Connected := TRUE;
         AllowExpansion :=  TRUE;
       Except
         AllowExpansion := false;
       end;    }
//       if Node.Count=0 then TreeViewEn1.Items.AddChildObjectFirst(Node,'Tables',0);
       if (Node.Item[0].Data=Pointer(0)) then TreeView1.Items.AddChildObjectFirst(Node.Item[0],'X',Pointer(10));
       if Session.GetAliasDriverName(Node.Text)<>'STANDARD' then
           try
             Session.OpenDatabase(Node.Text);
           except
             AllowExpansion := False;
           end;
       if AllowExpansion then Node.Data := Pointer(1);
     end;
    2: if (Node.Count=1) and (Integer(Node.Data)=0) then
       begin
         TreeView1.Items.Delete(Node.item[0]);
         Node.Data := Pointer(1);
         if Session.GetAliasDriverName(Node.Parent.Text)='STANDARD' then
         begin
           Session.GetTableNames(Node.Parent.Text,'',True,False,TmpStrList);
           TmpStrList.Sort;
           AddSubStrings(Node,TmpStrList);
         end
         else begin
           Session.GetTableNames(Node.Parent.Text,'',False,False,TmpStrList);
           if TmpStrList.Count>0 then
           begin
             TmpStrList.Sort;
             AddSubStrings(Node,TmpStrList);
           end
           else AllowExpansion := False;
         end;
       end;
  end;
end;

procedure TForm1.AddSubStrings(Node: TTreeNode; StrList: TStrings);
var
  TmpNode : TTreeNode;
  i,j,Low:integer;
begin
  if StrList.Count>0 then
  begin
    j := Node.Count;
    if j=0 then
    begin
      TmpNode := TreeView1.Items.AddChildObjectFirst(Node,StrList.Strings[0],0);
//      TreeViewEn1.Items.AddChildObjectFirst(TmpNode,'Tables',0);
      Low := 1;
    end else Low := 0;
    ProgressBar1.Visible := tRUE;
    ProgressBar1.Max := StrList.Count-Low;
    For i:= Low to StrList.Count-1 do
    begin
      TmpNode := TreeView1.Items.AddChildObject(Node,StrList.Strings[i],0);
      ProgressBar1.StepIt;
//      TreeViewEn1.Items.AddChildObjectFirst(TmpNode,'Tables',0);
    end;
    ProgressBar1.Visible := False;
  end;
end;

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if cdsSelected in State then
  begin
//    TreeView1.Canvas.Font.Style := [fsBold];
    TreeView1.Canvas.Font.Color := clYellow;
  end;
//  else
  if (Node.Level=1) and (integer(Node.Data)=1) then begin
    if not(cdsSelected in State) then TreeView1.Canvas.Font.Color := clNavy;
    TreeView1.Canvas.Font.Style := [fsBold];
  end;
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  P : TPoint;
begin
  if (mbRight=Button) then
  begin
    TmpNode := TreeView1.GetNodeAt(X,Y);
    if (TmpNode <> nil) and (TreeView1.Selected <> TmpNode) then TreeView1.Selected := TmpNode;
    if (TmpNode <> nil) and (TmpNode.Level=1)
    then begin
      P := ClientToScreen(Point(x,y));
      PopupMenu2.Popup(P.X,P.Y);
    end;
  end;  
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
  TreeView1.Selected.Expand(False);
end;

procedure TForm1.Close1Click(Sender: TObject);
var
  TD :TDataBase;
begin
  with TreeView1.Selected do
  if Integer(Data)=1 then
  begin
    Collapse(False);
    Item[0].DeleteChildren;
    TD := Session.FindDatabase(Text);
    if (TD <> nil) then TD.Connected := False;
    Data := 0;
    Item[0].Data := 0;
  end;
end;

procedure TForm1.ShapeEx1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  RichEdit1.Lines.Add(inttostr(ShapeEx1.VertScrollBar.Range));
end;

procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
var
  i:integer;
  TD : TDataBase;
begin
  case Node.Level of
  1: begin
       if Integer(Node.Data)=1 then
       begin
         if Session.GetAliasDriverName(Node.Text)<>'STANDARD'
           then begin
             TD := Session.FindDatabase(Node.Text);
             if TD<>nil then TD.Connected := False;
           end;  
         Node.Data := Pointer(0);
       end;
     end;
    2: ;
  end;


end;

procedure TForm1.PopupMenu2Popup(Sender: TObject);
begin
  case TreeView1.Selected.Level of
  1 : begin
        Rename1.Enabled := True;
        if TreeView1.Selected.Data = Pointer(0)
          then begin Open1.Enabled := True; Close1.Enabled := False; end
          else begin Open1.Enabled := False; Close1.Enabled := True; end;
      end;
  else begin Open1.Enabled := False; Close1.Enabled := False; Rename1.Enabled := False; end;
  end;
  Apply1.Enabled := TreeView1.Tag <> -1;

end;

procedure TForm1.ShapeEx1CellEdit(Sender: TObject; Row, Col: Integer;
  var AllowEditing: Boolean);
begin
//  Caption := inttostr(col);
//  AllowEditing := Col=0;
end;

procedure TForm1.Rename1Click(Sender: TObject);
var
  P : TPoint;
  Htm : HTreeItem;
begin
  Htm := TreeView_GetSelection(TreeView1.Handle);
  TreeView1.Perform(TVM_EDITLABEL,0,Integer(Htm));
end;

procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
  AllowEdit := (Node.Level=1) AND (Node.Data = Pointer(0));
  if AllowEdit then NodeText := Node.Text;
end;

procedure TForm1.PageControl1Resize(Sender: TObject);
begin
  DBNavigator1.Left := PageControl1.ClientWidth - DBNavigator1.Width -5;
end;

procedure TForm1.BtnPrintClick(Sender: TObject);
begin
  DBGridPrn1.Preview;
end;

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
  AllowChange := TreeView1.Tag = -1;
end;

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
  if S <> NodeText then TreeView1.Tag := Integer(Node);
  Node.Text := S;
end;

procedure TForm1.Apply1Click(Sender: TObject);
var
  DriveName : String;
begin
  DriveName := Session.GetAliasDriverName(NodeText);
  Session.GetAliasParams(NodeText,TmpStrList);
  Session.DeleteAlias(NodeText);
  Session.AddStandardAlias(TreeView1.Selected.Text,TmpStrList.Values['Path'],'PARADOX');
  TreeView1.Tag := -1;
end;

end.