Group_01/D7DJhouguang
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-12-02 17:18:16 +08:00
parent 12f3d63f0c
commit 9b95b3f0d5
3 changed files with 93 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -194,6 +194,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
Width = 18 Width = 18
Height = 12 Height = 12
Caption = 'PO#' Caption = 'PO#'
Visible = False
end end
object MPRTCodeName: TEdit object MPRTCodeName: TEdit
Tag = 2 Tag = 2
@ -317,6 +318,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
Width = 80 Width = 80
Height = 20 Height = 20
TabOrder = 12 TabOrder = 12
Visible = False
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
end end
end end
@ -382,12 +384,6 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object v1Column10: TcxGridDBColumn
Caption = 'PO#'
DataBinding.FieldName = 'khconNO'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #20013#25991#21517#31216 Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'PRTCodeName' DataBinding.FieldName = 'PRTCodeName'

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

@ -4,14 +4,26 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common,
cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
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 type
TfrmCKProductJYHZList = class(TForm) TfrmCKProductJYHZList = class(TForm)
@ -73,7 +85,6 @@ type
RichEdit1: TRichEdit; RichEdit1: TRichEdit;
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
conNo: TEdit; conNo: TEdit;
Label14: TLabel; Label14: TLabel;
KHCONNO: TEdit; KHCONNO: TEdit;
@ -95,19 +106,15 @@ type
procedure TBExportClick(Sender: TObject); procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject); procedure MPRTCodeNameChange(Sender: TObject);
procedure v1Column5PropertiesButtonClick(Sender: TObject; procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure PRTColorChange(Sender: TObject); procedure PRTColorChange(Sender: TObject);
procedure Image2Click(Sender: TObject); procedure Image2Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
AShift: TShiftState; var AHandled: Boolean);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TBPrintClick(Sender: TObject); procedure TBPrintClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
private private
FLeft,FTop:Integer; FLeft, FTop: Integer;
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
@ -118,27 +125,27 @@ var
frmCKProductJYHZList: TfrmCKProductJYHZList; frmCKProductJYHZList: TfrmCKProductJYHZList;
implementation implementation
uses uses
U_DataLink,U_Fun,U_ZDYHelp,U_JYOrderCDOne; U_DataLink, U_Fun, U_ZDYHelp, U_JYOrderCDOne;
{$R *.dfm} {$R *.dfm}
procedure TfrmCKProductJYHZList.FormDestroy(Sender: TObject); procedure TfrmCKProductJYHZList.FormDestroy(Sender: TObject);
begin begin
frmCKProductJYHZList:=nil; frmCKProductJYHZList := nil;
end; end;
procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; procedure TfrmCKProductJYHZList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmCKProductJYHZList.FormCreate(Sender: TObject); procedure TfrmCKProductJYHZList.FormCreate(Sender: TObject);
begin begin
//cxGrid1.Align:=alClient; //cxGrid1.Align:=alClient;
BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp); BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp) EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
end; end;
procedure TfrmCKProductJYHZList.InitGrid(); procedure TfrmCKProductJYHZList.InitGrid();
@ -147,28 +154,27 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
sql.Clear; sql.Clear;
Filtered:=False; 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.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, '); 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.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, ');
sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,'); 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('SUM(CASE WHEN A.ckflag=''已出库'' THEN A.MJLen ELSE 0 END) as SCKROLL');
sql.Add('SCKROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),'); SQL.Add(',SUM(CASE WHEN A.ckflag=''未出库'' THEN A.MJLen ELSE 0 END) as SkcROLL');
sql.Add('SkcROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),'); SQL.Add(',SUM(CASE WHEN A.ckflag=''已出库'' THEN 1 ELSE 0 END) as CKROLL');
sql.Add('CKROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),'); SQL.Add(',SUM(CASE WHEN A.ckflag=''未出库'' THEN 1 ELSE 0 END) as KCROLL');
sql.Add('KCROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),'); // sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
sql.Add('from WFB_MJJY A '); sql.Add('from WFB_MJJY A ');
sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId '); sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
sql.Add('inner join JYOrder_sub D on D.subID=A.subID '); sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
Sql.add('where A.fillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); Sql.add('where A.fillTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
Sql.add('and A.fillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); Sql.add('and A.fillTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4'); Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4');
// ShowMessage(SQL.Text);
Open; Open;
//ShowMessage(SQL.Text);
end; end;
SCreateCDS20(ADOQueryMain,CDS_Main); SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain,CDS_Main); SInitCDSData20(ADOQueryMain, CDS_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
@ -177,34 +183,35 @@ end;
procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject);
begin begin
//BegDate.SetFocus; //BegDate.SetFocus;
MovePanel2.Visible:=True; MovePanel2.Visible := True;
MovePanel2.Refresh; MovePanel2.Refresh;
InitGrid(); InitGrid();
MovePanel2.Visible:=False; MovePanel2.Visible := False;
end; end;
procedure TfrmCKProductJYHZList.ConNoMChange(Sender: TObject); procedure TfrmCKProductJYHZList.ConNoMChange(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end; end;
end; end;
procedure TfrmCKProductJYHZList.TBCloseClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库'); WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
Close; Close;
end; end;
procedure TfrmCKProductJYHZList.FormShow(Sender: TObject); procedure TfrmCKProductJYHZList.FormShow(Sender: TObject);
begin begin
ReadCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库'); ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库');
if Trim(DParameters2)='管理' then if Trim(DParameters2) = '管理' then
begin begin
//v1Column5.Options.Focusing:=True; //v1Column5.Options.Focusing:=True;
end else end
else
begin begin
//v1Column5.Options.Focusing:=False; //v1Column5.Options.Focusing:=False;
end; end;
@ -213,17 +220,18 @@ end;
procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel('库存汇总列表',cxGrid2); exit;
TcxGridToExcel('库存汇总列表', cxGrid2);
end; end;
procedure TfrmCKProductJYHZList.TBFindClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain,CDS_Main); SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain,CDS_Main); SInitCDSData20(ADOQueryMain, CDS_Main);
end; end;
end; end;
@ -232,28 +240,27 @@ begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick( procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='SOrdDefStr10'; flag := 'SOrdDefStr10';
flagname:='库存存放地点'; flagname := '库存存放地点';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with CDS_Main do with CDS_Main do
begin begin
Edit; Edit;
FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('SOrdDefStr10').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+''''); sql.Add('Update JYOrder_Sub Set SOrdDefStr10=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+''''); sql.Add(' where SubId=''' + Trim(Self.CDS_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
end; end;
@ -270,49 +277,47 @@ end;
procedure TfrmCKProductJYHZList.Image2Click(Sender: TObject); procedure TfrmCKProductJYHZList.Image2Click(Sender: TObject);
begin begin
Panel4.Visible:=False; Panel4.Visible := False;
end; end;
procedure TfrmCKProductJYHZList.Tv1CellDblClick( procedure TfrmCKProductJYHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin begin
Panel4.Left:=FLeft; Panel4.Left := FLeft;
Panel4.Top:=FTop+110; Panel4.Top := FTop + 110;
Panel4.Visible:=True; Panel4.Visible := True;
Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption); Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption);
RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString; RichEdit1.Text := CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
application.ProcessMessages; application.ProcessMessages;
end; end;
procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
FLeft:=X; FLeft := X;
FTop:=Y; FTop := Y;
end; end;
procedure TfrmCKProductJYHZList.TBPrintClick(Sender: TObject); procedure TfrmCKProductJYHZList.TBPrintClick(Sender: TObject);
begin begin
RMGridReport1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator]; RMGridReport1.PreviewButtons := [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator];
end; end;
procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject); procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
begin begin
if cds_main.IsEmpty then Exit; if cds_main.IsEmpty then
frmJYOrderCDOne:=TfrmJYOrderCDOne.Create(Application); Exit;
with frmJYOrderCDOne do frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application);
with frmJYOrderCDOne do
begin
orderno.Text := trim(self.CDS_Main.fieldbyname('orderno').asstring);
gangno.Text := trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
PRTColor.Text := trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
if ShowModal = 1 then
begin begin
orderno.Text:=trim(self.CDS_Main.fieldbyname('orderno').asstring);
gangno.Text:=trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
PRTColor.Text:=trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
if ShowModal=1 then
begin
// InitGrid(); // InitGrid();
end;
free;
end; end;
free;
end;
end; end;
end. end.

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

@ -389,9 +389,9 @@ begin
Close; Close;
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
sql.Add('select A.*,'); sql.Add('select A.*,');
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*'); sql.Add('C.OrderNo,B.PRTCodeName,B.prtkuanno,B.PRTColor,B.SOrddefstr1,B.SOrddefstr4,B.prthx,B.KHorderNo,B.PRTMF,B.PRTKZ');
// 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('from WFB_MJJY A'); SQL.Add('from WFB_MJJY A');
@ -409,7 +409,7 @@ begin
SCreateCDS20(ADOQueryMain, Order_Main); SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
tbfind.Click; tbfind.Click;
end; end;