unmain.pas

倉庫下線條碼源碼

unit unMain;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, TeeProcs, Chart, ExtCtrls, ComCtrls,
  IdBaseComponent, IdComponent, IdTCPServer, OleCtrls,Contnrs,//MovePanel,  //SERVERLib_TLB,
   IniFiles, ImgList, winsock, Menus, ScktComp,
  ActnList, jpeg, Buttons, DB, ADODB;
const PAPER_TICKET = 1;
const EMCARD_TICKET = 2;
const WM_MYMSG =WM_USER+$100;
const iTime99TimeOut=10;
const iTime99TimeIn=5;
type
  TMacParam_info=record
     iDirec     : byte; // よ