setup.pas

来自「学校学籍管理系统」· PAS 代码 · 共 136 行

unit setup;

interface

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

type
  Tfrm_setup = class(TForm)
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    GroupBox1: TGroupBox;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    ComboBox1: TComboBox;
    Label2: TLabel;
    LabeledEdit2: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    LabeledEdit5: TLabeledEdit;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_setup: Tfrm_setup;

implementation

uses Unit2, Unit4, Unit5;

{$R *.dfm}

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

procedure Tfrm_setup.Button1Click(Sender: TObject);
begin
dm.user.Active:=true;
dm.user.open;
if LabeledEdit1.Text=dm.user.FieldByName('id').AsString then
    begin
MessageBox(Handle,'原用户存在，不能添加！','警告',MB_OK); exit;
    end;
if (LabeledEdit1.Text='')or(ComboBox1.Text='') then
     begin
         showmessage('数据输入不完整!');exit
         end;
dm.user.Append;
dm.user.Edit;
dm.user.FieldByName('puss').AsString:=ComboBox1.Text;
dm.user.FieldByName('id').AsString:=LabeledEdit1.Text;
dm.user.FieldByName('pass').AsString:=LabeledEdit2.Text;
dm.user.Post;
next;
dm.user.Refresh;
ComboBox1.Text:='';
LabeledEdit1.Text:='';
LabeledEdit2.Text:='';
end;
procedure Tfrm_setup.Button3Click(Sender: TObject);
begin
if LabeledEdit3.Text<>dm.user.FieldByName('pass').AsString then
    begin
      MessageBox(Handle,'原密码错误，不能更新密码库！','警告',MB_OK);
      Exit;
    end;
    if LabeledEdit4.Text<>LabeledEdit5.Text then
    begin
      MessageBox(Handle,'确认密码不一致，不能更新密码库！','警告',MB_OK);
      Exit;
    end;
   dm.user.edit;
   dm.user.FieldByName('pass').AsString:=LabeledEdit5.Text;
    dm.user.Post;
    next;
    dm.user.Refresh;
  end;

procedure Tfrm_setup.FormShow(Sender: TObject);
begin
dm.user.Refresh;
 ComboBox1.Text:='';
  LabeledEdit1.Text:='';
 LabeledEdit2.Text:='';
 LabeledEdit3.Text:='';
 LabeledEdit4.Text:='';
 LabeledEdit5.Text:='';
end;

procedure Tfrm_setup.BitBtn2Click(Sender: TObject);
begin
if LabeledEdit2.Text='cexoxinxin' then
     begin
          pass.Show;
         end
       else
         begin
         showmessage('非法操作!');
         end;
end;
procedure Tfrm_setup.Button2Click(Sender: TObject);
begin
dm.user.Cancel;
 ComboBox1.Text:='';
  LabeledEdit1.Text:='';
 LabeledEdit2.Text:='';
end;

procedure Tfrm_setup.Button4Click(Sender: TObject);
begin
dm.user.Cancel;
  LabeledEdit3.Text:='';
 LabeledEdit4.Text:='';
  LabeledEdit5.Text:='';
end;

end.