diff --git a/合同管理(ContractManagement.dll)/ContractManagement.dof b/合同管理(ContractManagement.dll)/ContractManagement.dof index ef24b02..ffd1ac1 100644 --- a/合同管理(ContractManagement.dll)/ContractManagement.dof +++ b/合同管理(ContractManagement.dll)/ContractManagement.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\־\Ŀ\\ͬ(ContractManagement.dll)\testDll.exe +HostApplication=D:\Project\D7gmYushang\ͬ(ContractManagement.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/合同管理(ContractManagement.dll)/ProjectGroup1.bpg b/合同管理(ContractManagement.dll)/ProjectGroup1.bpg index 7c050f6..4628ae9 100644 --- a/合同管理(ContractManagement.dll)/ProjectGroup1.bpg +++ b/合同管理(ContractManagement.dll)/ProjectGroup1.bpg @@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ -PROJECTS = testDll.exe ProductPrice.dll +PROJECTS = testDll.exe ContractManagement.dll #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ @@ -17,7 +17,7 @@ default: $(PROJECTS) testDll.exe: testDll.dpr $(DCC) -ProductPrice.dll: ProductPrice.dpr +ContractManagement.dll: ContractManagement.dpr $(DCC) diff --git a/合同管理(ContractManagement.dll)/U_ContractListNX.dfm b/合同管理(ContractManagement.dll)/U_ContractListNX.dfm index 6be5d6e..5aff825 100644 --- a/合同管理(ContractManagement.dll)/U_ContractListNX.dfm +++ b/合同管理(ContractManagement.dll)/U_ContractListNX.dfm @@ -1,6 +1,6 @@ object frmContractListNX: TfrmContractListNX - Left = 115 - Top = 42 + Left = 534 + Top = 260 Width = 1382 Height = 754 Caption = #20869#38144#21512#21516 @@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1366 + Width = 1374 Height = 62 AutoSize = True ButtonHeight = 30 @@ -149,20 +149,20 @@ object frmContractListNX: TfrmContractListNX AutoSize = True Caption = #25764#38144#23457#26680 ImageIndex = 52 - Wrap = True Visible = False OnClick = TnochkClick end object ToolButton7: TToolButton - Left = 0 - Top = 30 + Left = 1014 + Top = 0 AutoSize = True Caption = #35843#24230#23457#26680 ImageIndex = 31 + Wrap = True OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 87 + Left = 0 Top = 30 AutoSize = True Caption = #35843#24230#25764#38144#23457#26680 @@ -170,13 +170,21 @@ object frmContractListNX: TfrmContractListNX OnClick = ToolButton8Click end object ToolButton9: TToolButton - Left = 198 + Left = 111 Top = 30 AutoSize = True Caption = #35843#24230#22791#27880 ImageIndex = 22 OnClick = ToolButton9Click end + object ToolButton10: TToolButton + Left = 198 + Top = 30 + AutoSize = True + Caption = #23376#34920#22791#27880 + ImageIndex = 22 + OnClick = ToolButton10Click + end object btnSXChk: TToolButton Left = 285 Top = 30 @@ -245,7 +253,7 @@ object frmContractListNX: TfrmContractListNX object cxGrid1: TcxGrid Left = 0 Top = 177 - Width = 1366 + Width = 1374 Height = 278 Align = alTop TabOrder = 3 @@ -449,7 +457,7 @@ object frmContractListNX: TfrmContractListNX object Panel1: TPanel Left = 0 Top = 62 - Width = 1366 + Width = 1374 Height = 71 Align = alTop BevelInner = bvRaised @@ -779,7 +787,7 @@ object frmContractListNX: TfrmContractListNX object cxTabControl1: TcxTabControl Left = 0 Top = 133 - Width = 1366 + Width = 1374 Height = 22 Align = alTop TabOrder = 2 @@ -797,13 +805,13 @@ object frmContractListNX: TfrmContractListNX #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 - ClientRectRight = 1366 + ClientRectRight = 1374 ClientRectTop = 19 end object cxSplitter1: TcxSplitter Left = 0 - Top = 707 - Width = 1366 + Top = 715 + Width = 1374 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -811,8 +819,8 @@ object frmContractListNX: TfrmContractListNX object cxGrid2: TcxGrid Left = 0 Top = 455 - Width = 1366 - Height = 252 + Width = 1374 + Height = 260 Align = alClient TabOrder = 4 object TV2: TcxGridDBTableView @@ -1087,7 +1095,7 @@ object frmContractListNX: TfrmContractListNX object cxTabControl2: TcxTabControl Left = 0 Top = 155 - Width = 1366 + Width = 1374 Height = 22 Align = alTop TabOrder = 7 @@ -1104,7 +1112,7 @@ object frmContractListNX: TfrmContractListNX #20840#37096) OnChange = cxTabControl2Change ClientRectBottom = 22 - ClientRectRight = 1366 + ClientRectRight = 1374 ClientRectTop = 19 end object Panel2: TPanel @@ -1461,6 +1469,88 @@ object frmContractListNX: TfrmContractListNX TabOrder = 3 end end + object Panel6: TPanel + Left = 548 + Top = 234 + Width = 225 + Height = 191 + Color = clSkyBlue + TabOrder = 11 + Visible = False + object Label21: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #20135#21697#32534#21495 + end + object Label23: TLabel + Left = 24 + Top = 36 + Width = 48 + Height = 12 + Caption = #20135#21697#21517#31216 + end + object Label24: TLabel + Left = 24 + Top = 58 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Button12: TButton + Left = 32 + Top = 156 + Width = 60 + Height = 22 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button12Click + end + object Button13: TButton + Left = 128 + Top = 156 + Width = 60 + Height = 21 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button13Click + end + object mmo1: TMemo + Left = 20 + Top = 76 + Width = 185 + Height = 65 + TabOrder = 2 + end + object Edit7: TEdit + Tag = 2 + Left = 77 + Top = 7 + Width = 124 + Height = 20 + ReadOnly = True + TabOrder = 3 + end + object Edit8: TEdit + Tag = 2 + Left = 77 + Top = 30 + Width = 124 + Height = 20 + ReadOnly = True + TabOrder = 4 + end + object Edit9: TEdit + Tag = 2 + Left = 77 + Top = 53 + Width = 124 + Height = 20 + ReadOnly = True + TabOrder = 5 + end + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> diff --git a/合同管理(ContractManagement.dll)/U_ContractListNX.pas b/合同管理(ContractManagement.dll)/U_ContractListNX.pas index 50fc04c..0a4d512 100644 --- a/合同管理(ContractManagement.dll)/U_ContractListNX.pas +++ b/合同管理(ContractManagement.dll)/U_ContractListNX.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxBarBuiltInMenu; + dxBarBuiltInMenu, 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, + dxSkinscxPCPainter; type TfrmContractListNX = class(TForm) @@ -176,6 +189,17 @@ type TV2Column2: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; + ToolButton10: TToolButton; + Panel6: TPanel; + Label21: TLabel; + Button12: TButton; + Button13: TButton; + mmo1: TMemo; + Edit7: TEdit; + Label23: TLabel; + Edit8: TEdit; + Label24: TLabel; + Edit9: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -225,6 +249,9 @@ type procedure Button11Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject); procedure ComboBox4Change(Sender: TObject); + procedure ToolButton10Click(Sender: TObject); + procedure Button12Click(Sender: TObject); + procedure Button13Click(Sender: TObject); private procedure InitGrid(); procedure InitForm(); @@ -288,6 +315,7 @@ begin ToolButton7.Visible := False; ToolButton8.Visible := False; ToolButton9.Visible := False; + ToolButton10.Visible := False; if Trim(canshu1) = '¼' then begin ToolButton2.Visible := true; @@ -411,7 +439,7 @@ begin if Trim(canshu1) = '' then begin TBAdd.Visible := true; - + ToolButton10.Visible := True; case cxTabControl1.TabIndex of 0: begin @@ -445,6 +473,7 @@ begin begin TBAdd.Visible := true; ToolButton6.Visible := True; + case cxTabControl1.TabIndex of 0: begin @@ -1616,5 +1645,54 @@ begin InitGrid(); end; +procedure TfrmContractListNX.ToolButton10Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + exit; + edit7.Text := trim(CDS_Sub.FieldByName('SCSCode').AsString); + edit8.Text := trim(CDS_Sub.FieldByName('SCSName').AsString); + edit9.Text := trim(CDS_Sub.FieldByName('SCSColor').AsString); + mmo1.Text := trim(CDS_Sub.FieldByName('SCSNote').AsString); + + Panel6.Visible := True; +end; + +procedure TfrmContractListNX.Button12Click(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + exit; + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update SalesContract_sub SET '); + sql.Add('SCSNote=' + quotedstr(trim(Mmo1.Text))); + sql.Add('where SubId=' + quotedstr(trim(CDS_Sub.fieldbyname('SubId').AsString))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ӱע'))); + sql.Add(',' + quotedstr(trim('ӱţ' + trim(CDS_Sub.FieldByName('SubId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('עɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('עʧܣ', 'ʾϢ', 0); + end; + Panel6.Visible := False; +end; + +procedure TfrmContractListNX.Button13Click(Sender: TObject); +begin + Panel6.Visible := False; +end; + end. diff --git a/合同管理(ContractManagement.dll)/U_DataLink.pas b/合同管理(ContractManagement.dll)/U_DataLink.pas index da5df68..cfcaedd 100644 --- a/合同管理(ContractManagement.dll)/U_DataLink.pas +++ b/合同管理(ContractManagement.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/合同管理(ContractManagement.dll)/U_GetDllForm.pas b/合同管理(ContractManagement.dll)/U_GetDllForm.pas index f42d456..c084ecc 100644 --- a/合同管理(ContractManagement.dll)/U_GetDllForm.pas +++ b/合同管理(ContractManagement.dll)/U_GetDllForm.pas @@ -68,20 +68,22 @@ begin SetLength(dtbase, 255); SetLength(user, 255); SetLength(pswd, 255); - - server := '47.103.192.8,7781'; -// server := '.'; - dtbase := 'yushangdata'; - user := 'yushangsa'; -// user := 'sa'; - pswd := 'rightsoft@7112'; -// pswd := 'rightsoft'; - - DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; + if Trim(DataBaseStr) = '' then + begin + server := '47.103.192.8,7781'; + dtbase := 'yushangdata'; + user := 'yushangsa'; + pswd := 'rightsoft@7112'; + DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; // DName:=''; -// DParameters1:='Ȩ'; + DParameters1:='Ȩ'; //DParameters3:='1'; + end + else + begin + DConString := DataBaseStr; + end; + if not ConnData() then begin result := 0; diff --git a/合同管理(ContractManagement.dll)/testDll.exe b/合同管理(ContractManagement.dll)/testDll.exe index 53cf6c7..c210c59 100644 Binary files a/合同管理(ContractManagement.dll)/testDll.exe and b/合同管理(ContractManagement.dll)/testDll.exe differ diff --git a/样品(YPGL.dll)/ProjectGroup1.bpg b/样品(YPGL.dll)/ProjectGroup1.bpg index 7c050f6..2b413e5 100644 --- a/样品(YPGL.dll)/ProjectGroup1.bpg +++ b/样品(YPGL.dll)/ProjectGroup1.bpg @@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ -PROJECTS = testDll.exe ProductPrice.dll +PROJECTS = testDll.exe YPGL.dll #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ @@ -17,7 +17,7 @@ default: $(PROJECTS) testDll.exe: testDll.dpr $(DCC) -ProductPrice.dll: ProductPrice.dpr +YPGL.dll: YPGL.dpr $(DCC) diff --git a/样品(YPGL.dll)/U_CPManage.dfm b/样品(YPGL.dll)/U_CPManage.dfm index a13ef3d..f621fb0 100644 --- a/样品(YPGL.dll)/U_CPManage.dfm +++ b/样品(YPGL.dll)/U_CPManage.dfm @@ -1,6 +1,6 @@ object frmCPManage: TfrmCPManage - Left = 160 - Top = 146 + Left = 444 + Top = 159 Width = 1504 Height = 664 Caption = #20135#21697#26723#26696 @@ -20,7 +20,7 @@ object frmCPManage: TfrmCPManage object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1488 + Width = 1496 Height = 31 ButtonHeight = 30 ButtonWidth = 83 @@ -144,7 +144,8 @@ object frmCPManage: TfrmCPManage Text = #26679#21697#26631#31614 Items.Strings = ( #26679#21697#26631#31614 - #26679#21697#26631#31614'1') + #26679#21697#26631#31614'1' + #26679#24067#26631#31614) end object ToolButton8: TToolButton Left = 819 @@ -175,14 +176,14 @@ object frmCPManage: TfrmCPManage Left = 220 Top = 105 Width = 8 - Height = 520 + Height = 528 HotZoneClassName = 'TcxMediaPlayer9Style' Control = Panel5 end object Panel1: TPanel Left = 0 Top = 31 - Width = 1488 + Width = 1496 Height = 74 Align = alTop BevelInner = bvRaised @@ -428,7 +429,7 @@ object frmCPManage: TfrmCPManage Left = 0 Top = 105 Width = 220 - Height = 520 + Height = 528 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -437,7 +438,7 @@ object frmCPManage: TfrmCPManage Left = 2 Top = 2 Width = 216 - Height = 516 + Height = 524 Align = alClient Bands = < item @@ -470,8 +471,8 @@ object frmCPManage: TfrmCPManage object Panel3: TPanel Left = 228 Top = 105 - Width = 1260 - Height = 520 + Width = 1268 + Height = 528 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -480,8 +481,8 @@ object frmCPManage: TfrmCPManage object cxGrid1: TcxGrid Left = 2 Top = 2 - Width = 1256 - Height = 321 + Width = 1264 + Height = 329 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 @@ -740,8 +741,8 @@ object frmCPManage: TfrmCPManage end object GroupBox1: TGroupBox Left = 2 - Top = 323 - Width = 1256 + Top = 331 + Width = 1264 Height = 195 Align = alBottom Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 @@ -749,7 +750,7 @@ object frmCPManage: TfrmCPManage object ScrollBox1: TScrollBox Left = 2 Top = 14 - Width = 1252 + Width = 1260 Height = 179 Align = alClient BevelInner = bvLowered diff --git a/样品(YPGL.dll)/U_CPManage.pas b/样品(YPGL.dll)/U_CPManage.pas index 42957e8..03223af 100644 --- a/样品(YPGL.dll)/U_CPManage.pas +++ b/样品(YPGL.dll)/U_CPManage.pas @@ -13,7 +13,20 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, jpeg, U_SLT, ComObj, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator, - cxTextEdit; + cxTextEdit, 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, + dxSkinscxPCPainter; type FdDy = record @@ -525,7 +538,12 @@ begin Moudle := LoadLibrary('MakeQRBarcode.dll'); @Makebar := GetProcAddress(Moudle, 'Make'); @Mixtext := GetProcAddress(Moudle, 'MixText'); - Txt := Trim(CDS_Main.fieldbyname('CYID').AsString); + if trim(ComboBox1.Text) = 'ǩ' then + begin + Txt := Trim(CDS_Main.fieldbyname('CYNo').AsString)+','+Trim(CDS_Main.fieldbyname('CYName').AsString)+','+Trim(CDS_Main.fieldbyname('CYSpec').AsString)+','+Trim(CDS_Main.fieldbyname('CYCF').AsString)+','+Trim(CDS_Main.fieldbyname('CYPrice').AsString); + end + else + Txt := Trim(CDS_Main.fieldbyname('CYID').AsString); fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); @@ -861,7 +879,12 @@ begin Moudle := LoadLibrary('MakeQRBarcode.dll'); @Makebar := GetProcAddress(Moudle, 'Make'); @Mixtext := GetProcAddress(Moudle, 'MixText'); - Txt := Trim(CDS_Main.fieldbyname('CYID').AsString); + if trim(ComboBox1.Text) = 'ǩ' then + begin + Txt := Trim(CDS_Main.fieldbyname('CYNo').AsString)+','+Trim(CDS_Main.fieldbyname('CYName').AsString)+','+Trim(CDS_Main.fieldbyname('CYSpec').AsString)+','+Trim(CDS_Main.fieldbyname('CYCF').AsString)+','+Trim(CDS_Main.fieldbyname('CYPrice').AsString); + end + else + Txt := Trim(CDS_Main.fieldbyname('CYID').AsString); fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); diff --git a/样品(YPGL.dll)/U_CPType.dfm b/样品(YPGL.dll)/U_CPType.dfm index 93dda7f..d55a26c 100644 --- a/样品(YPGL.dll)/U_CPType.dfm +++ b/样品(YPGL.dll)/U_CPType.dfm @@ -19,7 +19,7 @@ object frmCPType: TfrmCPType object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 981 + Width = 989 Height = 33 ButtonHeight = 30 ButtonWidth = 83 @@ -77,15 +77,15 @@ object frmCPType: TfrmCPType Left = 0 Top = 33 Width = 249 - Height = 497 + Height = 504 Align = alLeft Bands = < item end> - BufferedPaint = False DataController.DataSource = DataSource1 DataController.ParentField = 'CPParent' DataController.KeyField = 'CPID' + Navigator.Buttons.CustomButtons = <> OptionsBehavior.ExpandOnDblClick = False OptionsSelection.CellSelect = False OptionsView.CellAutoHeight = True @@ -99,9 +99,11 @@ object frmCPType: TfrmCPType object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn DataBinding.FieldName = 'CPName' Width = 210 - Position.ColIndex = 1 + Position.ColIndex = 0 Position.RowIndex = 0 Position.BandIndex = 0 + Summary.FooterSummaryItems = <> + Summary.GroupFooterSummaryItems = <> end end object Panel1: TPanel diff --git a/样品(YPGL.dll)/U_CPType.pas b/样品(YPGL.dll)/U_CPType.pas index ce16638..74e930a 100644 --- a/样品(YPGL.dll)/U_CPType.pas +++ b/样品(YPGL.dll)/U_CPType.pas @@ -6,7 +6,21 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, - StdCtrls, ExtCtrls, DBClient; + StdCtrls, ExtCtrls, DBClient, cxLookAndFeels, cxLookAndFeelPainters, + cxTLdxBarBuiltInMenu, 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 TfrmCPType = class(TForm) @@ -55,7 +69,7 @@ var implementation uses - U_DataLink,U_Fun; + U_DataLink, U_Fun; {$R *.dfm} diff --git a/样品(YPGL.dll)/U_DataLink.pas b/样品(YPGL.dll)/U_DataLink.pas index 3f59a87..0cdd272 100644 --- a/样品(YPGL.dll)/U_DataLink.pas +++ b/样品(YPGL.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/样品(YPGL.dll)/U_GetDllForm.pas b/样品(YPGL.dll)/U_GetDllForm.pas index ad05c08..bf13207 100644 --- a/样品(YPGL.dll)/U_GetDllForm.pas +++ b/样品(YPGL.dll)/U_GetDllForm.pas @@ -65,17 +65,19 @@ begin SetLength(user, 255); SetLength(pswd, 255); - server := '47.103.192.8,7781'; -// server := '.'; - dtbase := 'yushangdata'; - user := 'yushangsa'; -// user := 'sa'; - pswd := 'rightsoft@7112'; -// pswd := 'rightsoft'; - DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; -// DParameters1:='Ȩ'; -// DName := ''; + if Trim(DataBaseStr) = '' then + begin + server := '47.103.192.8,7781'; + dtbase := 'yushangdata'; + user := 'yushangsa'; + pswd := 'rightsoft@7112'; + DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; + end + else + begin + DConString := DataBaseStr; + end; + if not ConnData() then begin result := 0; diff --git a/样品(YPGL.dll)/YPGL.dof b/样品(YPGL.dll)/YPGL.dof index 135589d..ae4f10a 100644 --- a/样品(YPGL.dll)/YPGL.dof +++ b/样品(YPGL.dll)/YPGL.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\־\Ŀ\\Ʒ(YPGL.dll)\testDll.exe +HostApplication=D:\Project\D7gmYushang\Ʒ(YPGL.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/样品(YPGL.dll)/YPGL.~dpr b/样品(YPGL.dll)/YPGL.~dpr index 8cbd8c1..841a7ad 100644 --- a/样品(YPGL.dll)/YPGL.~dpr +++ b/样品(YPGL.dll)/YPGL.~dpr @@ -11,15 +11,15 @@ uses U_iniParam in 'U_iniParam.pas', U_CPType in 'U_CPType.pas' {frmCPType}, U_CPAddPN in 'U_CPAddPN.pas' {frmCPAddPN}, - U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, - U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, - U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, - U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, - U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, - U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas', - U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas', + U_SelExportField in '..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, + U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, + U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet}, + U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew}, + U_ZDYHelp in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, + U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas', + U_Fun10 in '..\Z99Dependency\ThreeFun\Fun\U_Fun10.pas', U_CPManage in 'U_CPManage.pas' {frmCPManage}, - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_SLT in 'U_SLT.pas' {frmSLT: TFrame}, U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS} ; diff --git a/样品(YPGL.dll)/testDll.exe b/样品(YPGL.dll)/testDll.exe index ce4bee9..fe05b53 100644 Binary files a/样品(YPGL.dll)/testDll.exe and b/样品(YPGL.dll)/testDll.exe differ