我是VB老手,DELPHI新手!!!!!!!!

Question

1.我有一民族数据表,现要将所有民族信息添加到combobox 中,DELPHI中的combobox如何添加项目?
2.我的DBEDIT,DBGRID控件中不能进行输入,为什么?
3.我所设计的程序,用菜单栏或工具栏打开一个窗口,在没关闭此窗口的时候再次打开会报错,如何排除?
4.如何实现添加一记录时,编号自动在最后一条记录的编号上加1?
5.用adoquery如何进行添加,移动,删除,修改,更新等操作?
感谢各位DELPHI高手指教!!!!!!!!

Answer 1

1、假定你是用一个Table控件连接到民族信息表的，则这样就可以了：
combobox1.clear;
while nottable1.EOF() do
begin
  combobox1.add('table1.FieldByName('民族字段名').AsString));
  table1.next;
end;2、这是因为你的DBEdit所关联的数据集，如Table、Query控件是只读的。

Answer 2

1.
var 
  i: integer;
begin
  with MzQry do
    begin
      First;
      while not Eof do
        begin
          ComboBox1.Items[i].Add(FieldByName('MZ').AsString);
          Next;
        end;
    end;
end;2.检查Query的ReadOnly属性3.肯定是关闭窗口没有释放啦
 // open Form
  if not Assigned(Form1) then
    Application.CreateForm(TForm1, Form1);
  Form1.ShowMoal; //Close Form
  Aciton := caFree;
  Form1 := nil;4.这个最好用SQL语句
  with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select Max(ID) from table');
      Open;
      MaxID := Fields[0].AsInteger;  //MaxID就是你想要的
    end;5.这位老兄真的看看delphi的基础书啦!
  增加:  Insert/Append;
  删除:  Delete;
  修改:  Edit;
  不过错做过以后都要记得Post/ApplyUpdates(CachedUpdate模式)
  移动记录: First, Prior, Next, Last  

Answer 3

1.我有一民族数据表,现要将所有民族信息添加到combobox 中,DELPHI中的combobox如何添加项目?
2.我的DBEDIT,DBGRID控件中不能进行输入,为什么?
3.我所设计的程序,用菜单栏或工具栏打开一个窗口,在没关闭此窗口的时候再次打开会报错,如何排除?
4.如何实现添加一记录时,编号自动在最后一条记录的编号上加1?
5.用adoquery如何进行添加,移动,删除,修改,更新等操作?
感谢各位DELPHI高手指教!!!!!!!!
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这不象是VB老手问的问题！我也用了一年多vb
1.和vb一样 combobox1.items.add('添加的内容');
2.dbedit,dbgrid的数据集控件也就是Table 或者 Adotable 必将 Active 设置为 True;
3.delphi中的窗口有两种,一种是自动创建的,一种是动态创建的,如果是自动创建的，使用FormName.Show即可打开窗体,FormName.close关闭窗体,不要在close事件中加入
action := cafree这样的代码或是 FormName := nil 这样的代码,这是vb不同的在vb中可以这样用，如是动态创建的窗体，可以！但是调用时要重新创建
4.自动在编号上加1,和vb中一样，必须用代码实现，如是编程熟手，也不用多说
5.Adoquery实现添加，删除，修改比较麻烦的
用AdoDataset控件方便很多集成了Adotable,Adoquery,Adocommand的所有功能，非常好用
添加 AdoDataset.Append 添加一条空记录
修改 Adodataset.Edit 修改记录
删除 Adodataset.Delete 删除记录
移动  Adodataset.First Adodataset.Privor Adodataset.Next Adodataset.Last
提交 Adodataset.Post
取消 Adodataset.Cancel
批量更新 Adodataset.UpdateBatch
批量取消 Adodataset.CancelBatch