mainunit.pas

很久以前用delphi写的一个SQLServer外部的企业管理器

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Menus, ComCtrls, ToolWin,
  ExtCtrls,AdoConEd, ImgList,XADOEX,marquee;

type
  TSQLBrowseManager = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    Splitter1: TSplitter;
    ADOConnection: TADOConnection;
    ADOQuery: TADOQuery;
    TablePopMenu: TPopupMenu;
    N11: TMenuItem;
    DBInfo: TTreeView;
    MainStatusBar: TStatusBar;
    ImageList1: TImageList;
    ListBox1: TListBox;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    N12: TMenuItem;
    ProcPopMenu: TPopupMenu;
    N13: TMenuItem;
    WindowMenu: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    N39: TMenuItem;
    ShowTime: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    FontDialog: TFontDialog;
    N42: TMenuItem;
    N43: TMenuItem;
    OpenDialog: TOpenDialog;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton20: TToolButton;
    ToolBar2: TToolBar;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    Edit1: TEdit;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBInfoMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N13Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ShowTimeClick(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
  private
    { Private declarations }
    Marquee:TMarquee;
    MarqueeLeft:Integer;
    Procedure SetInfo;
    Procedure DisConnection;
    Procedure CloseAll;
    Procedure EnabledButton;
    Procedure DisbledButton;

  public
    { Public declarations }
  end;

const
  Configfilename='user\config.dat';
  ABoutfilename='HTML\aBout.html';
  Showcaption='255%S   |16711680%Q   |8388736%L   |0%B   |8421376%r   |32896%o   |16776960%w   |8421504%s   |65535%e   |65380%r';

var
  SQLBrowseManager: TSQLBrowseManager;

implementation

uses ShowStruct, SQLEdit ,ProcForm;

{$R *.dfm}

Procedure tSQLBrowseManager.DisbledButton;
begin
   ToolButton21.Enabled:=false;
   ToolButton22.Enabled:=false;
   ToolButton23.Enabled:=false;
   ToolButton11.Enabled:=false;
   ToolButton12.Enabled:=false;
   ToolButton13.Enabled:=false;
   ToolButton15.Enabled:=false;
   ToolButton16.Enabled:=false;
   ToolButton18.Enabled:=false;
   ToolButton17.Enabled:=false;
   ToolButton20.Enabled:=false;
   n7.Enabled:=false;
   n8.Enabled:=false;
   n42.Enabled:=false;
   n43.Enabled:=false;
   n15.Enabled:=false;
   n17.Enabled:=false;
   n19.Enabled:=false;
   n18.Enabled:=false;
   n20.Enabled:=false;
   n21.Enabled:=false;
   n36.Enabled:=false;
   n34.Enabled:=false;
   n35.Enabled:=false;
   n38.Enabled:=false;
   n40.Enabled:=false;
   n41.Enabled:=false;
   n26.Enabled:=false;
   n27.Enabled:=false;
   n28.Enabled:=false;
end;

Procedure tSQLBrowseManager.EnabledButton;
begin
   ToolButton21.Enabled:=true;
   ToolButton22.Enabled:=true;
   ToolButton23.Enabled:=true;
   ToolButton11.Enabled:=true;
   ToolButton12.Enabled:=true;
   ToolButton13.Enabled:=true;
   ToolButton15.Enabled:=true;
   ToolButton16.Enabled:=true;
   ToolButton18.Enabled:=true;
   ToolButton17.Enabled:=true;
   ToolButton20.Enabled:=true;
   n7.Enabled:=true;
   n8.Enabled:=true;
   n42.Enabled:=true;
   n43.Enabled:=true;
   n15.Enabled:=true;
   n17.Enabled:=true;
   n19.Enabled:=true;
   n18.Enabled:=true;
   n20.Enabled:=true;
   n21.Enabled:=true;
   n36.Enabled:=true;
   n34.Enabled:=true;
   n35.Enabled:=true;
   n38.Enabled:=true;
   n40.Enabled:=true;
   n41.Enabled:=true;
   n26.Enabled:=true;
   n27.Enabled:=true;
   n28.Enabled:=true;
end;

Procedure tSQLBrowseManager.CloseAll;
var i,j:integer;
begin
     j:=0;
     i:=0;
     while i<=(self.ComponentCount-1) do
    begin
       if (self.Components[j] is tSQLEditForm) then
       begin
          (self.Components[j] as tSQLEditForm).close;
          i:=0;
          j:=0;
       end
       else if (self.Components[j] is TTableStructForm) then
       begin
          (self.Components[j] as TTableStructForm).free;
          i:=0;
          j:=0;
       end
       else if (self.Components[j] is TProcView) then
       begin
          (self.Components[j] as TProcView).free;
          i:=0;
          j:=0;
       end
       else
          inc(j);
       inc(i);
    end;
   DisbledButton;


end;


Procedure tSQLBrowseManager.DisConnection;
begin
    ADOConnection.close;
    DBInfo.Items.Clear;
    CloseAll;


end;

Procedure tSQLBrowseManager.SetInfo;
var
    i:integer;
    MyTreeNode1: TTreeNode;
begin
    DBInfo.Items.Clear;
   //////////////////////////////////////////////////////////
        listbox1.Items.Clear;
        X_GetSystemtablenames(ADOConnection,listbox1.items,ShowTime.Checked);
        MyTreeNode1:= DBInfo.Items.Add(nil, '系统表');
        MyTreeNode1.ImageIndex:=0;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
      listbox1.Items.Clear;
       X_Gettablenames(ADOConnection,listbox1.items,ShowTime.Checked);
        MyTreeNode1:= DBInfo.Items.Add(nil, '用户表');
        MyTreeNode1.ImageIndex:=1;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
         listbox1.Items.Clear;
       X_GetPrimaryKeyNames(ADOConnection,listbox1.items);
        MyTreeNode1:= DBInfo.Items.Add(nil, '主键');
        MyTreeNode1.ImageIndex:=2;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
         listbox1.Items.Clear;
        X_GetForeignKeysNames(ADOConnection,listbox1.items);
        MyTreeNode1:= DBInfo.Items.Add(nil, '外键');
        MyTreeNode1.ImageIndex:=2;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
       listbox1.Items.Clear;
       X_GetViewnames(ADOConnection,listbox1.items,ShowTime.Checked);
        MyTreeNode1:= DBInfo.Items.Add(nil, '视图');
        MyTreeNode1.ImageIndex:=3;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
      listbox1.Items.Clear;
       X_GetProcedureNames(ADOConnection,listbox1.items,ShowTime.Checked);
        MyTreeNode1:= DBInfo.Items.Add(nil, '存储过程');
        MyTreeNode1.ImageIndex:=4;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ////////////////////////////////////////////////////////////
      listbox1.Items.Clear;
       X_GetFunctionNames(ADOConnection,listbox1.items,ShowTime.Checked);
        MyTreeNode1:= DBInfo.Items.Add(nil, '函数');
        MyTreeNode1.ImageIndex:=4;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ////////////////////////////////////////////////////////////


        listbox1.Items.Clear;
       X_GetDBFieldsType(ADOConnection,listbox1.items);
        MyTreeNode1:= DBInfo.Items.Add(nil, '支持的类型');
        MyTreeNode1.ImageIndex:=4;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
      listbox1.Items.Clear;
       X_GetDBKeyWords(ADOConnection,listbox1.items);
        MyTreeNode1:= DBInfo.Items.Add(nil, '语法关键字');
        MyTreeNode1.ImageIndex:=5;
        for i:=0 to listbox1.Items.Count-1 do
           DBInfo.Items.AddChild(MyTreeNode1,listbox1.Items[i]);
  ///////////////////////////////////////////////////////////
      listbox1.Items.Clear;
end;


procedure TSQLBrowseManager.ToolButton1Click(Sender: TObject);
var f1:textfile;
begin
 try
   ADOConnection.Close;
   ADOConnection.ConnectionString:=trim(edit1.Text);
  if EditConnectionString(ADOConnection) then
  begin
  end;
      ADOConnection.Connected;
      edit1.Text:=ADOConnection.ConnectionString;
      try
        assignfile(f1,ExtractFilePath(Application.ExeName)+Configfilename);
        rewrite(f1);
        writeln(f1,edit1.Text);
      finally
        closefile(f1);
      end;
  except
    showmessage('错误');
  end;
end;