论文网
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文
本论文是一篇关于数据库方面本科毕业论文范文,关于修改文收费最新修改,最新修改相关专科毕业论文范文。免费优秀的关于数据库及管理系统及主治医生方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
on2Click(Sender:TObject),begin
edit1.Text:等于'',
bobox1.Text:等于'ò·ààDí',
edit3.Text:等于'',
edit2.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
bobox2.Text:等于'′úàíéìμ',
bobox1.ItemIndex:等于-1,
bobox2.ItemIndex:等于-1,
edit1.SetFocus,
end,
procedureTyaodan.Edit1KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
bobox1.SetFocus,
end,
procedureTyaodan.ComboBox1Click(Sender:TObject),
begin
edit3.SetFocus,
end,
procedureTyaodan.Edit3KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
edit2.SetFocus,
end,
procedureTyaodan.Edit2KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
edit4.SetFocus,
end,
procedureTyaodan.Edit4KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
datetimepicker1.SetFocus,
end,
procedureTyaodan.ComboBox2KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
button1.SetFocus,
end,
end.
药品出库管理代码:
unityaochukugldan,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,Buttons,DBCtrls,Grids,DBGrids,ExtCtrls,
type
Tyaochukugl等于class(TForm)
Panel1:TPanel,
GroupBox1:TGroupBox,
DBGrid1:TDBGrid,
DBNavigator1:TDBNavigator,
BitBtn1:TBitBtn,
BitBtn2:TBitBtn,
BitBtn3:TBitBtn,
BitBtn4:TBitBtn,
procedureBitBtn4Click(Sender:TObject),
procedureBitBtn3Click(Sender:TObject),
procedureBitBtn2Click(Sender:TObject),
procedureBitBtn1Click(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
关于数据库方面论文范例
end,
var
yaochukugl:Tyaochukugl,
implementation
{$R*.dfm}usesdmgl,login,yaochukudd,
procedureTyaochukugl.BitBtn4Click(Sender:TObject),
begin
close,
end,
procedureTyaochukugl.BitBtn3Click(Sender:TObject),
begin
dmgl.dm_yaopingl.chuku.Cancel,
end,
procedureTyaochukugl.BitBtn2Click(Sender:TObject),
begin
dmgl.dm_yaopingl.ADOQuery1.Close,
dmgl.dm_yaopingl.ADOQuery1.SQL.Clear,
dmgl.dm_yaopingl.ADOQuery1.SQL.Add('select*fromò·a′±íwhereò·3等于'),
dmgl.dm_yaopingl.ADOQuery1.SQL.Add(''''+dmgl.dm_yaopingl.chuku.Fields[3].AsString+''''),
dmgl.dm_yaopingl.ADOQuery1.Open,
ifdmgl.dm_yaopingl.ADOQuery1.FieldCount<,>,0then
begin
dmgl.dm_yaopingl.ADOQuery1.Edit,
dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger:等于dmgl.dm_yaopingl.ADOQuery1.Fields[8].AsInteger-dmgl.dm_yaopingl.chuku.Fields[6].AsInteger,
dmgl.dm_yaopingl.ADOQuery1.Post,
end,
dmgl.dm_yaopingl.chuku.Delete,
end,
procedureTyaochukugl.BitBtn1Click(Sender:TObject),
begin
yaochukudd.yaochukud:等于yaochukudd.Tyaochukud.Create(application),
yaochukudd.yaochukud.showmodal,
ifyaochukudd.yaochukud.ShowModal等于mrokthen
begin
ifyaochukudd.yaochukud.Edit1.Text等于''then
begin
yaochukudd.yaochukud.Free,
exit,
end,
dmgl.dm_yaopingl.chuku.Active:等于true,
dmgl.dm_yaopingl.chuku.Append,
dmgl.dm_yaopingl.chuku.Fields[1].AsString:等于login.Form1.DBEdit1.Text,
dmgl.dm_yaopingl.chuku.Fields[2].AsDateTime:等于strtodate(formatdatetime('yyyy-mm-dd',now)),
dmgl.dm_yaopingl.chuku.Fields[3].AsString:等于yaochukudd.yaochukud.Edit1.Text,
dmgl.dm_yaopingl.chuku.Fields[4].AsString:等于yaochukudd.yaochukud.ComboBox1.Items[yaochukudd.yaochukud.ComboBox1.itemindex],
dmgl.dm_yaopingl.chuku.Fields[5].AsFloat:等于strtofloat(yaochukudd.yaochukud.Edit3.Text),
dmgl.dm_yaopingl.chuku.Fields[7].AsString:等于yaochukudd.yaochukud.Edit4.Text,
dmgl.dm_yaopingl.chuku.Fields[6].AsInteger:等于strtoint(yaochukudd.yaochukud.Edit2.Text),
dmgl.dm_yaopingl.ADOQuery1.Close,
dmgl.dm_yaopingl.ADOQuery1.SQL.Clear,
dmgl.dm_yaopingl.ADOQuery1.SQL.Add('select*fromò·a′±íwhereò·3等于'),
dmgl.dm_yaopingl.ADOQuery1.SQL.Add(''''+yaochukudd.yaochukud.Edit1.Text+''''),
dmgl
关于数据库方面论文范例,与修改文收费最新修改,最新修改相关本科毕业论文范文参考文献资料：