Group_01/D7FZaideng
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-19 14:41:55 +08:00
parent 022e48e0b2
commit 55f2ab5454
11 changed files with 242 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布仓库/BPCK.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\갔되\툰꼈꾑욋\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7FZaideng\Å÷²¼²Ö¿â\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

32
坯布仓库/U_Bpkclist.pas
View File

@ -9,7 +9,20 @@ uses
cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView, cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox,
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
TfrmBpkclist = class(TForm) TfrmBpkclist = class(TForm)
@ -136,11 +149,11 @@ end;
procedure TfrmBpkclist.InitGrid(); procedure TfrmBpkclist.InitGrid();
begin begin
try try
with adoqueryTmp do with adoqueryTmp do
begin begin
close; close;
sql.Clear; sql.Clear;
// sql.Add('select A.*,B.cust,B.factoryName from BP_KC A'); // sql.Add('select A.*,B.cust,B.factoryName from BP_KC A');
// sql.Add('inner join BP_inout B on B.KCID=A.KCID and B.CRFlag=''Èë¿â'' '); // sql.Add('inner join BP_inout B on B.KCID=A.KCID and B.CRFlag=''Èë¿â'' ');
// sql.Add('where 1=1'); sum(([dbo].[Get_ShuZi](defstr3)) sum((cast(ISNULL(defstr2,0) as float)) // sql.Add('where 1=1'); sum(([dbo].[Get_ShuZi](defstr3)) sum((cast(ISNULL(defstr2,0) as float))
@ -148,17 +161,14 @@ begin
SQL.Add('SELECT count(A.mxid) as RollNum,sum(A.kcqty2) as qty,B.cust,B.factoryName,B.CRTime,B.CRType,B.P_CodeName,B.P_SPEC,B.P_Color,B.gangNo,B.P_KZ,B.P_MF,B.QtyUnit,B.ckName '); SQL.Add('SELECT count(A.mxid) as RollNum,sum(A.kcqty2) as qty,B.cust,B.factoryName,B.CRTime,B.CRType,B.P_CodeName,B.P_SPEC,B.P_Color,B.gangNo,B.P_KZ,B.P_MF,B.QtyUnit,B.ckName ');
SQL.Add(',PreBPqty=(select sum(([dbo].[Get_ShuZi](defstr2))*(isnull(prtorderqty,0))) from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid '); SQL.Add(',PreBPqty=(select sum(([dbo].[Get_ShuZi](defstr2))*(isnull(prtorderqty,0))) from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid ');
SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''A'' and N.Status=''0'')'); // M.CBColor in (B.P_Color) SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''A'' and N.Status=''0'')'); // M.CBColor in (B.P_Color)
// SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=B.P_Color and left(SOrddefstr5,1)=''A'' and N.Status=''0'')');
SQL.Add('+(select sum(([dbo].[Get_ShuZi](defstr3))*(isnull(prtorderqty,0)))from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid '); SQL.Add('+(select sum(([dbo].[Get_ShuZi](defstr3))*(isnull(prtorderqty,0)))from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid ');
SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''C'' and N.Status=''0'' )'); //and M.CBColor=B.P_Color SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''C'' and N.Status=''0'' )'); //and M.CBColor=B.P_Color
// sql.Add('FROM CK_SXPB_CRMX A inner join BP_InOut B on A.crno=B.crno and B.crid=A.crid');
sql.Add('FROM CK_SXPB_CRMX A inner join BP_InOut B on A.crnos=B.crnos '); sql.Add('FROM CK_SXPB_CRMX A inner join BP_InOut B on A.crnos=B.crnos ');
sql.Add(' where A.crzt=''Èë¿â'' '); sql.Add(' where A.crzt=''Èë¿â'' ');
// SQL.Add('and exists(select crno from BP_KC d where D.crno=A.crno)');
SQL.Add('and exists(select crnoS from BP_KC d where D.crnos=A.crnos)'); SQL.Add('and exists(select crnoS from BP_KC d where D.crnos=A.crnos)');
if begdate.Checked then if begdate.Checked then
sql.Add('and B.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add('and B.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
if enddate.Checked then if enddate.Checked then
sql.Add('and B.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); sql.Add('and B.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
// if not CheckBox1.Checked then // if not CheckBox1.Checked then
// sql.Add('and (A.RollNum<>0 or A.qty<>0 ) '); // sql.Add('and (A.RollNum<>0 or A.qty<>0 ) ');
@ -225,7 +235,7 @@ end;
procedure TfrmBpkclist.TBRafreshClick(Sender: TObject); procedure TfrmBpkclist.TBRafreshClick(Sender: TObject);
begin begin
initGrid(); initGrid();
end; end;
procedure TfrmBpkclist.TBPrintClick(Sender: TObject); procedure TfrmBpkclist.TBPrintClick(Sender: TObject);

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, ExtCtrls, AppEvnts, cxClasses; Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, AppEvnts, cxClasses,
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;
var var
DConString: string; {全局连接字符串} DConString: string; {全局连接字符串}

10
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.dfm
View File

@ -617,6 +617,16 @@ object frmZdyAttInputCP_CB: TfrmZdyAttInputCP_CB
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object TV1Column4: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'BLtype'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#38754#26009
#36741#26009)
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = TV1 GridView = TV1

7
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas
View File

@ -23,7 +23,7 @@ uses
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinXmas2008Blue, dxSkinscxPCPainter, cxDropDownEdit;
type type
TfrmZdyAttInputCP_CB = class(TForm) TfrmZdyAttInputCP_CB = class(TForm)
@ -160,6 +160,7 @@ type
TV5Column1: TcxGridDBColumn; TV5Column1: TcxGridDBColumn;
TV5Column2: TcxGridDBColumn; TV5Column2: TcxGridDBColumn;
CYColorno: TEdit; CYColorno: TEdit;
TV1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -323,7 +324,7 @@ begin
with cds1 do with cds1 do
begin begin
First; First;
while not eof do while not eof do
begin begin
ADOQueryCmd.Append; ADOQueryCmd.Append;
ADOQueryCmd.FieldByName('CBID').Value := trim(FATID) + 'MF' + inttostr(recno); ADOQueryCmd.FieldByName('CBID').Value := trim(FATID) + 'MF' + inttostr(recno);
@ -337,11 +338,13 @@ begin
ADOQueryCmd.FieldByName('defstr4').Value := trim(fieldbyname('defstr4').AsString); ADOQueryCmd.FieldByName('defstr4').Value := trim(fieldbyname('defstr4').AsString);
ADOQueryCmd.FieldByName('DefFlt4').Value := fieldbyname('DefFlt4').AsFloat; ADOQueryCmd.FieldByName('DefFlt4').Value := fieldbyname('DefFlt4').AsFloat;
ADOQueryCmd.FieldByName('DefFlt5').Value := fieldbyname('DefFlt5').AsFloat; ADOQueryCmd.FieldByName('DefFlt5').Value := fieldbyname('DefFlt5').AsFloat;
ADOQueryCmd.fieldbyname('DefFlt1').Value := strtofloatdef(trim(DefFlt1.Text), 0); ADOQueryCmd.fieldbyname('DefFlt1').Value := strtofloatdef(trim(DefFlt1.Text), 0);
ADOQueryCmd.fieldbyname('DefFlt2').Value := strtofloatdef(trim(DefFlt2.Text), 0); ADOQueryCmd.fieldbyname('DefFlt2').Value := strtofloatdef(trim(DefFlt2.Text), 0);
ADOQueryCmd.fieldbyname('CBdj').Value := fieldbyname('CBdj').AsFloat; ADOQueryCmd.fieldbyname('CBdj').Value := fieldbyname('CBdj').AsFloat;
ADOQueryCmd.fieldbyname('Cbsh').Value := fieldbyname('cbsh').AsFloat; ADOQueryCmd.fieldbyname('Cbsh').Value := fieldbyname('cbsh').AsFloat;
ADOQueryCmd.fieldbyname('CBColor').Value := trim(fieldbyname('CBColor').AsString); ADOQueryCmd.fieldbyname('CBColor').Value := trim(fieldbyname('CBColor').AsString);
ADOQueryCmd.fieldbyname('BLtype').Value := trim(fieldbyname('BLtype').AsString);
ADOQueryCmd.Post; ADOQueryCmd.Post;
next; next;
end; end;

7
应收应付/U_YSYGGJList.dfm
View File

@ -371,6 +371,7 @@ object frmCKJYList: TfrmCKJYList
end end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #23610#30721 Caption = #23610#30721
DataBinding.FieldName = 'SOrddefstr5'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 110 Width = 110
@ -420,6 +421,12 @@ object frmCKJYList: TfrmCKJYList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

23
应收应付/U_YSYGGJList.pas
View File

@ -10,7 +10,21 @@ uses
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, cxPC, cxLookAndFeels, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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
TfrmCKJYList = class(TForm) TfrmCKJYList = class(TForm)
@ -73,6 +87,7 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
Prtcode: TEdit; Prtcode: TEdit;
Tv1Column4: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -97,7 +112,7 @@ type
{ Public declarations } { Public declarations }
end; end;
var var
frmCKJYList: TfrmCKJYList; frmCKJYList: TfrmCKJYList;
implementation implementation
@ -130,10 +145,10 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
sql.Clear; sql.Clear;
Filtered := False; Filtered := False;
sql.Add('select A.*,B.PRTCodeName,B.prtcode,'); sql.Add('select A.*,B.PRTCodeName,B.prtcode,B.PRTColor,B.SOrddefstr5,');
sql.Add('gxdj=case when A.qty<=30 then isnull((select (A.GxPrice)*2 from JyOrder_Yield B where A.CLID=B.clid ),0)'); sql.Add('gxdj=case when A.qty<=30 then isnull((select (A.GxPrice)*2 from JyOrder_Yield B where A.CLID=B.clid ),0)');
SQL.Add('else isnull((A.GxPrice ),0) end, '); SQL.Add('else isnull((A.GxPrice ),0) end, ');
sql.Add('gxmoney=case when A.qty<=30 then isnull((select ((A.GxPrice)*2)*B.qty from JyOrder_Yield B where A.CLID=B.clid ),0)'); sql.Add('gxmoney=case when A.qty<=30 then isnull((select ((A.GxPrice)*2)*B.qty from JyOrder_Yield B where A.CLID=B.clid ),0)');

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\갔되\壇澗壇마\testDll.exe HostApplication=D:\Dp7Repo\淃커덜쯤\D7FZaideng\壇澗壇마\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

2
艾登贸易管理/U_GetDllForm.pas
View File

@ -187,7 +187,7 @@ begin
BorderStyle := mborderstyle; BorderStyle := mborderstyle;
//show; //show;
end; end;
end end
else else
frmContractListNX.BringToFront; frmContractListNX.BringToFront;
//¾ä±ú //¾ä±ú

65
艾登贸易管理/U_ProductOrderNewList.dfm
View File

@ -126,36 +126,36 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True AutoSize = True
Caption = #25351#31034#21333#38468#20214 Caption = #25351#31034#21333#38468#20214
ImageIndex = 57 ImageIndex = 57
Wrap = True
OnClick = TFJClick OnClick = TFJClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 0 Left = 753
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 63 Left = 816
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #21512#24182#25171#21360 Caption = #21512#24182#25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 150 Left = 903
Top = 30 Top = 0
AutoSize = True AutoSize = True
Caption = #35746#21333#21512#24182 Caption = #35746#21333#21512#24182
ImageIndex = 16 ImageIndex = 16
Wrap = True
Visible = False Visible = False
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 237 Left = 0
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #21462#28040#21512#24182 Caption = #21462#28040#21512#24182
@ -164,31 +164,31 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 324 Left = 87
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #29983#20135#25171#21360 Caption = #29983#20135#25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton9: TToolButton object TWC: TToolButton
Left = 411 Left = 174
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #35746#21333#23436#25104 Caption = #35746#21333#23436#25104
ImageIndex = 41 ImageIndex = 41
OnClick = ToolButton9Click OnClick = TWCClick
end end
object ToolButton10: TToolButton object Tnowc: TToolButton
Left = 498 Left = 261
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 99 ImageIndex = 99
OnClick = ToolButton10Click OnClick = TnowcClick
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 585 Left = 348
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #26631#31614#35774#32622 Caption = #26631#31614#35774#32622
@ -196,7 +196,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 672 Left = 435
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
@ -204,7 +204,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 759 Left = 522
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #26631#31614#35774#32622#29305#27530 Caption = #26631#31614#35774#32622#29305#27530
@ -212,7 +212,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 870 Left = 633
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20986#24211 Caption = #20986#24211
@ -221,13 +221,29 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton14Click OnClick = ToolButton14Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 933 Left = 696
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object Tchk: TToolButton
Left = 759
Top = 30
AutoSize = True
Caption = #23457#26680
ImageIndex = 56
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 822
Top = 30
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 57
OnClick = TnochkClick
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
@ -723,7 +739,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 634 Top = 401
Width = 1334 Width = 1334
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
@ -896,9 +912,10 @@ object frmProductOrderNewList: TfrmProductOrderNewList
TabOrder = 7 TabOrder = 7
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 2
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#23436#25104 #26410#23457#26680
#24050#23457#26680
#24050#23436#25104 #24050#23436#25104
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
@ -908,7 +925,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel3: TPanel object Panel3: TPanel
Left = 0 Left = 0
Top = 401 Top = 409
Width = 1334 Width = 1334
Height = 233 Height = 233
Align = alBottom Align = alBottom

141
艾登贸易管理/U_ProductOrderNewList.pas
View File

@ -131,8 +131,8 @@ type
prtcode: TEdit; prtcode: TEdit;
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
ToolButton9: TToolButton; TWC: TToolButton;
ToolButton10: TToolButton; Tnowc: TToolButton;
Panel3: TPanel; Panel3: TPanel;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
TV2: TcxGridDBTableView; TV2: TcxGridDBTableView;
@ -175,6 +175,8 @@ type
TV3Column8: TcxGridDBColumn; TV3Column8: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
ToolButton14: TToolButton; ToolButton14: TToolButton;
Tchk: TToolButton;
Tnochk: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -213,8 +215,8 @@ type
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure Button3Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject); procedure TWCClick(Sender: TObject);
procedure ToolButton10Click(Sender: TObject); procedure TnowcClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton12Click(Sender: TObject); procedure ToolButton12Click(Sender: TObject);
@ -223,6 +225,8 @@ type
procedure ToolButton11Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject); procedure ToolButton13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject); procedure ToolButton14Click(Sender: TObject);
procedure TchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -232,14 +236,15 @@ type
procedure InitSub(); procedure InitSub();
procedure CJEWMS(); procedure CJEWMS();
procedure CJEWM(FMainid: string; FSubid: string); procedure CJEWM(FMainid: string; FSubid: string);
procedure InitImageYS(fwbid: string); procedure InitImageYS(fwbid: string);
procedure SetStatus();
{ Private declarations } { Private declarations }
public public
FFInt, FCloth: Integer; FFInt, FCloth: Integer;
{ Public declarations } { Public declarations }
end; end;
var var
frmProductOrderNewList: TfrmProductOrderNewList; frmProductOrderNewList: TfrmProductOrderNewList;
dFdDy: array[0..120] of FdDy; dFdDy: array[0..120] of FdDy;
@ -250,9 +255,41 @@ uses
U_DataLink, U_OrderInPut, U_Fun, U_LabelList, U_LabelListts, U_FjList_RZ; U_DataLink, U_OrderInPut, U_Fun, U_LabelList, U_LabelListts, U_FjList_RZ;
{$R *.dfm} {$R *.dfm}
procedure TfrmProductOrderNewList.SetStatus();
begin
Tchk.Visible := false;
tNochk.Visible := false;
TWC.Visible := false;
Tnowc.Visible := false;
TBEdit.Enabled := false;
TBDel.Enabled := false;
case cxTabControl1.TabIndex of
0:
begin
TBEdit.Enabled := true;
TBDel.Enabled := true;
Tchk.Visible := true;
end;
1:
begin
tNochk.Visible := true;
TWC.Visible := true;
end;
2:
begin
TNOWC.Visible := true;
end;
end;
end;
procedure TfrmProductOrderNewList.InitSub(); procedure TfrmProductOrderNewList.InitSub();
begin begin
// ADOQuerySub.Close; // ADOQuerySub.Close;
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
with ADOQuerySub do with ADOQuerySub do
@ -261,7 +298,7 @@ begin
sql.Clear; sql.Clear;
sql.Add('select stuff((select '',''+ (select isnull(X.DRCKName,'''') from CP_InOut X where X.subid=A.subid for xml path(''''))),1,1,'''' ) as prtKW'); sql.Add('select stuff((select '',''+ (select isnull(X.DRCKName,'''') from CP_InOut X where X.subid=A.subid for xml path(''''))),1,1,'''' ) as prtKW');
sql.Add(',prttxm=(select DEFstr2 from KH_Zdy_CPCB X where X.cbType=''CPCBCM'' and X.ZdyName=A.PRTCodeName and X.Zdycode=A.PRTCode and X.defstr1=a.SOrddefstr5)'); sql.Add(',prttxm=(select DEFstr2 from KH_Zdy_CPCB X where X.cbType=''CPCBCM'' and X.ZdyName=A.PRTCodeName and X.Zdycode=A.PRTCode and X.defstr1=a.SOrddefstr5)');
sql.Add(' ,A.* from JYOrder_sub A '); sql.Add(' ,A.* from JYOrder_sub A ');
sql.Add('where A.mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString))); sql.Add('where A.mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString)));
// ShowMessage(sql.text); // ShowMessage(sql.text);
open; open;
@ -1090,13 +1127,13 @@ begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec P_Get_Order_DR ''' + trim(DName) + ''' '); sql.Add('exec P_Get_Order_DR ''' + trim(DName) + ''' ');
ExecSQL; ExecSQL;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('select * from jyorder_sub where subid in (select subid from jyorder_Main_DR)'); sql.add('select * from jyorder_sub where subid in (select subid from jyorder_Main_DR)');
@ -1508,7 +1545,7 @@ begin
Panel2.Visible := false; Panel2.Visible := false;
end; end;
procedure TfrmProductOrderNewList.ToolButton9Click(Sender: TObject); procedure TfrmProductOrderNewList.TWCClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
@ -1517,7 +1554,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update JYOrder_Main SET status=''1'' '); sql.Add('update JYOrder_Main SET status=''9'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));
@ -1536,7 +1573,7 @@ begin
end; end;
end; end;
procedure TfrmProductOrderNewList.ToolButton10Click(Sender: TObject); procedure TfrmProductOrderNewList.TnowcClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
@ -1545,7 +1582,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update JYOrder_Main SET status=''0'' '); sql.Add('update JYOrder_Main SET status=''2'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));
@ -1566,7 +1603,7 @@ end;
procedure TfrmProductOrderNewList.cxTabControl1Change(Sender: TObject); procedure TfrmProductOrderNewList.cxTabControl1Change(Sender: TObject);
begin begin
SetStatus();
InitGrid(); InitGrid();
end; end;
@ -1607,8 +1644,8 @@ begin
// if Trim(Order_Main.fieldbyname('LBName').AsString) = '' then // if Trim(Order_Main.fieldbyname('LBName').AsString) = '' then
// begin // begin
// Exit; // Exit;
// end; // end;
panel5.Visible := True; panel5.Visible := True;
end; end;
procedure TfrmProductOrderNewList.Button4Click(Sender: TObject); procedure TfrmProductOrderNewList.Button4Click(Sender: TObject);
@ -1682,7 +1719,7 @@ begin
Open; Open;
end; end;
// SCreateCDS20(ADOQueryPrint, CDS_Print2); // SCreateCDS20(ADOQueryPrint, CDS_Print2);
SCreateCDS20(ADOQueryPrint, CDS_Print1); SCreateCDS20(ADOQueryPrint, CDS_Print1);
SInitCDSData20(ADOQueryPrint, CDS_Print1); SInitCDSData20(ADOQueryPrint, CDS_Print1);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Print1.fieldbyname('LBName').AsString + '.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Print1.fieldbyname('LBName').AsString + '.rmf';
@ -1797,11 +1834,11 @@ end;
procedure TfrmProductOrderNewList.ToolButton14Click(Sender: TObject); procedure TfrmProductOrderNewList.ToolButton14Click(Sender: TObject);
begin begin
with ADOQuery1 do with ADOQuery1 do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('exec P_Do_JYCRK ''' +Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); sql.Add('exec P_Do_JYCRK ''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
// sql.Add(',''' + trim(Edit2.Text) + ''' '); // sql.Add(',''' + trim(Edit2.Text) + ''' ');
// showmessage(sql.Text); // showmessage(sql.Text);
Open; Open;
@ -1809,5 +1846,69 @@ begin
end; end;
procedure TfrmProductOrderNewList.TchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update JYOrder_Main SET status=''2'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('订单审核')));
sql.Add(',' + quotedstr(trim('订单号：' + trim(Order_Main.FieldByName('OrderNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('已审核！', '提示信息', 0);
TBRafresh.Click;
except
application.MessageBox('未审核！', '提示信息', 0);
end;
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_MLCK ''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); //辅料出库
sql.add(',@DName=' + quotedstr(Trim(DCode)));
ExecSQL;
end;
end;
procedure TfrmProductOrderNewList.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update JYOrder_Main SET status=''0'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('订单撤销审核')));
sql.Add(',' + quotedstr(trim('订单号：' + trim(Order_Main.FieldByName('orderNO').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('订单撤销审核成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('订单撤销审核失败！', '提示信息', 0);
end;
end;
end. end.