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

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

@ -43,7 +43,7 @@ uses
U_ContractList_CX in 'U_ContractList_CX.pas' {frmContractList_CX}, U_ContractList_CX in 'U_ContractList_CX.pas' {frmContractList_CX},
U_MCGRKList_PTCL in 'U_MCGRKList_PTCL.pas' {frmMCGRKList_PTCL}, U_MCGRKList_PTCL in 'U_MCGRKList_PTCL.pas' {frmMCGRKList_PTCL},
U_LLRKInPutMH_PMCGCE in 'U_LLRKInPutMH_PMCGCE.pas' {frmLLRKInPutMH_PMCGCE}, 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_ZSDSelist in 'U_ZSDSelist.pas' {frmZSDSelist},
U_PBKCList in 'U_PBKCList.pas' {frmPBKCList}, U_PBKCList in 'U_PBKCList.pas' {frmPBKCList},
U_JGCKListSel in 'U_JGCKListSel.pas' {frmJJGCKListSel}, 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 $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = MYSC.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
MYSC.dll: MYSC.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

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

@ -4,40 +4,42 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, 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 var
DConString:String; {全局连接字符串} DConString: string; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle:hwnd; //当前窗体句柄 DCurHandle: hwnd; //当前窗体句柄
DName:string ; //#用户名#// DName: string; //#用户名#//
DCode:string ; //#用户编号#// DCode: string; //#用户编号#//
Ddatabase:string; //#数据库名称#// Ddatabase: string; //#数据库名称#//
DTitCaption:string; //#主窗体名称#// DTitCaption: string; //#主窗体名称#//
PicSvr:string; PicSvr: string;
UserDataFlag:string; UserDataFlag: string;
DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// 外部参数； DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//外部参数； DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp:Tapplication; //保存原有句柄 OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication;//当前句柄 NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication ; MainApplication: Tapplication;
DFormCode:integer; //当前窗口号 DFormCode: integer; //当前窗口号
IsDelphiLanguage:integer; IsDelphiLanguage: integer;
DServerDate:TdateTime; //服务器时间 DServerDate: TdateTime; //服务器时间
DCompany:string; //公司 DCompany: string; //公司
type type
TDataLink_MYSC = class(TDataModule) TDataLink_MYSC = class(TDataModule)
AdoDataLink: TADOQuery; AdoDataLink: TADOQuery;
@ -70,22 +72,21 @@ type
public public
{ Public declarations } { Public declarations }
end; 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 var
DataLink_MYSC: TDataLink_MYSC; DataLink_MYSC: TDataLink_MYSC;
implementation implementation
{$R *.dfm} {$R *.dfm}
procedure TDataLink_MYSC.DataModuleDestroy(Sender: TObject); procedure TDataLink_MYSC.DataModuleDestroy(Sender: TObject);
begin begin
DataLink_MYSC:=nil; DataLink_MYSC := nil;
end; end;
end. end.

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

@ -13,21 +13,21 @@ uses
IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox,
cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView, IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView,
cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinDarkRoom, 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,
dxSkinOffice2013White, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinSharpPlus, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSpringTime, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
; dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmLLRKInPutMH_PBCG = class(TForm) TfrmLLRKInPutMH_PBCG = class(TForm)

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

@ -4,7 +4,21 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 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 type
TfrmUser = class(TForm) TfrmUser = class(TForm)

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

@ -20,7 +20,7 @@ object frmZHCPList: TfrmZHCPList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1548
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 65 ButtonWidth = 65
@ -181,8 +181,8 @@ object frmZHCPList: TfrmZHCPList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 132 Top = 132
Width = 1540 Width = 1548
Height = 643 Height = 651
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
@ -424,7 +424,7 @@ object frmZHCPList: TfrmZHCPList
object Panel11: TPanel object Panel11: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1540 Width = 1548
Height = 76 Height = 76
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -501,7 +501,7 @@ object frmZHCPList: TfrmZHCPList
object Panel1: TPanel object Panel1: TPanel
Left = 209 Left = 209
Top = 2 Top = 2
Width = 1329 Width = 1337
Height = 72 Height = 72
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
@ -957,7 +957,7 @@ object frmZHCPList: TfrmZHCPList
object cxTabControl2: TcxTabControl object cxTabControl2: TcxTabControl
Left = 0 Left = 0
Top = 108 Top = 108
Width = 1540 Width = 1548
Height = 24 Height = 24
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -971,13 +971,13 @@ object frmZHCPList: TfrmZHCPList
Properties.Style = 8 Properties.Style = 8
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ClientRectBottom = 24 ClientRectBottom = 24
ClientRectRight = 1540 ClientRectRight = 1548
ClientRectTop = 0 ClientRectTop = 0
end end
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 775 Top = 783
Width = 1540 Width = 1548
Height = 43 Height = 43
Align = alBottom Align = alBottom
BevelInner = bvRaised 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, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage, StrUtils, cxLookAndFeels, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage, StrUtils, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinDarkRoom, 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,
dxSkinOffice2013White, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinSharpPlus, dxSkinSpringTime, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinsDefaultPainters, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver,
dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine,
dxSkinscxPCPainter; dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmZHCPList = class(TForm) TfrmZHCPList = class(TForm)

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

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