aliase.pas

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

unit aliase;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, rsListbox, DBTables, LMDBaseGraphicButton, LMDCustom3DButton,
  LMD3DCaptionButton, LMDControl, LMDBaseControl, LMDBaseGraphicControl,
  LMDBaseLabel, LMDCustomSimpleLabel, LMDSimpleLabel, ComCtrls, RzTreeVw,
  RzListVw, LMDCustomGlyphLabel, LMDGlyphLabel, StdCtrls, RzLabel,
  LMDCustomLabel, LMDLabel, LMDDrawEdge, LMDCustomComponent, LMDSysInfo;

type
  Taliaseform = class(TForm)
    Image1: TImage;
    LMDGlyphLabel1: TLMDGlyphLabel;
    LMDGlyphLabel2: TLMDGlyphLabel;
    LMDLabel1: TLMDLabel;
    LMDLabel3: TLMDLabel;
    RzURLLabel3: TRzURLLabel;
    LMDLabel5: TLMDLabel;
    RzURLLabel4: TRzURLLabel;
    LMDLabel6: TLMDLabel;
    LMDDrawEdge1: TLMDDrawEdge;
    Image2: TImage;
    LMDSysInfo1: TLMDSysInfo;
    LMDLabel7: TLMDLabel;
    LMDLabel8: TLMDLabel;
    LMDLabel9: TLMDLabel;
    LMDLabel10: TLMDLabel;
    LMDLabel11: TLMDLabel;
    LMDDrawEdge2: TLMDDrawEdge;
    RzURLLabel5: TRzURLLabel;
    Image3: TImage;
    RzURLLabel1: TRzURLLabel;
    procedure FormCreate(Sender: TObject);
    procedure RzURLLabel1Click(Sender: TObject);
    procedure RzURLLabel3Click(Sender: TObject);
    procedure RzURLLabel4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aliaseform: Taliaseform;

implementation
 uses main,assign_a,edit,backup, tips, info;
{$R *.DFM}

procedure Taliaseform.FormCreate(Sender: TObject);
begin
 lmdlabel7.Caption:=lmdsysinfo1.Computername;
 lmdlabel8.Caption:=lmdsysinfo1.Platform;
 lmdlabel10.Caption:=inttostr(lmdsysinfo1.memphystotal)+' KB';

end;

procedure Taliaseform.RzURLLabel1Click(Sender: TObject);
begin
mainform.rztoolbarbutton3.Enabled:=true;
mainform.LMDFormDisplay1.ActiveForm:=assign_aform;
mainform.lmdformdisplay2.ActiveForm:=tipsform;
end;

procedure Taliaseform.RzURLLabel3Click(Sender: TObject);
begin
mainform.rztoolbarbutton3.Enabled:=true;
mainform.LMDFormDisplay1.ActiveForm:=editform;
mainform.lmdformdisplay2.ActiveForm:=infoform;
end;

procedure Taliaseform.RzURLLabel4Click(Sender: TObject);
begin
mainform.rztoolbarbutton3.Enabled:=true;
mainform.LMDFormDisplay1.ActiveForm:=backupform;
mainform.lmdformdisplay2.ActiveForm:=infoform;
end;

end.