unit8.pas

Of the password is: Server: "1." Client: + for the month of the date of the machine. Such as

unit Unit8;

interface

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

type
  Tfwsz = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Panel4: TPanel;
    Label3: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel5: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fwsz: Tfwsz;

implementation

uses Unit1;

{$R *.dfm}

procedure Tfwsz.FormCreate(Sender: TObject);
begin
  if zgtq='system' then bitbtn2.Enabled:=true; //主管特权
  if zgtq='system' then bitbtn3.Enabled:=true; //主管特权
  edit3.Text:=form1.Table4a1.Text;   //会员费率导入
  edit4.Text:=form1.Table4a2.Text;   //普通费率导入
end;

procedure Tfwsz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  zgtq:='asdfafa';   //主管特权失效
  bitbtn2.Enabled:=true;  //‘’
  bitbtn3.Enabled:=true;  //‘’
end;

procedure Tfwsz.BitBtn1Click(Sender: TObject);
begin
form1.Table4.Edit;
if edit1.Text<>''then
if edit1.Text<>edit2.Text then showmessage('2次校验错')
else form1.Table4a0.Value:=edit1.Text;   //存入普密
form1.Table4.Post;
form1.Table4.Refresh;
end;

procedure Tfwsz.BitBtn3Click(Sender: TObject);
begin
form1.Table4.Edit;
if edit5.Text<>''then
if edit5.Text<>edit6.Text then showmessage('2次校验错')
else form1.Table4a3.Value:=edit5.Text;    //存入特密
form1.Table4.Post;
form1.Table4.Refresh;
end;

procedure Tfwsz.BitBtn2Click(Sender: TObject);
begin
form1.Table4.Edit;
form1.Table4a1.Value:=strtofloat(edit3.Text);  //存入会员费率
form1.Table4a2.Value:=strtofloat(edit4.Text);  //存入普通费率
form1.Table4.Post;
form1.Table4.Refresh;
end;

end.