umain.pas

存储过程脚本程序源码

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, ADODB, ComCtrls,typinfo, Menus, ImgList,
  ToolWin, ExtCtrls;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: 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;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tbDBCofig: TToolButton;
    tbDBRestor: TToolButton;
    tbDBBAK: TToolButton;
    ToolButton7: TToolButton;
    tbHelp: TToolButton;
    ToolButton8: TToolButton;
    tbExit: TToolButton;
    tbDBList: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ImageTool: TImageList;
    DBConn: TADOConnection;
    ODialog: TOpenDialog;
    SDialog: TSaveDialog;
    Status: TStatusBar;
    Time: TTimer;
    procedure N10Click(Sender: TObject);
    procedure tbExitClick(Sender: TObject);
    procedure tbDBCofigClick(Sender: TObject);
    procedure tbDBBAKClick(Sender: TObject);
    procedure tbDBRestorClick(Sender: TObject);
    procedure DBConnAfterConnect(Sender: TObject);
    procedure TimeTimer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure tbDBListClick(Sender: TObject);
  private
    //procedure GetSelFieldList;
    //procedure CreatePD;
  public
    strConn:string;

  end;

var
  frmMain: TfrmMain;

implementation

uses uPDMod, uProcess, uDBName;

{$R *.dfm}



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

procedure TfrmMain.tbExitClick(Sender: TObject);
begin
        application.Terminate;
end;

procedure TfrmMain.tbDBCofigClick(Sender: TObject);
begin

        strConn:= PromptDataSource(Handle,DBConn.ConnectionString);
        //edtConnectionStr.Text :=strConn;
        if strConn<>'' then
        begin
                DBConn.Close;
                DBConn.ConnectionString:=strConn;
                DBConn.Open;
        end;
end;

procedure TfrmMain.tbDBBAKClick(Sender: TObject);
var
        dbBak : tadoquery;
begin
        try
                SDialog.Filter:= '数据库文件|*.dat|';
                if SDialog.Execute then
                begin
                   try
                        dbBak:= tadoquery.Create(nil);
                        dbBak.Connection :=DBConn;
                        dbBak.SQL.Text := 'backup database '+DBConn.DefaultDatabase +' to disk ='''+SDialog.FileName+'''';
                        dbBak.ExecSQL;
                        messagedlg('成功备份数据',mtConfirmation,[mbOk],0);  //
                   except
                        messagedlg('备份数据失败',mtWarning,[mbOk],0);
                   end;
                end;
        finally
                dbBak.Free;
        end;
end;

procedure TfrmMain.tbDBRestorClick(Sender: TObject);
var
        dbBak : tadoquery;
begin
        try
                ODialog.Filter:= '数据库文件|*.dat|';
                if SDialog.Execute then
                begin
                   try
                        dbBak:= tadoquery.Create(nil);
                        dbBak.Connection :=DBConn;
                        dbBak.SQL.Text := 'restore database '+DBConn.DefaultDatabase +' from disk '''+SDialog.FileName+'''';
                        dbBak.ExecSQL;
                        messagedlg('成功备份数据',mtConfirmation,[mbOk],0);  //
                   except
                        messagedlg('备份数据失败',mtWarning,[mbOk],0);
                   end;
                end;
        finally
                dbBak.Free;
        end;
end;

procedure TfrmMain.DBConnAfterConnect(Sender: TObject);
begin
        Status.Panels[0].Text :='当前数据库是:  '+DBConn.DefaultDatabase;
        //messagedlg('数据库'+DBConn.DefaultDatabase+'连接成功' ,mtConfirmation,[mbOk],0);
tbDBList.Enabled := true;
tbDBRestor.Enabled := true;
tbDBBAK.Enabled := true;
//tbDBList.Enabled := true;
//tbDBList.Enabled := true;
end;

procedure TfrmMain.TimeTimer(Sender: TObject);
begin
        Status.Panels[2].Text :='当前时间是:  '+formatdatetime('YYYY-MM-DD HH:MM:SS',now);
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
        //frmDBName.show;
end;

procedure TfrmMain.tbDBListClick(Sender: TObject);
begin
        if not assigned(frmDBName) then
                frmDBName:=tfrmDBName.Create(self);
        frmDBName.show;
        frmDBName.Top :=frmmain.top+ CoolBar1.Top + 2*CoolBar1.Height +6;
        frmDBName.Left :=frmmain.Left + CoolBar1.Left+4;
        frmDBName.Width := CoolBar1.Width ;
        frmDBName.Height := frmMain.Height - 2*CoolBar1.Height -status.Height -12 ;
end;

end.