frmcustom.~pas

地税局发票程序源代码,自己开发的一个程序,最近整理资料的时候看到,放在那也是放着,拿出来供大家

unit FrmCustom;

interface

uses
  SysUtils, Controls, Windows, Messages,TlHelp32;

var
  HttpURL: string = 'http://www.yxds.gov.cn/tax/rj/'; //网页地址
//  HttpURL: string = 'http://194.1.1.1/tax/rj/'; //网页地址
//  MoneyCaStr: string = '十亿仟佰十万千百十元角分'; //金额标题
  MoneyCaStr: string = '十亿仟佰十万千百十元角分'; //金额标题
  CurrentFP: string; //处于当前的发票
  AppPath: string; //本程序路径
  DataPath: string; //数据库路径
  NowDate: TDate; //当前日期
  CurrenUser: String;  //当前用户
  IsAdmin: Boolean;    //

implementation



end.