delphi开发文档

《delphi开发文档》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、开发文档一．ADO的动态数据库连接procedureTDataModule2.DataModuleCreate(Sender:TObject);beginADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";DataSource='+getcurrentdir+'house.mdb;PersistSecurityInfo=False';ADOConnection1.Open();end;其中getcurrentdir为获得当前路径的函

2、数functionGetCurrentDir:string;.二．ADOQuery的动态创建和释放1．先定义一个TADOQuery的变量Query；２．创建Query　：Query:=TADOQuery(self);3．连接数据源　：Query.connection:=ADOConnection;4．Query的SQL的清空:Query.SQL.Clear;5．Query的SQL语言的赋予：Query.SQL.Text或者Query.SQL.Add();6．Query的参数赋值：Query.Parameters.ParamByName(‘

3、’).Vale;7．Query的SQL语句的执行：Query.Open或者Query.ExecSQL;8．Query的关闭：Query.Close;9．Query的释放：Query.Free;functionTDataModule2.CheckUserName(username:string):boolean;varQuery:TADOQuery;//核查用户名beginQuery:=TADOQuery.Create(self);Query.Connection:=ADOConnection1;15Query.SQL.Text:='sel

4、ect*from用户表where用户名=:name';Query.Parameters.ParamByName('name').Value:=username;Query.Open;ifQuery.RecordCount=1thenresult:=trueelseresult:=false;Query.Close;Query.Free;end;//密码的核查functionTDataModule2.CheckUserPassword(username,userpassword:string):boolean;varQuery:TADOQu

5、ery;beginQuery:=TADOQuery.Create(self);Query.Connection:=ADOConnection1;Query.SQL.Text:='select*from用户表where用户名=:name';Query.Parameters.ParamByName('name').Value:=username;Query.Open;ifQuery.fieldByName('密码').Value=userpasswordthenresult:=trueelseresult:=false;Query.Close

6、;Query.Free;end;//添加用户functionTDataModule2.AddUser(username,userpassword,jibie:string):boolean;varQuery:TADOQuery;beginQuery:=TADOQuery.Create(self);Query.Connection:=ADOConnection1;Query.SQL.Clear;Query.SQL.Text:='insertinto用户表(用户名,密码,级别)values(:name,:password,:jb)';15Qu

7、ery.Parameters.ParamByName('name').Value:=username;Query.Parameters.ParamByName('password').Value:=userpassword;Query.Parameters.ParamByName('jb').Value:=jibie;Query.Prepared;tryADOConnection1.BeginTrans;Query.ExecSQL;ADOConnection1.CommitTrans;result:=true;exceptADOConne

8、ction1.RollBackTrans;result:=false;end;Query.Close;Query.Free;end;//删除用户functionTDataModule2.Del