| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2004/3/17 15:40:49 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我用两个DBGrid1(数据表格) 表一、用ADOQuery1查询的， 字段 aaa bbb ccc 12 24 26 edit10 35 把表一的数据与edit添加表二、 表二 aaa bbb ccc（edit的数据) 12 24 35 怎么样控制表一中的aaa字段与edit10的的数据重复向表二中添加。 请列出代码，不甚感激！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/17 22:49:12 | ||||
| 1楼： | 1、在窗体上用四个edit组件，显示表一及edit10的数据，然后用下列语句将四个edit组件的数据写入表二：语句参考： 显示代码 edit16.Text:=dmsjk.Cybrjs.FieldValues['医保起付']; edit17.Text:=dmsjk.Cybrjs.FieldValues['自付']; edit18.Text:=dmsjk.Cybrjs.FieldValues['自费']; edit19.Text:=dmsjk.Cybrjs.FieldValues['医保支付']； 写入代码： dmsjk.Cybrjs.apped; dmsjk.Cybrjs.Edit; dmsjk.Cybrjs.FieldByName('医保起付').Value:=strTocurr(edit16.Text); dmsjk.Cybrjs.FieldByName('自付').Value:=strTocurr(edit17.Text); dmsjk.Cybrjs.FieldByName('自费').Value:=strTocurr(edit18.Text); dmsjk.Cybrjs.FieldByName('医保支付').Value:=strTocurr(edit19.Text); dmsjk.Cybrjs.Post; dmsjk.Cybrjs.Refresh; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/18 8:10:16 | ||||
| 2楼： | 谢谢！ 可是我不是添加问题？我是不让EDIT的TEXT还必须表一中的AAA字段重复向表二中添加！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/21 21:48:58 | ||||
| 3楼： | ~.append; . . . ~.post; 这种方法是不是只适用于这个ADOQuery控件的使用，我用Tadodataset后出现错误，是commandtext没有赋值的话～！ ---------------------------------------------- －－热爱编程，永不满足－－ |
|||||
| 作者： |
|
2004/3/25 10:30:00 | ||||
| 4楼： | 說的再明白一點﹐或者將你的源碼發過來 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/25 12:35:20 | ||||
| 5楼： | s:=exit1.text; if ADOQuery1.locate('ccc',s,[]) then MessageBox(application.handle,'存在','错误',mb_ICONerror+mb_ok); ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/25 16:48:05 | ||||
| 6楼： | 以下是添加的源代码？怎么样才能控制'学号'与id添加两次？ procedure Tjiaoxue.DBGrid1CellClick(Column: TColumn); var v,x,y,z:string; begin if(edit3.Text='') or (edit4.Text='') or(edit6.Text='') then begin showmessage('数据不能为空!!!');exit end; dm.jiaoxue.Append; dm.jiaoxue.Insert; v:=dm.ADOQuery1.fieldbyname('学号').asstring; x:=dm.ADOQuery1.fieldbyname('班级').asstring; y:=dm.ADOQuery1.fieldbyname('专业').asstring; z:=dm.ADOQuery1.fieldbyname('姓名').asstring; dm.jiaoxue.fieldbyname('jian').asstring:=v; dm.jiaoxue.fieldbyname('user').asstring:=x; dm.jiaoxue.fieldbyname('name').asstring:=y; dm.jiaoxue.fieldbyname('ban').asstring:=z; dm.jiaoxue.FieldByName('kahe').AsString:=edit3.Text; dm.jiaoxue.FieldByName('id').AsString:=edit6.Text; dm.jiaoxue.FieldByName('he').AsString:=edit4.Text; dm.jiaoxue.FieldByName('zosi').AsString:=edit5.Text; dm.jiaoxue.FieldByName('data').AsDateTime:=datetimepicker1.Date; dm.jiaoxue.post; next; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/26 9:04:48 | ||||
| 7楼： | with Qry_cp do begin //查找零件信息 close; strsql:='select * from cp where '+s_prodsch+'="'+th+'"'; SQL.Clear; SQL.Add(strsql); //Prepared; DisableControls; try open; except execsql; end; EnableControls; if recordcount>0 then begin ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/3/26 10:14:38 | ||||
| 8楼： | 不懂！ 试了无效！ 还是要谢谢你！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
