setup.pas

一个很好的勤工助学管理系统

unit setup;

interface

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

type
  Tfrm_setup = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox1: TGroupBox;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    CheckBox1: TCheckBox;
    GroupBox2: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Shape1: TShape;
    Shape2: TShape;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EditChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_setup: Tfrm_setup;

implementation

{$R *.dfm}

uses Data;

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

procedure Tfrm_setup.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    LabeledEdit3.Enabled:=True;
    LabeledEdit4.Enabled:=True;
    LabeledEdit5.Enabled:=True;
  end else
  begin
    LabeledEdit3.Enabled:=False;
    LabeledEdit4.Enabled:=False;
    LabeledEdit5.Enabled:=False;
  end;
end;

procedure Tfrm_setup.BitBtn3Click(Sender: TObject);
begin
  BitBtn3.Enabled:=False;
  sYuanXiao:=LabeledEdit1.Text;
  sZhuanYe:=LabeledEdit2.Text;
  DataModule1.ADOTable_XX.Edit;
  DataModule1.ADOTable_XX.Fields[2].AsString:=sYuanXiao;
  DataModule1.ADOTable_XX.Fields[3].AsString:=sZhuanYe;
  DataModule1.ADOTable_XX.Post;  
  if CheckBox1.Checked then
  begin
    if LabeledEdit3.Text<>DataModule1.ADOTable_XX.Fields[1].AsString then
    begin
      MessageBox(Handle,'原密码错误，不能更新密码库！','警告',MB_OK);
      Exit;
    end;
    if LabeledEdit4.Text<>LabeledEdit5.Text then
    begin
      MessageBox(Handle,'确认密码不一致，不能更新密码库！','警告',MB_OK);
      Exit;
    end;
    MyPass:=LabeledEdit4.Text;
    DataModule1.ADOTable_XX.Edit;
    DataModule1.ADOTable_XX.Fields[1].AsString:=MyPass;
    DataModule1.ADOTable_XX.Post;
    CheckBox1.Checked:=False;
  end;
end;

procedure Tfrm_setup.FormShow(Sender: TObject);
begin
  sYuanXiao:=DataModule1.ADOTable_XX.Fields[2].AsString;
  sZhuanYe:=DataModule1.ADOTable_XX.Fields[3].AsString;
  LabeledEdit1.Text:=sYuanXiao;
  LabeledEdit2.Text:=sZhuanYe;
end;            

procedure Tfrm_setup.EditChange(Sender: TObject);
begin
  BitBtn3.Enabled:=True;
end;

end.