改进代码。

Forms/LoginFrm.pas

@@ -246,79 +246,43 @@ begin
 end;
 
 procedure TLoginFrm.edtUserClick(Sender: TObject);
+// For Test Quickly. chenshilong, 2015-09-30
 const
-  Users: array [0..10] of string =('565398228@qq.com', '1083575299@qq.com', '920520265@qq.com',
-           '862490633@qq.com', '1487044893@qq.com', '2693845524@qq.com',
-           '562203003@qq.com', '2980275662@qq.com', '405049706@qq.com',
-           '841509474@qq.com', '583747449@qq.com');
-  PWs: array [0..10] of string = ('E72G7Zlg', 'cAplXxBg', '97IC0QG5',
-         'uRi4o8N0', 'DaYWmaAD', 'Hfker87c',
-         'jjj9h8Ox', 'cuT3gNpT', 'dfFS03uD',
-         '5aTW8u1s', '123456');
+  AccArr: array[1..11, 1..3] of string = (
+    ('1', '2636698008@qq.com', 'smartcost3850887'), // 纵横销售演示服务器
+    ('2', '1971614655@qq.com', '357134933..'),
+    ('3', '1835082984@qq.com', '123456'),
+    ('4', '2417587264@qq.com', 'koukou0708'),
+    ('5', '2609827960@qq.com', 'missling'),
+    ('6', '1240621850@qq.com', '87654321'),
+    ('7', '1014149875@qq.com', 'zhbwoai'),
+    ('8', '1525739553@qq.com', '123456'),
+    ('9', '1391010261@qq.com', 'missling'),
+    ('10', '916960227@qq.com', '123456'),
+    ('11', '916960227@qq.com', '12345678') // 测试服务器
+  );
+
 var
-  iIndex: Integer;
+  i: Integer;
+  bEx: Boolean;
 begin
   if G_IsTest then
   begin
-    if edtUser.Text = '1' then
-    begin
-      edtUser.Text := '2636698008@qq.com';
-      edtPW.Text := 'smartcost3850887';
-    end
-    else if edtUser.Text = '2' then
-    begin
-      edtUser.Text := '1971614655@qq.com';
-      edtPW.Text := '357134933..';
-    end
-    else if edtUser.Text = '3' then
-    begin
-      edtUser.Text := '1835082984@qq.com';
-      edtPW.Text := '123456';
-    end
-    else if edtUser.Text = '4' then
-    begin
-      edtUser.Text := '2417587264@qq.com';
-      edtPW.Text := 'koukou0708';
-    end
-    else if edtUser.Text = '5' then
-    begin
-      edtUser.Text := '2609827960@qq.com';
-      edtPW.Text := 'missling';
-    end
-    else if edtUser.Text = '6' then
-    begin
-      edtUser.Text := '1240621850@qq.com';
-      edtPW.Text := '147369';
-    end
-    else if edtUser.Text = '7' then
+    bEx := False;
+    for i := Low(AccArr) to High(AccArr) do
     begin
-      edtUser.Text := '1014149875@qq.com';
-      edtPW.Text := 'zhbwoai';
-    end
-    else if edtUser.Text = '8' then
-    begin
-      edtUser.Text := '1525739553@qq.com';
-      edtPW.Text := '';
-    end
-    else if edtUser.Text = '9' then
-    begin
-      edtUser.Text := '1391010261@qq.com';
-      edtPW.Text := 'missling';
-    end
-    else if edtUser.Text = '10' then
-    begin
-      edtUser.Text := '916960227@qq.com';
-      edtPW.Text := '123456';
-    end
-    else if edtUser.Text = '11' then
-    begin
-      edtUser.Text := '916960227@qq.com';
-      edtPW.Text := '12345678';
-    end
-    else if edtUser.Text = '12' then
+      if AccArr[i, 1] = edtUser.Text then
+      begin
+        edtUser.Text := AccArr[i, 2];
+        edtPW.Text := AccArr[i, 3];
+        bEx := True;
+        Break;
+      end;
+    end;
+    if not bEx then
     begin
-      edtUser.Text := '';
-      edtPW.Text := '';
+      edtUser.Clear;
+      edtPW.Clear;
     end;
   end;
 end;