unit_toubiaojh.pas

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

unit Unit_toubiaojh;

interface
uses
  unit_parentform,SysUtils,Dialogs,Controls;

type
  tfrm_TouBiaojh = 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_TouBiaojh:tfrm_TouBiaojh;
implementation

uses
  unit_public,SystemObject,DataAccessCommonShell;


procedure tfrm_TouBiaojh.OPenFile;
var
  FileHandle:integer;
begin
  if cell1.OpenFile(SPATH+'report\guocheng\toubiaojh.cll','')<>1 then
  begin
     showmessage('文件打开错误');
     exit;
  end;
  cell1.ShowSideLabel(0, 0); //不显示行标
  cell1.ShowTopLabel(0, 0);  //不显示列标  
  if not fileexists(GetFilePath+'toubiaojh.cll') then
  begin
    exit;
  end;
  if  cell1.OpenFile(GetFilePath+'toubiaojh.cll','')<>1 then
  begin
    showmessage('文件打开错误');
  end;
end;

procedure tfrm_TouBiaojh.FormCreate(Sender: TObject);
begin
  GetItems(com_xmname,com_zhaobiao,com_gclxname,2);
  inherited;
  BitBtn2.Caption:='保存';
  caption:='投标计划';
  panel2.Caption:='投标计划';
  openfile;


end;

procedure tfrm_TouBiaojh.Com_xmnameChange(Sender: TObject);
begin
  inherited;
  OPenFile;
end;

procedure tfrm_TouBiaojh.Com_zhaoBiaoChange(Sender: TObject);
begin
  inherited;
  OPenFile;
end;

procedure tfrm_TouBiaojh.Com_GclxnameChange(Sender: TObject);
begin
  inherited;
  OPenFile;
end;

procedure tfrm_TouBiaojh.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;
  cell1.SaveFile(GetFilePath+'toubiaojh.cll',1);

end;

end.