with mydata do
begin
query1.Insert;
query1.fieldbyname('ID').asinteger:=7;
query1.FieldByName('name').asstring:=dbedit1.Text;
query1.FieldByName('password').asstring:=dbedit2.Text;
query1.FieldByName('truename').asstring:=dbedit5.Text;
query1.FieldByName('re').asstring:=dbedit6.Text;
query1.FieldByName('authority').asstring:=dbedit4.Text;
query1.FieldByName('valid').asstring:='true';
query1.Post;
end
begin
query1.Insert;
query1.fieldbyname('ID').asinteger:=7;
query1.FieldByName('name').asstring:=dbedit1.Text;
query1.FieldByName('password').asstring:=dbedit2.Text;
query1.FieldByName('truename').asstring:=dbedit5.Text;
query1.FieldByName('re').asstring:=dbedit6.Text;
query1.FieldByName('authority').asstring:=dbedit4.Text;
query1.FieldByName('valid').asstring:='true';
query1.Post;
end
解决方案 »
- delphi交流群
- delphi TDateTime得困惑!
- 对于初学者,短期内要编程出一个项目软件,最大的困难是什么?
- 谁能告诉我这是怎么回事?在ADOconnectingstring中选择连接microsoft ole db for odbc drivers,出现错误提示:privder is no longer avai
- 急
- 有没有函数能计算出字的象素大小(包括宽度/高度)?
- 懂点c++过来看看,帮忙改成delphi的,我自己实在搞不定了
- 寻找控件?
- 怎么样把管理工具里面的组件服务卸载,重新加载COM+
- 三层的开发:菜鸟过来了!希望高手能过来给我们讲讲!指导指导!
- 哪里有关于delphi嵌入汇编语言的详细介绍
- @_@ 没有可用分了
好像改用Table吧!
begin
query1.edit; //在这里
query1.Insert;
query1.fieldbyname('ID').asinteger:=7;
query1.FieldByName('name').asstring:=dbedit1.Text;
query1.FieldByName('password').asstring:=dbedit2.Text;
query1.FieldByName('truename').asstring:=dbedit5.Text;
query1.FieldByName('re').asstring:=dbedit6.Text;
query1.FieldByName('authority').asstring:=dbedit4.Text;
query1.FieldByName('valid').asstring:='true';
query1.Post;
//query1.edit;
Query1.ApplyUpdates;
Query1.CommitUpdates;
query1.FlushBuffers;
end;
query1.close;
query1.SQL.clear;
query1.SQL.add('insert into tableoperator ');
query1.sql.add('values("7",deedit1.text,dbedit2.text,dbedit5.text,dbedit6.text,dbedit4.text,"true")');
query1.Prepare;
query1.Open;