unit5.~pas

delphi编写的异性纤维监测系统工控平台

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Button39: TButton;
    Button40: TButton;
    Button41: TButton;
    Button42: TButton;
    Button43: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button44: TButton;
    Button32: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Button34Click(Sender: TObject);
    procedure Button35Click(Sender: TObject);
    procedure Button36Click(Sender: TObject);
    procedure Button37Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button38Click(Sender: TObject);
    procedure Button39Click(Sender: TObject);
    procedure Button40Click(Sender: TObject);
    procedure Button41Click(Sender: TObject);
    procedure Button42Click(Sender: TObject);
    procedure Button43Click(Sender: TObject);
    procedure Button44Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'A';
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'B';
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'C';
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'D';
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'E';
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
         edit1.text:=edit1.Text+'F';
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'G';
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'H';
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'I';
end;

procedure TForm5.Button10Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'J';
end;

procedure TForm5.Button11Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'K';
end;

procedure TForm5.Button12Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'L';
end;

procedure TForm5.Button13Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'M';
end;

procedure TForm5.Button14Click(Sender: TObject);
begin
             edit1.text:=edit1.Text+'N';
end;

procedure TForm5.Button15Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'O';
end;

procedure TForm5.Button19Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'P';
end;

procedure TForm5.Button20Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'Q';
end;

procedure TForm5.Button21Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'R';
end;

procedure TForm5.Button22Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'S';
end;

procedure TForm5.Button23Click(Sender: TObject);
begin
         edit1.text:=edit1.Text+'T';
end;

procedure TForm5.Button24Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'U';
end;

procedure TForm5.Button16Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'V';
end;

procedure TForm5.Button25Click(Sender: TObject);
begin
         edit1.text:=edit1.Text+'W';
end;

procedure TForm5.Button26Click(Sender: TObject);
begin
          edit1.text:=edit1.Text+'X';
end;

procedure TForm5.Button27Click(Sender: TObject);
begin
          edit1.text:=edit1.Text+'Y';
end;

procedure TForm5.Button28Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'Z';
end;

procedure TForm5.Button29Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'1';
end;

procedure TForm5.Button30Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'2';
end;

procedure TForm5.Button17Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'3';
end;

procedure TForm5.Button31Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'4';
end;

procedure TForm5.Button33Click(Sender: TObject);
begin
        edit1.text:=edit1.Text+'5';
end;

procedure TForm5.Button34Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'6';
end;

procedure TForm5.Button35Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'7';
end;

procedure TForm5.Button36Click(Sender: TObject);
begin
          edit1.text:=edit1.Text+'8';
end;

procedure TForm5.Button37Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'9';
end;

procedure TForm5.Button18Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'0';
end;

procedure TForm5.Button38Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'.';
end;

procedure TForm5.Button39Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'-';
end;

procedure TForm5.Button40Click(Sender: TObject);
begin
     edit1.text:=edit1.Text+'/';
end;

procedure TForm5.Button41Click(Sender: TObject);
begin
      edit1.text:=edit1.Text+'|';
end;

procedure TForm5.Button42Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+'-';
end;

procedure TForm5.Button43Click(Sender: TObject);
begin
       edit1.text:=edit1.Text+':';
end;

procedure TForm5.Button44Click(Sender: TObject);

     var
  s1:string;
begin
    s1:=edit1.Text;
    if  s1='PENGCHAO521'   then
        edit1.Text:=('您已安全的打开')
    else
       showmessage('您的密码有误 请重新输入') ;
end;

procedure TForm5.Button32Click(Sender: TObject);
begin
      close;
end;

end.