main.~pas

来自「本人为朋友在蓝光地产做财务做的应用软件」· ~PAS 代码 · 共 82 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzGroupBar, Menus, ComCtrls, ExtCtrls, StdCtrls, ToolWin,
  ImgList;

type
  TMainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    N5: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Mainform: TMainform;

implementation

uses u_Compare;

{$R *.dfm}

procedure TMainform.FormShow(Sender: TObject);
begin
  ToolButton1Click(nil);
 // fCompare.WindowState :=wsMaximized;
end;

procedure TMainform.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text :='当前时间：'+datetostr(now) +'  '+FormatDateTime('yyyymmdd hh:mm:ss',now);
end;

procedure TMainform.FormCreate(Sender: TObject);
begin
  StatusBar1.Panels[1].Text :='软件制作：艾川（13036679045）';
end;

procedure TMainform.ToolButton1Click(Sender: TObject);
begin
  if fCompare=nil then
  fCompare :=TfCompare.Create(Application);
 // fCompare.Left :=0;
  fCompare.Top :=0;
  fCompare.Show;
end;

procedure TMainform.ToolButton2Click(Sender: TObject);
begin
close;
end;

procedure TMainform.N5Click(Sender: TObject);
begin
  ToolButton1Click(nil);
end;

end.