Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-05-22 15:21:57 +08:00
parent ac50f3d9ab
commit bdbdaffc70
2 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
B02基础纱线仓库/U_CJDJ.dfm
View File

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

4
B02基础纱线仓库/U_CJDJ.pas
View File

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