论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
等于'',edit11.Text:等于'',
edit12.text:等于'0',
dmmzshg.dm_mzshg.ADOyisheng.Close,
dmmzshg.dm_mzshg.ADOyisheng.SQL.Clear,
dmmzshg.dm_mzshg.ADOyisheng.SQL.Add('select*fromòéú±í'),
dmmzshg.dm_mzshg.ADOyisheng.Open,
bobox2.Items.Clear,
fori:等于0todmmzshg.dm_mzshg.ADOyisheng.RecordCount-1do
begin
bobox2.Items.Add(dmmzshg.dm_mzshg.ADOyisheng.Fields[1].asstring),
dmmzshg.dm_mzshg.ADOyisheng.Next,
end,
bobox2.Text:等于'òéúD',
bobox2.ItemIndex:等于-1,
dmmzshg.dm_mzshg.ADOkucun.Close,
dmmzshg.dm_mzshg.ADOkucun.SQL.Clear,
dmmzshg.dm_mzshg.ADOkucun.SQL.Add('select*fromò·a′±í'),
dmmzshg.dm_mzshg.ADOkucun.Open,
dmmzshg.dm_mzshg.adojiesuan.Close,
dmmzshg.dm_mzshg.adojiesuan.SQL.Clear,
dmmzshg.dm_mzshg.adojiesuan.SQL.Add('select*fromê·á±í'),
dmmzshg.dm_mzshg.adojiesuan.Open,
dmmzshg.dm_mzshg.adojiesuan.Last,
dmmzshg.dm_mzshg.adomingxi.Close,
dmmzshg.dm_mzshg.adomingxi.SQL.Clear,
dmmzshg.dm_mzshg.adomingxi.SQL.Add('select*fromê·÷±í'),
dmmzshg.dm_mzshg.adomingxi.Open,
dmmzshg.dm_mzshg.adomingxi.Last,
dmmzshg.dm_mzshg.ADOchaxun.Close,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('selectdistinctò·ààfromò·a′±í'),
dmmzshg.dm_mzshg.ADOchaxun.Open,
bobox1.Items.Clear,
fori:等于0todmmzshg.dm_mzshg.ADOchaxun.RecordCount-1do
begin
bobox1.Items.Add(dmmzshg.dm_mzshg.ADOchaxun.Fields[0].asstring),
dmmzshg.dm_mzshg.ADOchaxun.Next,
end,
bobox1.Text:等于'ê·',
bobox1.ItemIndex:等于-1,
end,
procedureTmzshgf.Edit1KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
begin
dmmzshg.dm_mzshg.ADOchaxun.Close,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select*from1òo±íwhere1òo±ào等于'),
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit1.Text+''''),
dmmzshg.dm_mzshg.ADOchaxun.Open,
ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then
begin
edit2.Text:等于dmmzshg.dm_mzshg.ADOchaxun.Fields[1].AsString,
edit3.Text:等于datetostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[3].AsDateTime),
end,
edit12.Text:等于'0',
end,
end,
procedureTmzshgf.ComboBox1Click(Sender:TObject),
vari:integer,
ss:string,
begin
ss:等于bobox1.Items[bobox1.itemindex],
dmmzshg.dm_mzshg.ADOchaxun.Close,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('selectò·3fromò·a′±íwhereò·àà等于'),
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+ss+''''),
dmmzshg.dm_mzshg.ADOchaxun.Open,
ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then
begin
listbox1.Items.Clear,
fori:等于0todmmzshg.dm_mzshg.ADOchaxun.RecordCount-1do
begin
listbox1.Items.Add(dmmzshg.dm_mzshg.ADOchaxun.Fields[0].asstring),
dmmzshg.dm_mzshg.ADOchaxun.Next,
end,
end,
edit5.Text:等于'',
edit6.Text:等于'',
edit7.Text:等于'',
edit8.Text:等于'',
end,
procedureTmzshgf.ListBox1DblClick(Sender:TObject),
begin
edit8.Text:等于listbox1.Items[listbox1.itemindex],
edit5.SetFocus,
dmmzshg.dm_mzshg.ADOchaxun.Close,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Clear,
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add('select*fromò·a′±íwhereò·3等于'),
dmmzshg.dm_mzshg.ADOchaxun.SQL.Add(''''+edit8.Text+''''),
dmmzshg.dm_mzshg.ADOchaxun.Open,
ifdmmzshg.dm_mzshg.ADOchaxun.RecordCount<,>,0then
begin
edit9.Text:等于dmmzshg.dm_mzshg.ADOchaxun.Fields[5].AsString,
edit6.Text:等于floattostr(dmmzshg.dm_mzshg.ADOchaxun.Fields[7].AsFloat),
end,
end,
procedureTmzshgf.Edit5KeyPress(Sender:TObject,varKey:Char),
varf1:real,
f2:real,
begin
ifkey等于#13then
begin
f1:等于strtofloat(edit5.Text),
f2:等于strtofloat(edit6.Text),
f2:等于f1*f2,
edit7.Text:等于format('%3.2f',[f2]),
ifnotdmmzshg.dm_mzshg.adomingxi.Activethen
dmmzshg.dm_mzshg.adomingxi.Open,
dmmzshg.dm_mzshg.adomingxi.Append,
edit12.Text:等于floattostr(strtofloat(edit7.Text)+strtofloat(edit12.Text)),
dmmzshg.dm_mzshg.adomingxi.Fields[1].AsInteger:等于strtoint(edit1.Text),
dmmzshg.dm_mzshg.adomingxi.Fields[2].AsString:等于edit8.Text,
dmmzshg.dm_mzshg.adomingxi.Fields[3].AsString:等于edit9.Text,
dmmzshg.dm_mzshg.adomingxi.Fields[4].AsInteger:等于strtoint(edit5.Text),
dmmzshg.dm_mzshg.adomingxi.Fields[5].AsFloat:等于strtofloat(edit6.Text),
dmmzshg.dm_mzshg.adomingxi.Fields[6].AsFloat:等于strtofloat(edit7.Text),
dmmzshg.dm_mzshg.adomingxi.Fields[7].AsString:等于bobox1.Items[bobox1.itemindex],
dmmzshg.dm_mzshg.adomingxi.Post,
dmmzshg.dm_mzshg.adomingxi.Last,
button2.Enabled:等于true,
dmmzshg.dm_mzshg.ADOTable1.Close,
dmmzshg.dm_mzshg.ADOTable1.TableName:等于'ò·3a±í',
dmmzshg.dm_mzshg.ADOTable1.Open,
dmmzshg.
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：