mainunit.pas

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

procedure TSQLBrowseManager.ToolButton2Click(Sender: TObject);
begin
   if trim(edit1.text)='' then exit;
  try
    ADOConnection.Close;
    ADOConnection.ConnectionString:=trim(edit1.Text);
    ADOConnection.Connected:=true;
    //ADOConnection.GetFieldNames();
    SetInfo();
    MainStatusBar.Panels[0].Text:=ADOConnection.Provider;
    MainStatusBar.Panels[1].Text:=ADOConnection.DefaultDatabase;
    MainStatusBar.Panels[2].Text:='已连接';
    ToolButton8.Enabled:=true;
    ToolButton3.Enabled:=true;
    ToolButton10.Enabled:=true;
    n5.Enabled:=true;
    n6.Enabled:=true;
  except
    showmessage('错误');
    MainStatusBar.Panels[2].Text:='连接失败';
    MainStatusBar.Panels[0].Text:='';
    MainStatusBar.Panels[1].Text:='';

    ADOConnection.Close;
  end;
end;

procedure TSQLBrowseManager.N11Click(Sender: TObject);
begin
 // if not assigned(DBInfo.Selected.Parent) then exit;
  //  if (DBInfo.Selected.Parent.Text='用户表') or (DBInfo.Selected.Parent.Text='系统表') then
  //  begin
   //     tablename:=DBInfo.Selected.text;
        TTableStructForm.create(self);
  //  end;
end;

procedure TSQLBrowseManager.ToolButton3Click(Sender: TObject);
begin
   tSQLEditForm.create(self);
   EnabledButton;
end;

procedure TSQLBrowseManager.ToolButton5Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).RunSQL;
    end
    else showmessage('没有可运行的SQL');
end;

procedure TSQLBrowseManager.N12Click(Sender: TObject);
begin
//  if not assigned(DBInfo.Selected.Parent) then exit;
 //   if (DBInfo.Selected.Parent.Text='用户表') or (DBInfo.Selected.Parent.Text='系统表')then
 //   begin
 //       tablename:=DBInfo.Selected.text;
        with tSQLEditForm.create(self) do
        begin
            caption:=tablename;
            executesql('select * from ['+tablename+'];');
        end;

 //   end;
end;

procedure TSQLBrowseManager.FormCreate(Sender: TObject);
var f1:textfile;
    tempstr:string;
begin
   if FileExists(ExtractFilePath(Application.ExeName)+Configfilename) then
   begin
   try
      assignfile(f1,Configfilename);
      reset(f1);
      readln(f1,tempstr);
     edit1.text:=tempstr;
   finally
      closefile(f1);
   end;
   end;

   Marquee:=TMarquee.Create(MainStatusBar.Parent);
   Marquee.Parent:=MainStatusBar;
   Marquee.Show;
  // Marquee.Align:= alBottom;
   Marquee.Color:=MainStatusBar.Color;
   Marquee.BevelOuter:=bvNone;

   Marquee.Text:=Showcaption;
   Marquee.Active:=true;

   MarqueeLeft:=MainStatusBar.Panels[0].Width+MainStatusBar.Panels[1].Width+MainStatusBar.Panels[2].Width+3;
   Marquee.Left:=MarqueeLeft;
   Marquee.Top:=3;
   Marquee.Height:=21;
   Marquee.Width:=self.Width-MarqueeLeft-25;


end;

procedure TSQLBrowseManager.DBInfoMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
        DBInfo.PopupMenu:=nil;
        if Button=mbLeft then exit;
        if not assigned(DBInfo.Selected.Parent) then exit;
        if (DBInfo.Selected.Parent.Text='用户表') or (DBInfo.Selected.Parent.Text='系统表')then
        begin
           n11.Visible:=true;
           DBInfo.PopupMenu:=TablePopMenu;
           if pos('.',DBInfo.Selected.text)<>0 then
              tablename:=copy(DBInfo.Selected.text,1,pos('.',DBInfo.Selected.text)-1)
           else
              tablename:=DBInfo.Selected.text;

        end
        else  if (DBInfo.Selected.Parent.Text='存储过程')or (DBInfo.Selected.Parent.Text='函数') then
        begin
           tablename:=copy(DBInfo.Selected.text,1,pos(';',DBInfo.Selected.text)-1);
           DBInfo.PopupMenu:=ProcPopMenu;
        end
        else if DBInfo.Selected.Parent.Text='视图' then
        begin
           n11.Visible:=false;
           DBInfo.PopupMenu:=TablePopMenu;
           if pos('.',DBInfo.Selected.text)<>0 then
              tablename:=copy(DBInfo.Selected.text,1,pos('.',DBInfo.Selected.text)-1)
           else
              tablename:=DBInfo.Selected.text;
        end;

end;

procedure TSQLBrowseManager.N13Click(Sender: TObject);
begin
//
    //GetProcedureValue(ADOConnection.Provider,);
    with TProcView.create(self) do
    begin
      caption:=tablename;
      GetProcedureValue(ADOConnection,tablename,ProcText.Lines);
      StatusBar1.Panels[0].Text:='共'+inttostr(ProcText.Lines.Count)+'行';
    end;
 //   if pos(ADOConnection.Provider)<>0 then

end;

procedure TSQLBrowseManager.N26Click(Sender: TObject);
begin
 Tile;
end;

procedure TSQLBrowseManager.N27Click(Sender: TObject);
begin
  Cascade;
end;

procedure TSQLBrowseManager.N28Click(Sender: TObject);
begin
  ArrangeIcons;
end;

procedure TSQLBrowseManager.ToolButton4Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).TheCheckSQL;
    end
    else showmessage('没有可运行的SQL');
end;

procedure TSQLBrowseManager.N3Click(Sender: TObject);
begin
//

end;

procedure TSQLBrowseManager.ToolButton8Click(Sender: TObject);
begin
// 断开
   DisConnection;
end;

procedure TSQLBrowseManager.ShowTimeClick(Sender: TObject);
begin
   ShowTime.Checked:=not ShowTime.Checked;
   
end;

procedure TSQLBrowseManager.N40Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SetFont;
    end

end;

procedure TSQLBrowseManager.N41Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SetBKColor;
    end
end;

procedure TSQLBrowseManager.N15Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SQLText.Undo;

    end
end;

procedure TSQLBrowseManager.N17Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SQLText.CutToClipboard;

    end
end;

procedure TSQLBrowseManager.N18Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SQLText.CopyToClipboard;

    end
end;

procedure TSQLBrowseManager.N19Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SQLText.PasteFromClipboard;

    end
end;

procedure TSQLBrowseManager.N21Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SQLText.SelectAll;

    end
end;

procedure TSQLBrowseManager.N20Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SQLText.clear;

    end
end;

procedure TSQLBrowseManager.N32Click(Sender: TObject);
begin
   ShowHTMLForm(Handle,ExtractFilePath(Application.ExeName)+ABoutfilename);
end;

procedure TSQLBrowseManager.FormResize(Sender: TObject);
begin
         Marquee.Left:=MarqueeLeft;
         Marquee.Width:=self.Width-MarqueeLeft;
end;

procedure TSQLBrowseManager.N7Click(Sender: TObject);
begin
     if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SaveText;
    end
end;

procedure TSQLBrowseManager.N8Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).SaveasText;

    end
end;

procedure TSQLBrowseManager.N6Click(Sender: TObject);
begin
    OpenDialog.Execute;
    if OpenDialog.FileName='' then exit;

    with tSQLEditForm.create(self) do
         OpenText(OpenDialog.FileName);
    EnabledButton;
end;

procedure TSQLBrowseManager.N43Click(Sender: TObject);
begin
  CloseAll;
end;

procedure TSQLBrowseManager.N10Click(Sender: TObject);
begin
   application.Terminate;
end;

procedure TSQLBrowseManager.N42Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).close;
    end;
    if self.MDIChildCount=1 then
    begin
       DisbledButton;
    end;
end;

procedure TSQLBrowseManager.ToolButton25Click(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;

procedure TSQLBrowseManager.ToolButton23Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).RunSQL;
    end
    else showmessage('没有可运行的SQL');
end;

procedure TSQLBrowseManager.ToolButton22Click(Sender: TObject);
begin
    if (self.ActiveMDIChild) is tSQLEditForm then
    begin
        ((self.ActiveMDIChild) as tSQLEditForm).TheCheckSQL;
    end
    else showmessage('没有可运行的SQL');
end;

end.