求助!!!!!

unit LoginIn;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DM, ADODB;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
  USES DateMD;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='' then
     begin
  messagebox(handle,'请输入用户名!','',mb_ok+mb_iconwarning);
  edit1.SetFocus;
  exit;
     end;
 if edit2.text='' then
  begin
   messagebox(handle,'请输入用户密码!','',mb_ok+mb_iconwarning);
   edit2.SetFocus;
   exit;
  end;
 if combobox1.text='' then
    begin
    messagebox(handle,'请输入用户权限!','',mb_ok+mb_iconwarning);
    edit2.SetFocus;
    exit;
    end;  with DateMD.ADOLoginIn do
  begin
  DateMD.ADOLoginIn.insert;//插入一条空白纪录
  DateMD.ADologinIn.fieldbyname('username').asstring:=trim(edit1.Text);
  DateMD.ADologinIn.fieldbyname('userid').asstring:=trim(edit2.Text);
  DateMD.ADologinIn.fieldbyname('userpower').asstring:=trim(combobox1.Text);
  if messagedlg('确定要删除吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
     post;
     edit1.Text:='' ;
     edit2.Text:='';
      messagebox(handle,'用户添加!',',mb_ok+mb_iconwarning);
    end
  else
  begin
   canle;
   edit1.Text:='';
   edit2.Text:='';
   end;
   end;
   end;
   procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;end.
出现以下问题:file not found :'DateMD.dcu'