unit_mainbak.pas

DELPHI的报表控件

Function TFormMain.IsOnlyOne(Tar : String):Boolean;
begin
  Session.GetAliasNames(TmpStrList);
  Result := TmpStrList.IndexOf(Tar)=-1;
  if not Result then
  begin
    ShowMessage('不能与已存在的别名相同');
//    PostMessage(Handle,CN_MYTEXTUNDO,0,0);
  end;
end;

procedure TFormMain.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
  if IsOnlyOne(S) then begin
    Node.Text := S;
    if S <> NodeText then
    begin
      TreeView1.Tag := 1;
      SortChildren;
    end;
  end
  else PostMessage(Handle,CN_MYTEXTUNDO,0,0);
end;

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

procedure TFormMain.BtnPrintClick(Sender: TObject);
begin
  if PageControl1.ActivePage=TabSheet2 then
  begin
    DBGridPrn1.LoadFromStream(BBStream);
    DBGridPrn1.Preview;
    DBGridPrn1.SaveToStream(BBStream);
  end
  else if PageControl1.ActivePage=TabSheet3 then
  begin
    DBGridPrn2.LoadFromStream(BBStream);
    DBGridPrn2.Preview;
    DBGridPrn2.SaveToStream(BBStream);
  end;
end;

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

procedure TFormMain.Apply1Click(Sender: TObject);
var
  DriveName : String;
  i:integer;
begin
  DriveName := Session.GetAliasDriverName(NodeText);
//  Session.GetAliasParams(NodeText,TmpStrList);
  TmpStrList.Clear;
  For i:=1 to ShapeEx1.RowCount-1 do
    TmpStrList.Add(ShapeEx1.Items[i,0]+'='+ShapeEx1.Items[i,1]);
  Session.DeleteAlias(NodeText);
  Session.AddAlias(TreeView1.Selected.Text,DriveName,TmpStrList);
  TreeView1.Tag := -1;
  Session.SaveConfigFile;
  TreeView1.Repaint;
end;

procedure TFormMain.SaveAs1Click(Sender: TObject);
var
  NewAlias,DriveName,NewTableName,ExtName : String;
//  Fs :  TFieldDefs;
//  Idxf : TIndexDefs;
begin
  case TreeView1.Selected.Level of
  1: begin
       NewAlias := TreeView1.Selected.Text;
       if InputQuery2('Save Name As','New Alias Name',NewAlias)
         and IsOnlyOne(NewAlias) then
       begin
         DriveName := Session.GetAliasDriverName(TreeView1.Selected.Text);
         Session.GetAliasParams(TreeView1.Selected.Text,TmpStrList);
         Session.AddAlias(NewAlias,DriveName,TmpStrList);
         if TreeView1.Selected.Index = TreeView1.Selected.Parent.Count -1 then
           TmpNode := TreeView1.Items.AddObject(TreeView1.Selected,NewAlias,Pointer(0))
         else TmpNode := TreeView1.Items.InsertObject(TreeView1.Selected.Parent.Item[TreeView1.Selected.Index+1],NewAlias,Pointer(0));
         TreeView1.Items.AddChildObjectFirst(TmpNode,'Tables',Pointer(0));
         SortChildren;
       end;
     end;
  3: begin
       NewTableName := ExtractFileName(TreeView1.Selected.Text);
       ExtName := ExtractFileExt(TreeView1.Selected.Text);
       if InputQuery2('Save Name As','New Table Name',NewTableName) then
       begin
         Session.GetTableNames(TreeView1.Selected.Parent.Parent.Text,'',True,False,TmpStrList);
         NewTableName := ExtractFileName(NewTableName);
         if TmpStrList.IndexOf(NewTableName+'.'+ExtName)>=0 then
         begin
           ShowMessage('已经存在相同名字的表名，请重新指定新表名。')
         end
         else begin
           Table2.DatabaseName := Table1.DatabaseName;
           Table2.TableName := NewTableName;
           Table2.FieldDefs.Assign(Table1.FieldDefs);
           Table2.IndexDefs.Assign(Table1.IndexDefs);
           Table2.CreateTable;
           Table2.BatchMove(Table1,batAppend);
         end;
         {RichEdit1.Lines.Add('insert into '+NewTableName+' Select * from '+TreeView1.Selected.Text);
         Button1Click(nil);
         RichEdit1.Clear;}
         TreeView1.Items.AddObject(TreeView1.Selected,NewTableName,0);
{         if ShapeEx1.Items[0,1]='STANDARD' then
         begin
//           if ExtractFileExt(NewTableName)<>ExtractFileExt(TreeView1.Selected.Text)
  //           then NewTableName := ExtractFileName(NewTableName)+ExtractFileExt(TreeView1.Selected.Text);
//           NewTableName := ExtractFileName(NewTableName);
           FileCopy2(ShapeEx1.items[3,1]+'\'+TreeView1.Selected.Text,ShapeEx1.items[3,1]+'\');
           TreeView1.Items.AddObject(TreeView1.Selected,ShapeEx1.items[3,1]+'\'+NewTableName,0);
         end
         else begin
           RichEdit1.Lines.Add('Select * from '+TreeView1.Selected.Text+' into '+NewTableName);
           Button1Click(nil);
           RichEdit1.Clear;
           TreeView1.Items.AddObject(TreeView1.Selected,ShapeEx1.items[3,1]+'\'+NewTableName,0);
         end;}
       end;
    end;
  end;
end;

procedure FileCopy2(Sou,Tar:String);
var
  SHFileOpStruct: TSHFileOpStruct;
  FromDir: PChar;
  ToDir: PChar;
begin
  GetMem(FromDir, Length(Sou)+2);
  try
    GetMem(ToDir, Length(Tar)+2);
    try
      ZeroMemory(FromDir,Length(Sou)+2);
      ZeroMemory(ToDir,Length(Tar)+2);
      StrCopy(FromDir, PChar(Sou));
      StrCopy(ToDir, PChar(Tar));
      with SHFileOpStruct do
      begin
        Wnd    := Application.Handle;   // Assign the window handle
        wFunc  := FO_COPY;  // Specify a file copy
        pFrom  := FromDir;
        pTo    := ToDir;
        fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_RENAMEONCOLLISION;
        fAnyOperationsAborted := False;
        hNameMappings := nil;
        lpszProgressTitle := nil;
        if SHFileOperation(SHFileOpStruct) <> 0 then
          RaiseLastWin32Error;
      end;
    finally
      FreeMem(ToDir, Length(Sou)+2);
    end;
  finally
    FreeMem(FromDir, Length(Tar)+2);
  end;
end;

procedure TFormMain.Delete1Click(Sender: TObject);
var
  FileName : String;
begin
  Table1.Close;
  Query1.Close;
  case TreeView1.Selected.Level of
  1: begin
       Session.DeleteAlias(TreeView1.Selected.Text);
       Session.SaveConfigFile;
     end;
  3: begin
       Table1.DatabaseName := TreeView1.Selected.Parent.Parent.Text;
       Table1.TableName := TreeView1.Selected.Text;
//       RichEdit1.Lines.Add(TreeView1.Selected.Text);
       Table1.DeleteTable;
     end;
{       if ShapeEx1.Items[0,1]='STANDARD' then
       begin
         FileName := ShapeEx1.items[3,1]+'\'+TreeView1.Selected.Text;
         SetFileAttributes(PChar(FileName),0);
         DeleteFile(FileName);
       end
       else begin
         RichEdit1.Lines.Add('Drop Table '+TreeView1.Selected.Text);
         Button1Click(nil);
         RichEdit1.Clear;
       end;
     end;}
  end;
  TreeView1.Selected.Delete;
end;

procedure TFormMain.SortChildren();
var
  Htm : HTreeItem;
begin
  Htm := TreeView_GetSelection(TreeView1.Handle);
  Htm := TreeView_GetParent(TreeView1.Handle,htm);
  TreeView1.Perform(TVM_SORTCHILDREN,0,Integer(Htm));
end;

procedure TFormMain.Refresh1Click(Sender: TObject);
var
  NeedSysTable : Boolean;
begin
  case TreeView1.Selected.Level of
  1 : begin
        Close1Click(nil);
        Open1Click(nil);
      end;
  2 : case TreeView1.Selected.Index of
      0: begin
           TmpNode := TreeView1.Selected;
           TreeView1.Selected.DeleteChildren;
           NeedSysTable := Session.GetAliasDriverName(TmpNode.Parent.Text)='STANDARD';
           Session.GetTableNames(TmpNode.Parent.Text,'',NeedSysTable,False,TmpStrList);
           if TmpStrList.Count>0 then
           begin
             TmpStrList.Sort;
             AddSubStrings(TmpNode,TmpStrList);
             TmpNode.Expand(False);
           end;
         end;
         else ;
       end;
    {    TmpNode := TreeView1.Selected;
        Close1Click(nil);
        Open1Click(nil);
        TreeView1.Selected := TmpNode;
        TmpNode.Expand(False);}
  end;
end;

procedure TFormMain.Panel7Resize(Sender: TObject);
begin
  DBNavigator1.Left := Panel7.ClientWidth - 318;
  BtnPrint.Left := Panel7.ClientWidth - 35;
end;

procedure TFormMain.PageControl1Change(Sender: TObject);
begin
  case PageControl1.ActivePage.PageIndex of
    1: DBNavigator1.DataSource := DataSource1;
    2: DBNavigator1.DataSource := DataSource2;
    else DBNavigator1.DataSource := nil;
  end;  
end;

procedure TFormMain.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  P : TPoint;
begin
  P := RichEdit1.ClientToScreen(Point(X,Y));
  if Sender=RichEdit1 then PopupMenu1.Tag := 0 else PopupMenu1.Tag := 1;
  PopupMenu1.Popup(P.X,P.Y);
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  TreeView1.Selected := TreeView1.Items[0];
  TreeView1.Selected.Expand(False);
  WindowState := wsMaximized;
end;

procedure TFormMain.SpeedButton1Click(Sender: TObject);
begin
  Aboutbox.ShowModal;
end;

procedure TFormMain.New1Click(Sender: TObject);
var
  DriverType, NewAlias : string;
  List : TStrings;
  I : integer;
begin
  List := TStringList.Create;
  Session.GetDriverNames(TmpStrList);
  if InputQuery3('Create New AliasName','New DriverType',DriverType,TmpStrList) then
  begin
    Session.GetDriverParams(DriverType,TmpStrList);
    i := 1;
    Session.GetAliasNames(List);
    while List.IndexOf(DriverType+IntToStr(i))>= 0 do Inc(i);
    NewAlias :=DriverType+IntToStr(i);
    NodeText := NewAlias;
    List.Free;
    Session.AddAlias(NewAlias,DriverType,TmpStrList);
    if TreeView1.Items[0].HasChildren then
      TmpNode := TreeView1.Items.AddChildObject(TreeView1.Items[0],NewAlias,Pointer(1))
    else TmpNode := TreeView1.Items.AddChildObjectFirst(TreeView1.Items[0],NewAlias,Pointer(1));
    TreeView1.Items.AddChildObjectFirst(TmpNode,'Tables',0);
    TreeView1.Selected := TmpNode;
    TreeView1.Tag := 0;
  end;
{    ShapeEx1.ColCount := TmpStrList.Count;
    For i := 0 to TmpStrList.Count-1 do
    begin
      ShapeEx1.Clear;
      ShapeEx1.Items[i,0]:=TmpStrList[i];
     end;
  end;   }
end;

{procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
  case TreeView1.Selected.Level of
  3: if (TreeView1.Selected.Parent.Text='Tables') and Table1.Active then
     begin
       TreeView1.Items.AddChildFirst( TreeView1.Selected,'Fields');
       TreeView1.Items.AddChild(TreeView1.Selected,'Indexes');
       TreeView1.Selected.Expand(False);
     end;
  end;
end;}

procedure TFormMain.CNMYTEXTUNDO(var Message: TMessage);
begin
  TreeView1.Selected.Text := NodeText;
end;

end.