ufrmmain.pas

数据库通用工具

unit UfrmMain;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N2: TMenuItem;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    bbtODBC: TBitBtn;
    ToolButton6: TToolButton;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    iglIcons: TImageList;
    PopupMenu1: TPopupMenu;
    mnuShowHide: TMenuItem;
    MenuItem1: TMenuItem;
    mnuExit: TMenuItem;
    TrayIcon1: TTrayIcon;
    ADO21: TMenuItem;
    N12: TMenuItem;
    ToolButton1: TToolButton;
    DB21: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure bbtODBCClick(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure mnuShowHideClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ADO21Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure DB21Click(Sender: TObject);
    function autoCreateShowForm( frmClass: TComponentClass; frm : TForm ) : Integer;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses UfrmImport, UfrmView, UfrmAdd, UfrmQryADO, UfrmCompareTB, UfrmImportNew,
  UfrmReadAccess, UfrmDB2, Udbm, UfrmBFMySQL, UfrmPubImport, UrmCfgDBMySQL;

{$R *.dfm}

//procedure URLink(URL:PChar);
//begin
//  try
//    ShellExecute(0, nil, URL, nil, nil, SW_NORMAL);  //SW_MAXIMIZE,SW_NORMAL
//  except
//  end;
//
//end;

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_Escape then
  begin
    TrayIcon1.Minimize;
//    Close;
  end;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  if Messagebox(self.handle,'您确定退出系统吗？ ','提示', mb_okcancel+mb_defbutton2+mb_iconquestion) <> id_ok then
//    action := caNone;
end;

procedure TfrmMain.BitBtn2Click(Sender: TObject);
begin
  URLink('C:\Program Files\Microsoft SQL Server\80\Tools\BINN\SQL Server Enterprise Manager.MSC');
end;

procedure TfrmMain.BitBtn4Click(Sender: TObject);
begin
  URLink('C:\Program Files\Microsoft SQL Server\80\Tools\Binn\isqlw.exe');
end;

procedure TfrmMain.BitBtn5Click(Sender: TObject);
begin
  //URLink('%SystemRoot%\system32\calc.exe');
  URLink('calc.exe');
end;

procedure TfrmMain.BitBtn6Click(Sender: TObject);
begin
  URLink('mspaint.exe');
end;

procedure TfrmMain.BitBtn7Click(Sender: TObject);
begin
  URLink('notepad.exe');
end;

procedure TfrmMain.BitBtn8Click(Sender: TObject);
begin
  URLink('osk');
end;

procedure TfrmMain.bbtODBCClick(Sender: TObject);
begin
  URLink('odbcad32');             
end;

function TfrmMain.autoCreateShowForm( frmClass: TComponentClass; frm : TForm ) : Integer;
begin
  //
  Self.Hide;    
  Application.CreateForm( frmClass , frm);
  frm.ShowModal;
  frm.Free;
  Self.Show;
end;

procedure TfrmMain.ToolButton6Click(Sender: TObject);
begin
//  Application.CreateForm(TfrmCompareTB, frmCompareTB);
//  frmCompareTB.ShowModal;
//  frmCompareTB.Free;
  autoCreateShowForm(TfrmCompareTB, frmCompareTB);
end;

procedure TfrmMain.BitBtn10Click(Sender: TObject);
begin
  //数据迁移
  autoCreateShowForm(TfrmImportNew, frmImportNew);
end;

procedure TfrmMain.BitBtn11Click(Sender: TObject);
begin
  URLink( PChar('Explorer') );
end;

procedure TfrmMain.FormActivate(Sender: TObject);
begin
  Self.Left := Screen.WorkAreaWidth - Self.Width-2;//Screen.Width - Self.Width -1 ;
  Self.Top  := Screen.WorkAreaHeight- Self.Height-2;//Screen.Height- Self.Height-30;
end;

procedure TfrmMain.mnuShowHideClick(Sender: TObject);
begin
  if IsIconic(Application.Handle) then
    TrayIcon1.Restore
  else
    TrayIcon1.Minimize;
end;

procedure TfrmMain.mnuExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.ToolButton2Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmAdd, frmAdd);
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.ADO21Click(Sender: TObject);
begin
  //ADO查询
  autoCreateShowForm(TfrmQryADO, frmQryADO);
end;

procedure TfrmMain.N12Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmImport, frmImport);
end;

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmReadAccess,frmReadAccess);
end;

procedure TfrmMain.DB21Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmDB2,frmDB2);
end;

procedure TfrmMain.BitBtn1Click(Sender: TObject);
begin
  if not dbm.testDBMySQLLink() then Exit;

  if dbm.dbODBCMySQL.Connected then
  begin

  end;
  
end;

procedure TfrmMain.BitBtn3Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmBFMySQL,frmBFMySQL);
end;

procedure TfrmMain.BitBtn9Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmView, frmView);
end;

procedure TfrmMain.BitBtn12Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmPubImport,frmPubImport);
end;

procedure TfrmMain.BitBtn13Click(Sender: TObject);
begin
  autoCreateShowForm(TfrmCfgDBMySQL,frmCfgDBMySQL);
end;

end.