frmosoonuser.pas

一个简单的同学录软件

unit FrmOsoonUser;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls,xutils,rcdstud, ComCtrls, TFlatSpinEditUnit,
  TFlatEditUnit, TFlatButtonUnit;

type
  TFmOsoonUser = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    strUser: TFlatEdit;
    strPassWord: TFlatEdit;
    strClassid: TFlatEdit;
    BitBtn1: TFlatButton;
    BitBtn2: TFlatButton;
    webdelay: TFlatSpinEditInteger;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmOsoonUser: TFmOsoonUser;

implementation

uses frmMain;

{$R *.DFM}

procedure TFmOsoonUser.BitBtn1Click(Sender: TObject);
var
temfile:file of osoonuser;
temuser:osoonuser;
filename:string;
begin
if (struser.Text <>'') and (strpassword.text<>'') then
begin
 temuser.username:=struser.text;
 temuser.password :=strpassword.Text;
 temuser.webdelay:=webdelay.Value ;
 temuser.classid :=strclassid.Text;

 filename:='OsoonINI.dat';
 assignfile(temfile,filename);
 rewrite(temfile);
 reset(temfile);
 write(temfile,temuser);
 closefile(temfile);
 msgbox('成功保存设置');
 fmmain.enabled:=true;
 fmmain.visible:=true;
 self.visible:=false;

end
else
begin
msgbox('项目必须添写完整！');
end;

end;

procedure TFmOsoonUser.BitBtn2Click(Sender: TObject);
begin
 fmmain.enabled:=true;
 fmmain.visible:=true;
 self.visible:=false;
end;

procedure TFmOsoonUser.FormPaint(Sender: TObject);
var
filename:string;
osoonfile:file of osoonuser;
user:osoonuser;
begin
 if FileExists('osoonini.dat') then
 begin
 assignfile(osoonfile,'osoonini.dat');
 reset(osoonfile);
 read(osoonfile,user);
 closefile(osoonfile);
 struser.Text :=user.username ;
 strpassword.Text :=user.password ;
 webdelay.Value :=user.webdelay ;
 end;

end;

end.