开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
U_ljsz.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：5k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

U_ljsz.pas：源码内容
  1. unit U_ljsz;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, StdCtrls, ComCtrls, ImgList, ExtCtrls, Registry, Spin, Db,
  8.   DBClient, variants;
  10. type
  11.   TfrmLjsz = class(TForm)
  12.     Panel1: TPanel;
  13.     StatusBar1: TStatusBar;
  14.     Panel2: TPanel;
  15.     Label1: TLabel;
  16.     edtAppHost: TEdit;
  17.     Label2: TLabel;
  18.     edtAppIP: TEdit;
  19.     btnAppName: TBitBtn;
  20.     Label3: TLabel;
  21.     edtPort: TEdit;
  22.     btnOK: TSpeedButton;
  23.     btnCancel: TSpeedButton;
  24.     procedure btnOKClick(Sender: TObject);
  25.     procedure edtAppHostExit(Sender: TObject);
  26.     procedure edtAppIPExit(Sender: TObject);
  27.     procedure btnCancelClick(Sender: TObject);
  28.     procedure btnAppNameClick(Sender: TObject);
  29.     procedure edtAppHostKeyPress(Sender: TObject; var Key: Char);
  30.     procedure edtAppIPKeyPress(Sender: TObject; var Key: Char);
  31.     procedure edtPortKeyPress(Sender: TObject; var Key: Char);
  32.   private
  33.     //向注册表写入应用配置信息
  34.     procedure WriteToReg(const bAppHost, bAppIP, aPort: string);
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  40. //打开配置窗口，并测试是否连接成功
  41. function LjszExecute(aFormClass: TFormClass): boolean;
  43. var
  44.   frmLjsz: TfrmLjsz;
  45.   Connected: boolean= false; //代表是否连接成功 。
  46. implementation
  47. uses U_mainform, U_NET;
  48. {$R *.DFM}
  50. //打开配置窗口，并测试是否连接成功
  51. function LjszExecute(aFormClass: TFormClass): boolean;
  52. begin
  53.   with aFormClass.Create(Application) do
  54.   begin
  55.     Connected := False;
  56.     try
  57.       showModal;
  58.     finally
  59.       free;
  60.     end;
  61.     result := Connected;
  62.   end;
  63. end;
  65. //向注册表里写入应用服务器的配置信息
  66. procedure TfrmLjsz.WriteToReg(const bAppHost, bAppIP, aPort: string);
  67. var
  68.   Reg: Tregistry;
  69. begin
  70.   reg := Tregistry.create;
  71.   Reg.RootKey := HKEY_LOCAL_MACHINE;
  72.   if not Reg.OpenKey('Software物资管理', False) then
  73.   begin
  74.     reg.createkey('Software物资管理');
  75.     Reg.OpenKey('Software物资管理', False);
  76.   end;
  77.   Reg.WriteString('Host', bAppHost);
  78.   Reg.WriteString('Address', bAppIP);
  79.   Reg.WriteString('Port', aPort);
  80.   reg.free;
  81. end;
  83. procedure TfrmLjsz.btnOKClick(Sender: TObject);
  84. begin
  85.   if ((edtAppHost.text = null) or (edtAppHost.text = '')) and ((edtAppIP.text = null) or (edtAPPIP.text = '')) then
  86.   begin
  87.     Application.MessageBox('请输入应用服务器名字或IP！', '输入错误..', mb_iconinformation + mb_defbutton1);
  88.     exit;
  89.   end;
  90.   try
  91.     strtoint(edtPort.text);
  92.   except
  93.     Application.MessageBox('请输入正确的端口号', '输入错误..', mb_iconinformation + mb_defbutton1);
  94.     exit;
  95.   end;
  96.   statusbar1.panels[0].text := '正在连接应用程序服务器，请稍候..';
  97.   statusbar1.refresh;
  98.   Screen.cursor := crHourGlass;
  99.   frmMain.SocketConnection.Connected := false;
  100.   frmMain.SocketConnection.Host := edtAppHost.text;
  101.   frmMain.SocketConnection.Address := edtAppIP.text;
  102.   frmMain.SocketConnection.Port := strtoint(edtPort.text);
  103.   try
  104.     frmMain.SocketConnection.Connected := true;
  105.     screen.Cursor := crDefault;
  106.     application.MessageBox('连接成功', '物资管理系统', mb_iconinformation + mb_defbutton1);
  107.     Connected := True;
  108.   except
  109.     screen.cursor := crdefault;
  110.     application.MessageBox('连接失败', '物资管理系统', mb_iconinformation + mb_defbutton1);
  111.     statusbar1.panels[0].text := '连接失败，请重试..';
  112.     statusbar1.refresh;
  113.     exit;
  114.   end;
  115.   //连接成功向注册表里写入应用服务器配置信息
  116.   WriteToReg(edtAppHost.Text, edtAppIP.Text, edtPort.Text);
  117.   close;
  118. end;
  120. //关闭窗口
  121. procedure TfrmLjsz.btnCancelClick(Sender: TObject);
  122. begin
  123.   close;
  124. end;
  126. //利用可视化窗体来选择计算机
  127. procedure TfrmLjsz.btnAppNameClick(Sender: TObject);
  128. begin
  129.   edtAppIP.clear;
  130.   //NetExecute方法打开TfrmNet窗口，返回选定的计算机名
  131.   edtAppHost.text := NetExecute(TFrmNet);
  132. end;
  134. //当应用服务器名输入后，自动将应用服务器IP地址输入框置空
  135. procedure TfrmLjsz.edtAppHostExit(Sender: TObject);
  136. begin
  137.   if edtAppHost.Text <> '' then
  138.     edtAppIP.Text := '';
  139. end;
  141. //当应用服务器IP地址输入后，自动将应用服务器名输入框置空
  142. procedure TfrmLjsz.edtAppIPExit(Sender: TObject);
  143. begin
  144.   if edtAppIP.Text <> '' then
  145.     edtAppHost.Text := '';
  146. end;
  148. //应用服务器名输入框按键事件，当按下“回车”键后，将输入焦点转移到输入端口号输入框
  149. procedure TfrmLjsz.edtAppHostKeyPress(Sender: TObject; var Key: Char);
  150. begin
  151.   edtAppIP.clear;
  152.   if key = #13 then
  153.     edtPort.SetFocus;
  154. end;
  156. //应用服务器IP地址输入框按键事件，当按下“回车”键后，将输入焦点转移到输入端口号输入框
  157. procedure TfrmLjsz.edtAppIPKeyPress(Sender: TObject; var Key: Char);
  158. begin
  159.   edtAppHost.clear;
  160.   if key = #13 then
  161.     edtPort.SetFocus;
  162. end;
  164. //端口号输入框按键事件，当按下“回车”键后，调用“确定”按钮的Click方法
  165. procedure TfrmLjsz.edtPortKeyPress(Sender: TObject; var Key: Char);
  166. begin
  167.   if key = #13 then
  168.     btnOK.click;
  169. end;
  171. end.