printmainunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

unit printmainunit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ExtCtrls, Menus, StdCtrls;

type
  Tprintmainform = class(TForm)
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton10: TSpeedButton;
    c1: TCheckBox;
    c2: TCheckBox;
    c3: TCheckBox;
    c4: TCheckBox;
    c6: TCheckBox;
    c8: TCheckBox;
    SpeedButton7: TSpeedButton;
    c10: TCheckBox;
    SpeedButton8: TSpeedButton;
    c11: TCheckBox;
    SpeedButton5: TSpeedButton;
    c111: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  printmainform: Tprintmainform;

implementation

uses KsBmXzUnit, FLBmXzUnit, ZhiChengXzUnit, gztunit, gjjunit,
  PrintShowUnit, PassWordUnit, gzdata, TzhPrintUnit, DataTUnit, TcjXzUnit,
  TjXzUnit, previewt;




{$R *.DFM}

procedure Tprintmainform.FormCreate(Sender: TObject);
begin
 {if not Session.IsAlias('info') then
    Session.AddStandardAlias('info',ExtractFilePath(Application.ExeName),'dbase');}
end;

procedure Tprintmainform.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if Key = #27 then Close;
end;


procedure Tprintmainform.BitBtn1Click(Sender: TObject);
begin
 Close;
end;


procedure Tprintmainform.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
{datat.Table1.Close;
datat.Table2.Close;
datat.Table3.Close;
datat.Table4.Close;
datat.Table5.Close;
datat.Table6.Close;
//datat.UnitTable1.Close;
datat.BmTable2.Close;}
end;

end.