码单

染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm

@@ -1,6 +1,6 @@
 object frmOrderInPut: TfrmOrderInPut
-  Left = 336
-  Top = 47
+  Left = 350
+  Top = 197
   Width = 1117
   Height = 743
   Caption = #25351#31034#21333#24405#20837
@@ -354,6 +354,19 @@ object frmOrderInPut: TfrmOrderInPut
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label20: TLabel
+      Left = 572
+      Top = 15
+      Width = 65
+      Height = 12
+      Caption = #25260#22836#26174#31034#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object OrderNo: TEdit
       Tag = 1
       Left = 97
@@ -573,6 +586,21 @@ object frmOrderInPut: TfrmOrderInPut
       Height = 18
       TabOrder = 21
     end
+    object ISTT: TComboBox
+      Tag = 1
+      Left = 634
+      Top = 10
+      Width = 100
+      Height = 22
+      Style = csOwnerDrawFixed
+      ItemHeight = 16
+      ItemIndex = 0
+      TabOrder = 22
+      Text = #26159
+      Items.Strings = (
+        #26159
+        #21542)
+    end
   end
   object cxPageControl1: TcxPageControl
     Left = 0

染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas

@@ -116,6 +116,8 @@ type
     V1Column2: TcxGridDBColumn;
     Label18: TLabel;
     RCBatchNo: TEdit;
+    Label20: TLabel;
+    ISTT: TComboBox;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -411,7 +413,7 @@ var
 begin
   try                                                           
     ADOCmd.Connection.BeginTrans;
-    //*************************±£´وض÷±ي*************************
+    //*************************ąŁ´ćÖ÷ąí*************************                   
     if Trim(FMainId) = '' then
     begin
       if GetLSNo(ADOCmd, maxno, 'JM', 'JYOrder_Main', 3, 1) = False then