?? login.pas
字號:
unit logIn;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TfrmLogIn = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
name: TComboBox;
pwd: TEdit;
btnOk: TButton;
btnCancel: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
power:string;
function canPass:boolean;
end;
var
frmLogIn: TfrmLogIn;
implementation
{$R *.dfm}
{ TfrmLogIn }
function TfrmLogIn.canPass: boolean;
var
f:file;
s1,s2,s3:string[30];
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=name.Text) and (s2=pwd.Text) then
begin
power:=s3;
closeFile(f);
result:=true;
exit;
end;
until (nr=0);
closeFile(f);
result:=false;
end;
procedure TfrmLogIn.FormCreate(Sender: TObject);
var
f:file;
nr,nw:integer;
buf:string[60];
bn:boolean;
size:longint;
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;
reSet(f,1);
repeat
blockRead(f,buf,12,nr);
if nr>0 then
name.Items.Add(buf);
blockRead(f,buf,12,nr);
blockRead(f,buf,24,nr);
until (nr=0);
closeFile(f);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -