zc.pas

来自「一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息」· PAS 代码 · 共 58 行

unit zc;

interface

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

type
  Tfrm_zc = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_zc: Tfrm_zc;

implementation

uses main;

{$R *.dfm}

procedure Tfrm_zc.Button1Click(Sender: TObject);
var str:string;
    i:integer;
begin
if trim(edit1.text)='d321345xuiloveyou' then
begin
frm_zc.close;
for i:=0 to frm_main.mainmenu1.Items.Count-1 do
   frm_main.MainMenu1.Items[i].Enabled:=true;
end
else
for i:=0 to frm_main.mainmenu1.Items.Count-1 do
   begin
   frm_main.MainMenu1.Items[i].Enabled:=false;
   messagedlg('版权所有，如有联系，请拨打13793190541 或[e-mail]',mtinformation,[mbyes],1);
   exit;
   end;

end;

procedure Tfrm_zc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

end.