Group_01/D7wmbeiqi
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-08-22 15:27:11 +08:00
parent 0843d5fa7d
commit 500a04d339
8 changed files with 319 additions and 230 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\굔페\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe HostApplication=D:\Dp7Repo\淃커덜쯤\D7wmbeiqi\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

10
坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm
View File

@ -1,6 +1,6 @@
object frmDJBCKInPut: TfrmDJBCKInPut object frmDJBCKInPut: TfrmDJBCKInPut
Left = 55 Left = 182
Top = 111 Top = 266
Width = 1283 Width = 1283
Height = 502 Height = 502
Align = alClient Align = alClient
@ -21,11 +21,11 @@ object frmDJBCKInPut: TfrmDJBCKInPut
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1267 Width = 1267
Height = 431 Height = 430
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -280,7 +280,7 @@ object frmDJBCKInPut: TfrmDJBCKInPut
Properties.OnButtonClick = v1Column16PropertiesButtonClick Properties.OnButtonClick = v1Column16PropertiesButtonClick
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True VisibleForCustomization = False
Width = 79 Width = 79
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn

406
坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas
View File

@ -4,12 +4,25 @@ 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, cxCalendar, cxDropDownEdit, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxLookAndFeels,
cxTextEdit; cxLookAndFeelPainters, 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, cxNavigator;
type type
TfrmDJBCKInPut = class(TForm) TfrmDJBCKInPut = class(TForm)
@ -57,54 +70,47 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure v1Column3PropertiesButtonClick(Sender: TObject; procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column14PropertiesButtonClick(Sender: TObject; procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject; procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer); procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column11PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column16PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column13PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column18PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveCKData():Boolean; function SaveCKData(): Boolean;
public public
{ Public declarations } { Public declarations }
FBCId:String; FBCId: string;
end; end;
var var
frmDJBCKInPut: TfrmDJBCKInPut; frmDJBCKInPut: TfrmDJBCKInPut;
implementation implementation
uses uses
U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel; U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_ZdyAttachGYS,
U_ProductOrderListSel;
{$R *.dfm} {$R *.dfm}
procedure TfrmDJBCKInPut.FormClose(Sender: TObject; procedure TfrmDJBCKInPut.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject); procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty=False then if CDS_Sub.IsEmpty = False then
begin begin
CopyAddRowCDS(CDS_Sub); CopyAddRowCDS(CDS_Sub);
with CDS_Sub do with CDS_Sub do
begin begin
Edit; Edit;
FieldByName('SPID').Value:=null; FieldByName('SPID').Value := null;
// FieldByName('SPID').Value:=null; // FieldByName('SPID').Value:=null;
post; post;
end; end;
@ -114,21 +120,20 @@ begin
with CDS_Sub do with CDS_Sub do
begin begin
Append; Append;
FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('CRType').Value:='加工完成'; FieldByName('CRType').Value := '加工完成';
FieldByName('ToFactoryName').Value:='贝其仓库'; FieldByName('ToFactoryName').Value := '贝其仓库';
FieldByName('SPType').Value:='正品'; FieldByName('SPType').Value := '正品';
FieldByName('QtyUnit').Value:='Kg'; FieldByName('QtyUnit').Value := 'Kg';
Post; Post;
end; end;
end; end;
end; end;
function TfrmDJBCKInPut.SaveCKData():Boolean;
function TfrmDJBCKInPut.SaveCKData(): Boolean;
var var
FCRID,Maxno,FFSPID:string; FCRID, Maxno, FFSPID: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
@ -210,61 +215,66 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
open; open;
end; end;
FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); FFSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString);
if Trim(FFSPID)='' then if Trim(FFSPID) = '' then
begin begin
if GetLSNo(ADOQueryCmd,Maxno,'DR','CK_SXPB_CR',3,1)=False then if GetLSNo(ADOQueryCmd, Maxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then
begin begin
Result:=False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取待检布入库编号失败!','提示',0); Application.MessageBox('取待检布入库编号失败!', '提示', 0);
Exit; Exit;
end; end;
end else end
else
begin begin
Maxno:=Trim(FFSPID); Maxno := Trim(FFSPID);
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + '''');
Open; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
if Trim(FFSPID)='' then if Trim(FFSPID) = '' then
begin begin
Append; Append;
end else end
else
begin begin
Edit; Edit;
end; end;
FieldByName('SPID').Value:=Trim(Maxno); FieldByName('SPID').Value := Trim(Maxno);
FieldByName('FZSPID').Value:=Trim(Maxno); FieldByName('FZSPID').Value := Trim(Maxno);
FieldByName('CKName').Value:='待检布'; FieldByName('CKName').Value := '待检布';
FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString);
FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); FieldByName('FromFactoryName').Value := Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString);
FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
FieldByName('CRFlag').Value:='入库'; FieldByName('ToFactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString);
FieldByName('CRQtyFlag').Value:=1; FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('CRFlag').Value := '入库';
FieldByName('CRQtyFlag').Value := 1;
//FieldByName('CRID').Value:=FCRID; //FieldByName('CRID').Value:=FCRID;
RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
if Trim(FFSPID)='' then if Trim(FFSPID) = '' then
FieldByName('Filler').Value:=Trim(DName) FieldByName('Filler').Value := Trim(DName)
else else
begin begin
FieldByName('Editer').Value:=Trim(DName); FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then
begin begin
FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); FieldByName('QCOrderNo').Value := Trim(CDS_Sub.fieldbyname('OrderNo').AsString);
end; end;
Post; Post;
end; end;
@ -274,21 +284,21 @@ begin
sql.Clear; sql.Clear;
sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)');
sql.Add(' where SPID='''+Trim(Maxno)+''''); sql.Add(' where SPID=''' + Trim(Maxno) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + '''');
Open; Open;
end; end;
if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then
begin begin
CDS_Sub.DisableControls; CDS_Sub.DisableControls;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('入库数小于出库数不能保存!','提示',0); Application.MessageBox('入库数小于出库数不能保存!', '提示', 0);
Exit; Exit;
end; end;
{with ADOQueryCmd do {with ADOQueryCmd do
@ -323,7 +333,7 @@ begin
Exit; Exit;
end; } end; }
Edit; Edit;
FieldByName('SPID').Value:=Trim(Maxno); FieldByName('SPID').Value := Trim(Maxno);
//FieldByName('CRID').Value:=Trim(FCRID); //FieldByName('CRID').Value:=Trim(FCRID);
Post; Post;
Next; Next;
@ -331,25 +341,26 @@ begin
end; end;
CDS_Sub.EnableControls; CDS_Sub.EnableControls;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result:=True; Result := True;
except except
Result:=False; Result := False;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存异常!','提示',0); Application.MessageBox('保存异常!', '提示', 0);
end; end;
end; end;
procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject); procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('待检布入库登记',Tv1,'待检布仓库'); WriteCxGrid('待检布入库登记', Tv1, '待检布仓库');
Close; Close;
end; end;
procedure TfrmDJBCKInPut.FormShow(Sender: TObject); procedure TfrmDJBCKInPut.FormShow(Sender: TObject);
var var
fsj:String; fsj: string;
begin begin
ReadCxGrid('待检布入库登记',Tv1,'待检布仓库'); ReadCxGrid('待检布入库登记', Tv1, '待检布仓库');
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -361,65 +372,69 @@ begin
sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )');
sql.Add(' from CK_SXPB_CR A'); sql.Add(' from CK_SXPB_CR A');
sql.Add(' where SPID='''+Trim(FBCId)+''''); sql.Add(' where SPID=''' + Trim(FBCId) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,CDS_Sub); SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp,CDS_Sub); SInitCDSData20(ADOQueryTemp, CDS_Sub);
if CDS_Sub.IsEmpty then Exit; if CDS_Sub.IsEmpty then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
sql.Add(' and CRQtyFlag=-1'); sql.Add(' and CRQtyFlag=-1');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
v1Column4.Options.Focusing:=False; v1Column4.Options.Focusing := False;
// v1Column15.Options.Focusing:=False; // v1Column15.Options.Focusing:=False;
v1Column13.Options.Focusing:=False; v1Column13.Options.Focusing := False;
v1Column14.Options.Focusing:=False; v1Column14.Options.Focusing := False;
v2Column1.Options.Focusing:=False; v2Column1.Options.Focusing := False;
v1Column8.Options.Focusing:=False; v1Column8.Options.Focusing := False;
v1Column7.Options.Focusing:=False; v1Column7.Options.Focusing := False;
v1Column1.Options.Focusing:=False; v1Column1.Options.Focusing := False;
v1Column10.Options.Focusing:=False; v1Column10.Options.Focusing := False;
v1Column11.Options.Focusing:=False; v1Column11.Options.Focusing := False;
Exit; Exit;
end else end
else
begin begin
v1Column4.Options.Focusing:=True; v1Column4.Options.Focusing := True;
//v1Column15.Options.Focusing:=True; //v1Column15.Options.Focusing:=True;
v1Column13.Options.Focusing:=True; v1Column13.Options.Focusing := True;
v1Column14.Options.Focusing:=True; v1Column14.Options.Focusing := True;
v2Column1.Options.Focusing:=True; v2Column1.Options.Focusing := True;
v1Column8.Options.Focusing:=True; v1Column8.Options.Focusing := True;
v1Column7.Options.Focusing:=True; v1Column7.Options.Focusing := True;
v1Column1.Options.Focusing:=True; v1Column1.Options.Focusing := True;
v1Column10.Options.Focusing:=True; v1Column10.Options.Focusing := True;
v1Column11.Options.Focusing:=True; v1Column11.Options.Focusing := True;
end; end;
end; end;
procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject); procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then Exit; if CDS_Sub.IsEmpty then
if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then Exit;
if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then
begin begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
sql.Add(' and CRQtyFlag=-1'); sql.Add(' and CRQtyFlag=-1');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('已有出库记录，不能删除!','提示',0); Application.MessageBox('已有出库记录，不能删除!', '提示', 0);
Exit; Exit;
end; end;
try try
@ -428,17 +443,18 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
CDS_Sub.Delete; CDS_Sub.Delete;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('删除异常!','提示',0); Application.MessageBox('删除异常!', '提示', 0);
end; end;
end else end
else
begin begin
CDS_Sub.Delete; CDS_Sub.Delete;
end; end;
@ -447,80 +463,80 @@ end;
procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject); procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then Exit; if CDS_Sub.IsEmpty then
if CDS_Sub.Locate('CRTime',null,[])=True then Exit;
if CDS_Sub.Locate('CRTime', null, []) = True then
begin begin
Application.MessageBox('入库时间不能为空!','提示',0); Application.MessageBox('入库时间不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('CRType',null,[])=True then if CDS_Sub.Locate('CRType', null, []) = True then
begin begin
Application.MessageBox('入库类型不能为空!','提示',0); Application.MessageBox('入库类型不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('SPName',null,[])=True then if CDS_Sub.Locate('SPName', null, []) = True then
begin begin
Application.MessageBox('品名不能为空!','提示',0); Application.MessageBox('品名不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('OrderNo',null,[])=True then if CDS_Sub.Locate('OrderNo', null, []) = True then
begin begin
Application.MessageBox('订单号不能为空!','提示',0); Application.MessageBox('订单号不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('ToFactoryName',null,[])=True then if CDS_Sub.Locate('ToFactoryName', null, []) = True then
begin begin
Application.MessageBox('存放工厂不能为空!','提示',0); Application.MessageBox('存放工厂不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('FactoryName',null,[])=True then if CDS_Sub.Locate('FactoryName', null, []) = True then
begin begin
Application.MessageBox('加工厂不能为空!','提示',0); Application.MessageBox('加工厂不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('PiQty',null,[])=True then if CDS_Sub.Locate('PiQty', null, []) = True then
begin begin
Application.MessageBox('匹数不能为空!','提示',0); Application.MessageBox('匹数不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('Qty',null,[])=True then if CDS_Sub.Locate('Qty', null, []) = True then
begin begin
Application.MessageBox('数量不能为空!','提示',0); Application.MessageBox('数量不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('QtyUnit',null,[])=True then if CDS_Sub.Locate('QtyUnit', null, []) = True then
begin begin
Application.MessageBox('数量单位不能为空!','提示',0); Application.MessageBox('数量单位不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['生产退回',Null]),[loPartialKey])=True then if CDS_Sub.Locate('CRType;FromFactoryName', VarArrayOf(['生产退回', Null]), [loPartialKey]) = True then
begin begin
Application.MessageBox('生产退回的数据，来自工厂不能为空!','提示',0); Application.MessageBox('生产退回的数据，来自工厂不能为空!', '提示', 0);
Exit; Exit;
end; end;
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('保存成功!','提示',0); Application.MessageBox('保存成功!', '提示', 0);
//ModalResult:=1; //ModalResult:=1;
Exit; Exit;
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='SXKuWei'; flag := 'SXKuWei';
flagname:='库位'; flagname := '库位';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
end; end;
@ -529,22 +545,21 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do with frmZdyAttachGYS do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
edit; edit;
FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; FieldByName('FactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
//Post; //Post;
end; end;
end; end;
@ -555,21 +570,20 @@ begin
end; end;
procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='MPRTCodeName'; flag := 'MPRTCodeName';
flagname:='外加工名称'; flagname := '外加工名称';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
end; end;
@ -578,21 +592,20 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='KuWei'; flag := 'KuWei';
flagname:='库位'; flagname := '库位';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
end; end;
@ -601,20 +614,19 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do with frmZdyAttachGYS do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
edit; edit;
FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
//Post; //Post;
end; end;
end; end;
@ -624,20 +636,19 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do with frmZdyAttachGYS do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
edit; edit;
FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString);
FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString);
//Post; //Post;
end; end;
end; end;
@ -647,30 +658,29 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do with frmProductOrderListSel do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('SPName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString); FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
FieldByName('SPSpec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString); FieldByName('SPSpec').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString);
FieldByName('SPCF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString); FieldByName('SPCF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString);
FieldByName('SPMF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString); FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
FieldByName('SPKZ').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString); FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
FieldByName('prtkuanNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkuanNo').AsString); FieldByName('prtkuanNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkuanNo').AsString);
end; end;
end; end;
end; end;
@ -679,21 +689,20 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmZDYHelp:=TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag:='KuWei'; flag := 'KuWei';
flagname:='库位'; flagname := '库位';
if ShowModal=1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end; end;
end; end;
end; end;
@ -703,3 +712,4 @@ begin
end; end;
end. end.

17
坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm
View File

@ -1,6 +1,6 @@
object frmDJBRKList: TfrmDJBRKList object frmDJBRKList: TfrmDJBRKList
Left = -8 Left = 216
Top = -8 Top = 189
Width = 1378 Width = 1378
Height = 754 Height = 754
Caption = #24453#26816#24067#20837#24211#21015#34920 Caption = #24453#26816#24067#20837#24211#21015#34920
@ -435,11 +435,11 @@ object frmDJBRKList: TfrmDJBRKList
Left = 0 Left = 0
Top = 123 Top = 123
Width = 1362 Width = 1362
Height = 593 Height = 592
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -695,8 +695,8 @@ object frmDJBRKList: TfrmDJBRKList
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False Options.Editing = False
VisibleForCustomization = False
Width = 79 Width = 79
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
@ -752,10 +752,11 @@ object frmDJBRKList: TfrmDJBRKList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Style = 9
TabIndex = 0
TabOrder = 3 TabOrder = 3
Tabs.Strings = ( Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680 #26410#23457#26680
#24050#23457#26680 #24050#23457#26680
#20840#37096) #20840#37096)

19
坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas
View File

@ -11,7 +11,22 @@ uses
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit; cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit, cxLookAndFeels,
cxLookAndFeelPainters, 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,
cxNavigator, dxBarBuiltInMenu;
type type
TfrmDJBRKList = class(TForm) TfrmDJBRKList = class(TForm)
@ -618,7 +633,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''',edittime=getdate() where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
// sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); // sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+'''');
ExecSQL; ExecSQL;
end; end;

75
贝其贸易管理/U_frmCgBjPut.pas
View File

@ -10,7 +10,20 @@ uses
cxGridTableView, cxGridDBTableView, cxGrid, ADODB, cxGridCustomPopupMenu, cxGridTableView, cxGridDBTableView, cxGrid, ADODB, cxGridCustomPopupMenu,
cxGridPopupMenu, DBClient, BtnEdit, cxBlobEdit, cxShellComboBox, cxGridPopupMenu, DBClient, BtnEdit, cxBlobEdit, cxShellComboBox,
cxDropDownEdit, cxFontNameComboBox, cxButtonEdit, cxCurrencyEdit, cxDropDownEdit, cxFontNameComboBox, cxButtonEdit, cxCurrencyEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit,
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
TfrmCgBjPut = class(TForm) TfrmCgBjPut = class(TForm)
@ -668,9 +681,35 @@ begin
end; end;
procedure TfrmCgBjPut.NJZBChange(Sender: TObject); procedure TfrmCgBjPut.NJZBChange(Sender: TObject);
var
sumPrice: double;
begin begin
PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0)); if CDS_ZB.IsEmpty then
exit;
try
sumPrice := 0;
with CDS_ZB do
begin
DisableControls;
First;
while not eof do
begin
// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2);
sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat;
next;
end;
EnableControls;
end;
except
end;
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[4] + StrToFloatDef(Trim(JGPrice.Text), 0));
PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
end; end;
@ -779,6 +818,7 @@ procedure TfrmCgBjPut.TV2Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
Fzb, Fsj, FzbPrice, Fsh: Double; Fzb, Fsj, FzbPrice, Fsh: Double;
sumPrice: double;
i: Integer; i: Integer;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -825,8 +865,31 @@ begin
FieldByName('zbPrice').Value := FzbPrice; FieldByName('zbPrice').Value := FzbPrice;
Post; Post;
end; end;
// p:=TV2.DataController.Summary.FooterSummaryValues[1]; if CDS_ZB.IsEmpty then
PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0)); exit;
try
sumPrice := 0;
with CDS_ZB do
begin
DisableControls;
First;
while not eof do
begin
// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2);
sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat;
next;
end;
EnableControls;
end;
except
end;
PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0));
// with ADOQueryCmd do // with ADOQueryCmd do
// begin // begin
// Close; // Close;
@ -1059,8 +1122,8 @@ begin
// Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100; // Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100;
// Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100; // Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat; FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring),0);//Cds_Sub.fieldbyname('Szb').AsFloat / 100; Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring), 0); //Cds_Sub.fieldbyname('Szb').AsFloat / 100;
Fsh :=strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring),0);// Cds_Sub.fieldbyname('Ssh').AsFloat / 100; Fsh := strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring), 0); // Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
if Trim(PBNum.text) <> '' then if Trim(PBNum.text) <> '' then
begin begin
FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat; FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat;