2025-01-20 13:04:03 +08:00
|
|
|
|
unit U_DataLink;
|
|
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
2025-08-22 09:38:54 +08:00
|
|
|
|
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, AppEvnts, cxClasses,
|
|
|
|
|
|
dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus,
|
|
|
|
|
|
dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinBlack, dxSkinBlue,
|
|
|
|
|
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
|
|
|
|
|
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
|
|
|
|
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
|
|
|
|
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
|
|
|
|
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|
|
|
|
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|
|
|
|
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
|
|
|
|
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
|
|
|
|
|
dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
|
|
|
|
|
|
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
|
|
|
|
|
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
|
|
|
|
|
|
dxSkinWhiteprint, dxSkinXmas2008Blue;
|
|
|
|
|
|
|
2025-01-20 13:04:03 +08:00
|
|
|
|
var
|
2025-08-22 09:38:54 +08:00
|
|
|
|
DConString: string; {ȫ<><C8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>}
|
|
|
|
|
|
server, dtbase, user, pswd: string; {<7B><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD>}
|
|
|
|
|
|
DCurHandle: hwnd; //<2F><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
PicSvr: string;
|
|
|
|
|
|
DName: string; //#<23>û<EFBFBD><C3BB><EFBFBD>#//
|
|
|
|
|
|
DCode: string; //#<23>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>#//
|
|
|
|
|
|
Ddatabase: string; //#<23><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD><EFBFBD>#//
|
|
|
|
|
|
DTitCaption: string; //#<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#//
|
|
|
|
|
|
DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // <20>ⲿ<EFBFBD><E2B2BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //<2F>ⲿ<EFBFBD><E2B2BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
|
|
|
OldDllApp: Tapplication; //<2F><><EFBFBD><EFBFBD>ԭ<EFBFBD>о<EFBFBD><D0BE><EFBFBD>
|
|
|
|
|
|
NewDllApp: Tapplication; //<2F><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD>
|
|
|
|
|
|
MainApplication: Tapplication;
|
|
|
|
|
|
DFormCode: integer; //<2F><>ǰ<EFBFBD><C7B0><EFBFBD>ں<EFBFBD>
|
|
|
|
|
|
IsDelphiLanguage: integer;
|
|
|
|
|
|
DServerDate: TdateTime; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
|
|
|
|
|
|
DCompany: string; //<2F><>˾
|
|
|
|
|
|
UserDataFlag: string;
|
2025-01-20 13:04:03 +08:00
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
TYPCK_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;
|
|
|
|
|
|
|
2025-08-22 09:38:54 +08:00
|
|
|
|
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;
|
2025-01-20 13:04:03 +08:00
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
YPCK_DataLink: TYPCK_DataLink;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
procedure TYPCK_DataLink.DataModuleDestroy(Sender: TObject);
|
|
|
|
|
|
begin
|
2025-08-22 09:38:54 +08:00
|
|
|
|
YPCK_DataLink := nil;
|
2025-01-20 13:04:03 +08:00
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
|
|
|
|
|
|
