88 lines
2.6 KiB
ObjectPascal
88 lines
2.6 KiB
ObjectPascal
unit U_DataLink;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
|
Windows,Messages,forms,OleCtnrs,DateUtils, ExtCtrls, AppEvnts, cxClasses;
|
|
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
|
|
TBaseData10_DataLink = 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;
|
|
cxStyleRepository1: TcxStyleRepository;
|
|
cxStyle1: TcxStyle;
|
|
cxStyle2: TcxStyle;
|
|
cxStyle_gridRow: TcxStyle;
|
|
cxStyle_gridFoot: TcxStyle;
|
|
cxStyle_gridHead: TcxStyle;
|
|
cxStyle_gridGroupBox: TcxStyle;
|
|
cxStyle_yellow: TcxStyle;
|
|
cxStyle_Red: TcxStyle;
|
|
cxStyle_fontBlack: TcxStyle;
|
|
cxStyle_fontclFuchsia: TcxStyle;
|
|
cxStyle_fontclPurple: TcxStyle;
|
|
cxStyle_fontclGreen: TcxStyle;
|
|
cxStyle_fontclBlue: TcxStyle;
|
|
cxStyle_fontclTeal: TcxStyle;
|
|
cxStyle_fontclOlive: TcxStyle;
|
|
Timer1: TTimer;
|
|
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
|
|
BaseData10_DataLink: TBaseData10_DataLink;
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure TBaseData10_DataLink.DataModuleDestroy(Sender: TObject);
|
|
begin
|
|
BaseData10_DataLink:=nil;
|
|
end;
|
|
|
|
end.
|
|
|
|
|
|
|
|
|