Group_03/D7djZhuoyan
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3-12

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-03-12 15:01:16 +08:00
parent ff5d307343
commit ff0168edc0
6 changed files with 30 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\郑丰平开发代码\项目代码\卓焱\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7djZhuoyan\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

10
检验管理/U_ClothHCList.dfm
View File

@ -20,7 +20,7 @@ object frmClothHCList: TfrmClothHCList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1163 Width = 1171
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -66,7 +66,7 @@ object frmClothHCList: TfrmClothHCList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1163 Width = 1171
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -289,13 +289,13 @@ object frmClothHCList: TfrmClothHCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1163 Width = 1171
Height = 562 Height = 569
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <

17
检验管理/U_ClothHCList.pas
View File

@ -10,7 +10,22 @@ uses
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxDropDownEdit, cxCheckBox; cxTextEdit, cxDropDownEdit, cxCheckBox, cxLookAndFeels,
cxLookAndFeelPainters, 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,
cxNavigator;
type type
TfrmClothHCList = class(TForm) TfrmClothHCList = class(TForm)

4
检验管理/U_GetDllForm.pas
View File

@ -76,8 +76,8 @@ begin
user := 'sa'; user := 'sa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr; // DConString := DataBaseStr;
// DParameters1:='高权限'; DParameters1:='高权限';
//DCode:='ADMIN'; //DCode:='ADMIN';
//DName:='ADMIN'; //DName:='ADMIN';
// DParameters2:='成品管理'; //12 // DParameters2:='成品管理'; //12

4
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 195 Left = 486
Top = 125 Top = 172
Width = 1421 Width = 1421
Height = 894 Height = 894
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564

8
检验管理/U_MJManageNewFDNew.pas
View File

@ -379,10 +379,10 @@ begin
if (trim(Edit7.Text) = '¡Ì') then if (trim(Edit7.Text) = '¡Ì') then
begin begin
MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
if i2 = 0 then // if i2 = 0 then
Label9.Caption := 'M' // Label9.Caption := 'M'
else // else
Label9.Caption := 'Y'; // Label9.Caption := 'Y';
edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
end; end;
end; end;