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

118
坯布码单待检(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,41 +70,34 @@ 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;
@ -123,9 +129,8 @@ begin
end; end;
end; end;
end; end;
function TfrmDJBCKInPut.SaveCKData(): Boolean; function TfrmDJBCKInPut.SaveCKData(): Boolean;
var var
FCRID, Maxno, FFSPID: string; FCRID, Maxno, FFSPID: string;
@ -223,7 +228,8 @@ begin
Application.MessageBox('取待检布入库编号失败!', '提示', 0); Application.MessageBox('取待检布入库编号失败!', '提示', 0);
Exit; Exit;
end; end;
end else end
else
begin begin
Maxno := Trim(FFSPID); Maxno := Trim(FFSPID);
end; end;
@ -239,7 +245,8 @@ begin
if Trim(FFSPID) = '' then if Trim(FFSPID) = '' then
begin begin
Append; Append;
end else end
else
begin begin
Edit; Edit;
end; end;
@ -247,8 +254,11 @@ begin
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('FactoryName').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString);
FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString);
FieldByName('FromFactoryName').Value := Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString);
FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString);
FieldByName('ToFactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString);
FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString);
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('CRFlag').Value := '入库'; FieldByName('CRFlag').Value := '入库';
@ -260,7 +270,7 @@ begin
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
@ -339,6 +349,7 @@ begin
end; end;
end; end;
procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject); procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('待检布入库登记', Tv1, '待检布仓库'); WriteCxGrid('待检布入库登记', Tv1, '待检布仓库');
@ -347,7 +358,7 @@ 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
@ -366,7 +377,8 @@ begin
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;
@ -388,7 +400,8 @@ begin
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;
@ -405,10 +418,12 @@ end;
procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject); procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then Exit; if CDS_Sub.IsEmpty then
Exit;
if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then 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;
@ -438,7 +453,8 @@ begin
Application.MessageBox('删除异常!', '提示', 0); Application.MessageBox('删除异常!', '提示', 0);
end; end;
end else end
else
begin begin
CDS_Sub.Delete; CDS_Sub.Delete;
end; end;
@ -447,7 +463,8 @@ end;
procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject); procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then Exit; if CDS_Sub.IsEmpty then
Exit;
if CDS_Sub.Locate('CRTime', null, []) = True then if CDS_Sub.Locate('CRTime', null, []) = True then
begin begin
Application.MessageBox('入库时间不能为空!', '提示', 0); Application.MessageBox('入库时间不能为空!', '提示', 0);
@ -506,8 +523,7 @@ begin
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);
@ -529,8 +545,7 @@ 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);
@ -555,8 +570,7 @@ 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);
@ -578,8 +592,7 @@ 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);
@ -601,8 +614,7 @@ 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);
@ -624,8 +636,7 @@ 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);
@ -647,8 +658,7 @@ 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);
@ -679,8 +689,7 @@ 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);
@ -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;

71
贝其贸易管理/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;