main.pas

来自「通过此软件可方便的对interbase数据库进行合并」· PAS 代码 · 共 122 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, LMDCustomComponent, LMDWndProcComponent, LMDSysMenu,
  LMDControl, LMDBaseControl, LMDBaseGraphicButton, LMDCustomSpeedButton,
  LMDOfficeButton, LMDExplorerButton, LMDSpeedButton, ImgList,
  LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel, LMDFormDisplay,
  RzPanel, RzSplit, ExtCtrls, rsFormgrow, LMDOneInstance, RzStatus,
  RzPrgres, LMDCustom3DButton, LMD3DCaptionButton, Buttons, RzButton, Menus,
  LMDSysInfo, StdCtrls, RzEdit, Lmdsplta;

type
  Tmainform = class(TForm)
    LMDSysMenu1: TLMDSysMenu;
    RzStatusBar1: TRzStatusBar;
    CoolBar1: TCoolBar;
    RzClockStatus1: TRzClockStatus;
    RzStatusPane1: TRzStatusPane;
    RzProgressBar1: TRzProgressBar;
    RzToolbar1: TRzToolbar;
    RzToolbar2: TRzToolbar;
    LMDOneInstance1: TLMDOneInstance;
    RzToolbarButton5: TRzToolbarButton;
    RzToolbarButton1: TRzToolbarButton;
    RzToolbarButton2: TRzToolbarButton;
    RzSpacer1: TRzSpacer;
    RzToolbarButton3: TRzToolbarButton;
    RzSpacer2: TRzSpacer;
    RzToolbarButton4: TRzToolbarButton;
    RzSizePanel1: TRzSizePanel;
    LMDFormDisplay1: TLMDFormDisplay;
    LMDFormDisplay2: TLMDFormDisplay;
    procedure RzToolbarButton3Click(Sender: TObject);
    procedure RzToolbarButton5Click(Sender: TObject);
    procedure RzToolbarButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzToolbarButton2Click(Sender: TObject);
    procedure RzToolbarButton4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

uses assign_a,info,aliase,edit, datmod,backup,tips, error;

{$R *.DFM}

procedure Tmainform.RzToolbarButton3Click(Sender: TObject);
begin
rztoolbarbutton3.Enabled:=false;
lmdformdisplay2.ActiveForm:=infoform;
lmdformdisplay1.ActiveForm:=aliaseform;
end;

procedure Tmainform.RzToolbarButton5Click(Sender: TObject);
begin
rztoolbarbutton3.Enabled:=true;
LMDFormDisplay1.ActiveForm:=assign_aform;
lmdformdisplay2.ActiveForm:=tipsform;
end;

procedure Tmainform.RzToolbarButton1Click(Sender: TObject);
begin
rztoolbarbutton3.Enabled:=true;
LMDFormDisplay1.ActiveForm:=editform;
lmdformdisplay2.ActiveForm:=infoform;

end;

procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
datamodule1.session1.DeleteAlias('SOURCEBASE');
datamodule1.session2.DeleteAlias('DESTBASE');
datamodule1.session3.DeleteAlias('EDITBASE');
end;

procedure Tmainform.RzToolbarButton2Click(Sender: TObject);
begin
rztoolbarbutton3.Enabled:=true;
LMDFormDisplay1.ActiveForm:=backupform;
lmdformdisplay2.ActiveForm:=infoform;

end;

procedure Tmainform.RzToolbarButton4Click(Sender: TObject);
begin
close;
end;

procedure Tmainform.FormActivate(Sender: TObject);
var
dispform: TForm;
begin
dispform:=tipsform;
lmdformdisplay2.AddForm(dispform,false);
dispform:=editform;
lmdformdisplay1.AddForm(dispform,false);
dispform:=backupform;
lmdformdisplay1.AddForm(dispform,false);
dispform:=assign_aform;
lmdformdisplay1.AddForm(dispform,false);
dispform:=errorform;
lmdformdisplay1.AddForm(dispform,false);
dispform:=infoform;
lmdformdisplay2.AddForm(dispform,true);
dispform:=aliaseform;
lmdformdisplay1.AddForm(dispform,true);

end;

end.