111

B02基础纱线仓库/U_CJDJ.dfm

@@ -3,7 +3,7 @@ object frmCJDJ: TfrmCJDJ
   Top = 315
   Caption = #25277#26816#30331#35760
   ClientHeight = 254
-  ClientWidth = 801
+  ClientWidth = 794
   Color = clWhite
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -18,11 +18,12 @@ object frmCJDJ: TfrmCJDJ
   object Panel1: TPanel
     Left = 0
     Top = 0
-    Width = 801
+    Width = 794
     Height = 254
     Align = alClient
     TabOrder = 0
-    ExplicitLeft = -1
+    ExplicitLeft = 1
+    ExplicitWidth = 1064
     object Label1: TLabel
       Left = 32
       Top = 36
@@ -81,7 +82,7 @@ object frmCJDJ: TfrmCJDJ
     end
     object CJDate: TcxDateEdit
       Left = 137
-      Top = 34
+      Top = 31
       AutoSize = False
       ParentFont = False
       Properties.ImmediatePost = True
@@ -96,20 +97,6 @@ object frmCJDJ: TfrmCJDJ
       Height = 33
       Width = 218
     end
-    object CJNote: TcxTextEdit
-      Tag = 2
-      Left = 137
-      Top = 107
-      ParentFont = False
-      Style.Font.Charset = ANSI_CHARSET
-      Style.Font.Color = clWindowText
-      Style.Font.Height = -21
-      Style.Font.Name = #23435#20307
-      Style.Font.Style = [fsBold]
-      Style.IsFontAssigned = True
-      TabOrder = 2
-      Width = 430
-    end
     object CJer: TcxButtonEdit
       Tag = 2
       Left = 137
@@ -130,8 +117,22 @@ object frmCJDJ: TfrmCJDJ
       Style.Font.Style = [fsBold]
       Style.ButtonStyle = btsDefault
       Style.IsFontAssigned = True
+      TabOrder = 2
+      Width = 218
+    end
+    object CJNote: TRichEdit
+      Left = 137
+      Top = 79
+      Width = 548
+      Height = 89
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
       TabOrder = 3
-      Width = 430
+      Zoom = 100
     end
   end
   object ADOQueryTemp: TADOQuery

B02基础纱线仓库/U_CJDJ.pas

@@ -16,11 +16,11 @@ type
     Label1: TLabel;
     CJDate: TcxDateEdit;
     Label3: TLabel;
-    CJNote: TcxTextEdit;
     Label2: TLabel;
     CJer: TcxButtonEdit;
     ADOQueryTemp: TADOQuery;
     ADOQueryCmd: TADOQuery;
+    CJNote: TRichEdit;
     procedure Button1Click(Sender: TObject);
     procedure BegPortPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure FormShow(Sender: TObject);
@@ -99,7 +99,7 @@ begin
     Sql.Clear;
     Sql.Add('select * from BS_Yarn_IO ');
     Sql.Add('where BYIOID=''' + Trim(FBYIOID) + '''');
-    showmessage(Sql.text);
+//    showmessage(Sql.text);
     Open;
   end;