关于制作密码form问题，大家帮帮忙

Question

procedure TPassWord.bntOKClick(Sender: TObject);
begin
   if Password.Text = 'password' then
      begin
        RefreshView;
        Close;
      end;
end;procedure TPassWord.RefreshView;
begin
      with DataModule1 do
      begin
            tbStaff.Open;
            tbStaff.Close;
            tbCustomer.Open;
            tbCustomer.Close;      end;
end;这是我密码form里的代码，每次我一运行，就出现错误，大家帮我看看那里出错了，好像是不能读取数据库

Answer 1

Project->View Source注意：数据模板，要在访问数据库之前创建
begin
  Application.Initialize;
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.