unit_weiyhmd.pas

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

unit Unit_weiyhmd;

interface

uses
  unit_parentform,Dialogs,forms,SysUtils,DB, ADODB;

type
  TFrm_weiyhmd= class(TFrm_ParentForm)
    procedure FormCreate(Sender: TObject);
    procedure Com_xmnameChange(sender:Tobject);
    procedure Com_zhaoBiaoChange(Sender:Tobject);
    procedure Com_GclxnameChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure OpenFile;

  end;

var
  Frm_weiyhmd:TFrm_weiyhmd;

implementation

uses
  unit_public,SystemObject,DataModule,DataAccessCommonShell;



procedure TFrm_weiyhmd.FormCreate(Sender: TObject);
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,2);
  inherited;
  panel2.Caption:='中标候选人';
  BitBtn2.Caption:='保存';
  caption:='中标候选人';
  panel1.Visible:=true;
  com_leibie.Visible:=false;
  com_project.Items.Clear;
  com_project.Items.Add('委员会名单');
  com_project.Items.add('评标监督小组名单');
  if com_zhaobiao.Text<>'设计' then
  begin
    com_project.items.Add('清标工作组名单');
  end;
  com_project.OnChange:=Com_xmnameChange;
  OpenFile;
end;

procedure TFrm_weiyhmd.Com_xmnameChange(sender:Tobject);
begin
  inherited;
  OPenFile;
end;

procedure TFrm_weiyhmd.Com_zhaoBiaoChange(Sender:Tobject);
begin
  inherited;
  com_project.Items.Clear;
  com_project.Items.Add('委员会名单');
  com_project.Items.add('评标监督小组名单');
  if com_zhaobiao.Text<>'设计' then
  begin
    com_project.items.Add('清标工作组名单');
  end;
  OpenFile;
end;

procedure TFrm_weiyhmd.Com_GclxnameChange(Sender: TObject);
begin
  inherited;
  OpenFile;
end;


procedure TFrm_weiyhmd.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if bopen=true then exit;
  if (xmbdgc.XM_ISBn='000') or (xmbdgc.bdlx_id='0') or (xmbdgc.gCLX_ID='0') then exit;
  if com_project.ItemIndex=0 then
    cell1.SaveFile(GetFilePath+'pwhmd.cll',1)
  else if com_project.ItemIndex=1 then
    cell1.SaveFile(GetFilePath+'jdgzz.cll',1)
  else if com_project.itemIndex=2 then
  begin
    cell1.SaveFile(GetFilePath+'qbgzz.cll',1);
  end;
end;

procedure TFrm_weiyhmd.OpenFile;
begin
  if com_project.ItemIndex=0 then
  begin
    if cell1.OpenFile(SPATH+'report\others\pwhmd.cll','')<>1 then
    begin
       showmessage('文件打开错误');
       exit;
    end;
    cell1.ShowSideLabel(0, 0); //不显示行标
    cell1.ShowTopLabel(0, 0);  //不显示列标
    if not fileexists(GetFilePath+'pwhmd.cll') then
    begin
      exit;
    end;
    if  cell1.OpenFile(GetFilePath+'pwhmd.cll','')<>1 then
    begin
      showmessage('文件打开错误');
    end;
  end
  else if com_project.ItemIndex=1 then
  begin
    if cell1.OpenFile(SPATH+'report\others\jdgzz.cll','')<>1 then
    begin
       showmessage('文件打开错误');
       exit;
    end;
    cell1.ShowSideLabel(0, 0); //不显示行标
    cell1.ShowTopLabel(0, 0);  //不显示列标
    if not fileexists(GetFilePath+'jdgzz.cll') then
    begin
      exit;
    end;
    if  cell1.OpenFile(GetFilePath+'jdgzz.cll','')<>1 then
    begin
      showmessage('文件打开错误');
    end;
  end
  else if com_project.ItemIndex=2 then
  begin
    if com_zhaobiao.Text='施工' then
    begin
      if cell1.OpenFile(SPATH+'report\shigong\renyuan\qbgzz.cll','')<>1 then
      begin
         showmessage('文件打开错误');
         exit;
      end;
      cell1.ShowSideLabel(0, 0); //不显示行标
      cell1.ShowTopLabel(0, 0);  //不显示列标
      if not fileexists(GetFilePath+'qbgzz.cll') then
      begin
        exit;
      end;
      if  cell1.OpenFile(GetFilePath+'qbgzz.cll','')<>1 then
      begin
        showmessage('文件打开错误');
      end;
    end
    else if com_zhaobiao.Text='监理' then
    begin
      if cell1.OpenFile(SPATH+'report\jianli\renyuan\qbgzz.cll','')<>1 then
      begin
         showmessage('文件打开错误');
         exit;
      end;
      cell1.ShowSideLabel(0, 0); //不显示行标
      cell1.ShowTopLabel(0, 0);  //不显示列标
      if not fileexists(GetFilePath+'qbgzz.cll') then
      begin
        exit;
      end;
      if  cell1.OpenFile(GetFilePath+'qbgzz.cll','')<>1 then
      begin
        showmessage('文件打开错误');
      end;
    end;
  end;
end;

end.