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'; //DCode:='ADMIN';
//DName:='ADMIN'; //DName:='ADMIN';
// DParameters2:='成品打包'; // DParameters2:='成品打包';
// DParameters2:='管理'; DParameters2:='管理';
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;

19
检验管理/U_JYOrderCDOne.dfm
View File

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

42
检验管理/U_JYOrderCDOne.pas
View File

@ -212,6 +212,7 @@ type
ComboBox3: TComboBox; ComboBox3: TComboBox;
Button8: TButton; Button8: TButton;
Button10: TButton; Button10: TButton;
Tv1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -267,6 +268,7 @@ type
procedure Button4Click(Sender: TObject); procedure Button4Click(Sender: TObject);
procedure Button10Click(Sender: TObject); procedure Button10Click(Sender: TObject);
procedure Button8Click(Sender: TObject); procedure Button8Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
private private
DQdate: TDateTime; DQdate: TDateTime;
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -374,7 +376,8 @@ begin
sql.Add('select A.*,'); sql.Add('select A.*,');
sql.Add('C.OrderNo,C.conNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); 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('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('from WFB_MJJY A');
sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID '); sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID ');
@ -2300,5 +2303,42 @@ begin
Panel12.Visible := false; Panel12.Visible := false;
end; 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. end.

24
检验管理/U_MJManageNewFDNew.dfm
View File

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

39
检验管理/U_MJManageNewFDNew.pas
View File

@ -329,6 +329,7 @@ type
procedure baoNoExit(Sender: TObject); procedure baoNoExit(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Edit13Click(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); // procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private private
{ Private declarations } { Private declarations }
@ -2543,7 +2544,6 @@ begin
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 if fOrderUnit = 'Y' then
begin begin
Label9.Caption := 'Y'; Label9.Caption := 'Y';
@ -3135,5 +3135,42 @@ end;
// //
//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. end.