frmtax.~dpr

来自「地税局发票程序源代码,自己开发的一个程序,最近整理资料的时候看到,放在那也是放着」· ~DPR 代码 · 共 30 行

program FrmTax;

uses
  Forms,
  SysUtils,
  FrmMain in 'Source\FrmMain.pas' {Main},
  FrmLogin in 'Source\FrmLogin.pas' {Login},
  FrmCustom in 'Source\FrmCustom.pas',
  FrmData in 'Source\FrmData.pas' {MyData: TDataModule},
  FrmPrint in 'Source\FrmPrint.pas' {TaxPrint},
  FrmAdmin in 'Source\FrmAdmin.pas' {Admin},
  FrmPkGl in 'Source\FrmPkGl.pas' {FpGl};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '票据打印系统';
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TMyData, MyData);
  Application.CreateForm(TFpGl, FpGl);
  if not TLogin.CreateLogin then
    Application.Terminate
  else
  begin
    Main.Show;
    Application.Run;
  end;
end.