u_toguozigesqr.pas

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

unit U_Toguozigesqr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, ExtCtrls, StdCtrls, Buttons, ToolWin, ComCtrls,
  OleCtrls, CELL50Lib_TLB;

type
  Tf_toguozigesqr = class(TForm)
    Panel12: TPanel;
    Cell1: TCell;
    ToolBar2: TToolBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    OpenDialogreport: TOpenDialog;
    SaveDialogReport: TSaveDialog;
    Panel1: TPanel;
    Label1: TLabel;
    Label7: TLabel;
    Label2: TLabel;
    ComboBox4: TComboBox;
    ComboBox6: TComboBox;
    ComboBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_toguozigesqr: Tf_toguozigesqr;

implementation

uses
  Unit_Public;
{$R *.dfm}

procedure Tf_toguozigesqr.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tf_toguozigesqr.FormDestroy(Sender: TObject);
begin
  f_toguozigesqr:=nil;
end;

procedure Tf_toguozigesqr.FormCreate(Sender: TObject);
begin
  if cell1.OpenFile(SPATH+'report\shigong\yushen\tgzgyssqr.cll','')=0 then
    showmessage('文件导入失败');
end;

procedure Tf_toguozigesqr.BitBtn1Click(Sender: TObject);
begin
  if OpenDialogreport.Execute then
    cell1.OpenFile(OpenDialogreport.FileName,'');
end;

procedure Tf_toguozigesqr.BitBtn2Click(Sender: TObject);
begin
  if SaveDialogReport.Execute then
    cell1.SaveFile(SaveDialogReport.FileName,1);
end;

end.