uglb.pas

在公司做的一个小的系统源代码

unit Uglb;

interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
   DB, ADODB,
    QControls;
implementation
 procedure adoqopen(adoq: Tadoquery; str: string); //adoquery 带strings的查询

procedure adoqopen(adoq: Tadoquery; str: string); //adoquery 带strings的查询
begin
  with adoq do
  begin
    if active then active := false;
    DisableControls;
    sql.Clear;
    sql.Add(str);
    try
      active := true;
    except
      application.MessageBox('网络无法连接', '全省自制剂价格库', mb_ok + mb_iconerror);
      Screen.cursor := crDefault;
      exit;
    end ;
    EnableControls;
  end;
 end;
end.