unit2.~pas

delphi开发的小软件

unit Unit2;

interface

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

type
  TAddForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    RichEdit1: TRichEdit;
    Label7: TLabel;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label8: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  AddForm: TAddForm;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TAddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    AddForm:=nil;
    MainForm.Enabled:=TRUE;
end;

procedure TAddForm.FormCreate(Sender: TObject);
begin
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    Edit4.Clear;
    RichEdit1.Clear;
end;

procedure TAddForm.Button3Click(Sender: TObject);
begin
    AddForm.Close;
end;

procedure TAddForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in['0'..'9', #8]) then
    begin
      Key:=#0;
      MessageBeep(1);
    end;
end;

procedure TAddForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if(Key<>#8) and (ord(Key)<128) then
    begin
      Key:=#0;
      MessageBeep(1);
    end;
end;

procedure TAddForm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in['0'..'9', #8]) then
    begin
      Key:=#0;
      MessageBeep(1);
    end;
end;

procedure TAddForm.Edit1Exit(Sender: TObject);
begin
    if (Edit1.GetTextLen<8) and (Edit1.Text<>'') then
    begin
        ShowMessage('请输入8位编号！');
        Edit1.Clear;
    end;
end;

procedure TAddForm.Edit2Exit(Sender: TObject);
begin
    if Edit2.GetTextLen=2 then
    begin
        ShowMessage('不能输入一个汉字！');
        Edit2.Clear;
    end;
end;

procedure TAddForm.Button2Click(Sender: TObject);
begin
    if (Edit1.Text='') then
    begin
      ShowMessage('请输入编号！');
      Edit1.SetFocus;
    end
    else if (Edit2.Text='') then
    begin
      ShowMessage('请输入姓名！');
      Edit3.SetFocus;
    end
    else if (ComboBox1.ItemIndex=-1) then
    begin
      ShowMessage('请选择性别！');
      ComboBox1.SetFocus;
    end
    else if(Edit3.Text='') then
    begin
      ShowMessage('请输入年龄！');
      Edit3.SetFocus;
    end
    else if(Edit4.Text='') then
    begin
      ShowMessage('请输入家庭住址！');
      Edit4.SetFocus;
    end
    else
    begin
      with DataModule1 do
      begin
      ADOTable1.Active:=TRUE;
      ADOTable1.Append;
      ADOTable1.FieldValues['Number']:=Edit1.Text;
      ADOTable1.FieldValues['Name']:=Edit2.Text;
      ADOTable1.FieldValues['Sex']:=ComboBox1.Text;
      ADOTable1.FieldValues['Age']:=Edit3.Text;
      ADOTable1.FieldValues['Address']:=Edit4.Text;
      ADOTable1.FieldValues['Comment']:=RichEdit1.Text;
      if MessageDlg('是否提交对数据的录入？', mtInformation, mbOKCancel, 0)=1 then
      begin
      try
        ADOTable1.Post;
      except
     else
        ShowMessage('数据库中已经存在该记录！');
      end;
        Edit1.Clear;
        Edit2.Clear;
        ComboBox1.ItemIndex:=-1;
        Edit3.Clear;
        Edit4.Clear;
        RichEdit1.Clear;
      end
      else
        ADOTable1.Delete;
    end;
//   except

//    else
end;
end;

procedure TAddForm.Edit3Exit(Sender: TObject);
begin
  if (Edit3.Text<>'') AND ((StrToInt(Edit3.Text)<18)
                      OR (StrToInt(Edit3.Text)>55)) then
    begin
      ShowMessage('请输入18到55之间的年龄！');
      Edit3.Clear;
    end;
end;

end.