umain.pas

西门子Prodave6.0 的Delphi 版本, 需要安装 Prodave60软件,支持以太网通讯

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, XPMan, StdCtrls, XPMenu, RzStatus, ExtCtrls, RzPanel,UGlobdata;

type
  TPmainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    AG1: TMenuItem;
    DB1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    DB2: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    BST1: TMenuItem;
    N12: TMenuItem;
    BST2: TMenuItem;
    Button1: TButton;
    RzStatusBar1: TRzStatusBar;
    RzClockStatus1: TRzClockStatus;
    RzStatusPane1: TRzStatusPane;
    N13: TMenuItem;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure DB2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure AG1Click(Sender: TObject);
    procedure DB1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure ConActive(var message: TMessage); message CM_COMMSG;
  end;

var
  PmainForm: TPmainForm;

implementation
   uses Ucontection,uUnload,uFieldRead,
   UDbRead,uDBWrite,uFieldWrite,Pubfuns,Prodave60,
   uAGinfo,uDBNumber,uBitTest,uBitRead,uDiagBuf,uAbout;
{$R *.dfm}
Procedure TPmainForm.ConActive(var message: TMessage);
var
   Msg:TMessage;
   Wp,i:integer;
   SelNo:Integer;
begin
     Msg:=message;
     Wp:=msg.WParam;
     if (Wp=ConActiveOK) then begin
        SelNo:=msg.LParam;
       Messagebox(AppHWD.Handle,Pchar('激活代码 :'+ '当前连接号: < '+IntToStr(LoadCon[SelNo].Conno) +' >  已经激活.'),
                   Pchar('激活代码 :< '+IntToStr(LoadCon[SelNo].Conno)+' >.'),
                   MB_OK);
                   SendMessage(AppHWD.Handle,WM_CLOSE,0,0);
                  RzStatusPane1.Caption:='当前激活连接号 : < '+IntTostr(LoadCon[SelNo].Conno) +' > ;'
                                          +'方式: '+LoadCon[SelNo].ConTyp + ' , 地址 : '
                                          + LoadCon[SelNo].Addr + ',CPU 型号 :'+LoadCon[SelNo].CpuTyp;
      end;
      if (Wp=ConDelete) then  begin
         RzStatusPane1.Caption:='没有激活的连接';
      end;
end;

procedure TPmainForm.Button1Click(Sender: TObject);
begin
close;
end;

procedure TPmainForm.N1Click(Sender: TObject);
begin
   AHWND:=PshowForm(TFrmContection,AppHWD);
end;

procedure TPmainForm.N2Click(Sender: TObject);

begin
    AHWND:=PshowForm(TFrmUnload,AppHWD);
end;

procedure TPmainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:integer;
 CheckRet:integer;
begin
    for i:= 0 to 63 do begin
      if LoadCon[i].Connr=false then
        Continue;
        CheckRet:=UnloadConnection_ex6(i);

       if (CheckRet=0)or (CheckRet=$7030)  then
         LoadCon[i].Connr:=false
         else
           begin
             Messagebox(Application.handle,Pchar(GetErrorMessage_ex6(CheckRet)),
                   Pchar('错误代码 :0x'+ IntToHex(CheckRet,4)),
                   MB_OK);
            end;
      end;
end;

procedure TPmainForm.FormCreate(Sender: TObject);
var
  i:integer;
begin
    for i :=0  to 63 do
             LoadCon[i].Connr:=false;
             RzStatusPane1.Caption:='没有激活的连接';
end;

procedure TPmainForm.N4Click(Sender: TObject);
begin
    PshowForm(TFrmDBRead,AppHWD);
end;

procedure TPmainForm.N8Click(Sender: TObject);
begin
    PshowForm(TFrmFieldRead,AppHWD);
end;

procedure TPmainForm.DB2Click(Sender: TObject);
begin
     PshowForm(TFrmDBWrite,AppHWD);
end;

procedure TPmainForm.N9Click(Sender: TObject);
begin
    PshowForm(TFrmFieldWrite,AppHWD);
end;

procedure TPmainForm.AG1Click(Sender: TObject);
begin
    PshowForm(TFrmAGinfo,AppHWD);
end;

procedure TPmainForm.DB1Click(Sender: TObject);
begin
    PshowForm(TFrmDBCount,AppHWD);
end;

procedure TPmainForm.N10Click(Sender: TObject);
begin
    PshowForm(TFrmBitTest,AppHWD);
end;

procedure TPmainForm.N11Click(Sender: TObject);
begin
    PshowForm(TFrmBitRead,AppHWD);
end;

procedure TPmainForm.N12Click(Sender: TObject);
begin
   PshowForm(TFrmDiagBuf,AppHWD);
end;

procedure TPmainForm.N13Click(Sender: TObject);
begin
  PshowForm(TFrmAbout,AppHWD);
end;

end.