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-12-03 09:22:43 +08:00
parent e11c0d4666
commit be391979c7
2 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
贝其贸易管理/U_ProductOrderNewList.dfm
View File

@ -317,7 +317,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnChange = OrderNoMChange OnChange = OrderNoMChange
OnKeyPress = OrderNoMKeyPress OnKeyPress = OrderNoMKeyPress
end end
object CustomerNoName: TEdit object CustomerNONameZ: TEdit
Tag = 2 Tag = 2
Left = 379 Left = 379
Top = 11 Top = 11
@ -471,7 +471,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object v1CustomerNoName: TcxGridDBColumn object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName' DataBinding.FieldName = 'CustomerNONameZ'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default

48
贝其贸易管理/U_ProductOrderNewList.pas
View File

@ -13,18 +13,17 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter;
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)
@ -62,7 +61,7 @@ type
RMXLSExport1: TRMXLSExport; RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn; v1CustomerNoName: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
CustomerNoName: TEdit; CustomerNONameZ: TEdit;
v1MPRTCodeName: TcxGridDBColumn; v1MPRTCodeName: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn; v1MPRTMF: TcxGridDBColumn;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
@ -184,8 +183,8 @@ begin
tbdel.Visible := false; tbdel.Visible := false;
Tqx.Visible := false; Tqx.Visible := false;
TNoqx.Visible := false; TNoqx.Visible := false;
TWc.Visible:=False; TWc.Visible := False;
TCxwc.Visible:=False; TCxwc.Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -198,7 +197,7 @@ begin
end; end;
2: 2:
begin begin
TCxwc.Visible:=true; TCxwc.Visible := true;
end; end;
end; end;
end; end;
@ -259,7 +258,7 @@ begin
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_View_Order :begdate,:enddate,:WSql'); sql.add('exec P_View_Order :begdate,:enddate,:WSql');
Parameters.ParamByName('WSql').Value := sqlwhere; Parameters.ParamByName('WSql').Value := sqlwhere;
@ -841,8 +840,8 @@ begin
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RMVariables['SYRName'] := Trim(SYRName); RMVariables['SYRName'] := Trim(SYRName);
RM1.ShowReport; RM1.ShowReport;
end end
else else
begin begin
@ -924,10 +923,11 @@ end;
procedure TfrmProductOrderNewList.TWcClick(Sender: TObject); procedure TfrmProductOrderNewList.TWcClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
exit;
try try
with ADOQueryCmd do with ADOQueryCmd do
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update JYOrder_Main SET status=''2'' '); sql.Add('update JYOrder_Main SET status=''2'' ');
@ -942,16 +942,16 @@ begin
sql.Add(')'); sql.Add(')');
execsql; execsql;
end; end;
application.MessageBox('已完成！','提示信息',0); application.MessageBox('已完成！', '提示信息', 0);
TBRafresh.Click; TBRafresh.Click;
except except
application.MessageBox('未完成！','提示信息',0); application.MessageBox('未完成！', '提示信息', 0);
end; end;
end; end;
procedure TfrmProductOrderNewList.TCxwcClick(Sender: TObject); procedure TfrmProductOrderNewList.TCxwcClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
try try
with ADOQueryCmd do with ADOQueryCmd do