sdpas.~pas

来自「读取网通或电信电话交换机（华为）数据给酒店管理数据库」· ~PAS 代码 · 共 63 行

unit sdpas;

interface

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

type
  Tsddfm = class(TForm)
    Label4: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sddfm: Tsddfm;

implementation
 uses comm1;
{$R *.DFM}

procedure Tsddfm.FormShow(Sender: TObject);
begin
edit1.text:=fcomm.setbuf[1];
edit2.text:=fcomm.setbuf[2];
edit3.text:=fcomm.setbuf[4];
edit4.text:=fcomm.setbuf[5];
edit5.text:=fcomm.setbuf[6];
edit6.text:=fcomm.setbuf[3];

end;

procedure Tsddfm.BitBtn3Click(Sender: TObject);
begin
edit1.text:=fcomm.setbuf[1];
edit2.text:=fcomm.setbuf[2];
edit3.text:=fcomm.setbuf[4];
edit4.text:=fcomm.setbuf[5];
edit5.text:=fcomm.setbuf[6];
edit6.text:=fcomm.setbuf[3];
end;

end.