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

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-08 10:20:41 +08:00
parent aedba30a3d
commit 08850ca60a
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
基础资料维护(BaseInfo.dll)/U_MLXXList.dfm
View File

@ -109,16 +109,16 @@ object frmMLXXList: TfrmMLXXList
object Label3: TLabel object Label3: TLabel
Left = 191 Left = 191
Top = 13 Top = 13
Width = 48 Width = 66
Height = 12 Height = 12
Caption = #20135#21697#21517#31216 Caption = #38754#36741#26009#21517#31216' '
end end
object Label1: TLabel object Label1: TLabel
Left = 22 Left = 22
Top = 13 Top = 13
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #20135#21697#32534#21495 Caption = #36741#26009#32534#21495
end end
object Label2: TLabel object Label2: TLabel
Left = 369 Left = 369
@ -128,23 +128,23 @@ object frmMLXXList: TfrmMLXXList
Caption = #31867#22411 Caption = #31867#22411
Visible = False Visible = False
end end
object ZdyName: TEdit object MLName: TEdit
Tag = 2 Tag = 2
Left = 241 Left = 256
Top = 9 Top = 8
Width = 89 Width = 89
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
OnChange = ZdyNameChange OnChange = MLNameChange
end end
object ZdyCode: TEdit object MLBH: TEdit
Tag = 2 Tag = 2
Left = 71 Left = 71
Top = 9 Top = 9
Width = 89 Width = 89
Height = 20 Height = 20
TabOrder = 1 TabOrder = 1
OnChange = ZdyNameChange OnChange = MLNameChange
end end
object DEFstr5: TComboBox object DEFstr5: TComboBox
Tag = 1 Tag = 1
@ -156,7 +156,7 @@ object frmMLXXList: TfrmMLXXList
ItemHeight = 12 ItemHeight = 12
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
OnChange = ZdyNameChange OnChange = MLNameChange
Items.Strings = ( Items.Strings = (
#22383#24067 #22383#24067
#25104#21697 #25104#21697

8
基础资料维护(BaseInfo.dll)/U_MLXXList.pas
View File

@ -49,7 +49,7 @@ type
RM1: TRMGridReport; RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet; RMDB_Main: TRMDBDataSet;
Label3: TLabel; Label3: TLabel;
ZdyName: TEdit; MLName: TEdit;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
@ -65,7 +65,7 @@ type
v2Column5: TcxGridDBColumn; v2Column5: TcxGridDBColumn;
v2Column9: TcxGridDBColumn; v2Column9: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
ZdyCode: TEdit; MLBH: TEdit;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Label2: TLabel; Label2: TLabel;
DEFstr5: TComboBox; DEFstr5: TComboBox;
@ -92,7 +92,7 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ZdyNameChange(Sender: TObject); procedure MLNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
@ -192,7 +192,7 @@ begin
end; end;
end; end;
procedure TfrmMLXXList.ZdyNameChange(Sender: TObject); procedure TfrmMLXXList.MLNameChange(Sender: TObject);
begin begin
ToolButton2.Click; ToolButton2.Click;
end; end;