~

基础资料维护(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

基础资料维护(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;