Group_DJD/D7DJduojin
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-19 10:16:56 +08:00
parent 0b3c90fe6a
commit 0c5916875a
2 changed files with 48 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
检验管理/U_OrderInPut.pas
View File

@ -12,7 +12,20 @@ uses
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit, cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp; RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, 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
TfrmOrderInPut = class(TForm) TfrmOrderInPut = class(TForm)
@ -918,6 +931,18 @@ end;
procedure TfrmOrderInPut.TBSaveClick(Sender: TObject); procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
begin begin
OrdDate.SetFocus; OrdDate.SetFocus;
if Trim(OrderNo.text) = '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Get_MaxorderNo ');
// ShowMessage(SQL.Text);
Open;
end;
OrderNo.Text := trim(ADOTemp.fieldByName('MaxBH').AsString);
end;
if Trim(OrderNo.Text) = '' then if Trim(OrderNo.Text) = '' then
begin begin
Application.MessageBox('指示单号不能为空！', '提示', 0); Application.MessageBox('指示单号不能为空！', '提示', 0);
@ -981,11 +1006,11 @@ var
i: Integer; i: Integer;
begin begin
Tv1.Columns[0].FocusWithSelection; Tv1.Columns[0].FocusWithSelection;
if Trim(OrderNo.Text) = '' then // if Trim(OrderNo.Text) = '' then
begin // begin
Application.MessageBox('订单号不能为空!', '提示', 0); // Application.MessageBox('¶©µ¥ºÅ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0);
Exit; // Exit;
end; // end;
i := Order_Sub.RecordCount; i := Order_Sub.RecordCount;
i := i + 1; i := i + 1;
CopyAddRow(Tv1, Order_Sub); CopyAddRow(Tv1, Order_Sub);
@ -1629,6 +1654,19 @@ procedure TfrmOrderInPut.Button1Click(Sender: TObject);
var var
fFileName: string; fFileName: string;
begin begin
if Trim(OrderNo.text) = '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Get_MaxorderNo ');
// ShowMessage(SQL.Text);
Open;
end;
OrderNo.Text := trim(ADOTemp.fieldByName('MaxBH').AsString);
end;
if trim(OrderNo.Text) = '' then if trim(OrderNo.Text) = '' then
begin begin
application.MessageBox('订单号不能为空', '提示信息', 0); application.MessageBox('订单号不能为空', '提示信息', 0);