importammeterdata_f.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit ImportAmmeterData_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ScktComp, StdCtrls;

type
  TF_ImportAmmeterData = class(TForm)
    CheckBox1: TCheckBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Memo: TMemo;
    E_Send: TEdit;
    ImportCS: TClientSocket;
    procedure Button2Click(Sender: TObject);
    procedure CS_ImportConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
    procedure ClientSocketConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_ImportAmmeterData: TF_ImportAmmeterData;

implementation

{$R *.DFM}

procedure TF_ImportAmmeterData.Button2Click(Sender: TObject);
begin
	ImportCS.Active := true;
end;

procedure TF_ImportAmmeterData.CS_ImportConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
	Memo.Lines.Add('Connected');
end;

procedure TF_ImportAmmeterData.Button1Click(Sender: TObject);
begin
	ImportCS.Socket.SendText(E_Send.Text);
end;

procedure TF_ImportAmmeterData.ClientSocketConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo.Lines.Add('Connected to: ' + Socket.RemoteAddress);
end;

procedure TF_ImportAmmeterData.ClientSocketRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Memo.Lines.Add(Socket.ReceiveText());
end;

end.