Group_DJD/D7DJbulaikeyi
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-10-25 17:25:56 +08:00
parent aff0855ee9
commit b4038e8864
4 changed files with 135 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
打卷检验管理/U_CKProductJYHZList.dfm
View File

@ -384,6 +384,22 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
item
Kind = skSum
Column = v1Column12
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = Tv1Column3
end
item
Kind = skSum
Column = Tv1Column2
end
item
Kind = skSum
Column = Tv1Column4
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False

88
打卷检验管理/U_CKProductJYHZList.pas
View File

@ -4,28 +4,26 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit,
cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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;
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
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;
type
TfrmCKProductJYHZList = class(TForm)
@ -115,15 +113,11 @@ type
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure PRTCodeNameChange(Sender: TObject);
procedure v1Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure PRTColorChange(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TBPrintClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
@ -138,6 +132,7 @@ var
frmCKProductJYHZList: TfrmCKProductJYHZList;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp, U_JYOrderCDOne;
@ -148,8 +143,7 @@ begin
frmCKProductJYHZList := nil;
end;
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject;
var Action: TCloseAction);
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
@ -172,11 +166,11 @@ begin
Filtered := False;
sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.CustomerNoName,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.PIH, ');
sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,');
sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),');
sql.Add('SCKROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),');
sql.Add('SkcROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),');
sql.Add('CKROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),');
sql.Add('KCROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),');
// sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),');
sql.Add('SUM(CASE WHEN A.ckflag = ''已出库'' THEN A.mjlen ELSE 0 END) AS SCKROLL,');
sql.Add('SUM(CASE WHEN A.ckflag = ''未出库'' THEN A.mjlen ELSE 0 END) AS SkcROLL,');
sql.Add(' COUNT(CASE WHEN A.ckflag = ''已出库'' THEN 1 END) AS CKROLL,');
sql.Add(' COUNT(CASE WHEN A.ckflag = ''未出库'' THEN 1 END) AS KCROLL,');
sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
sql.Add('from WFB_MJJY A ');
sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
@ -192,6 +186,7 @@ begin
finally
ADOQueryMain.EnableControls;
end;
tbfind.Click;
end;
procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject);
@ -224,7 +219,8 @@ begin
if Trim(DParameters2) = '¹ÜÀí' then
begin
//v1Column5.Options.Focusing:=True;
end else
end
else
begin
//v1Column5.Options.Focusing:=False;
end;
@ -233,7 +229,8 @@ end;
procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then exit;
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel('¿â´æ»ã×ÜÁбí', cxGrid2);
end;
@ -252,8 +249,7 @@ begin
TBFind.Click;
end;
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -293,10 +289,7 @@ begin
Panel4.Visible := False;
end;
procedure TfrmCKProductJYHZList.Tv1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure TfrmCKProductJYHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
Panel4.Left := FLeft;
Panel4.Top := FTop + 110;
@ -306,8 +299,7 @@ begin
application.ProcessMessages;
end;
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FLeft := X;
FTop := Y;
@ -320,7 +312,8 @@ end;
procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
begin
if cds_main.IsEmpty then Exit;
if cds_main.IsEmpty then
Exit;
frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application);
with frmJYOrderCDOne do
begin
@ -336,3 +329,4 @@ begin
end;
end.

47
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -604,7 +604,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = OrderNoKeyPress
end
object MJFK: TEdit
Tag = 1
Tag = 2
Left = 350
Top = 11
Width = 76
@ -618,7 +618,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34
Width = 77
Height = 20
TabOrder = 12
TabOrder = 11
OnChange = PRTCodeNameChange
end
object CDList: TEdit
@ -647,7 +647,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 13
TabOrder = 12
Visible = False
OnChange = PRTCodeNameChange
Items.Strings = (
@ -683,16 +683,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False
OnClick = RadioGroup1Click
end
object PRTColor: TComboBox
Tag = 1
Left = 484
Top = 34
Width = 77
Height = 20
ItemHeight = 12
TabOrder = 11
OnChange = PRTColorChange
end
object CheckBox1: TCheckBox
Left = 697
Top = 107
@ -705,7 +695,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 18
TabOrder = 17
Visible = False
end
object MJType: TEdit
@ -714,7 +704,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Width = 93
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 17
TabOrder = 16
Visible = False
end
object BAOID: TEdit
@ -723,7 +713,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34
Width = 77
Height = 20
TabOrder = 14
TabOrder = 13
OnChange = PRTCodeNameChange
end
object BAONO: TEdit
@ -750,7 +740,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34
Width = 77
Height = 20
TabOrder = 15
TabOrder = 14
OnChange = PRTCodeNameChange
end
object gangno: TEdit
@ -768,7 +758,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 34
Width = 77
Height = 20
TabOrder = 16
TabOrder = 15
OnChange = PRTCodeNameChange
end
object CheckBox2: TCheckBox
@ -783,7 +773,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 19
TabOrder = 18
end
object BegDate: TDateTimePicker
Left = 84
@ -803,7 +793,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 20
TabOrder = 19
OnChange = PRTCodeNameChange
Items.Strings = (
''
@ -823,7 +813,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
TabOrder = 20
OnClick = CheckBox3Click
end
object PIH: TEdit
@ -832,16 +822,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 10
Width = 77
Height = 20
TabOrder = 22
TabOrder = 21
OnChange = PRTCodeNameChange
end
object CustomerNoName: TEdit
Tag = 1
Tag = 2
Left = 350
Top = 35
Width = 76
Height = 20
TabOrder = 23
TabOrder = 22
OnChange = PRTCodeNameChange
end
object MJSJKZ: TEdit
@ -850,6 +840,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 10
Width = 77
Height = 20
TabOrder = 23
OnChange = PRTCodeNameChange
end
object PRTColor: TEdit
Tag = 2
Left = 485
Top = 33
Width = 75
Height = 20
TabOrder = 24
OnChange = PRTCodeNameChange
end

7
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -94,7 +94,6 @@ type
v1Column24: TcxGridDBColumn;
RadioGroup1: TRadioGroup;
MovePanel2: TMovePanel;
PRTColor: TComboBox;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
ToolButton2: TToolButton;
@ -233,6 +232,7 @@ type
CDS_12: TClientDataSet;
DataSource2: TDataSource;
ADOQuery1: TADOQuery;
PRTColor: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -431,7 +431,7 @@ begin
ADOQueryMain.EnableControls;
// TV2.EndUpdate();
end;
// tbfind.Click;
tbfind.Click;
end;
procedure TfrmJYOrderCDOne.InitSum();
@ -521,6 +521,7 @@ begin
begin
fsj := SGetFilters(Panel1, 1, 2) + ' and ' + fsj;
end;
// ShowMessage(fsj);
SDofilter(ADOQueryMain, fsj);
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
@ -927,7 +928,7 @@ procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellVie
begin
if Order_Main.IsEmpty = False then
begin
InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
// InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
//InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
//InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp);
end;