zfrm_temp.pas

一个很不错的评标系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_Temp                                              *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_Temp;

interface

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

type
  Tzfrm_Temps = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Panel1: TPanel;
    Image1: TImage;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_Temps: Tzfrm_Temps;

implementation

uses zfrm_login, zfrm_MainBiddingU, zfrm_Setup, zmod_CommonFuncProcU,
  zmod_commonDataFileU;

{$R *.DFM}

procedure Tzfrm_Temps.Timer1Timer(Sender: TObject);
begin
  // 设置主窗体
  Timer1.Enabled :=False ;
  with zfrm_MainBidding do
  begin
    Enabled :=False ;
    Show ;
  end;
  //
end;

procedure Tzfrm_Temps.Timer2Timer(Sender: TObject);
begin
  //
  Timer2.Enabled :=False ;
  Self.Hide ;
  zfrm_MainBidding.Enabled :=True ;
  zfrm_Logins.ShowModal ;
  Self.Close ;
  //
end;

procedure Tzfrm_Temps.Button1Click(Sender: TObject);
begin
  // 进入,配置
  Timer1.Enabled :=False ;
  Timer2.Enabled :=False ;

  Application.CreateForm(Tzfrm_Setups, zfrm_Setups);
  zfrm_Setups.ShowModal ;
  Application.Terminate ;
  //zfrm_MainBidding.Close ;
  //
end;

end.