zoukankan      html  css  js  c++  java
  • delphi 数据连接规范

    建议大家采用另外一种编码风格,不要在程序中到处都有这种LZ程序生成的代码:
    begin
    with qryMain do
    begin
    try
    Close;
    SQL.Clear;
    SQL.Add('Delete From MONTASK where TASKID=:TASKID');
    ParamByName('TASKID').AsString := AID;
    Execute;
    finally
    Close;
    end;
    end;
    end;

    实际上,在一般的项目中,整个程序中,只需要在统一的一个dm中,放置一个DB Connection,和一个Query控件(TempQuery),再写一个OpenQuery的过程就基本够用了,而且代码更简洁:

    function TdmMain.OpenQuery(const ASelectSQL: string; const AUniDirectional: Boolean = False; AQuery: TUniQuery = nil): Boolean;
    var
    Qry: TUniQuery;
    begin
    Result := False;
    if AQuery = nil then
    Qry := TempQuery
    else
    Qry := AQuery;

    try
    with Qry do begin
    Close;
    UniDirectional := AUniDirectional; //如果这个数据集准备用来编辑和使用dbGrid等浏览,就必须 UniDirectional = False
    SQL.Text := ASelectSQL;
    Open;
    Result := not IsEmpty;
    end;
    except
    On E: Exception do begin
    //*****
    raise
    end
    end
    end;

    这样做的可移植性也很好。希望对大家有用。

  • 相关阅读:
    Login02
    工作笔记
    vim 使用笔记
    linux 命令常用笔记
    百度面试测试开发工程师内容
    sublime 快捷键
    如何升级php版本---从php5.5.12 升级php7.1.5 wamp实践
    如何新建自己的服务
    php.ini 文件中配置的意义注释
    linux 如何打包代码
  • 原文地址:https://www.cnblogs.com/chenmfly/p/4995837.html
Copyright © 2011-2022 走看看