u_kl_set.~pas

一个钢筋开发系统

unit U_Kl_Set;

interface

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

type
  TFrm_kL_set = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_kL_set: TFrm_kL_set;

implementation
    uses u_xgkl;
{$R *.dfm}

procedure TFrm_kL_set.Button2Click(Sender: TObject);
begin
   self.Close;
end;

procedure TFrm_kL_set.Button1Click(Sender: TObject);
 var
  I,j,k,l:integer;
  aa:boolean;
   RandomFile : file of use_PASSWORD;
begin
   if trim(edit1.Text)='' then
      begin
       application.MessageBox('用户名不能为空！','明日科技');
       edit1.SetFocus;
       exit;
      end;
   if trim(edit2.Text)='' then
      begin
       application.MessageBox('用户口令不能为空！','明日科技');
        edit2.SetFocus;
       exit;
      end;
   if trim(edit3.Text)='' then
      begin
       application.MessageBox('确认口令不能为空！','明日科技');
        edit3.SetFocus;
       exit;
      end;
    if trim(edit2.Text)<>trim(edit3.Text) then
      begin
       application.MessageBox('密码不一致！','明日科技');
        edit2.Text:='';
        edit3.Text:='';
        edit2.SetFocus;
        exit;
      end;
    for l:=1 to 200 do
      begin
        if use_kl[l].Use_Enable=false then
          begin
           i:=l;
           break;
          end;
      end;
      //Use_Kl[i].Use_Id := i;
     //  Use_Kl[i].use_Enable := True;
      // Use_Kl[i].Use_Name := edit1.Text;
      // Use_Kl[i].Use_Password:= edit2.Text;

       use_change(i,trim(edit1.Text),trim(edit2.Text),true);
      { Assign(randomfile,'user.dll');
       reset(randomfile);
       seek(randomfile,i);
       write(randomfile,use_kl[i]);
       closefile(randomfile);}
       frm_xgkl.Lvw_list;
       self.Close;
end;

end.