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)

81
云翔生产管理(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,
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
;
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;
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

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

@ -11,20 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
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;
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
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)
@ -830,8 +830,8 @@ end;
procedure TfrmZHCPList.cxTabControl2Change(Sender: TObject);
var
fsj10: string;
begin
fsj10: string;
begin
fsj10 := GetFiltersGY(Panel1, 1, 2);
if Trim(fsj10) <> '' then
begin
@ -1171,7 +1171,7 @@ end;
procedure TfrmZHCPList.SpeedButton2Click(Sender: TObject);
begin
try
frmZHCPInPut := TfrmZHCPInPut.Create(Application);
frmZHCPInPut := TfrmZHCPInPut.Create(Application);
with frmZHCPInPut do
begin
PState := 0;

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