⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 publicfun.pas

📁 北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    ParamByName('@DZ').Value := DZ;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function LyxxAdd(const LYBH,XQBH,MC,LXBH:string; CS,FJTS:smallint):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@LYBH').Value := LYBH;
    ParamByName('@XQBH').Value := XQBH;
    ParamByName('@MC').Value := MC;
    ParamByName('@LXBH').Value := LXBH;
    ParamByName('@CS').Value := CS;
    ParamByName('@FJTS').Value := FJTS;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZfxxAdd(const ZFBH,LYBH,DYH,HXBH,LC,CXBH,DJBH,YTBH,SFFP,KFFP,SFZH,DWBH:string;const area,cost:double):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@ZFBH').Value := ZFBH;
    ParamByName('@LYBH').Value := LYBH;
    ParamByName('@DYH').Value := DYH;
    ParamByName('@HXBH').Value := HXBH;
    ParamByName('@LC').Value := LC;
    ParamByName('@CXBH').Value := CXBH;
    ParamByName('@DJBH').Value := DJBH;
    ParamByName('@YTBH').Value := YTBH;
    ParamByName('@SFFP').Value := SFFP;
    ParamByName('@KFFP').Value := KFFP;
    ParamByName('@SFZH').Value := SFZH;
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@AREA').Value := area;
    ParamByName('@COST').Value := cost;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function DwxxAdd(const DWBH,DWMC:string;KFTS,YFTS:smallint):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@DWMC').Value := DWMC;
    ParamByName('@KFTS').Value := KFTS;
    ParamByName('@YFTS').Value := YFTS;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function GrxxAdd(const SFZH,XM,DWBH,ZW:string):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@SFZH').Value := SFZH;
    ParamByName('@XM').Value := XM;
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@ZW').Value := ZW;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function FpzbAdd(const FPTJBH,FPCS:string;YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ:smallint):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@FPTJBH').Value := FPTJBH;
    ParamByName('@FPCS').Value := FPCS;
    ParamByName('@YJSL').Value := YJSL;
    ParamByName('@EJSL').Value := EJSL;
    ParamByName('@SJSL').Value := SJSL;
    ParamByName('@FSEJ').Value := FSEJ;
    ParamByName('@FSSJ').Value := FSSJ;
    ParamByName('@QT').Value := QT;
    ParamByName('@HJ').Value := HJ;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function FjfpbAdd(const FPTJBH,YTBH:string;YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ:smallint):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@FPTJBH').Value := FPTJBH;
    ParamByName('@YTBH').Value := YTBH;
    ParamByName('@YJSL').Value := YJSL;
    ParamByName('@EJSL').Value := EJSL;
    ParamByName('@SJSL').Value := SJSL;
    ParamByName('@FSEJ').Value := FSEJ;
    ParamByName('@FSSJ').Value := FSSJ;
    ParamByName('@QT').Value := QT;
    ParamByName('@HJ').Value := HJ;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function YtfpbAdd(const DWBH:string;ZGFP,JLFP,CQFP,LDGB,SHYF,GYFW,JDFW,QTYF:smallint):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@ZGFP').Value := ZGFP;
    ParamByName('@JLFP').Value := JLFP;
    ParamByName('@CQFP').Value := CQFP;
    ParamByName('@LDGB').Value := LDGB;
    ParamByName('@SHYF').Value := SHYF;
    ParamByName('@GYFW').Value := GYFW;
    ParamByName('@JDFW').Value := JDFW;
    ParamByName('@QTYF').Value := QTYF;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZgfpbAdd(const DWBH,YTBH:string;YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ:smallint):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@YTBH').Value := YTBH;
    ParamByName('@YJSL').Value := YJSL;
    ParamByName('@EJSL').Value := EJSL;
    ParamByName('@SJSL').Value := SJSL;
    ParamByName('@FSEJ').Value := FSEJ;
    ParamByName('@FSSJ').Value := FSSJ;
    ParamByName('@QT').Value := QT;
    ParamByName('@HJ').Value := HJ;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZfxxUp(const ZFBH,DWBH:string;var msg:string):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_TXFP_Save;1';
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@ZFBH').Value := ZFBH;
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  msg:= datamodule1.ADOSP.Parameters.ParamByName('@MSG').Value;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZfxxUp1(const ZFBH,DWBH,YTBH:string;var msg:string):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_TXFP_Save1;1';
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@ZFBH').Value := ZFBH;
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@YTBH').Value := YTBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  msg:= datamodule1.ADOSP.Parameters.ParamByName('@MSG').Value;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZfxxSet(const ZFBH:string;var msg:string):smallint;
begin
  if  datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_Zfxx_set;1';
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@ZFBH').Value := ZFBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  Msg:= datamodule1.ADOSP.Parameters.ParamByName('@msg').Value;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function SysDel(const BH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@BH').Value := BH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function XqxxDel(const XQBH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@XQBH').Value := XQBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function LyxxDel(const LYBH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@LYBH').Value := LYBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZfxxDel(const ZFBH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@ZFBH').Value := ZFBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function DwxxDel(const DWBH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function GrxxDel(const SFZH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@SFZH').Value := SFZH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function YtfpbDel(const DWBH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;

function ZgfpbDel(const DWBH,YTBH:string):smallint;
begin
  if datamodule1.ADOSP.Active=true then datamodule1.ADOSP.Close;
  datamodule1.ADOSP.Parameters.Refresh;
  with datamodule1.ADOSP.Parameters do
  begin
    ParamByName('@DWBH').Value := DWBH;
    ParamByName('@YTBH').Value := YTBH;
    ParamByName('@nret').Value := -1;
  end;
  datamodule1.ADOSP.ExecProc;
  result := datamodule1.ADOSP.Parameters.ParamByName('@nret').Value;
  datamodule1.ADOSP.Close;
end;


end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -