diff --git a/云翔生产管理(MYSC.dll)/MYSC.dof b/云翔生产管理(MYSC.dll)/MYSC.dof index c137137..9cc9447 100644 --- a/云翔生产管理(MYSC.dll)/MYSC.dof +++ b/云翔生产管理(MYSC.dll)/MYSC.dof @@ -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= diff --git a/云翔生产管理(MYSC.dll)/MYSC.dpr b/云翔生产管理(MYSC.dll)/MYSC.dpr index 85c8c89..0ef09a6 100644 --- a/云翔生产管理(MYSC.dll)/MYSC.dpr +++ b/云翔生产管理(MYSC.dll)/MYSC.dpr @@ -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}, diff --git a/云翔生产管理(MYSC.dll)/ProjectGroup1.bpg b/云翔生产管理(MYSC.dll)/ProjectGroup1.bpg index 7c050f6..9208d0c 100644 --- a/云翔生产管理(MYSC.dll)/ProjectGroup1.bpg +++ b/云翔生产管理(MYSC.dll)/ProjectGroup1.bpg @@ -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) - diff --git a/云翔生产管理(MYSC.dll)/U_DataLink.pas b/云翔生产管理(MYSC.dll)/U_DataLink.pas index 1757edd..5a3fe28 100644 --- a/云翔生产管理(MYSC.dll)/U_DataLink.pas +++ b/云翔生产管理(MYSC.dll)/U_DataLink.pas @@ -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. - - - diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas index 962340c..49abbfc 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas @@ -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) diff --git a/云翔生产管理(MYSC.dll)/U_User.pas b/云翔生产管理(MYSC.dll)/U_User.pas index 1bfb8e4..06957e7 100644 --- a/云翔生产管理(MYSC.dll)/U_User.pas +++ b/云翔生产管理(MYSC.dll)/U_User.pas @@ -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) diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm b/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm index b380825..14d5e1f 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm +++ b/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm @@ -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 diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPList.pas b/云翔生产管理(MYSC.dll)/U_ZHCPList.pas index 25f4e2c..09d8a9f 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPList.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHCPList.pas @@ -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; diff --git a/云翔生产管理(MYSC.dll)/testDll.dof b/云翔生产管理(MYSC.dll)/testDll.dof index 035c74f..abdfb40 100644 --- a/云翔生产管理(MYSC.dll)/testDll.dof +++ b/云翔生产管理(MYSC.dll)/testDll.dof @@ -105,6 +105,10 @@ HostApplication=E:\ Launcher= UseLauncher=0 DebugCWD= +[Language] +ActiveLang= +ProjectLang= +RootDir= [Version Info] IncludeVerInfo=0 AutoIncBuild=0