unit U_DataLink;

interface

uses
  SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
  dxSkinsDefaultPainters, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
  dxSkinXmas2008Blue;
var
   DConString:String;   {全局连接字符串}
   server, dtbase, user, pswd: String;  {数据库连接参数}
   DCurHandle:hwnd;     //当前窗体句柄
   DName:string ;   //#用户名#//
   DCode:string ;     //#用户编号#//
   Ddatabase:string;    //#数据库名称#//
   DTitCaption:string;  //#主窗体名称#//
   PicSvr:string;
   DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// 外部参数；
   DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//外部参数；
   OldDllApp:Tapplication; //保存原有句柄
   NewDllApp: Tapplication;//当前句柄
   MainApplication: Tapplication ;
   DFormCode:integer;  //当前窗口号
   IsDelphiLanguage:integer;
   DServerDate:TdateTime; //服务器时间
   DCompany:string;       //公司
type
  TDataLink_WeavingSchedule = class(TDataModule)
    AdoDataLink: TADOQuery;
    ADOLink: TADOConnection;
    ThreeImgList: TImageList;
    ThreeLookAndFeelCol: TcxLookAndFeelController;
    ThreeColorBase: TcxStyleRepository;
    SHuangSe: TcxStyle;
    SkyBlue: TcxStyle;
    Default: TcxStyle;
    QHuangSe: TcxStyle;
    Red: TcxStyle;
    FontBlue: TcxStyle;
    TextSHuangSe: TcxStyle;
    FonePurple: TcxStyle;
    FoneClMaroon: TcxStyle;
    FoneRed: TcxStyle;
    RowColor: TcxStyle;
    handBlack: TcxStyle;
    cxBlue: TcxStyle;
    SHuangSeCu: TcxStyle;
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TMakebar = procedure(ucData:pchar;nDataLen:integer;nErrLevel:integer;nMask:integer;nBarEdition:integer;szBmpFileName:pchar;nScale:integer);stdcall;
  TMixtext = procedure( szSrcBmpFileName:PChar;szDstBmpFileName:PChar;sztext:PChar;fontsize,txtheight,hmargin,vmargin,txtcntoneline:integer);stdcall;
var
  DataLink_WeavingSchedule: TDataLink_WeavingSchedule;

implementation
{$R *.dfm}


procedure TDataLink_WeavingSchedule.DataModuleDestroy(Sender: TObject);
begin
  DataLink_WeavingSchedule:=nil;
end;

end.




