adduserunit.~pas

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

unit adduserunit;

interface

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

type
  Tfrm_adduser = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    b_ok: TButton;
    b_cancel: TButton;
    b_help: TButton;
    procedure b_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_adduser: Tfrm_adduser;

implementation

{$R *.dfm}

procedure Tfrm_adduser.b_okClick(Sender: TObject);
var f:file;
 s1,s2,s3:string[60];
 nr:integer;
 size:longint;
begin
  assignfile(f,'sys.ini');
  reset(f,1);
  while not eof(f) do
  begin
    blockread(f,s1,12,nr);
    blockread(f,s2,12,nr);
    blockread(f,s3,24,nr);
    if s1=edit1.Text then
    begin
     messagedlg('你输入的用户名已存在',mtwarning,[mbok],0);
     edit1.Clear;
     edit2.Clear;
     edit3.Clear;
     exit;
    end;
  end;
  closefile(f);
  if (edit2.Text='') or (edit3.Text='') then
  begin
   messagedlg('密码不能为空',mtwarning,[mbok],0);
   edit2.SetFocus;
   exit;
  end; 
  if edit2.Text<>edit3.Text then
  begin
    messagedlg('两次输入的密码不一致',mtwarning,[mbok],0);
    edit2.Text:='';
    edit3.Text:='';
    activecontrol:=edit2;
    exit;
  end;
   if radiogroup1.ItemIndex=-1 then
    begin
     messagedlg('你还没有为用户选择权限',mtwarning,[mbok],0);
     edit3.Clear;
     edit2.Clear;

     exit;
    end;
   assignfile(f,'sys.ini');
   reset(f,1);
   size:=filesize(f);
   seek(f,size);
   s1:=edit1.Text;
   s2:=edit2.Text;
   s3:=inttostr(radiogroup1.ItemIndex+1);
   blockwrite(f,s1,12,nr);
   blockwrite(f,s2,12,nr);
   blockwrite(f,s3,24,nr);
   closefile(f);
     

end;

end.