我用ADOTABLE连接库,然后在form是有一个dbgrid,datasource,dbedit控件,这几个控件相连,dbedit的datasource,datafiled都连接好,我现在的新增代码如下:
DataModule1.tbl_tail.insert;
edtmath.SetFocus;
保存代码如下:
if DataModule1.tbl_mirror.Locate('mirrorsort',trim(edtmath.Text),[]) then
begin
application.messagebox('表内已有重复记录,不能存盘!', '提示', MB_OK+mb_iconwarning);
abort;
end else
begin
screen.Cursor:=crhourglass;
DataModule1.tbl_tail.Post;
edtmath.SetFocus;
btnadd.Enabled:=true;
btnedit.Enabled:=true;
btndele.Enabled:=true;
btnundo.Enabled:=false;
btnsave.Enabled:=false;
btnclose.Enabled:=true;
screen.Cursor:=crdefault;
end;
但我每次按了新增之后,然后在dbedit中编辑数据之后,按保存按钮,总是会出现
表内已有重复记录,不能存盘!的提示框,但我的新增记录却实没重复,我在想是不是当dbedit中编辑的时候就已经把数据存到库里面了呢?如果是那样,那怎么解决呢?
DataModule1.tbl_tail.insert;
edtmath.SetFocus;
保存代码如下:
if DataModule1.tbl_mirror.Locate('mirrorsort',trim(edtmath.Text),[]) then
begin
application.messagebox('表内已有重复记录,不能存盘!', '提示', MB_OK+mb_iconwarning);
abort;
end else
begin
screen.Cursor:=crhourglass;
DataModule1.tbl_tail.Post;
edtmath.SetFocus;
btnadd.Enabled:=true;
btnedit.Enabled:=true;
btndele.Enabled:=true;
btnundo.Enabled:=false;
btnsave.Enabled:=false;
btnclose.Enabled:=true;
screen.Cursor:=crdefault;
end;
但我每次按了新增之后,然后在dbedit中编辑数据之后,按保存按钮,总是会出现
表内已有重复记录,不能存盘!的提示框,但我的新增记录却实没重复,我在想是不是当dbedit中编辑的时候就已经把数据存到库里面了呢?如果是那样,那怎么解决呢?
解决方案 »
- 64linux位下 用lazarus 编译共享库,在哪输-fPIC
- 使用ExportGrid4ToExcel把CXGRID的数据导成EXCEL后,在EXCEL中,数量字段不能自动求和
- 请教:关于ListView
- 有人在线吗 进来下
- 一个关于oracle的菜问题,请各位高手指教!!!
- 文件操作
- 没有工作 心情极度郁闷 散分
- 怎么用ServerSocket的线程方式完整的接收流?主要问题在于流的大小无法在线程中预先得知.
- 高兴,想散点儿分,希望大家赏脸。
- 高分请教!如何获取磁盘的文件格式?
- 请问一张主表同时对应两张从表的报表该怎么做?还需能打印。up也有分
- 怎样由可执行文件a.exe生成另一个可执行文件(b.exe)?(在线)
2:直接在程序中写sql 语句