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

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-01 13:51:15 +08:00
parent e41b586176
commit f31462034d
5 changed files with 109 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/U_GetDllForm.pas
View File

@ -84,7 +84,7 @@ begin
//DCode:='ADMIN';
//DName:='ADMIN';
// DParameters2:='成品打包';
// DParameters2:='管理';
DParameters2:='管理';
if not ConnData() then
begin
result := 0;

19
检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 357
Top = 158
Left = 365
Top = 313
Width = 1382
Height = 754
Caption = #26816#39564#25253#21578
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1366
Width = 1374
Height = 62
AutoSize = True
ButtonHeight = 30
@ -246,7 +246,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel
Left = 0
Top = 62
Width = 1366
Width = 1374
Height = 88
Align = alTop
BevelInner = bvRaised
@ -767,8 +767,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid
Left = 0
Top = 150
Width = 1366
Height = 565
Width = 1374
Height = 573
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3
@ -776,6 +776,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
@ -1084,6 +1085,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column4: TcxGridDBColumn
Caption = #30133#28857
DataBinding.FieldName = 'CDName'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

42
检验管理/U_JYOrderCDOne.pas
View File

@ -212,6 +212,7 @@ type
ComboBox3: TComboBox;
Button8: TButton;
Button10: TButton;
Tv1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -267,6 +268,7 @@ type
procedure Button4Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@ -374,7 +376,8 @@ begin
sql.Add('select A.*,');
sql.Add('C.OrderNo,C.conNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,');
sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)');
sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID),');
sql.Add('CDName=(select CDName from WFB_MJJY_CD X where X.MJID=A.MJID)');
SQL.Add('from WFB_MJJY A');
sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID ');
@ -2300,5 +2303,42 @@ begin
Panel12.Visible := false;
end;
procedure TfrmJYOrderCDOne.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
CDName: string;
begin
CDName := VarToStr(AViewInfo.GridRecord.Values[AViewInfo.Item.Index]);
if CDName = '뷘도' then
begin
ACanvas.Brush.Color := clRed;
ACanvas.Font.Color := clBlack;
end
else if CDName = '갚쬘南뺏' then
begin
ACanvas.Brush.Color := clYellow;
ACanvas.Font.Color := clBlack;
end
else if CDName = '<27>뀌' then
begin
ACanvas.Brush.Color := clBlue;
ACanvas.Font.Color := clBlack;
end
else if CDName = '斗宏' then
begin
ACanvas.Brush.Color := clGreen;
ACanvas.Font.Color := clBlack;
end
else if CDName = '페儉' then
begin
ACanvas.Brush.Color := clPurple;
ACanvas.Font.Color := clBlack;
end
else if CDName = '짤뒀介' then
begin
ACanvas.Brush.Color := RGB(255, 192, 203);
ACanvas.Font.Color := clBlack;
end;
end;
end.

24
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 301
Top = 406
Left = 646
Top = 314
Width = 1545
Height = 738
Caption = #25104#21697#26816#39564
@ -186,9 +186,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
end
object ScrollBox1: TScrollBox
Left = 793
Left = 1001
Top = 87
Width = 744
Width = 536
Height = 620
Align = alClient
Color = clWhite
@ -1805,7 +1805,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
end
object MovePanel1: TMovePanel
Left = 797
Left = 1021
Top = 91
Width = 351
Height = 238
@ -2057,23 +2057,23 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel7: TPanel
Left = 750
Top = 87
Width = 43
Width = 251
Height = 620
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
Visible = False
object cxGrid2: TcxGrid
Left = 2
Top = 2
Width = 39
Width = 247
Height = 295
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv2CellDblClick
OnCustomDrawCell = Tv2CustomDrawCell
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -2177,7 +2177,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel8: TPanel
Left = 2
Top = 297
Width = 39
Width = 247
Height = 28
Align = alBottom
Font.Charset = GB2312_CHARSET
@ -2192,7 +2192,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object AOrdDefNote1: TRichEdit
Left = 2
Top = 325
Width = 39
Width = 247
Height = 293
Align = alBottom
Font.Charset = GB2312_CHARSET
@ -2207,8 +2207,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
end
object Panel3: TPanel
Left = 754
Top = 380
Left = 1042
Top = 356
Width = 303
Height = 293
BevelInner = bvRaised

39
检验管理/U_MJManageNewFDNew.pas
View File

@ -329,6 +329,7 @@ type
procedure baoNoExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit13Click(Sender: TObject);
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
// procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
@ -2543,7 +2544,6 @@ begin
fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));
if fOrderUnit = 'Y' then
begin
Label9.Caption := 'Y';
@ -3135,5 +3135,42 @@ end;
//
//end;
procedure TfrmMJManageNewFDNewSF.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
CDName: string;
begin
CDName := VarToStr(AViewInfo.GridRecord.Values[AViewInfo.Item.Index]);
if CDName = '뷘도' then
begin
ACanvas.Brush.Color := clRed;
ACanvas.Font.Color := clBlack;
end
else if CDName = '갚쬘南뺏' then
begin
ACanvas.Brush.Color := clYellow;
ACanvas.Font.Color := clBlack;
end
else if CDName = '<27>뀌' then
begin
ACanvas.Brush.Color := clBlue;
ACanvas.Font.Color := clBlack;
end
else if CDName = '斗宏' then
begin
ACanvas.Brush.Color := clGreen;
ACanvas.Font.Color := clBlack;
end
else if CDName = '페儉' then
begin
ACanvas.Brush.Color := clPurple;
ACanvas.Font.Color := clBlack;
end
else if CDName = '짤뒀介' then
begin
ACanvas.Brush.Color := RGB(255, 192, 203);
ACanvas.Font.Color := clBlack;
end;
end;
end.