p_about.pas

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

unit p_about;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls,p_mc;

type
  Tf_about = class(Tform)
    P1: TPanel;
    ProgramIcon: TImage;
    Version: TLabel;
    Copyright: TLabel;
    Label1: TLabel;
    zcm: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    p2: TPanel;
    Label5: TLabel;
    Label7: TLabel;
    Label2: TLabel;
    user: TEdit;
    userid: TEdit;
    zc_id: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure userExit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_about: Tf_about;

implementation

uses p_dm,p_gl;

{$R *.dfm}

procedure Tf_about.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure Tf_about.FormCreate(Sender: TObject);
begin
  p1.Show;
  p2.Hide;
  with dm do
  begin
    t_reg.Open;
    if jc_zch('太原迪科电子有限公司',t_reg['username'],t_reg['userid'],t_reg['zcid']) then
    begin
      bitbtn2.Visible:=false;
      zcm.Caption:=trim(t_reg['username']);
    end else
    begin
      bitbtn2.Visible:=true;
      userid.Text:='';
    end;
    t_reg.Close;
  end;
  f_about.ShowModal;
end;

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

procedure Tf_about.BitBtn2Click(Sender: TObject);
begin
  p2.Show;
  p1.Hide;
  f_about.Height:=205;
end;

procedure Tf_about.BitBtn4Click(Sender: TObject);
begin
  f_about.Height:=240;
  p1.Show;
  p2.Hide;
end;

procedure Tf_about.userExit(Sender: TObject);
begin
  jc_zch('太原迪科电子有限公司',user.Text,'01234567','01234567');
  userid.Text:=user_id('太原迪科电子有限公司',trim(user.Text));
end;

procedure Tf_about.BitBtn3Click(Sender: TObject);
begin
  if jc_zch('太原迪科电子有限公司',user.Text,userid.Text,trim(zc_id.Text)) then
  begin
    dm.t_reg.Open;
    dm.t_reg.Edit;
    dm.t_reg['username']:=trim(user.Text);
    dm.t_reg['userid']:=trim(userid.Text);
    dm.t_reg['zcid']:=trim(zc_id.Text);
    dm.t_reg.Post;
    dm.t_reg.Close;
    zcm.Caption:=trim(user.Text);
    zcm.Refresh;
    application.MessageBox('注册成功!','注册',mb_ok+mb_iconinformation);
    p1.Show;
    p2.Hide;
    f_about.Height:=240;
    bitbtn2.Visible:=false;
  end else
  begin
    application.MessageBox('注册码不正确，请与程序供应商联系!','注册失败',mb_ok+mb_iconinformation);
    zc_id.Text:='';
    zc_id.SetFocus;
  end;
end;

end.