论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
dm_mzshg.ADOTable1.Append,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,
本篇论文来自 http://www.sxsky.net/xie/070437304.html
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&
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：