addperson.pas

西京票据管理系统刚刚获得

unit addperson;

interface

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

type
  Tfrmaddperson = class(TForm)
    Panel1: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DSADDPERSON: TDataSource;
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmaddperson: Tfrmaddperson;

implementation
uses UDM;
{$R *.dfm}

procedure Tfrmaddperson.BitBtn2Click(Sender: TObject);
begin
    CLOSE;
end;

procedure Tfrmaddperson.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 IF not (key in ['0'..'9',#8]) then
 key:=#0;
end;

procedure Tfrmaddperson.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=$0D THEN
  DBEdit2.SetFocus;
end;

procedure Tfrmaddperson.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=$0D then
 DBEdit3.SetFocus; 
end;

procedure Tfrmaddperson.BitBtn1Click(Sender: TObject);
begin
 if DBEdit1.Text='' then
 begin
   MessageBox(Handle,'操作员代码不能未空','系统提示',MB_ICONINFORMATION+MB_OK);
   Exit;
 end;
 if DBEdit3.Text='' then
 begin
   MessageBox(Handle,'操作员密码不能未空','系统提示',MB_ICONINFORMATION+MB_OK);
   Exit;
 end;
  DM.ADOLOGIN.Edit;
  DM.ADOLOGIN.FieldByName('codeplace').AsString:=DM.HDM;
  DM.ADOLOGIN.FieldByName('PLACE').AsString:=DM.HMC;
  DM.ADOLOGIN.Post;
end;

end.