dataaccesscommonshell.pas

招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言

        Acom.Enabled:=true;
        adoquery.next;
        continue;
      end;
      if adoquery.FieldByName('bd_leibie').AsString='2' then
      begin
        acom.Items.Add('第二类');
        Acom.Enabled:=true;
        adoquery.next;
        continue;
      end;
      if adoquery.FieldByName('bd_leibie').AsString='3' then
      begin
        acom.Items.Add('第三类');
        Acom.Enabled:=true;
        adoquery.next;
        continue;
      end;
    end;
  finally
    freeandnil(adoquery);
  end;
end;

procedure GetXmbdgc(Axm_name,Azblx_name,Agclx_name:string);
var
  adoquery :Tadoquery;
begin
  //new(xmbdgc);
  adoquery:=tadoquery.create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=DataModule1.ADOMainConn;
    adoquery.SQL.Text:='select xm_isbn,xm_name  from bid_xiangmu_xinxi where xm_name='''+trim(Axm_name)+'''';
    adoquery.Open;
    xmbdgc.XM_ISBn:=adoquery.fieldbyname('xm_isbn').asstring;
    xmbdgc.xm_name:= adoquery.fieldbyname('xm_name').asstring;
    adoquery.Close;
    adoquery.SQL.Text:='select zblx_id,zblx_name  from bid_zhaobiao_leixing where zblx_name='''+trim(Azblx_name)+'''';
    adoquery.Open;
    xmbdgc.BDLX_ID:=adoquery.fieldbyname('zblx_id').asstring;
    xmbdgc.BDLX_NAME:= adoquery.fieldbyname('zblx_name').asstring;
    adoquery.Close;
    adoquery.SQL.Text:='select gclx_id,gclx_name  from bid_gongcheng_leixing where gclx_name='''+trim(Agclx_name)+'''';
    adoquery.Open;
    xmbdgc.gCLX_ID:=adoquery.fieldbyname('gclx_id').asstring;
    xmbdgc.GCLX_NAME:= adoquery.fieldbyname('gclx_name').asstring;
  finally
    freeandnil(adoquery);
  end;
  if xmbdgc.XM_ISBn='' then xmbdgc.XM_ISBn:='000';
  if xmbdgc.BDLX_ID='' then xmbdgc.BDLX_ID:='0';
  if xmbdgc.gCLX_ID='' then xmbdgc.gCLX_ID:='0';
end;

function LeibieExist(str:string):boolean;
var
  adoquery:tadoquery;
begin
  result:=false;
  adoquery:=tadoquery.Create(nil);
  try
    adoquery.Close;
    adoquery.Connection:=datamodule1.ADOMainConn;
    adoquery.SQL.Text:='select * from bid_biaoduan_xinxi where xmgczb_id in'
      +' (select xmgczb_id from bid_xmgczb '
      +' where xm_isbn='''+trim(xmbdgc.XM_ISBn)+''' and gclx_id='+xmbdgc.gCLX_ID
      +' and zblx_id='+xmbdgc.BDLX_ID+') and bd_leibie='+getleibie(str);
    adoquery.Open;
    if adoquery.RecordCount=0 then
    begin
      result:=true;
    end;
  finally
    FreeAndNil(adoquery);
  end;
end;

procedure DACShellGetChildMenu(ParentCode: string;ChildList: TList;user_name:String);
var
  ADOQuery: TADOQuery;
  sSql: string;
  MenuData: PMenuData;
begin
  ssql:='select * from bid_menu where layer=1 and apply=1 and '
      +' parent_code='''+trim(parentcode)+''' and MENU_id in '
      +' (select menu_id from BID_USERROLE '
      +' where user_id in (select user_id from bid_user where login_name='''+userInfor.user_id+''')) order by order_num';
  try
    ADOQuery := TADOQuery.Create(nil);
    with ADOQuery do
    begin
      close;
      Connection := DataModule1.ADOMainConn;
      sql.Text:=ssql;
      Open;
      first;
      while not Eof do
      begin
        New(MenuData);
        MenuData.MenuCode := FieldByName('MENU_CODE').AsString;
        MenuData.MenuName := FieldByName('MENU_NAME').AsString;
        MenuData.SysCode := FieldByName('SYS_CODE').AsString;
        MenuData.MethodParam := FieldByName('METHOD_PARAM').AsString;
        MenuData.Apply := FieldByName('APPLY').AsInteger;
        MenuData.BackGround := FieldByName('BACKGROUND').AsString;
        MenuData.Handle := 0;
        ChildList.Add(MenuData);
        Next;
      end;
    end;
  finally
    FreeAndNil(ADOQuery);
  end;
end;

function  DelAddInS(sSQL:string):boolean;
var
  ADOCommand: TADOCommand;
begin
  result:=false;
  adocommand:=tadocommand.Create(nil);
  try
    datamodule1.ADOMainConn.BeginTrans;
    try
      adocommand.Connection:=DataModule1.ADOMainConn;
      adocommand.CommandText :=sSQL;
      adocommand.Execute;
      datamodule1.ADOMainConn.CommitTrans;
      Application.MessageBox('操作成功!','提示',MB_OK + MB_ICONINFORMATION);
      result :=true;
    except
      datamodule1.ADOMainConn.RollbackTrans;
      result:=false;
    end;
  finally
    freeandnil(adocommand);
  end;
end;

procedure MakeXmlFile(Axm_name,Azblx_name,Agclx_name:string;AFilePath:String);
var
  adoquery:Tadoquery;
  XMLFile:TXMLDocument;
  RootNode,ChildNode,TempNode,TempSubNode:IXMLNode;
  i:Integer;
begin
  XMLFile := TXMLDocument.Create(application);
  try
    XMLFile.LoadFromFile(AFilePath);

    XMLFile.Active :=true;
    RootNode := XMLFile.DocumentElement;
    ChildNode := GetChildNodeByName(RootNode, 'DATA');
    TempNode := GetChildNodeByName(ChildNode, 'BID_XIANGMU_XINXI');


    adoquery:=Tadoquery.Create(nil);
    try
      adoquery.Connection:=Datamodule1.ADOMainConn;
      // 加载项目信息
      adoquery.Close;
      adoquery.SQL.Text:='select * from bid_xiangmu_xinxi where xm_name='''+trim(Axm_name)+'''';
      adoquery.Open;

      RootNode := xmlFile.DocumentElement;
      ChildNode := GetChildNodeByName(RootNode, 'DATA');
      TempNode := GetChildNodeByName(ChildNode, 'BID_XIANGMU_XINXI');
      if TempNode<>nil then
      begin
        TempNode.ChildNodes.Clear;
        TempSubNode := TempNode.AddChild('ROW');
        TempSubNode.Attributes['XM_ISBN'] := adoquery.fieldbyname('XM_ISBN').AsString;
        TempSubNode.Attributes['XM_NAME']   := adoquery.fieldbyname('XM_NAME').AsString;
        TempSubNode.Attributes['XM_YZDW']      := adoquery.fieldbyname('XM_YZDW').AsString;
        TempSubNode.Attributes['XM_ZBDW'] := adoquery.fieldbyname('XM_ZBDW').AsString;
        TempSubNode.Attributes['XM_LENGTH'] := adoquery.fieldbyname('XM_LENGTH').AsString;
        TempSubNode.Attributes['XM_QIDIANZH']  := adoquery.fieldbyname('XM_QIDIANZH').AsString;
        TempSubNode.Attributes['XM_ZHONGDIANZH'] := adoquery.fieldbyname('XM_ZHONGDIANZH').AsString;
        TempSubNode.Attributes['XM_PINGBIAOFF']  := adoquery.fieldbyname('XM_PINGBIAOFF').AsString;
        TempSubNode.Attributes['XM_MIAOSHU']:= adoquery.fieldbyname('XM_MIAOSHU').AsString;
      end;

      //加载招标类型
      adoquery.Close;
      adoquery.SQL.Text:='select * from bid_zhaobiao_leixing where zblx_name='''+trim(Azblx_name)+'''';
      adoquery.Open;

      ChildNode := GetChildNodeByName(RootNode, 'DATA');
      TempNode := GetChildNodeByName(ChildNode, 'BID_ZHAOBIAO_LEIXING');

      if TempNode<>nil then
      begin
        TempNode.ChildNodes.Clear;
        TempSubNode := TempNode.AddChild('ROW');
        TempSubNode.Attributes['ZBLX_ID'] := adoquery.fieldbyname('ZBLX_ID').AsString;
        TempSubNode.Attributes['ZBLX_NAME'] := adoquery.fieldbyname('ZBLX_NAME').AsString;
      end;

      //加载工程类型
      adoquery.Close;
      adoquery.SQL.Text:='select * from bid_gongcheng_leixing where gclx_name='''+trim(Agclx_name)+'''';
      adoquery.Open;

      RootNode := xmlFile.DocumentElement;
      ChildNode := GetChildNodeByName(RootNode, 'DATA');
      TempNode := GetChildNodeByName(ChildNode, 'BID_GONGCHENG_LEIXING');

      TempNode.ChildNodes.Clear;
      TempSubNode := TempNode.AddChild('ROW');
      TempSubNode.Attributes['GCLX_ID'] := adoquery.fieldbyname('GCLX_ID').AsString;
      TempSubNode.Attributes['GCLX_NAME'] := adoquery.fieldbyname('GCLX_NAME').AsString;

      //加载标段信息
      adoquery.Close;
      adoquery.SQL.Text:='Select * from bid_biaoduan_xinxi where XMGCZB_ID IN (select a.xmgczb_id from bid_xmgczb'
          +' a,bid_xiangmu_xinxi b,bid_zhaobiao_leixing c,bid_gongcheng_leixing d where a.xm_isbn=b.xm_isbn and'
          +' a.zblx_id=c.zblx_id and a.gclx_id=d.gclx_id and b.xm_name='''+trim(Axm_name)+''' and zblx_name='''
          +trim(Azblx_name)+''' and gclx_name='''+trim(Agclx_name)+''')';
      adoquery.Open;

      RootNode := xmlFile.DocumentElement;
      ChildNode := GetChildNodeByName(RootNode, 'DATA');
      TempNode := GetChildNodeByName(ChildNode, 'BID_BIAODUAN_XINXI');

      if TempNode<>nil then
      begin
        TempNode.ChildNodes.Clear;
        adoquery.First;
        for i:=0 to adoquery.recordcount-1 do
        begin
          TempSubNode := TempNode.AddChild('ROW');
          TempSubNode.Attributes['BD_ISBN'] := adoquery.fieldbyname('BD_ISBN').AsString;
          TempSubNode.Attributes['BD_NAME']   := adoquery.fieldbyname('BD_NAME').AsString;
          TempSubNode.Attributes['BD_LENGTH']      := adoquery.fieldbyname('BD_LENGTH').AsString;
          TempSubNode.Attributes['BD_QIDIANZH'] := adoquery.fieldbyname('BD_QIDIANZH').AsString;
          TempSubNode.Attributes['BD_ZHONGDIANZH'] := adoquery.fieldbyname('BD_ZHONGDIANZH').AsString;
          TempSubNode.Attributes['BD_TIME']  := adoquery.fieldbyname('BD_TIME').AsString;
          TempSubNode.Attributes['BD_BIAODI'] := adoquery.fieldbyname('BD_BIAODI').AsString;
          TempSubNode.Attributes['BD_LEIBIE']  := adoquery.fieldbyname('BD_LEIBIE').AsString;
          TempSubNode.Attributes['BD_ZIZHI_YAOQIU']:= adoquery.fieldbyname('BD_ZIZHI_YAOQIU').AsString;
          TempSubNode.Attributes['BD_MIAOSHU']  := adoquery.fieldbyname('BD_MIAOSHU').AsString;
          TempSubNode.Attributes['BD_BIANHAO'] := adoquery.fieldbyname('BD_BIANHAO').AsString;
          adoquery.Next;
        end;
      end;

    Finally
      FreeAndNil(adoquery);
    end;
    XMLFile.SaveToFile(AFilePath);
  Finally
    FreeAndNil(XMLFile);
  end;
end;

end.