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

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

@ -13,18 +13,17 @@ uses
cxLookAndFeels, 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;
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
TfrmProductOrderNewList = class(TForm)
@ -62,7 +61,7 @@ type
RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn;
Label4: TLabel;
CustomerNoName: TEdit;
CustomerNONameZ: TEdit;
v1MPRTCodeName: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
@ -184,8 +183,8 @@ begin
tbdel.Visible := false;
Tqx.Visible := false;
TNoqx.Visible := false;
TWc.Visible:=False;
TCxwc.Visible:=False;
TWc.Visible := False;
TCxwc.Visible := False;
case cxTabControl1.TabIndex of
0:
begin
@ -198,7 +197,7 @@ begin
end;
2:
begin
TCxwc.Visible:=true;
TCxwc.Visible := true;
end;
end;
end;
@ -924,7 +923,8 @@ end;
procedure TfrmProductOrderNewList.TWcClick(Sender: TObject);
begin
if Order_Main.IsEmpty then exit;
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
@ -942,10 +942,10 @@ begin
sql.Add(')');
execsql;
end;
application.MessageBox('已完成！','提示信息',0);
application.MessageBox('已完成！', '提示信息', 0);
TBRafresh.Click;
except
application.MessageBox('未完成！','提示信息',0);
application.MessageBox('未完成！', '提示信息', 0);
end;
end;