setup.pas

delpi数据可例子生产企业人力资源管理系统.rar 生产企业人力资源管理系统.rar

unit setup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SUIListBox, SUIEdit, SUIButton, SUIImagePanel,
  SUIGroupBox, ExtCtrls, SUIForm, Mask;

type
  Tsetup_form = class(TForm)
    setup_form: TsuiForm;
    suiGroupBox1: TsuiGroupBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiEdit1: TsuiEdit;
    suiListBox1: TsuiListBox;
    suiGroupBox2: TsuiGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    suiButton4: TsuiButton;
    suiCheckBox1: TsuiCheckBox;
    suiButton5: TsuiButton;
    Label4: TLabel;
    suiCheckBox2: TsuiCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    suiGroupBox3: TsuiGroupBox;
    suiButton3: TsuiButton;
    suiButton6: TsuiButton;
    suiEdit2: TsuiEdit;
    suiListBox2: TsuiListBox;
    procedure FormCreate(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiCheckBox1Click(Sender: TObject);
    procedure suiCheckBox2Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  setup_form: Tsetup_form;

implementation

{$R *.dfm}

uses datamod;

procedure Tsetup_form.FormCreate(Sender: TObject);
begin
  setup_form.Caption:='某公司-系统设置';
  suilistbox1.Items.LoadFromFile('BM_bgs.ubt');
  suilistbox2.Items.LoadFromFile('BM_cj.ubt');
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit3.Text:='';
end;

procedure Tsetup_form.suiButton1Click(Sender: TObject);
begin
  if trim(suiedit1.Text)='' then
  begin
    suiedit1.SetFocus;
    showmessage('你还没有输入办公部门名，请输入部门名再点增加');
    exit;
  end;
  suilistbox1.Items.Append(suiedit1.Text);
  suilistbox1.Items.SaveToFile('BM_bgs.ubt');
  suiedit1.Clear;
end;

procedure Tsetup_form.suiButton2Click(Sender: TObject);
begin
  suilistbox1.Items.Delete(suilistbox1.ItemIndex);
  suilistbox1.Items.SaveToFile('BM_bgs.ubt');
end;

procedure Tsetup_form.suiCheckBox1Click(Sender: TObject);
begin
  if suicheckbox1.Checked then
  begin
    edit2.Enabled:=true;
    edit2.Color:=clWindow;
    edit3.Enabled:=true;
    edit3.Color:=clWindow;
    edit4.Enabled:=true;
    edit4.Color:=clWindow;
  end
  else
  begin
    edit2.Text:='';
    edit2.Enabled:=false;
    edit2.Color:=cl3DLight;
    edit3.Text:='';
    edit3.Enabled:=false;
    edit3.Color:=cl3DLight;
    edit4.Text:='';
    edit4.Enabled:=false;
    edit4.Color:=cl3DLight;
  end;
end;

procedure Tsetup_form.suiCheckBox2Click(Sender: TObject);
begin
  
  if suicheckbox2.Checked then
  begin
    edit1.Enabled:=true;
    edit1.Color:=clwindow;
    edit1.Text:=datamodule1.ADO_User.Fields[1].AsString;
  end
  else
  begin
    edit1.Text:='';
    edit1.Enabled:=false;
    edit1.Color:=cl3DLight;
  end;
end;

procedure Tsetup_form.suiButton4Click(Sender: TObject);
begin
  if suicheckbox2.Checked then
  begin
    if trim(edit1.Text)='' then
    begin
      edit1.SetFocus;
      showmessage('请输入用户名再点保存，如果不需要修改，请先取消编辑');
      Exit;
    end;
    datamodule1.ADO_User.Edit;
    datamodule1.ADO_User.Fields[1].AsString:=edit1.Text;
    datamodule1.ADO_User.Post;
    suicheckbox2.Checked:=false;
    suiCheckBox2Click(Sender);
    showmessage('用户名修改成功');
  end;
  if suicheckbox1.Checked then
  begin
    if edit2.Text <> datamodule1.ADO_User.Fields[2].AsString then
    begin
      edit2.SetFocus;
      showmessage('原密码错误，不能更新密码库！');
      Exit;
    end;
    if edit3.Text <> edit4.Text then
    begin
      edit3.SetFocus;
      showmessage('确认密码不一致，请重新输入！');
      Exit;
    end;
    datamodule1.ADO_User.Edit;
    datamodule1.ADO_User.Fields[2].AsString:=edit3.Text;
    datamodule1.ADO_User.Post;
    suicheckbox1.Checked:=false;
    suiCheckBox1Click(Sender);
    showmessage('密码修改成功');
  end;

end;

procedure Tsetup_form.suiButton3Click(Sender: TObject);
begin
  if trim(suiedit2.Text)='' then
  begin
    suiedit2.SetFocus;
    showmessage('你还没有输入车间部门名，请输入部门名再点增加');
    exit;
  end;
  suilistbox2.Items.Append(suiedit2.Text);
  suilistbox2.Items.SaveToFile('BM_cj.ubt');
  suiedit2.Clear;
end;

procedure Tsetup_form.suiButton6Click(Sender: TObject);
begin
  suilistbox2.Items.Delete(suilistbox2.ItemIndex);
  suilistbox2.Items.SaveToFile('BM_cj.ubt');
end;

procedure Tsetup_form.suiButton5Click(Sender: TObject);
begin
  suicheckbox2.Checked:=false;
  suicheckbox1.Checked:=false;
  suiCheckBox2Click(Sender);
  suiCheckBox1Click(Sender);
end;

end.