fregform.pas

IntraWeb电影程序 B/S类型的演示 Delphi+Internet 开发的电影服务器 系统登录电影网站的用户名和密码都是admin 观看电影的最低要求: 请确保你的系统已经安装媒体播放

unit FRegForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FBaseform, IWVCLComponent, IWBaseLayoutComponent,
  IWBaseContainerLayout, IWContainerLayout, IWTemplateProcessorHTML,
  IWCompRectangle, IWCompButton, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWCompEdit, IWCompRadioButton, IWDBStdCtrls,
  DB, ADODB, IWGrids, IWDBGrids;

type
  TRegForm = class(TBaseForm)
    RegBtn: TIWButton;
    ResetBtn: TIWButton;
    Boy: TIWRadioButton;
    Girl: TIWRadioButton;
    CheckPass: TIWEdit;
    UserName: TIWEdit;
    PassWord: TIWEdit;
    Email: TIWEdit;
    ComGrid: TIWDBGrid;
    procedure RegBtnClick(Sender: TObject);
    procedure IWAppFormRender(Sender: TObject);
    procedure ComGridColumns1Click(ASender: TObject; const AValue: String);
    procedure ResetBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
  procedure textclear;
    { Public declarations }
  end;

var
  RegForm: TRegForm;

implementation
    uses ServerController,FMainForm,FlistForm,FSystem;
{$R *.dfm}
procedure TRegForm.textclear;
var i:Integer;
begin
  for i:=0 to self.ComponentCount-1 do begin
   if (self.Components[i] is TIWEdit)  then
    (self.Components[i] as TIWEdit).Text:='';
  end;
end;

procedure TRegForm.RegBtnClick(Sender: TObject);

function GetSex:string;
begin
 if Boy.Checked=True then
   Result:='男'
 else
    Result:='女';
end;
var
  TemUserTable:TADOQuery;
begin
  inherited;
  TemUserTable:=TADOQuery.Create(Self);
  TemUserTable.Connection:=con1;
 if RegBtn.Caption='添加' then begin
   try
   with TemUserTable do begin
      Close;
      SQL.Clear;
      sql.Add('insert into Usertables(userid,passwords,sex,email,Regtime) values(:1,:2,:3,:4,:5)');
      Parameters[0].Value :=Trim(UserName.Text);
      Parameters[1].Value :=Trim(PassWord.Text);
      Parameters[2].Value :=GetSex;
      Parameters[3].Value :=Trim(Email.Text);
      Parameters[4].Value :=dateToStr(Date);
      ExecSQL;
      WebApplication.ShowMessage('恭喜注册成功');
   end;
   except
   username.text:= UserSession.qryUserTable.SQL.Text;
   WebApplication.ShowMessage('用户名重复,请重新输入!');
   end;
 end
 else begin
   try
   with TemUserTable do begin
     Close;
     SQL.Clear;
     sql.Add('Update Usertables set Passwords=:1,Sex=:2,email=:3 where userid=:4');
      Parameters[0].Value :=Trim(PassWord.Text);
      Parameters[1].Value :=GetSex;
      Parameters[2].Value :=Trim(Email.Text);
      Parameters[3].Value :=Trim(UserName.Text);
      ExecSQL;
      WebApplication.ShowMessage('恭喜修改成功');
   end;
   except
   end;
 end;
 TemUserTable.Free;
end;

procedure TRegForm.IWAppFormRender(Sender: TObject);
procedure SetSex(Istring:string);
begin
 if  Istring ='男'then
   Boy.Checked:=True
 else
   Girl.Checked:=True;
end;
begin
  inherited;
 if UserSession.isEditAppendUser <>'' then  begin
    RegBtn.Caption:='修改';
    with UserSession.qryUserTable do begin
     UserName.Text:=FieldbyName('userid').AsString;
     PassWord.Text:=FieldByname('Passwords').AsString;
     CheckPass.Text:=FieldByname('Passwords').AsString;
     Email.Text:=Fieldbyname('email').AsString;
     SetSex(FieldByname('Sex').asstring);
    end;
    UserName.ReadOnly:=True;
    UserSession.isEditAppendUser:='';
 end
 else begin
    RegBtn.Caption:='添加';
    textclear;
    UserName.ReadOnly:=False;
 end;
end;

procedure TRegForm.ComGridColumns1Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
 If AValue ='MainForm' then
  begin
   if not ShowForm('MainForm') then TMainForm.Create(WebApplication).Show ;
  end
 else
   begin
   UserSession.FilMType:=AValue;
   if not ShowForm('ListForm') then TListForm.Create(WebApplication).Show;
   end;
end;

procedure TRegForm.ResetBtnClick(Sender: TObject);
begin
  inherited;
 if not ShowForm('SystemForm') then TSystemForm.Create(WebApplication).Show;
end;

initialization
  RegisterClass(TRegForm);
end.