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
[Parameters]
RunParams=
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\굔페\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
HostApplication=D:\Dp7Repo\淃커덜쯤\D7wmbeiqi\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

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

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

@ -4,12 +4,25 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit,
ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
cxTextEdit;
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, 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;
type
TfrmDJBCKInPut = class(TForm)
@ -57,41 +70,34 @@ type
procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1Column3PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(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);
procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(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 declarations }
function SaveCKData(): Boolean;
public
{ Public declarations }
FBCId:String;
FBCId: string;
end;
var
frmDJBCKInPut: TfrmDJBCKInPut;
implementation
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}
procedure TfrmDJBCKInPut.FormClose(Sender: TObject;
var Action: TCloseAction);
procedure TfrmDJBCKInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
@ -123,9 +129,8 @@ begin
end;
end;
end;
function TfrmDJBCKInPut.SaveCKData(): Boolean;
var
FCRID, Maxno, FFSPID: string;
@ -223,7 +228,8 @@ begin
Application.MessageBox('取待检布入库编号失败!', '提示', 0);
Exit;
end;
end else
end
else
begin
Maxno := Trim(FFSPID);
end;
@ -239,7 +245,8 @@ begin
if Trim(FFSPID) = '' then
begin
Append;
end else
end
else
begin
Edit;
end;
@ -247,8 +254,11 @@ begin
FieldByName('FZSPID').Value := Trim(Maxno);
FieldByName('CKName').Value := '待检布';
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('FromFactoryName').Value := Trim(CDS_Sub.fieldbyname('FromFactoryName').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('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('CRFlag').Value := '入库';
@ -260,7 +270,7 @@ begin
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then
begin
@ -339,6 +349,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('待检布入库登记', Tv1, '待检布仓库');
@ -347,7 +358,7 @@ end;
procedure TfrmDJBCKInPut.FormShow(Sender: TObject);
var
fsj:String;
fsj: string;
begin
ReadCxGrid('待检布入库登记', Tv1, '待检布仓库');
with ADOQueryTemp do
@ -366,7 +377,8 @@ begin
end;
SCreateCDS20(ADOQueryTemp, CDS_Sub);
SInitCDSData20(ADOQueryTemp, CDS_Sub);
if CDS_Sub.IsEmpty then Exit;
if CDS_Sub.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
@ -388,7 +400,8 @@ begin
v1Column10.Options.Focusing := False;
v1Column11.Options.Focusing := False;
Exit;
end else
end
else
begin
v1Column4.Options.Focusing := True;
//v1Column15.Options.Focusing:=True;
@ -405,10 +418,12 @@ end;
procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then Exit;
if CDS_Sub.IsEmpty then
Exit;
if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryTemp do
begin
Close;
@ -438,7 +453,8 @@ begin
Application.MessageBox('删除异常!', '提示', 0);
end;
end else
end
else
begin
CDS_Sub.Delete;
end;
@ -447,7 +463,8 @@ end;
procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject);
begin
if CDS_Sub.IsEmpty then Exit;
if CDS_Sub.IsEmpty then
Exit;
if CDS_Sub.Locate('CRTime', null, []) = True then
begin
Application.MessageBox('入库时间不能为空!', '提示', 0);
@ -506,8 +523,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -529,8 +545,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
@ -555,8 +570,7 @@ begin
end;
procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -578,8 +592,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -601,8 +614,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
@ -624,8 +636,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
@ -647,8 +658,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
@ -679,8 +689,7 @@ begin
end;
end;
procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -703,3 +712,4 @@ begin
end;
end.

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

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

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

@ -11,7 +11,22 @@ uses
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
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
TfrmDJBRKList = class(TForm)
@ -618,7 +633,7 @@ begin
begin
Close;
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)+'''');
ExecSQL;
end;

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

@ -10,7 +10,20 @@ uses
cxGridTableView, cxGridDBTableView, cxGrid, ADODB, cxGridCustomPopupMenu,
cxGridPopupMenu, DBClient, BtnEdit, cxBlobEdit, cxShellComboBox,
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
TfrmCgBjPut = class(TForm)
@ -668,9 +681,35 @@ begin
end;
procedure TfrmCgBjPut.NJZBChange(Sender: TObject);
var
sumPrice: double;
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;
@ -779,6 +818,7 @@ procedure TfrmCgBjPut.TV2Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
Fzb, Fsj, FzbPrice, Fsh: Double;
sumPrice: double;
i: Integer;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@ -825,8 +865,31 @@ begin
FieldByName('zbPrice').Value := FzbPrice;
Post;
end;
// p:=TV2.DataController.Summary.FooterSummaryValues[1];
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((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0));
// with ADOQueryCmd do
// begin
// Close;