udbname.~pas

存储过程脚本程序源码

unit uDBName;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, Menus,ComObj, ExtCtrls, uTableArr, ToolWin,
  DB, ADODB;

type
  TfrmDBName = class(TForm)
    tvDBList: TTreeView;
    imgDBName: TImageList;
    popDBName: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Splitter1: TSplitter;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    imgTabPDViw: TImageList;
    ToolBar2: TToolBar;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ImgTool: TImageList;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ADOConnection1: TADOConnection;
    Table: TADOTable;
    PDock: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    //    procedure CreateParams(var Params: TCreateParams); override;
  private
    { Private declarations }
  public
    selFieldList:array of array of string;
    selFieldType:array of array of string;
    selFieldMemo:array of array of string;
    strConn:string;
  end;

var
  frmDBName: TfrmDBName;

implementation

uses uProcess, uMain, uPDMod, uPD;

{$R *.dfm}
        var     //选中表数     选中字段数
                SelTableCount,SelFieldCount:integer;
                    TableList:tstringlist;

                    //隐藏子窗体标题栏
//Procedure TfrmDBName.CreateParams( var Params : tCreateParams );
//Begin
//  Inherited CreateParams( Params );
//  Params.Style := Params.Style and (not WS_CAPTION);
//End;

procedure TfrmDBName.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        action:=cafree;
end;

procedure TfrmDBName.FormDestroy(Sender: TObject);
begin
        self:=nil;
end;

procedure TfrmDBName.FormShow(Sender: TObject);
var
   SQLServer:Variant;
   ServerList:Variant;
   nServers:integer;
   mynode:ttreenode;
   i:integer;
begin
SetWindowLong(Handle, GWL_STYLE,
              GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
    ClientHeight := Height;

    
  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  MyNode := tvDBList.Items.Add (nil,'Sql Server');
  for i := 1 to nservers do
      tvDBList.Items.AddChild(MyNode,ServerList.Item(i));
      
  SQLServer:=NULL;
  serverList:=NULL;
      TableList:= tstringlist.Create ;
end;

procedure TfrmDBName.ToolButton2Click(Sender: TObject);
begin
    if not assigned(frmPDMod) then
        frmPDMod:=TfrmPDMod.Create(self);
    frmPDMod.Dock(PDock,PDock.ClientRect);
    frmPDMod.show;
end;

procedure TfrmDBName.ToolButton1Click(Sender: TObject);
begin
    if not assigned(frmPD) then
        frmPD:=TfrmPD.Create(self);
    frmPD.Dock(PDock,PDock.ClientRect);
    frmPD.show;
end;

procedure TfrmDBName.ToolButton4Click(Sender: TObject);
begin
        close;
end;

end.