Group_01/D7DJkairuida
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-19 13:53:03 +08:00
parent 6441b073d5
commit 20d981d987
4 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
复合检验管理/U_JYOrderCDOne.dfm
View File

@ -809,7 +809,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 21 TabOrder = 21
OnClick = CheckBox3Click OnClick = CheckBox3Click
end end
object CustomerNoName: TEdit object KH: TEdit
Tag = 2 Tag = 2
Left = 357 Left = 357
Top = 11 Top = 11
@ -942,6 +942,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object v1Column29: TcxGridDBColumn object v1Column29: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName' DataBinding.FieldName = 'CustomerNoName'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end

2
复合检验管理/U_JYOrderCDOne.pas
View File

@ -222,7 +222,7 @@ type
Label36: TLabel; Label36: TLabel;
ComboBox3: TComboBox; ComboBox3: TComboBox;
Label37: TLabel; Label37: TLabel;
CustomerNoName: TEdit; KH: TEdit;
v1Column29: TcxGridDBColumn; v1Column29: TcxGridDBColumn;
ToolButton14: TToolButton; ToolButton14: TToolButton;
Panel14: TPanel; Panel14: TPanel;

18
复合检验管理/U_MJManageNewFDNew.dfm
View File

@ -127,6 +127,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle4 Styles.Content = cxStyle4
Styles.Footer = cxStyle7
Styles.Header = cxStyle4 Styles.Header = cxStyle4
Width = 40 Width = 40
end end
@ -136,6 +137,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle3 Styles.Content = cxStyle3
Styles.Footer = cxStyle7
Styles.Header = cxStyle3 Styles.Header = cxStyle3
Width = 42 Width = 42
end end
@ -144,7 +146,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
DataBinding.FieldName = 'MJMaoZ' DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle5 Styles.Content = cxStyle5
Styles.Footer = cxStyle5 Styles.Footer = cxStyle7
Styles.Header = cxStyle5 Styles.Header = cxStyle5
Width = 50 Width = 50
end end
@ -153,7 +155,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
DataBinding.FieldName = 'MJQty4' DataBinding.FieldName = 'MJQty4'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle3 Styles.Content = cxStyle3
Styles.Footer = cxStyle3 Styles.Footer = cxStyle7
Styles.Header = cxStyle3 Styles.Header = cxStyle3
Width = 50 Width = 50
end end
@ -3232,8 +3234,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox2: TScrollBox object ScrollBox2: TScrollBox
Left = -168 Left = -464
Top = 456 Top = 632
Width = 481 Width = 481
Height = 457 Height = 457
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -3669,6 +3671,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
TextColor = clDefault TextColor = clDefault
end end
object cxStyle7: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
end
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>

3
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -1,6 +1,6 @@
unit U_MJManageNewFDNew; unit U_MJManageNewFDNew;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
@ -319,6 +319,7 @@ type
Label63: TLabel; Label63: TLabel;
Kuanno: TBtnEditA; Kuanno: TBtnEditA;
Button5: TButton; Button5: TButton;
cxStyle7: TcxStyle;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);