Group_02/D7DJyezhoufh
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

汇总页面优化

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-01-19 11:46:10 +08:00
parent e4e69a19db
commit 9c241d2aa8
8 changed files with 187 additions and 120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\陈亿项目代码\项目代码\叶州复合\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJyezhoufh\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

@ -186,7 +186,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
Top = 16 Top = 16
Width = 36 Width = 36
Height = 12 Height = 12
Caption = #21512#21516#21495 Caption = #23458' '#25143
end end
object Label15: TLabel object Label15: TLabel
Left = 616 Left = 616
@ -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
@ -301,7 +302,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
TabOrder = 10 TabOrder = 10
OnChange = MPRTCodeNameChange OnChange = MPRTCodeNameChange
end end
object conNo: TEdit object CustomerNoName: TEdit
Tag = 2 Tag = 2
Left = 638 Left = 638
Top = 12 Top = 12
@ -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
@ -377,14 +379,8 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList
Width = 72 Width = 72
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #23458#25143
DataBinding.FieldName = 'conNo' DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column10: TcxGridDBColumn
Caption = 'PO#'
DataBinding.FieldName = 'khconNO'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end

178
打卷检验管理/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,8 +85,7 @@ type
RichEdit1: TRichEdit; RichEdit1: TRichEdit;
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; CustomerNoName: TEdit;
conNo: TEdit;
Label14: TLabel; Label14: TLabel;
KHCONNO: TEdit; KHCONNO: TEdit;
Label15: TLabel; Label15: TLabel;
@ -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,57 +125,57 @@ 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();
begin begin
try try
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,C.CustomerNoName,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 ckflag = ''已出库'' THEN 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 ckflag = ''未出库'' THEN 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 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 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,C.CustomerNoName,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 +184,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 +221,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 +241,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 +278,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.

16
打卷检验管理/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
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;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
protected protected

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

@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1392 Width = 1384
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -268,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1392 Width = 1384
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -783,8 +783,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1392 Width = 1384
Height = 576 Height = 568
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

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

@ -11,7 +11,20 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem; cxCurrencyEdit, MMSystem, 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
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -1603,7 +1616,7 @@ begin
sql.add(',@flag=''2'' '); sql.add(',@flag=''2'' ');
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then if (trim(ComboBox1.Text) = '쇱駱쯤데(횡<>)') then
begin begin
@ -1630,7 +1643,31 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(¸×ºÅ)') then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMD_GH ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_HZ);
SInitCDSData20(ADOQueryTemp, CDS_HZ);
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''22'' ');
Open;
end;
end;
if (trim(ComboBox1.Text) = '秊碌쯤데(奈<>)') then if (trim(ComboBox1.Text) = '秊碌쯤데(奈<>)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -1663,7 +1700,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Do_PrintMd10 '); sql.add('exec P_Do_PrintMd10 ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open; Open;

20
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 214 Width = 214
Height = 744 Height = 736
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 633
Top = 87 Top = 87
Width = 725 Width = 717
Height = 744 Height = 736
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 428 Left = 428
Top = 87 Top = 87
Width = 205 Width = 205
Height = 744 Height = 736
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2019,7 +2019,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214 Left = 214
Top = 87 Top = 87
Width = 214 Width = 214
Height = 744 Height = 736
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2028,7 +2028,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 419 Height = 411
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2136,7 +2136,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 421 Top = 413
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2151,7 +2151,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 449 Top = 441
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2364,7 +2364,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1358 Width = 1350
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2552,7 +2552,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1358 Width = 1350
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

24
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -10,7 +10,21 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI; MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
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
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -451,8 +465,8 @@ var
fdata: double; fdata: double;
begin begin
i1 := Message.WParam; i1 := Message.WParam;
i2 := Message.LParam; i2 := Message.LParam;
if IsJsMessage then if IsJsMessage then
begin begin
if (trim(Edit7.Text) = '¡Ì') then if (trim(Edit7.Text) = '¡Ì') then
begin begin
@ -1052,10 +1066,10 @@ begin
FieldByName('MJLen').value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; FieldByName('MJLen').value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
end; end;
if (trim(MC.Text) <> '') and (trim(MC.Text) <> '0') then if (trim(MC.Text) <> '') and (trim(MC.Text) <> '0') then
begin begin
FieldByName('MJLen').value := format('%.0f', [(StrToFloatdef(trim(MJLen.Text), 0) / (StrToFloatdef(trim(MC.Text), 100) / 100)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / (StrToFloatdef(trim(MC.Text), 100) / 100)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
end; end;
// FieldByName('MJLen').value := (StrToFloatdef(trim(MJLen.Text), 0) / (StrToFloatdef(trim(MC.Text), 100) / 100)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; // FieldByName('MJLen').value := (StrToFloatdef(trim(MJLen.Text), 0) / (StrToFloatdef(trim(MC.Text), 100) / 100)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
end; end;