mc_whcd.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

unit MC_WHCD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, StdCtrls, Mask, DBCtrls, DBTables, Buttons;

type
  TWHCD = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WHCD: TWHCD;

implementation

{$R *.DFM}

procedure TWHCD.FormShow(Sender: TObject);
begin
  EDIT1.SetFocus;  //启动窗体时将焦点跳转到文化程度输入框
end;

procedure TWHCD.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  IF KEY=#13 THEN  BITBTN1.SetFocus ;   //焦点跳转到保存按钮
end;

procedure TWHCD.Edit1Change(Sender: TObject);
begin
  IF EDIT1.TEXT<>'' THEN BITBTN1.Enabled:=TRUE ELSE BITBTN1.Enabled:=FALSE;
end;
procedure TWHCD.BitBtn1Click(Sender: TObject);  //保存输入
begin
   Table1.AppendRecord([Edit1.Text]);  //保存输入信息
   EDIT1.Text:='';  //清空输入框
   EDIT1.SetFocus ;  //将焦点跳转到输入框
end;

procedure TWHCD.BitBtn2Click(Sender: TObject); //删除所选信息
begin
  If Table1.RecordCount <> 0 Then Table1.Delete;
end;
procedure TWHCD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     WHCD.Release;
     WHCD:=Nil;
end;

procedure TWHCD.BitBtn3Click(Sender: TObject);
begin
 CLOSE;
end;
end.