From 0c5916875abe20c98247c8df8fa2af13f2d9f7a4 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 19 Jul 2025 10:16:56 +0800
Subject: [PATCH] ~

---
 检验管理/U_GetDllForm.pas |  4 +--
 检验管理/U_OrderInPut.pas | 54 +++++++++++++++++++++++++++++++++------
 2 files changed, 48 insertions(+), 10 deletions(-)

diff --git a/检验管理/U_GetDllForm.pas b/检验管理/U_GetDllForm.pas
index 2750639..b2100c3 100644
--- a/检验管理/U_GetDllForm.pas
+++ b/检验管理/U_GetDllForm.pas
@@ -110,8 +110,8 @@ begin
   end;
    ////////////////////
   /////////////////////
-  //������ģ�鴰��
-  case FormID of
+  //������ģ�鴰��                   
+  case FormID of                                    
     201:  //����ָʾ��
       begin
         if frmProductOrderNewList = nil then
diff --git a/检验管理/U_OrderInPut.pas b/检验管理/U_OrderInPut.pas
index caca7ef..221547a 100644
--- a/检验管理/U_OrderInPut.pas
+++ b/检验管理/U_OrderInPut.pas
@@ -12,7 +12,20 @@ uses
   cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
   cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
   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
   TfrmOrderInPut = class(TForm)
@@ -324,7 +337,7 @@ end;
 procedure TfrmOrderInPut.InitDataSetDictionary();
 begin
   with ADOQuery_label do
-  begin                                               
+  begin
     close;
     sql.Clear;
     sql.Add('exec P_Print_RollLabel');
@@ -918,6 +931,18 @@ end;
 procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
 begin
   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
   begin
     Application.MessageBox('ָʾ���Ų���Ϊ�գ�', '��ʾ', 0);
@@ -981,13 +1006,13 @@ var
   i: Integer;
 begin
   Tv1.Columns[0].FocusWithSelection;
-  if Trim(OrderNo.Text) = '' then
-  begin
-    Application.MessageBox('�����Ų���Ϊ��!', '��ʾ', 0);
-    Exit;
-  end;
+//  if Trim(OrderNo.Text) = '' then
+//  begin
+//    Application.MessageBox('�����Ų���Ϊ��!', '��ʾ', 0);
+//    Exit;
+//  end;
   i := Order_Sub.RecordCount;
-  i := i + 1;
+  i := i + 1;                  
   CopyAddRow(Tv1, Order_Sub);
   with Order_Sub do
   begin
@@ -1629,6 +1654,19 @@ procedure TfrmOrderInPut.Button1Click(Sender: TObject);
 var
   fFileName: string;
 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
   begin
     application.MessageBox('�����Ų���Ϊ��', '��ʾ��Ϣ', 0);