实例——使用dbexpress连接方式访问数据库.txt

冒泡排序延时请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。系统会自动删除debug和release目录

    procedure TForm1.InsertBtnClick(Sender: TObject);
    //使用带参数的插入语句，每个记录由3个字段组成，分别是客户号，公司名称和国别
    var
      //说明用于保存SQL语句的串类型变量、SQL参数的Tparams类型变量
      SQLstmt: String;           
      CountryParams: TParams;
    begin
      CountryParams:= TParams.Create;
      //建立Tparams对象
      try
        SQLConnection1.Connected := True;
        //连接到本地的Paradox数据库
        CountryParams.CreateParam(ftString, 'CountryParam', ptInput);
        CountryParams.ParamByName('CountryParam').AsString := '中国';
        //使用参数名为变量CountryParam赋值
        SQLstmt := 'INSERT INTO "Kehu.db" '+'(CustNo, Company, country) ' +
          'VALUES (168, "蓝田设备工程公司", : CountryParam)';
        //生成插入记录的SQL语句，并为3个字段赋值
        SQLConnection1.Execute(SQLstmt, CountryParams);
        //执行TSQLConnection语句的Execute方法，完成数据的插入
      finally
        CountryParams.Free;
      end;
    end;