关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文

本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。

dmmzshg.dm_mzshg.ADOTable1.Fields[1].AsString:等于login.Form1.DBEdit1.Text,

dmmzshg.dm_mzshg.ADOTable1.Fields[2].AsDateTime:等于strtodate(edit3.Text),

dmmzshg.dm_mzshg.ADOTable1.Fields[3].AsString:等于edit8.Text,

dmmzshg.dm_mzshg.ADOTable1.Fields[4].AsString:等于bobox1.Items[bobox1.itemindex],

dmmzshg.dm_mzshg.ADOTable1.Fields[5].AsFloat:等于strtofloat(edit6.Text),

dmmzshg.dm_mzshg.ADOTable1.Fields[6].AsInteger:等于strtoint(edit5.Text),

dmmzshg.dm_mzshg.ADOTable1.Post,

end,

end,

procedureTmzshgf.Button1Click(Sender:TObject),

begin

edit12.Text:等于'0',

edit1.Text:等于'',

edit2.Text:等于'',

edit3.Text:等于'',

edit4.Text:等于'',

edit5.Text:等于'',

edit6.Text:等于'',

edit7.Text:等于'',

edit8.Text:等于'',

edit9.Text:等于'',

edit10.Text:等于'',

edit11.Text:等于'',

button2.Enabled:等于false,

edit1.SetFocus,

end,

procedureTmzshgf.Button2Click(Sender:TObject),

vari,j:integer,

f10,f1,f2,f3,f4,f5,f6,f7,f8,f9:real,

begin

j:等于0,

f10:等于0,

f1:等于0,

f2:等于0,

f3:等于0,

f4:等于0,

f5:等于0,

f6:等于0,

f7:等于0,

f8:等于0,

f9:等于0,

ifnotdmmzshg.dm_mzshg.adojiesuan.Activethen

dmmzshg.dm_mzshg.adojiesuan.Open,

dmmzshg.dm_mzshg.adojiesuan.Append,

dmmzshg.dm_mzshg.adojiesuan.Fields[1].AsInteger:等于strtoint(edit1.Text),

dmmzshg.dm_mzshg.adojiesuan.Fields[2].AsString:等于edit2.Text,

dmmzshg.dm_mzshg.adojiesuan.Fields[3].AsDateTime:等于strtodate(edit3.Text),

dmmzshg.dm_mzshg.adojiesuan.Fields[14].AsString:等于bobox2.Items[bobox2.itemindex],

dmmzshg.dm_mzshg.adojiesuan.Fields[15].AsFloat:等于strtofloat(edit12.Text),

dmmzshg.dm_mzshg.adomingxi.Close,

dmmzshg.dm_mzshg.adomingxi.SQL.Clear,

dmmzshg.dm_mzshg.adomingxi.SQL.Add('select*fromê·÷±íwhere1òo±ào等于'),

dmmzshg.dm_mzshg.adomingxi.SQL.Add(''''+edit1.Text+''''),

dmmzshg.dm_mzshg.adomingxi.Open,

fori:等于0todmmzshg.dm_mzshg.adomingxi.RecordCount-1do

begin

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'Dò'then

j:等于0,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'÷ò'then

j:等于1,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'D3éò'then

j:等于2,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'êê'then

j:等于3,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'êòo'then

j:等于4,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'ì2é'then

j:等于5,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'á'then

j:等于6,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'ˉé'then

j:等于7,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于''then

j:等于8,

iftrim(dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString)等于'ü'then

j:等于9,

casejof

0:f1:等于f1+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

1:f2:等于f2+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

2:f3:等于f3+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

3:f4:等于f4+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

4:f5:等于f5+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

5:f6:等于f6+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

6:f7:等于f7+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

7:f8:等于f8+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

8:f9:等于f9+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

9:f10:等于f10+dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat,

end,

dmmzshg.dm_mzshg.ADOkucun.Close,

dmmzshg.dm_mzshg.ADOkucun.SQL.Clear,

dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select*fromò·a′±íwhereò·3等于'),

dmmzshg.dm_mzshg.ADOkucun.SQL.Add(''''+trim(dmmzshg.dm_mzshg.adomingxi.Fields[2].asstring)+''''),

dmmzshg.dm_mzshg.ADOkucun.Open,

ifdmmzshg.dm_mzshg.ADOkucun.RecordCount<,>,0then

begin

dmmzshg.dm_mzshg.ADOkucun.Edit,

dmmzshg.dm_mzshg.ADOkucun.Fields[8].AsInteger:等于dmmzshg.dm_mzshg.ADOkucun.Fields[8].AsInteger-dmmzshg.dm_mzshg.adomingxi.Fields[4].AsInteger,

dmmzshg.dm_mzshg.ADOkucun.Post,

end,

dmmzshg.dm_mzshg.adomingxi.Next,

end,

dmmzshg.dm_mzshg.adojiesuan.Fields[4].AsFloat:等于f1,

dmmzshg.dm_mzshg.adojiesuan.Fields[5].AsFloat:等于f2,

dmmzshg.dm_mzshg.adojiesuan.Fields[6].AsFloat:等于f3,

dmmzshg.dm_mzshg.adojiesuan.Fields[7].AsFloat:等于f4,

dmmzshg.dm_mzshg.adojiesuan.Fields[8].AsFloat:等于f5,

dmmzshg.dm_mzshg.adojiesuan.Fields[9&

上一页 1 2 3 4 5 6 7 8 9 10 下一页

关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：

写论文步骤

有没有帮写论文的

代理写论文

如何写论文提要

如何写好高中议论文

怎么能写好议论文

如何让写好议论文

招聘

怎么写好议论文

论文后记写什么