umain.pas

来自「是一个delphi的流程制作软件」· PAS 代码 · 共 121 行

unit uMain;
{DISCLAIMER
--------------------
This source code is the property of Core Software.  You may use and distrubute
this source code at your own risk.  Warantee as to the to the completeness,
robustness, timliness, or any issue relevant to this source code whatsoever is
not expressed or implied in any way.

FREE INFORMATION
--------------------
Most companies disallow any religious content to be published in articles or
submitted material which is made public.  This is illegal.  I have a constitutional
right to practice my religion, which includes bringing the news of Jesus Christ
to the world.  It is not my intention to invade anyone's privacy, insult, or offend
any person - religious or not.

Jesus Loves You!


Core Software
CTO, Jason 'Wedge' Perry
534 Denver Ave
Chesapeake, VA 23322
[e-mail]
AOL Instant Messager : GuiOOP
ICQ Pager Address : 37953032
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

type
  TfMain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    txtSource: TEdit;
    txtDest: TEdit;
    GroupBox1: TGroupBox;
    chkTables: TCheckBox;
    chkStoredProcs: TCheckBox;
    chkViews: TCheckBox;
    chkTriggers: TCheckBox;
    chkRules: TCheckBox;
    memCompare: TRichEdit;
    Button3: TButton;
    txtDBSource: TEdit;
    txtDBDest: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
  public
  end;

var
  fMain: TfMain;

implementation

uses dmDirt;

{$R *.DFM}

procedure TfMain.Button1Click(Sender: TObject);
begin
  if not boDirt.ConnectSource(txtSource.text) then showmessage('No Source Server');
  if not boDirt.ConnectDBSource(txtDBSource.text) then showmessage('No Source DB');
end;

procedure TfMain.Button2Click(Sender: TObject);
begin
  if not boDirt.ConnectDest(txtDest.text) then showmessage('No Dest Server');
  if not boDirt.ConnectDBDest(txtDBDest.text) then showmessage('No Dest DB');
end;

procedure TfMain.Button3Click(Sender: TObject);
begin
  memCompare.lines.Clear;
  boDirt.CompareUI := memCompare.Lines;
  if chkTables.checked then boDirt.CompareTables;

  if chkStoredProcs.checked then boDirt.CompareStoredProcs;
end;

procedure TfMain.Button4Click(Sender: TObject);
begin
  boDirt.CompareUI := memCompare.Lines;
  boDirt.SourceServerInfo;
end;

procedure TfMain.Button5Click(Sender: TObject);
begin
  boDirt.CompareUI := memCompare.Lines;
  boDirt.DestServerInfo;
end;

procedure TfMain.Button6Click(Sender: TObject);
begin
  boDirt.CompareUI := memCompare.Lines;
  boDirt.SourceDBInfo;
end;

procedure TfMain.Button7Click(Sender: TObject);
begin
  boDirt.CompareUI := memCompare.Lines;
  boDirt.DestDBInfo;
end;

end.