diff --git a/B02基础纱线仓库/U_CJDJ.dfm b/B02基础纱线仓库/U_CJDJ.dfm index afcb5db..d91b06a 100644 --- a/B02基础纱线仓库/U_CJDJ.dfm +++ b/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 diff --git a/B02基础纱线仓库/U_CJDJ.pas b/B02基础纱线仓库/U_CJDJ.pas index d0bf2c4..fac30c9 100644 --- a/B02基础纱线仓库/U_CJDJ.pas +++ b/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;