| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/7/31 0:03:04 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 求师傅指点： 我用的是D6+Query、DbGrid；我在窗体中输入一条记录并点保存按钮后，在DBGrid组件中能看到输入的记录，打开数据库也能看到新输入的记录存在，若此时断电，再打开计算机，进入该程序，刚才输入的记录就丢失了；如果正常关闭程序，则再打开该程序输入的记录就存在，不只是那里错了？ 敬请高手帮助指点！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/7/31 7:58:58 | ||||
| 1楼： | 这应该是数据库系统尚未将数据存到硬盘上的缘故，不知你用的是什么数据库？如果是重要数据的话，应该使用UPS。 ---------------------------------------------- -广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了…… |
|||||
| 作者： |
|
2004/7/31 8:30:09 | ||||
| 2楼： | 数据提交了没有，如果提交了，一般不会出现这种问题，如查出现也不定是仅回滚刚录入的一条， ---------------------------------------------- - |
|||||
| 作者： |
|
2004/8/4 23:53:08 | ||||
| 3楼： | 楼上的师傅：我用的数据库是Paradox Table1和Query1的数据源为同一个表 procedure TForm4.Button1Click(Sender: TObject); //记录保存按钮事件 var J:String; begin if ComboBox1.Text<>'' then if ComboBox3.Text<>'' then begin query1.Active:=false; Query2.close; Query2.SQL.Clear; Query2.SQL.Add('select * from zxgl'); Query2.Prepare; Query2.Open; Query2.Filter:='JCX='+''''+ComboBox1.text+''''+' and '+'JCh='+''''+ComboBox3.text+''''; Query2.Filtered:=true; if Query2.RecordCount=1 then begin J:=Query2.FieldValues['ZZXGL']; Query2.Close; query1.Active:=false; Table1.Filtered:=false; Table1.Open; //将原该车上次更换碳刷的“更换”改成“更换*” Table1.Filter:='JCX='+''''+ComboBox1.text+''''+' and '+'JCh='+''''+ComboBox3.text+''''; Table1.Filtered:=true; if Table1.RecordCount>0 then begin //Edit1.Text:=IntToStr(Table1.RecordCount); Table1.First; while not Table1.Eof do begin Table1.edit; if RadioButton4.Checked=true then if Table1.FieldValues['D1']='更换' then Table1.FieldValues['D1']:='更换*'; if RadioButton6.Checked=true then if Table1.FieldValues['D2']='更换' then Table1.FieldValues['D2']:='更换*'; if RadioButton8.Checked=true then if Table1.FieldValues['D3']='更换' then Table1.FieldValues['D3']:='更换*'; if RadioButton10.Checked=true then if Table1.FieldValues['D4']='更换' then Table1.FieldValues['D4']:='更换*'; if RadioButton12.Checked=true then if Table1.FieldValues['D5']='更换' then Table1.FieldValues['D5']:='更换*'; if RadioButton14.Checked=true then if Table1.FieldValues['D6']='更换' then Table1.FieldValues['D6']:='更换*'; Table1.Post; Table1.Next; end; Table1.Close; //Table1.Filtered:=false; end; Table1.Open; Table1.Append; Table1.FieldValues['JCX']:=ComboBox1.Text; Table1.FieldValues['JCH']:=ComboBox3.Text; Table1.FieldValues['GHRQ']:=DateTimePicker1.Date; Table1.FieldValues['JLSJ']:=Time; Table1.FieldValues['TSXH']:=ComboBox2.Text; Table1.FieldValues['JCR']:=Edit3.Text; if Edit3.Text<>'' then Table1.FieldValues['JCRSJ']:=Time; Table1.FieldValues['GHR']:=Edit4.Text; if Edit4.Text<>'' then Table1.FieldValues['GHRSJ']:=Time; Table1.FieldValues['FJR']:=Edit1.Text; if Edit1.Text<>'' then Table1.FieldValues['FJRSJ']:=Time; if RadioButton3.Checked=true then Table1.FieldValues['D1']:='检查'; if RadioButton4.Checked=true then Table1.FieldValues['D1']:='更换'; if RadioButton3.Checked=false and RadioButton4.Checked=false then Table1.FieldValues['D1']:=''; Table1.FieldValues['D11']:=ComboBox6.Text; Table1.FieldValues['D12']:=ComboBox7.Text; Table1.FieldValues['D13']:=ComboBox8.Text; Table1.FieldValues['D14']:=ComboBox9.Text; if RadioButton5.Checked=true then Table1.FieldValues['D2']:='检查'; if RadioButton6.Checked=true then Table1.FieldValues['D2']:='更换'; if RadioButton5.Checked=false and RadioButton6.Checked=false then Table1.FieldValues['D2']:=''; Table1.FieldValues['D21']:=ComboBox10.Text; Table1.FieldValues['D22']:=ComboBox11.Text; Table1.FieldValues['D23']:=ComboBox12.Text; Table1.FieldValues['D24']:=ComboBox13.Text; if RadioButton7.Checked=true then Table1.FieldValues['D3']:='检查'; if RadioButton8.Checked=true then Table1.FieldValues['D3']:='更换'; if RadioButton7.Checked=false and RadioButton8.Checked=false then Table1.FieldValues['D3']:=''; Table1.FieldValues['D31']:=ComboBox14.Text; Table1.FieldValues['D32']:=ComboBox15.Text; Table1.FieldValues['D33']:=ComboBox16.Text; Table1.FieldValues['D34']:=ComboBox17.Text; if RadioButton9.Checked=true then Table1.FieldValues['D4']:='检查'; if RadioButton10.Checked=true then Table1.FieldValues['D4']:='更换'; if RadioButton9.Checked=false and RadioButton10.Checked=false then Table1.FieldValues['D4']:=''; Table1.FieldValues['D41']:=ComboBox18.Text; Table1.FieldValues['D42']:=ComboBox19.Text; Table1.FieldValues['D43']:=ComboBox20.Text; Table1.FieldValues['D44']:=ComboBox21.Text; if RadioButton11.Checked=true then Table1.FieldValues['D5']:='检查'; if RadioButton12.Checked=true then Table1.FieldValues['D5']:='更换'; if RadioButton11.Checked=false and RadioButton12.Checked=false then Table1.FieldValues['D5']:=''; Table1.FieldValues['D51']:=ComboBox22.Text; Table1.FieldValues['D52']:=ComboBox23.Text; Table1.FieldValues['D53']:=ComboBox24.Text; Table1.FieldValues['D54']:=ComboBox25.Text; if RadioButton13.Checked=true then Table1.FieldValues['D6']:='检查'; if RadioButton14.Checked=true then Table1.FieldValues['D6']:='更换'; if RadioButton13.Checked=false and RadioButton14.Checked=false then Table1.FieldValues['D6']:=''; Table1.FieldValues['D61']:=ComboBox26.Text; Table1.FieldValues['D62']:=ComboBox27.Text; Table1.FieldValues['D63']:=ComboBox28.Text; Table1.FieldValues['D64']:=ComboBox29.Text; Table1.FieldValues['GHTS']:='0'; Table1.FieldValues['XHGL']:='0'; Table1.FieldValues['ZXGL']:=J; Table1.Post; Table1.Close; query1.Active:=True; ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
