【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“Flogin.pas”一文，供大家参考学习!

    unit Flogin;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Fbase, StdCtrls, Buttons, ExtCtrls;
    
    type
      TF_login = class(TF_base)
        Edit1: TEdit;
        Edit2: TEdit;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        Label1: TLabel;
        Label2: TLabel;
        Timer1: TTimer;
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      F_login: TF_login;
      i:integer;
    implementation
      uses Fdm,Fzct;
    {$R *.dfm}
    
    end.