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.