diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm index be512a1..1988418 100644 --- a/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm +++ b/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm @@ -109,16 +109,16 @@ object frmMLXXList: TfrmMLXXList object Label3: TLabel Left = 191 Top = 13 - Width = 48 + Width = 66 Height = 12 - Caption = #20135#21697#21517#31216 + Caption = #38754#36741#26009#21517#31216' ' end object Label1: TLabel Left = 22 Top = 13 Width = 48 Height = 12 - Caption = #20135#21697#32534#21495 + Caption = #36741#26009#32534#21495 end object Label2: TLabel Left = 369 @@ -128,23 +128,23 @@ object frmMLXXList: TfrmMLXXList Caption = #31867#22411 Visible = False end - object ZdyName: TEdit + object MLName: TEdit Tag = 2 - Left = 241 - Top = 9 + Left = 256 + Top = 8 Width = 89 Height = 20 TabOrder = 0 - OnChange = ZdyNameChange + OnChange = MLNameChange end - object ZdyCode: TEdit + object MLBH: TEdit Tag = 2 Left = 71 Top = 9 Width = 89 Height = 20 TabOrder = 1 - OnChange = ZdyNameChange + OnChange = MLNameChange end object DEFstr5: TComboBox Tag = 1 @@ -156,7 +156,7 @@ object frmMLXXList: TfrmMLXXList ItemHeight = 12 TabOrder = 2 Visible = False - OnChange = ZdyNameChange + OnChange = MLNameChange Items.Strings = ( #22383#24067 #25104#21697 diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXList.pas b/基础资料维护(BaseInfo.dll)/U_MLXXList.pas index e6776e4..28b5457 100644 --- a/基础资料维护(BaseInfo.dll)/U_MLXXList.pas +++ b/基础资料维护(BaseInfo.dll)/U_MLXXList.pas @@ -33,7 +33,7 @@ type inc: integer; //¿Í»§¶ËÌ×½Ó×Ö¾ä±ú FDdys: string[32]; //¿Í»§¶ËÌ×½Ó×Ö FdDysName: string[32]; //¿Í»§¶ËÌ×½Ó×Ö - end; + end; TfrmMLXXList = class(TForm) ToolBar1: TToolBar; @@ -49,7 +49,7 @@ type RM1: TRMGridReport; RMDB_Main: TRMDBDataSet; Label3: TLabel; - ZdyName: TEdit; + MLName: TEdit; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; cxGridLevel1: TcxGridLevel; @@ -65,7 +65,7 @@ type v2Column5: TcxGridDBColumn; v2Column9: TcxGridDBColumn; Label1: TLabel; - ZdyCode: TEdit; + MLBH: TEdit; ToolButton4: TToolButton; Label2: TLabel; DEFstr5: TComboBox; @@ -92,7 +92,7 @@ type procedure FormShow(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure ZdyNameChange(Sender: TObject); + procedure MLNameChange(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); @@ -192,7 +192,7 @@ begin end; end; -procedure TfrmMLXXList.ZdyNameChange(Sender: TObject); +procedure TfrmMLXXList.MLNameChange(Sender: TObject); begin ToolButton2.Click; end;