loginformunit.pas

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

unit loginformunit;

interface

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

type
  Tfrm_login = class(TForm)
    GroupBox1: TGroupBox;
    i_pwd: TEdit;
    i_name: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    b_ok: TButton;
    b_cancel: TButton;
    procedure FormCreate(Sender: TObject);
    procedure i_pwdKeyPress(Sender: TObject; var Key: Char);
    procedure i_nameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
   public
    { Public declarations }
     power:string;
     function canpass:boolean;

  end;

var
  frm_login: Tfrm_login;

implementation

uses mainformunit;

{$R *.dfm}
function tfrm_login.canpass:boolean;
var f:file;
  s1,s2,s3:string[60];
  nr:integer;
begin
  assignfile(f,'sys.ini');
  reset(f,1);
  repeat
    blockread(f,s1,12,nr);
    blockread(f,s2,12,nr);
    blockread(f,s3,24,nr);
    if (s1=i_name.Text)and (s2=i_pwd.Text) then
     begin
     result:=true;
     power:=s3;
     closefile(f);
     exit;
     end;
  until(nr=0);
  result:=false;
  closefile(f);
end; 
procedure Tfrm_login.FormCreate(Sender: TObject);
var f:file;
 buf:string[60];
 nr,nw:integer;
 bn:boolean;
 size:integer;
begin
  assignfile(f,'sys.ini');
  bn:=true;
 if fileexists('sys.ini')=false
 then
   bn:=false else
   begin
   reset(f,1);
   size:=filesize(f);
   if size<48 then bn:=false;
   end;
   if bn=false then
    begin
       rewrite(f,1);
       buf:='admin';
       blockwrite(f,buf,12,nw);
       buf:='admin';
       blockwrite(f,buf,12,nw);
       buf:='1';
       blockwrite(f,buf,24,nw);
       closefile(f);
    end;
     assignfile(f,'sys.ini');
     reset(f,1);
   repeat
    blockread(f,buf,12,nr);
    if nr>0  then
    i_name.Items.Add(buf);
    blockread(f,buf,12,nr);
    blockread(f,buf,24,nr);
    until(nr=0);
    closefile(f);
   i_name.ItemIndex:=0;
   i_pwd.Clear;
   activecontrol:=i_pwd;
end;
procedure Tfrm_login.i_pwdKeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(vk_return) then b_ok.Click;
end;
procedure Tfrm_login.i_nameChange(Sender: TObject);
begin
i_pwd.Text:='';
end;
procedure Tfrm_login.FormShow(Sender: TObject);
begin
i_pwd.Clear;
end;

end.