Group_DJD/D7DJailisi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

数量单位调整，指示单数量单位填了后，打卷那边的单位就锁死

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-20 10:18:49 +08:00
parent bf59918d30
commit adb939ac97
5 changed files with 71 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\D7DJalisi\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJailisi\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

12
检验管理/U_ClothHCList.dfm
View File

@ -1,6 +1,6 @@
object frmClothHCList: TfrmClothHCList object frmClothHCList: TfrmClothHCList
Left = 287 Left = 266
Top = 67 Top = 564
Width = 1179 Width = 1179
Height = 705 Height = 705
Caption = #26816#39564#25351#31034#21333#26597#35810 Caption = #26816#39564#25351#31034#21333#26597#35810
@ -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,8 +289,8 @@ object frmClothHCList: TfrmClothHCList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1163 Width = 1171
Height = 561 Height = 569
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView

46
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,7 +1,7 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 343 Left = 237
Top = 281 Top = 384
Width = 1366 Width = 1545
Height = 738 Height = 738
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
Color = clBtnFace Color = clBtnFace
@ -22,7 +22,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 545 Width = 545
Height = 612 Height = 620
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -186,10 +186,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 770 Left = 793
Top = 87 Top = 87
Width = 580 Width = 744
Height = 612 Height = 620
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -1041,7 +1041,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 545 Left = 545
Top = 87 Top = 87
Width = 205 Width = 205
Height = 612 Height = 620
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1805,8 +1805,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 757 Left = 1069
Top = 83 Top = 99
Width = 351 Width = 351
Height = 238 Height = 238
BevelInner = bvLowered BevelInner = bvLowered
@ -2057,8 +2057,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel7: TPanel object Panel7: TPanel
Left = 750 Left = 750
Top = 87 Top = 87
Width = 20 Width = 43
Height = 612 Height = 620
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2067,8 +2067,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 2 Top = 2
Width = 16 Width = 39
Height = 287 Height = 295
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2176,8 +2176,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 289 Top = 297
Width = 16 Width = 39
Height = 28 Height = 28
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2191,8 +2191,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 317 Top = 325
Width = 16 Width = 39
Height = 293 Height = 293
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2207,8 +2207,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 642 Left = 1170
Top = 340 Top = 356
Width = 351 Width = 351
Height = 313 Height = 313
BevelInner = bvRaised BevelInner = bvRaised
@ -2407,7 +2407,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1537
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2636,7 +2636,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1350 Width = 1537
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -2829,7 +2829,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = BTEditClick OnClick = BTEditClick
end end
object Button3: TButton object Button3: TButton
Left = 974 Left = 942
Top = 8 Top = 8
Width = 64 Width = 64
Height = 25 Height = 25

52
检验管理/U_MJManageNewFDNew.pas
View File

@ -2402,20 +2402,20 @@ end;
procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject);
begin begin
if trim(Label9.Caption) = 'M' then // if trim(Label9.Caption) = 'M' then
begin // begin
Label9.Caption := 'Y'; // Label9.Caption := 'Y';
Label19.Caption := 'Y'; // Label19.Caption := 'Y';
Label20.Caption := 'Y'; // Label20.Caption := 'Y';
Label7.Caption := 'Y'; // Label7.Caption := 'Y';
end // end
else // else
begin // begin
Label9.Caption := 'M'; // Label9.Caption := 'M';
Label19.Caption := 'M'; // Label19.Caption := 'M';
Label20.Caption := 'M'; // Label20.Caption := 'M';
Label7.Caption := 'M'; // Label7.Caption := 'M';
end; // end;
end; end;
procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject);
@ -2542,14 +2542,18 @@ begin
fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString); fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString); fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString)); fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));
if fOrderUnit = 'Y' then
begin
Label9.Caption := 'Y'; // if fOrderUnit = 'Y' then
end // begin
else // Label9.Caption := 'Y';
begin // end
Label9.Caption := 'M' // else
end; // begin
// Label9.Caption := 'M'
// end;
Label9.Caption := fOrderUnit;
if FDC <> 0 then if FDC <> 0 then
begin begin
Edit12.Visible := True; Edit12.Visible := True;
@ -2630,7 +2634,7 @@ begin
fType := '10'; fType := '10';
if showmodal = 1 then if showmodal = 1 then
begin begin
APID.Text := trim(Order_Main.fieldbyname('Subid').asstring); APID.Text := trim(frmClothHCList.Order_Main.fieldbyname('Subid').asstring);
Button3.Click; Button3.Click;
end; end;
free; free;
@ -2940,7 +2944,7 @@ begin
exit; exit;
end; end;
with ADOTmp do with ADOTmp do
begin begin
close; close;
sql.Clear; sql.Clear;

26
检验管理/U_ProductOrderNewList.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderNewList: TfrmProductOrderNewList object frmProductOrderNewList: TfrmProductOrderNewList
Left = 174 Left = 382
Top = 61 Top = 336
Width = 1369 Width = 1369
Height = 738 Height = 738
Caption = #21253#35013#25351#31034#21333 Caption = #21253#35013#25351#31034#21333
@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1353 Width = 1361
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -170,7 +170,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1353 Width = 1361
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -399,7 +399,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1353 Width = 1361
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -747,8 +747,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 435 Top = 443
Width = 1353 Width = 1361
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -756,8 +756,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 443 Top = 451
Width = 1353 Width = 1361
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -765,7 +765,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 974 Width = 982
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1069,7 +1069,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 975 Left = 983
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1099,7 +1099,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 72
Width = 1353 Width = 1361
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1112,7 +1112,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1353 ClientRectRight = 1361
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu