unit_zishengzz.pas

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

unit Unit_ZiShengzz;

interface

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

type
  TFrm_ZiShengzz= 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_ZiShengzz:TFrm_ZiShengzz;

implementation

uses
  unit_public,SystemObject,DataModule,DataAccessCommonShell;


procedure TFrm_ZiShengzz.FormCreate(Sender: TObject);
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,1);
  inherited;
  bitbtn2.Caption:='保存';
  panel2.Caption:='资格预审评审工作组名单';
  caption:='资格预审评审工作组名单';
  openfile;
end;

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

procedure TFrm_ZiShengzz.Com_zhaoBiaoChange(Sender:Tobject);
begin
  inherited;
  OpenFile
end;

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

procedure TFrm_ZiShengzz.BitBtn2Click(Sender: TObject);
begin
  inherited;
  if bOPen=true then exit;
  cell1.SaveFile(GetFilePath+'zsgzz.cll',1);

end;

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

end;


end.