unit Dimission;

interface

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

type
  TfDimission = class(TfBaseChildForm)
    Panel1: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fDimission: TfDimission;

implementation

{$R *.dfm}

procedure TfDimission.Edit1Exit(Sender: TObject);
begin
  inherited;
  AdoQuery1.Close;
  AdoQuery1.Parameters.ParamByName('WorkerNo').Value :=trim(edit1.text);
  AdoQuery1.Open;
  If AdoQuery1.IsEmpty and (Trim(Edit1.Text)<>'') then begin
     application.MessageBox('癸ぃ癬