usystemset.pas

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

unit Usystemset;

interface

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

type
  TForm_Systemset = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    Label2: TLabel;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    UpDown1: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    SystemName: string;
    CorpName: string;
  public
    { Public declarations }
  end;

var
  Form_Systemset: TForm_Systemset;

implementation
uses Umain;

{$R *.dfm}

procedure TForm_Systemset.FormCreate(Sender: TObject);

begin
  SystemName := '';
  with form_main.TabSystem do
  begin
    open;
    first;
    edit1.Text := fieldByName('systemName').AsString;
    SystemName := edit1.Text;
    edit2.Text := fieldByName('corpName').AsString;
    UpDown1.Position := FieldValues['Employee_number'];
    CorpName := edit2.Text;
    CheckBox1.Checked := fieldValues['show_outemployee'];
    CheckBox2.Checked := fieldValues['show_login'];
    CheckBox3.Checked := fieldValues['autoset'];
    close;
  end;
end;

procedure TForm_Systemset.Button2Click(Sender: TObject);
begin
  if ((strtoint(edit3.Text)) < 3) or ((strtoint(edit3.Text)) > 12) then
  begin
    showmessage('员工编号限定在 3 至 12 位之间');
    edit3.SetFocus;
    exit;
  end
  else
  begin
    with form_main.TabSystem do
    begin
      open;
      first;
      update;
      edit;
      fieldValues['systemname'] := edit1.Text;
      fieldValues['corpName'] := edit2.text;
      fieldValues['Employee_number'] := StrToInt(trim(edit3.Text));
      fieldValues['show_outemployee'] := CheckBox1.Checked;
      fieldValues['show_login'] := CheckBox2.Checked;
      fieldValues['autoset'] := CheckBox3.Checked;
      post;
      close;
    end; // with
    if SystemName <> edit1.Text then
      showmessage('您已经修改的系统名称将在下次启动时显示！');
    close;
  end;
end;

procedure TForm_Systemset.Button1Click(Sender: TObject);
begin
  edit1.Text := SystemName;
  edit2.Text := CorpName;
  edit3.Text := '6';
  CheckBox1.Checked := true;
  CheckBox2.Checked := false;
  CheckBox3.Checked := true;
end;

procedure TForm_Systemset.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9']) then
    key := #0;
end;

end.