unit_toubiaorz.pas

来自「招投标软件代码,很有应用价值,请大家参考下哦,不明白的地方给我留言」· PAS 代码 · 共 82 行

unit Unit_ToubiaoRz;


interface

uses
  unit_parentform,SysUtils,Dialogs,Controls;

type
  Tfrm_toubiaorz = 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_toubiaorz : Tfrm_toubiaorz;
implementation

uses
  unit_public,SystemObject,DataAccessCommonShell;

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

end;

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

procedure Tfrm_toubiaorz.Com_zhaoBiaoChange(Sender: TObject);
begin
  inherited;
  OPenFile;
end;
procedure Tfrm_toubiaorz.Com_GclxnameChange(Sender: TObject);
begin
  inherited;
  OPenFile;
end;
procedure Tfrm_toubiaorz.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+'toubiaorz.cll',1);
end;

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

end;

end.