unit6.pas

来自「学校学籍管理系统」· PAS 代码 · 共 85 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons, Mask, DBCtrls, ComCtrls, XPMenu;

type
  Tzhao1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit3KeyPiress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhao1: Tzhao1;

implementation

uses Unit4, Unit3;

{$R *.dfm}

procedure Tzhao1.BitBtn6Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit5.Text:='';
close;
end;

procedure Tzhao1.BitBtn3Click(Sender: TObject);
begin
dm.zhao1.Open;
if (Edit1.Text='')or (edit2.Text='') or(edit3.Text='') then
     begin
         showmessage('数据输入不完整!');exit
         end;
if Edit1.Text=dm.zhao1.FieldByName('id').AsString then
    begin
    MessageBox(Handle,'原地址存在，不能添加！','警告',MB_OK); exit;
   end;
dm.zhao1.Append;
dm.zhao1.Edit;
dm.zhao1.FieldByName('id').AsString:=Edit1.Text;
dm.zhao1.FieldByName('ren').AsString:=Edit2.Text;
dm.zhao1.FieldByName('tel').AsString:=Edit3.Text;
dm.zhao1.FieldByName('data').AsDateTime:=datetimepicker1.Date;
dm.zhao1.FieldByName('be').AsString:=Edit5.Text;
dm.zhao1.Post;
next;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit5.Text:='';
dm.main.Refresh
end;

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

end.