ueditform.pas

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

unit Ueditform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm_Edit = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    UnEdit: string;
  public
    { Public declarations }
  end;

var
  Form_Edit: TForm_Edit;

implementation
uses UDeptSet;
{$R *.dfm}

procedure TForm_Edit.Button1Click(Sender: TObject);
begin
  if (trim(edit1.Text) = '') or (Length(trim(Edit1.text)) > 50) then
    showMessage('请输入设定值,不能超过25个字')
  else
  begin
    close;
  end;


end;

procedure TForm_Edit.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if (trim(edit1.Text) = '') or (Length(trim(Edit1.text)) > 50) then
      showMessage('请输入设定值,不能超过25个字')
    else
    begin
      close;
    end;
  end;
end;

procedure TForm_Edit.FormShow(Sender: TObject);
begin
  UnEdit := edit1.Text;
//  showmessage(UnEdit);
end;

procedure TForm_Edit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if (trim(edit1.Text) = '') or (Length(trim(Edit1.text)) > 50) then
  begin
    showMessage('你的编辑不成功，设定值不能为空或超过25个字');
    edit1.Text := UnEdit;
  end;
end;

end.