大菜 学过一点VB 现在想学DELPHI 想做一个小小的 个人管理程序
1,我想在程序中把 DBEdit1,DBEdit2,DBEdit3,DBEdit4,DBEdit5.......
Readonly属性改为true 要怎么写呢 不会一个一个的 写吧?2,还有 查询问题我用ADOTable1连接ACCESS数据库查询要怎么写呢 比如我想查出 表中的 类别 + 日期 3,查询 如果我想查出 姓名= Edit1.text + 姓名 = Edit2.text 就是同时查两个 或三个 本人 很菜 第一天学的 请说明白点谢谢!!!!
1,我想在程序中把 DBEdit1,DBEdit2,DBEdit3,DBEdit4,DBEdit5.......
Readonly属性改为true 要怎么写呢 不会一个一个的 写吧?2,还有 查询问题我用ADOTable1连接ACCESS数据库查询要怎么写呢 比如我想查出 表中的 类别 + 日期 3,查询 如果我想查出 姓名= Edit1.text + 姓名 = Edit2.text 就是同时查两个 或三个 本人 很菜 第一天学的 请说明白点谢谢!!!!
具体做法是:
首先生成一个控件对象数组
然后动态生成控件对象实例
再将实例的位置写入并设置相关属性便可以实现类似控件数组的功能了
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;—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
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;
SELECT *
FROM employee
WHERE Name in ('章三','力四');