addinfo.pas.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

unit AddInfo;

interface

uses
  System.Data.SqlClient,System.IO,
  System.Collections, System.ComponentModel,
  System.Data, System.Drawing, System.Web, System.Web.SessionState,
  System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;

type
  TWebForm1 = class(System.Web.UI.Page)
  {$REGION 'Designer Managed Code'}
  strict private
    procedure InitializeComponent;
    procedure btnAdd_Click(sender: System.Object; e: System.EventArgs);
    procedure btnShow_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict private
    procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
    MyFile: System.Web.UI.HtmlControls.HtmlInputFile;
    txtIntroduce: System.Web.UI.WebControls.TextBox;
    rblSex: System.Web.UI.WebControls.RadioButtonList;
    txtNumberID: System.Web.UI.WebControls.TextBox;
    txtName: System.Web.UI.WebControls.TextBox;
    txtBirthday: System.Web.UI.WebControls.TextBox;
    txtAddress: System.Web.UI.WebControls.TextBox;
    txtMailNumber: System.Web.UI.WebControls.TextBox;
    txtPhone: System.Web.UI.WebControls.TextBox;
    txtEmail: System.Web.UI.WebControls.TextBox;
    btnAdd: System.Web.UI.WebControls.Button;
    btnShow: System.Web.UI.WebControls.Button;
    RequiredFieldValidator1: System.Web.UI.WebControls.RequiredFieldValidator;
    RequiredFieldValidator2: System.Web.UI.WebControls.RequiredFieldValidator;
    RegularExpressionValidator1: System.Web.UI.WebControls.RegularExpressionValidator;
    RequiredFieldValidator3: System.Web.UI.WebControls.RequiredFieldValidator;
    procedure OnInit(e: EventArgs); override;
  private
    { Private Declarations }
  public
    { Public Declarations }
  end;

implementation

{$REGION 'Designer Managed Code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWebForm1.InitializeComponent;
begin
  Include(Self.btnAdd.Click, Self.btnAdd_Click);
  Include(Self.btnShow.Click, Self.btnShow_Click);
  Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  // TODO: Put user code to initialize the page here
end;

procedure TWebForm1.OnInit(e: EventArgs);
begin
  //
  // Required for Designer support
  //
  InitializeComponent;
  inherited OnInit(e);
end;

procedure TWebForm1.btnShow_Click(sender: System.Object; e: System.EventArgs);
begin
  Response.Redirect('ShowInfo.aspx');
end;

procedure TWebForm1.btnAdd_Click(sender: System.Object; e: System.EventArgs);
var
  FileDataStream:Stream;
  FileLength:integer;
  MyFileData:array of Byte;
  FileType:string;
  connection:SqlConnection;
  command:SqlCommand;
  paramNumberID,paramName,paramSex,paramBirthday,paramAddr,paramMailNumber,paramPhone,paramEmail,paramImg,paramIntroduce:SqlParameter;

begin
  //初始化文件流
  FileDataStream:=MyFile.PostedFile.InputStream ;
  //输入文件长度
  FileLength:=MyFile.PostedFile.ContentLength;
  //初始化动态数组
  SetLength(MyFileData,FileLength);
  //填充动态数组
  FileDataStream.Read(MyFileData,0,FileLength);
  //获得输入文件类型
  FileType:=MyFile.PostedFile.ContentType ;
  //初始化数据库连接
  connection:=SqlConnection.Create ('Server=localhost;uid=sa;pwd=;Database=ClassmateInfo');
  //初始化数据库命令
  command:=SqlCommand.Create('INSERT INTO Info (NumberID,Name,Sex,Birthday,Address,MailNumber,Phone,Email,Photo,Introduce) VALUES (@NumberID,@Name,@Sex,@Birthday,@Address,@MailNumber,@Phone,@Email,@Photo,@Introduce)', connection);

  //添加参数
  paramNumberID:=SqlParameter.Create('@NumberID', SqlDbType.Int);
  paramNumberID.Value :=txtNumberID.Text;
  command.Parameters.Add(paramNumberID);

  paramName:=SqlParameter.Create('@Name', SqlDbType.Char,10);
  paramName.Value := txtName.Text;
  command.Parameters.Add(paramName);

  paramSex:=SqlParameter.Create('@Sex', SqlDbType.Char,2);
  paramSex.Value := rblSex.SelectedItem.ToString;
  command.Parameters.Add(paramSex);

  paramBirthday:=SqlParameter.Create('@Birthday', SqlDbType.DateTime);
  paramBirthday.Value := txtBirthday.Text;
  command.Parameters.Add(paramBirthday);

  paramAddr:=SqlParameter.Create('@Address', SqlDbType.VarChar,50);
  paramAddr.Value:=txtAddress.Text;
  command.Parameters.Add(paramAddr);

  paramMailNumber:=SqlParameter.Create('@MailNumber', SqlDbType.VarChar,50);
  paramMailNumber.Value:= txtMailNumber.Text;
  command.Parameters.Add(paramMailNumber);

  paramPhone:=SqlParameter.Create('@Phone', SqlDbType.VarChar,50);
  paramPhone.Value:= txtPhone.Text;
  command.Parameters.Add(paramPhone);

  paramEmail:=SqlParameter.Create('@Email', SqlDbType.VarChar,50);
  paramEmail.Value:= txtEmail.Text;
  command.Parameters.Add(paramEmail);

  paramImg:=SqlParameter.Create('@Photo', SqlDbType.Image);
  paramImg.Value:= MyFileData;
  command.Parameters.Add(paramImg);

  paramIntroduce:=SqlParameter.Create('@Introduce', SqlDbType.VarChar,200);
  paramIntroduce.Value:=txtIntroduce.Text;
  command.Parameters.Add(paramIntroduce);

  try
    //打开连接，执行查询
    connection.Open();
    command.ExecuteNonQuery();
    connection.Close();
    Response.Write('<script>confirm(''操作成功！'')</script>');
  except
    Response.Write('<script>confirm(''操作失败！'')</script>');
  end;

  MyFileData:=NIL;     //释放动态数组
  //清空文本框
  txtNumberID.Text:='';
  txtName.Text:='';
  rblSex.SelectedIndex:=0;
  txtBirthday.Text:='';
  txtAddress.Text:='';
  txtMailNumber.Text:='';
  txtPhone.Text:='';
  txtEmail.Text:='';
  txtIntroduce.Text:='';
  Response.Write('');

end;


end.