ufunkq.pas

来自「一个会议签到系统」· PAS 代码 · 共 30 行

unit uFunKQ;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, Buttons, ImgList, CheckLst, Mask, DBCtrls, DB, ADODB;


function  FGetKQJPort():Integer;  

implementation

uses uDataOA, uDMOA, uFunSys;

function  FGetKQJPort():Integer;
var
  Str:String;
begin
  Str:='Select * from TAD00_CKH';
  FCarryOutSQL(DMOA.ADOQry,Str,True);
  Str:=Trim(DMOA.ADOQry.FieldByName('sHao').AsString);
  if Str = '' then Str:='0';
  Result:=StrToInt(Str);    
end;



end.