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

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 26 行

    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;