Delphi- 操作数据库基础

　　Delphi其实是一门挺好的语言，有很多优点。在操作数据库这块和C#/.Net有很多相似的地方，也是基于组件的形式，也是基于ADO，我很喜欢这种方式。本文记录一下自己学习了一段时间Delphi后，参考了一下书和源码后，如何操作一下MSSQLSEVER数据库，方便日后查阅。

　　一、新建一个Data Module，配置数据库连接字符串（类型于.Net里面的web.Config配置数据库连接字符串）

　　这里的单元为FDM,Data Module的名字叫F_DM,之后其他FORM，新建一个ADOQuery都可以在Connection处填上 F_DM.ADOConnection。这样就不用每次新建FORM都去配置连接字符串。

　　代码：

　　

implementation

{$R *.dfm}

procedure TF_DM.DataModuleCreate(Sender: TObject);
var
  connStr: string;
begin

  try
    connStr := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;PassWord=123456;Initial Catalog=StBusinessLeague;Data Source=.';
    Adoconnection1.ConnectionString := connStr;

    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from UserInfo');
    ADOQuery1.Active := True;
    ADOQuery1.Open;

  except
    Exit;
  end;
end;

end.

 

　　二、登陆界面的编写

　　界面如下截图：

　　代码编写如下：

procedure TFormLogin.btnLoginClick(Sender: TObject);
var
  strName:string;
  strPwd:string;
begin
  strName:= edtName.Text;
  strPwd:= edtPwd.Text;


  QryLogin.SQL.Clear;
  QryLogin.SQL.Add('SELECT * FROM UserInfo WHERE UserName=:UserName AND Password=:Password');
  QryLogin.Parameters.ParamByName('UserName').Value := strName;
  QryLogin.Parameters.ParamByName('PassWord').Value := strPwd;
  QryLogin.Open;

  if QryLogin.RecordCount > 0 then
    FormMain.ShowModal
  else
    ShowMessage('error!');
end;

　　三、主界面的编写

　　代码如下：

{$R *.dfm}
uses MainAdd, MainUpdate;
procedure TFormMain.FormShow(Sender: TObject);
begin
  qryNews.Close;
  qryNews.SQL.Clear;
  qryNews.SQL.Add('select * from LinkInfo');
  qryNews.Open;
end;

procedure TFormMain.btnSearchClick(Sender: TObject);
var
  strTitle: string;
begin

  strTitle:= edtName.Text;

  qryNews.Close;
  qryNews.SQL.Clear;
  qryNews.SQL.Add('select * from LinkInfo where LinkName like ''%'+strTitle+'%''');
  qryNews.Open;
end;

procedure TFormMain.btnAddClick(Sender: TObject);
begin
  Application.CreateForm(TFormMainAdd,FormMainAdd);
  FormMainAdd.ShowModal;
  FormMainAdd.Free;
end;

procedure TFormMain.btnUpdateClick(Sender: TObject);
begin
  Application.CreateForm(TFormMainUpdate,FormMainUpdate);
  FormMainUpdate.ShowModal;
  FormMainUpdate.Free;
end;

procedure TFormMain.btnDeleteClick(Sender: TObject);
var
  Ids: string;
begin

  try
    IF Application.MessageBox('是否删除当前记录？','提示',MB_YESNO)= ID_YES then
      qryNews.Delete;
  except
    Application.MessageBox('不能删除','提示',MB_YESNO);
  end;

//  Ids := qryNews.FieldByName('Id').AsString;
//  qryNews.Close;
//  qryNews.SQL.Clear;
//  qryNews.SQL.Add('delete LinkInfo where Id=:Id;');
//  qryNews.Parameters.ParamByName('Id').Value := Ids;
//  qryNews.ExecSQL;
//
//  qryNews.SQL.Clear;
//  qryNews.SQL.Add('select * from LinkInfo');
//  qryNews.Open;

end;

end.

　　四、更新界面编写

　　如下截图：

　　

　　代码：

uses Main;

procedure TFormMainUpdate.btnOKClick(Sender: TObject);
var
  strSql:string;
  Ids:string;
begin
//    FormMain.qryNews.Edit;
//    FormMain.qryNews.FieldByName('LinkType').AsString:= edtLikeType.Text;
//    FormMain.qryNews.FieldByName('LinkName').AsString:= edtLinkName.Text;
//    FormMain.qryNews.FieldByName('LinkUrl').AsString:= edtLinkUrl.Text;
//    FormMain.qryNews.FieldByName('CreateDate').AsString:= edtCreateDate.Text;
//    FormMain.qryNews.FieldByName('LinkOrder').AsString:=edtOrder.Text;
//    FormMain.qryNews.UpdateRecord;
//    FormMain.qryNews.Post;



    Ids := FormMain.qryNews.FieldByName('Id').AsString;
    strSql:= 'Update LinkInfo set LinkType=:LinkType,LinkName=:LinkName where Id=:Id';
    FormMain.qryNews.Close;
    FormMain.qryNews.SQL.Clear;
    FormMain.qryNews.SQL.Add(strSql);

    FormMain.qryNews.Parameters.ParamByName('Id').Value := Ids;
    FormMain.qryNews.Parameters.ParamByName('LinkType').Value := edtLikeType.Text;
    FormMain.qryNews.Parameters.ParamByName('LinkName').Value := edtLinkName.Text;
    FormMain.qryNews.ExecSQL;

end;

procedure TFormMainUpdate.FormShow(Sender: TObject);
begin

    edtLikeType.Text := FormMain.qryNews.FieldByName('LinkType').AsString;
    edtLinkName.Text := FormMain.qryNews.FieldByName('LinkName').AsString;
    edtLinkUrl.Text := FormMain.qryNews.FieldByName('LinkUrl').AsString;
    edtCreateDate.Text := FormMain.qryNews.FieldByName('CreateDate').AsString;
    edtOrder.Text := FormMain.qryNews.FieldByName('LinkOrder').AsString;

end;

end.

　　五、添加界面的编写

　　如下截图：

　　代码：

　　

uses Main;
procedure TFormMainAdd.btnOKClick(Sender: TObject);
var
  strSql:string;

begin
    try

      FormMain.qryNews.Insert;
      FormMain.qryNews.FieldByName('LinkType').AsString:= edtLikeType.Text;
      FormMain.qryNews.FieldByName('LinkName').AsString:= edtLinkName.Text;
      FormMain.qryNews.FieldByName('LinkUrl').AsString:= edtLinkUrl.Text;
      FormMain.qryNews.FieldByName('CreateDate').AsString:= edtCreateDate.Text;
      FormMain.qryNews.FieldByName('LinkOrder').AsString:=edtOrder.Text;
      FormMain.qryNews.UpdateRecord;
      FormMain.qryNews.Post;

    except
       Application.MessageBox('请输入正确的内容','提示',MB_OK);
       Exit;
    end;
    

    
//    strSql:= 'Insert Into LinkInfo(LinkType,LinkName,LinkUrl,CreateDate,LinkOrder) '
//                +'Values(:LinkType,:LinkName,:LinkUrl,:CreateDate,:LinkOrder)';
//    FormMain.qryNews.Close;
//    FormMain.qryNews.SQL.Clear;
//    FormMain.qryNews.SQL.Add(strSql);
//
//    FormMain.qryNews.Parameters.ParamByName('LinkType').Value := edtLikeType.Text;
//    FormMain.qryNews.Parameters.ParamByName('LinkName').Value := edtLinkName.Text;
//    FormMain.qryNews.Parameters.ParamByName('LinkUrl').Value := edtLinkUrl.Text;
//    FormMain.qryNews.Parameters.ParamByName('CreateDate').Value := edtCreateDate.Text;
//    FormMain.qryNews.Parameters.ParamByName('LinkOrder').Value := edtOrder.Text;
//
//    FormMain.qryNews.ExecSQL;

end;

end.