Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-21 17:22:09 +08:00
parent 914ef198d5
commit e0ca0a5c75
9 changed files with 107 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
云翔生产管理(MYSC.dll)/MYSC.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\云翔生产管理(MYSC.dll)\testDll.exe
HostApplication=E:\项目资料\00_重点客户\云翔\D7myYunxiang\云翔生产管理(MYSC.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

2
云翔生产管理(MYSC.dll)/MYSC.dpr
View File

@ -43,7 +43,7 @@ uses
U_ContractList_CX in 'U_ContractList_CX.pas' {frmContractList_CX},
U_MCGRKList_PTCL in 'U_MCGRKList_PTCL.pas' {frmMCGRKList_PTCL},
U_LLRKInPutMH_PMCGCE in 'U_LLRKInPutMH_PMCGCE.pas' {frmLLRKInPutMH_PMCGCE},
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
U_ZSDSelist in 'U_ZSDSelist.pas' {frmZSDSelist},
U_PBKCList in 'U_PBKCList.pas' {frmPBKCList},
U_JGCKListSel in 'U_JGCKListSel.pas' {frmJJGCKListSel},

8
云翔生产管理(MYSC.dll)/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
PROJECTS = MYSC.dll testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
MYSC.dll: MYSC.dpr
$(DCC)
testDll.exe: testDll.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

79
云翔生产管理(MYSC.dll)/U_DataLink.pas
View File

@ -4,40 +4,42 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
Windows, Messages, forms, OleCtnrs, DateUtils, 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;
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
;
var
DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数}
DCurHandle:hwnd; //当前窗体句柄
DName:string ; //#用户名#//
DCode:string ; //#用户编号#//
Ddatabase:string; //#数据库名称#//
DTitCaption:string; //#主窗体名称#//
PicSvr:string;
UserDataFlag: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; //公司
DConString: string; {全局连接字符串}
server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle: hwnd; //当前窗体句柄
DName: string; //#用户名#//
DCode: string; //#用户编号#//
Ddatabase: string; //#数据库名称#//
DTitCaption: string; //#主窗体名称#//
PicSvr: string;
UserDataFlag: 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_MYSC = class(TDataModule)
AdoDataLink: TADOQuery;
@ -70,22 +72,21 @@ type
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;
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_MYSC: TDataLink_MYSC;
implementation
{$R *.dfm}
procedure TDataLink_MYSC.DataModuleDestroy(Sender: TObject);
begin
DataLink_MYSC:=nil;
DataLink_MYSC := nil;
end;
end.

30
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas
View File

@ -13,21 +13,21 @@ uses
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView,
cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters,
dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
;
cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, 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;
type
TfrmLLRKInPutMH_PBCG = class(TForm)

16
云翔生产管理(MYSC.dll)/U_User.pas
View File

@ -4,7 +4,21 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, DB, ADODB;
Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, DB, ADODB,
cxGraphics, cxLookAndFeels, dxSkinsCore, 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, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type
TfrmUser = class(TForm)

18
云翔生产管理(MYSC.dll)/U_ZHCPList.dfm
View File

@ -20,7 +20,7 @@ object frmZHCPList: TfrmZHCPList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1540
Width = 1548
AutoSize = True
ButtonHeight = 30
ButtonWidth = 65
@ -181,8 +181,8 @@ object frmZHCPList: TfrmZHCPList
object cxGrid1: TcxGrid
Left = 0
Top = 132
Width = 1540
Height = 643
Width = 1548
Height = 651
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
@ -424,7 +424,7 @@ object frmZHCPList: TfrmZHCPList
object Panel11: TPanel
Left = 0
Top = 32
Width = 1540
Width = 1548
Height = 76
Align = alTop
BevelInner = bvRaised
@ -501,7 +501,7 @@ object frmZHCPList: TfrmZHCPList
object Panel1: TPanel
Left = 209
Top = 2
Width = 1329
Width = 1337
Height = 72
Align = alClient
BevelInner = bvRaised
@ -957,7 +957,7 @@ object frmZHCPList: TfrmZHCPList
object cxTabControl2: TcxTabControl
Left = 0
Top = 108
Width = 1540
Width = 1548
Height = 24
Align = alTop
Font.Charset = GB2312_CHARSET
@ -971,13 +971,13 @@ object frmZHCPList: TfrmZHCPList
Properties.Style = 8
OnChange = cxTabControl2Change
ClientRectBottom = 24
ClientRectRight = 1540
ClientRectRight = 1548
ClientRectTop = 0
end
object Panel4: TPanel
Left = 0
Top = 775
Width = 1540
Top = 783
Width = 1548
Height = 43
Align = alBottom
BevelInner = bvRaised

26
云翔生产管理(MYSC.dll)/U_ZHCPList.pas
View File

@ -12,19 +12,19 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage, StrUtils, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinscxPCPainter, 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;
type
TfrmZHCPList = class(TForm)

4
云翔生产管理(MYSC.dll)/testDll.dof
View File

@ -105,6 +105,10 @@ HostApplication=E:\
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0