大菜 学过一点VB 现在想学DELPHI 想做一个小小的 个人管理程序
1,我想在程序中把 DBEdit1,DBEdit2,DBEdit3,DBEdit4,DBEdit5.......
Readonly属性改为true 要怎么写呢 不会一个一个的 写吧?2,还有 查询问题我用ADOTable1连接ACCESS数据库查询要怎么写呢 比如我想查出 表中的  类别 + 日期 3,查询 如果我想查出 姓名= Edit1.text + 姓名 = Edit2.text 就是同时查两个 或三个  本人 很菜   第一天学的  请说明白点谢谢!!!!

解决方案 »

  1.   

    delphi没有VB里面的控件数组概念,但是可以通过自定义控件来实现类似的功能。
    具体做法是:
    首先生成一个控件对象数组
    然后动态生成控件对象实例
    再将实例的位置写入并设置相关属性便可以实现类似控件数组的功能了
      

  2.   

    var
      I: Integer;
      tfControl: TDBEdit;
    begin
      for I := 0 to 5 do
      begin
        tfControl := TDBEdit(FindComponent('DBEdit'+IntToStr(I)));
        if tfControl <> nil then tfControl.ReadOnly := True;
      end;
    end;—————————————————————————————————
    宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
    —————————————————————————————————
      

  3.   

    1,楼上说的是动态生成,如果不是动态生成的话你可以遍历form或panel上的控件来实现,如:
    procedure TForm1.Button3Click(Sender: TObject);
    var
      i: integer;
    begin
      for i := 0 to self.ControlCount - 1 do
      begin
        if self.Controls[i] is TEdit then
          TEdit(self.Controls[i]).Color := clBlue;
      end;
    end;
      

  4.   

    3,写sql时可以用in,如:
    SELECT *
    FROM employee
    WHERE Name in ('章三','力四');