毕业设计(论文)
-----莫建坡
计算机系.02级电子与信息技术专业
(DELPHI)数据库管理系统
(目录)
第一部分引言
------------------------------------------任务或问题:
------------------------------------------实际背景:
------------------------------------------我的工作
------------------------------------------特色(创新)
第二部分毕业设计课题
------------------------------------------设计课题
------------------------------------------设计时间
------------------------------------------设计人员及任务
------------------------------------------指导老师
------------------------------------------设计内容
第三部分系统方案论证
3.1------------------------------------------软件定义
3.2---------------------------------------------------------体系结构规划
第四部分毕业设计内容
4.1-------------------------------------------功能模块分析
4.2-------------------------------------------模块1功能实现
4.3-------------------------------------------模块2功能实现
4.4-------------------------------------------模块3功能实现
4.5-------------------------------------------模块4功能实现
4.6-------------------------------------------模块5功能实现
4.7-------------------------------------------数据库分析
4.8-------------------------------------------系统界面实现
第五部分毕业设计心得体会
第六部分附录
6.1-------------------------------------------代码部分
7.0和MSServer2000等软件为开发工具,通过对计算机硬件和软件解决方案的论证,对应用领域进行调查分析,参考各种资料和进行数据库编程实践.在我指导老师的帮助下,已经基本上成功地实现了设计任务书的要求.使得设计的数据库系统能够实现一般数据库的管理.我们研究了数据库的查询优化问题.第一部分引言
1.1任务或问题:
开发一个医院门诊收费管理系统,可以实现动态的连接应用程序服务器,只要对配置文件进行配置,就可以像网上邻居一样选择所要连接的应用程序服务器.并能实现门诊收费,划价,药品管理,住院管理,
医务人员管理及各种查询,报表等功能.
1.2实际背景:
随着社会发展,人类的生产,生活越来越离不开信息.谁拥有了更多更有效的信息,谁就将在竞争中处于有利地位.信息产业正在成为一个国家的支柱.数据作为信息的载体,其管理工具数据库对于信息技术的重要性,正日益得到人们的重视.只有拥有了先进的数据库技术,才能有效地管理好浩如烟海的数据,并从中提取出对自己有用的信息来加以利用
管理要求查询要求
管理结果查询结果
(顶层数据流图)
数据库设计过程
数据库的设计过程如下图所示.在数据库设计过程中,需求分析和概念设计可以独立于任何数据库管理系统进行.逻辑设计和物理设计与具体的数据库管理系统密切相关.由于需求分析比较重要.我们在设计的时候,花了比较多的时间.在获得这些资料之后,进行分析.从中提取有用的部分.分析各种用户的权限.
需求分析说明书
概念数据库模式
独立于数据(高级数据模型)
库管理系统
与数据库管
理系统相关
逻辑数据库模式
(特定数据模型)
物理数据库模式
(特定的物理存储结构和存取方式)
图:数据库设计过程
系统模块图:
第四部分毕业设计内容
4.1-------------------------------------------功能模块分析
门诊收费管理模块图:
药品管理模块图:
住院管理模块图:
医务人员管理模块图:
辅助资料管理模块图:
系统设置模块图:
帐目管理模块:
4.2-------------------------------------------模块1功能实现
门诊收费管理:
门诊收费管理主要完成:病人挂号,药品收费,划价,等功能管理,并且能够对药房药品进行动态的调整,
所使用的数据表:
挂号表:
3挂号编号int40
1病人姓名char200
1病人班级char301
1挂号日期datetime80
1挂号科室char200
1挂号类型char200
1挂号金额money80
门诊收费明细表:
2编号int40
0挂号编号int40
0收费名称char250
0计量单位char100
0数量int40
0收费单价money80
0收费金额money80
1药品种类char101
门诊收费结算表:
2编号int40
0挂号编号int40
0患者姓名char200
0结算日期datetime80
0西药费money81
0中药费money81
0中成药费money81
0手术费money81
0输液费money81
0检查费money81
0治疗费money81
0化验费money81
0拍片费money81
0其它费money81
0主治医生char201
1总费用额money81
挂号功能界面:
门诊收费,划价管理功能界面:
门诊流程图:
4.3-------------------------------------------模块2功能实现
药品管理主要完成:药品的入库,出库,库存统计,药品管理:
所使用的数据表:
药品入库总表:
2入库总表编号int40
0入库操作员char200
0入库日期datetime80
1入库备注text161
药品入库明细表:
2入库明细编号int40
0入库总表编号int40
0药品名称char300
0药品种类char100
0计量单位char100
0药品出厂日期datetime81
0药品过期日期datetime81
0进货日期datetime81
0进货公司int41
0药品单价money80
0药品数量int40
1药品总金额money80
药品出库表:
2编号int40
0出库操作员char200
0出库日期datetime80
0出库药品名char250
0出库药品种类char101
0出库money80
0出库数量int40
1备注text161
药商表:
2药商编号int40
1药商公司名char300
药品库存表:
2编号int40
0药品名称char251
0药品种类char101
0生产日期datetime81
0过期日期datetime81
0计量单位char101
0药品进价money81
0药品售价money81
0药品数量int41
1备注text161
药品入库功能界面:
药品填写单界面:
药品出库功能界面:
药品管理流程图:
4.4-------------------------------------------模块3功能实现
住院管理功能实现:住院预交款,住院收费,医药管理,住院结算管理,
所用的数据表:
预交款信息表:
2编号int40
0交款姓名char201
0预交金额money80
0交款次数int40
0交款日期datetime80
1病房号int40
住院收费明细表:
2编号int40
0病房号int40
0收费名称char300
0种类char100
0数量int40
0单价money80
1金额money81
住院收费结算表:
2编号int40
0病房号int40
0病人姓名char200
0收费日期datetime80
0主治医生char200
0药费money81
0手术费money81
0病房费money81
0其它费money81
1总金额money81
出院结算信息表:
2编号int40
0病房号int40
0出院日期datetime80
0住院总金额money80
1找还金额money81
预交款信息功能界面:
住院收费,划价,医药管理功能界面:
出院管理功能界面:
4.5-------------------------------------------模块4功能实现
医务人员管理功能实现:医务人员注册,修改,维护,值班维护及各科室部门维护等
所用到的数据表:
医务人员信息表:
2编号int40
0姓名char200
0部门科室char200
0职务char300
0联系char151
0星期1bit10
0星期2bit10
0星期3bit10
0星期4bit10
0星期5bit10
0星期6bit10
1星期7bit10
医生表:
2编号int40
0医生姓名char200
1医生职务char250
工作休息代码表:
2编号int40
1休息值char100
科室表:
2科室号int40
1科室名char300
职务表:
2编号int40
1职务名称char200
医务人员管理功能界面:
值班人员管理功能界面:
科室维护功能界面:
部门维护功能界面:
4.6-------------------------------------------模块5功能实现
院长查询管理:药品整体调价控制,单个药品调价控制,用户注册管理等功能,
药品调价控制管理界面:
用户注册界面:
4.7-------------------------------------------数据库
数据库所用到的数据表 :
CREATETABLE[住院收费明细表](
CREATETABLE[住院收费结算表](
CREATETABLE[出院结算信息表](
CREATETABLE[医务人员信息表](
CREATETABLE[医生表](
CREATETABLE[工作休息代码表](
CREATETABLE[当日进帐表](
CREATETABLE[挂号类型](
CREATETABLE[挂号表](
CREATETABLE[病房状态表](
CREATETABLE[登陆表](
CREATETABLE[科室表](
CREATETABLE[职务表](
CREATETABLE[药品入库总表](
CREATETABLE[药品入库明细表](
CREATETABLE[药品公司表](
CREATETABLE[药品出库表](
CREATETABLE[药品库存表](
CREATETABLE[门诊收费明细表](
CREATETABLE[门诊收费结算表](
CREATETABLE[预交款信息表](
能够对数据库进行备份,还原操作等功能,
4.8-------------------------------------------系统界面实现
系统界面主要是对各功能界面实现中转,间接管理,
系统功能界面:
根据用户需求:增加了一个计算器,和简单记话本,
用户登陆界面:
第五部分毕业设计心得体会及结论
在老师的指导下.本次毕业设计,就要画上一个句号了.可是,对我来说,这次设计的本身所产生的影响,还远远没有结束,我从本次毕业设计中学到了许多课本上没有的知识.从设计任务书的下达到今天基本实现任务书中的设计要求,时间已整整过去了1个月.在这1个月中.通过自己的学习和努力,通过各位老师的指导和教育,使我不仅仅在知识水平和解决实际问题的能力上有了很大的提高.还从思想的深处体会到,要把自己的所学变成现实时所将面对的种种难题.
由于我平时的课程理论知识学的还可以,我总是认为自己的知识水平已经能处理许多的现实问题了.而当自己真正的深入到设计实践当中,深入到问题当中时.我竟然发现自己无从下手,我开始怀疑我是否真正的学到了知识.也只有到了那个时候,我才真正体会到学会运用自己的能力与知识是何等的重要,知识是在课堂上,老师教授的,在书本中学到的,实践则是要自己动手,自己去做才能掌握.
在老师们的关心和帮助下,我渐渐的开始了设计.根据老师的建议,我找来了数据库设计与建设的相关书籍和资料,从最基本的问题入手开始一个个的解决我心中的疑惑.这是一个漫长的学习过程.随着时间的推移,我开始慢慢的掌握了设计时所需要的知识.我也终于明白了大学三年学习的意义和作用.扎实的基本功和良好的学习习惯,能使自己在学习新知识有更深刻的认识力和更快的领会力.
同时老师对毕业设计的重视也是我能完成设计的一个重要条件.为了保证我们毕业设计的正常进行,学院抽调了优秀的老师指导我们进行毕业设计,提供良好的设备给我们,在软硬件上支持我们进行毕业设计,并且不时地询问我们毕业设计的进展情况.为我们这次设计的正常开展提供了必要的物质基础.
关于本次设计的命题,我的设计只能提供其基本的功能.还有许多的设想由于时间和自身和因素无法得以实现,这不能不说是本次设计的遗憾之处.不过,至少它已经启发了自己的思维,提高了我的动手能力,这是我在课本中学不到的.它为我们在以后的工作岗位上发挥自己的才能奠定了坚实的基础.
第六部分附录
6.1-------------------------------------------代码部分
系统界面代码:
unitmain,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,ExtCtrls,ImgList,Menus,ComCtrls,ToolWin,jpeg,StdCtrls,DB,
ADODB,
type
Tmain1等于class(TForm)
Panel1:TPanel,
PageControl2:TPageControl,
TabSheet5:TTabSheet,
StaticText5:TStaticText,
GroupBox1:TGroupBox,
label_gh:TLabel,
Label_mzbagl:TLabel,
Label_cxhbb:TLabel,
GroupBox2:TGroupBox,
Label1:TLabel,
Label2:TLabel,
Label3:TLabel,
b_go2:TButton,
GroupBox3:TGroupBox,
RichEdit1:TRichEdit,
TabSheet6:TTabSheet,
TabSheet7:TTabSheet,
TabSheet9:TTabSheet,
TabSheet10:TTabSheet,
Panel2:TPanel,
PageControl1:TPageControl,
TabSheet1:TTabSheet,
Image1:TImage,
TabSheet2:TTabSheet,
TabSheet3:TTabSheet,
StatusBar1:TStatusBar,
ToolBar1:TToolBar,
ToolButton1:TToolButton,
ToolButton2:TToolButton,
ToolButton7:TToolButton,
ToolButton8:TToolButton,
ToolButton6:TToolButton,
ToolButton9:TToolButton,
ToolButton5:TToolButton,
ToolButton10:TToolButton,
ToolButton4:TToolButton,
ToolButton3:TToolButton,
MainMenu1:TMainMenu,
N11:TMenuItem,
N1:TMenuItem,
N2:TMenuItem,
N3:TMenuItem,
N4:TMenuItem,
N21:TMenuItem,
N5:TMenuItem,
N6:TMenuItem,
N7:TMenuItem,
N27:TMenuItem,
objectN17TMenuItem1:TMenuItem,
N28:TMenuItem,
N29:TMenuItem,
N31:TMenuItem,
N8:TMenuItem,
N9:TMenuItem,
N10:TMenuItem,
N12:TMenuItem,
N41:TMenuItem,
N51:TMenuItem,
N13:TMenuItem,
N14:TMenuItem,
N15:TMenuItem,
N52:TMenuItem,
N16:TMenuItem,
N61:TMenuItem,
N71:TMenuItem,
N20:TMenuItem,
N22:TMenuItem,
N23:TMenuItem,
N24:TMenuItem,
N26:TMenuItem,
N30:TMenuItem,
N72 :TMenuItem,
N25:TMenuItem,
ImageList1:TImageList,
Timer1:TTimer,
b_go1:TButton,
GroupBox4:TGroupBox,
GroupBox5:TGroupBox,
GroupBox6:TGroupBox,
Image2:TImage,
Image3:TImage,
Memo1:TMemo,
GroupBox7:TGroupBox,
GroupBox8:TGroupBox,
GroupBox9:TGroupBox,
Label4:TLabel,
Label5:TLabel,
Image4:TImage,
Image5:TImage,
GroupBox10:TGroupBox,
GroupBox11:TGroupBox,
GroupBox12:TGroupBox,
Image6:TImage,
Image7:TImage,
Image8:TImage,
ToolButton11:TToolButton,
ADOQuery1:TADOQuery,
procedureFormClose(Sender:TObject,varAction:TCloseAction),
procedureb_go1Click(Sender:TObject),
procedureb_go2Click(Sender:TObject),
procedureFormShow(Sender:TObject),
procedureTimer1Timer(Sender:TObject),
procedurejishibenclick(sender:tobject),
procedurecalculateclick(sender:tobject),
procedureyaopinglclick(sender:tobject),
procedureImage2Click(Sender:TObject),
proceduremenzhenglclick(sender:tobject),
procedureImage3Click(Sender:TObject),
procedureToolButton9Click(Sender:TObject),
procedureImage4Click(Sender:TObject),
procedureImage5Click(Sender:TObject),
procedureLabel5Click(Sender:TObject),
procedureywryzbglclick(sender:tobject),
procedureToolButton8Click(Sender:TObject),
procedureImage6Click(Sender:TObject),
procedureImage7Click(Sender:TObject),
procedureImage8Click(Sender:TObject),
proceduretuichuclick(sender:tobject),
procedureN20Click(Sender:TObject),
procedureN22Click(Sender:TObject),
procedureToolButton11Click(Sender:TObject),
procedureN16Click(Sender:TObject),
procedureToolButton3Click(Sender:TObject),
procedureN23Click(Sender:TObject),
procedureN26Click(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
main1:Tmain1,
implementation
{$R*.dfm}usezgh,mzshg,login,book,calculate1,yaorukugl,yaochukugldan,
ywrydj,ksgl11,zwgl11,zbgl11,zyxkgl11,zyglzong11,cygl11,yzgl11,mimagai11,yztjgl11,
jinzhanggl11,dmshuju11,connect,
procedureTmain1.FormClose(Sender:TObject,varAction:TCloseAction),
begin
application.Terminate,
end,
procedureTmain1.b_go1Click(Sender:TObject),
begin
mzghd:等于tmzghd.Create(application),
mzghd.Show,
end,
procedureTmain1.b_go2Click(Sender:TObject),
begin
mzshgf:等于tmzshgf.Create(application),
mzshgf.Show,
end,
procedureTmain1.FormShow(Sender:TObject),
begin
statusbar1.Panels[0].Text:等于'μ±°2ù×÷±:',
statusbar1.Panels[2].Text:等于FormatDateTime('"μí3ê±£o"yyyy-mm-dd""hh:nn:ss""mmmm""dddd',now),
statusbar1.Panels[1].Text:等于''+login.Form1.DBEdit1.Text,
statusbar1.Panels[3].Text:等于'èíta·¢£oa¨',
timer1.Enabled:等于true,
tabsheet5.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'1üàí',
pagecontrol2.Refresh,
end,
procedureTmain1.Timer1Timer(Sender:TObject),
begin
statusbar1.Panels[2].Text:等于FormatDateTime('"μí3ê±£o"yyyy-mm-dd""hh:nn:ss""mmmm""dddd',now),
end,
proceduretmain1.jishibenclick(sender:tobject),
begin
book.jishiben:等于book.Tjishiben.Create(application),
ifbook.jishiben.ShowModal等于mrokthen
begin
book.jishiben.Memo1.Lines.SeToFile('love.txt'),
book.jishiben.Free,
toolbutton5.Down:等于false,
end,
end,
proceduretmain1.calculateclick(sender:tobject),
begin
calculate1.calculate:等于calculate1.Tcalculate.Create(application),
calculate1.calculate.Show,
end,
proceduretmain1.yaopinglclick(sender:tobject),
begin
iftoolbutton7.Downthen
begin
tabsheet6.Visible:等于true,
tabsheet5.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'ò·1üàí',
pagecontrol2.Refresh,
end,
end,
procedureTmain1.Image2Click(Sender:TObject),
begin
yaorukugl.rukuf:等于yaorukugl.Trukuf.Create(application),
yaorukugl.rukuf.Show,
yaorukugl.flag:等于true,
end,
proceduretmain1.menzhenglclick(sender:tobject),
begin
iftoolbutton2.Downthen
begin
tabsheet5.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'1üàí',
pagecontrol2.Refresh,
end,
end,
procedureTmain1.Image3Click(Sender:TObject),
begin
yaochukugldan.yaochukugl:等于yaochukugldan.Tyaochukugl.Create(application),
yaochukugldan.yaochukugl.Show,
end,
procedureTmain1.ToolButton9Click(Sender:TObject),
begin
iftoolbutton9.Downthen
begin
tabsheet9.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet7.Visible:等于false,
tabsheet5.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'òè±1üàí',
pagecontrol2.Refresh,
end,
end,
pr ocedureTmain1.Image4Click(Sender:TObject),
begin
ywrydj.register1:等于ywrydj.Tregister1.Create(application),
ywrydj.register1.Show,
end,
procedureTmain1.Image5Click(Sender:TObject),
begin
ksgl11.keshigldd:等于ksgl11.Tkeshigldd.Create(application),
ksgl11.keshigldd.Show,
end,
procedureTmain1.Label5Click(Sender:TObject),
begin
zwgl11.zhiwugl:等于zwgl11.Tzhiwugl.Create(application),
zwgl11.zhiwugl.Show,
end,
proceduretmain1.ywryzbglclick(sender:tobject),
begin
zbgl11.ywzbgl:等于zbgl11.Tywzbgl.Create(application),
zbgl11.ywzbgl.Show,
end,
procedureTmain1.ToolButton8Click(Sender:TObject),
begin
iftoolbutton8.Downthen
begin
tabsheet7.Visible:等于true,
tabsheet6.Visible:等于false,
tabsheet5.Visible:等于false,
tabsheet9.Visible:等于false,
tabsheet10.Visible:等于false,
tabsheet5.Caption:等于'×o1üàí',
pagecontrol2.Refresh,
end,
end,
procedureTmain1.Image6Click(Sender:TObject),
begin
zyxkgl11.zyyjgl:等于zyxkgl11.Tzyyjgl.Create(application),
zyxkgl11.zyyjgl.Show,
end,
procedureTmain1.Image7Click(Sender:TObject),
begin
zyglzong11.zyglzong:等于zyglzong11.Tzyglzong.Create(application),
zyglzong11.zyglzong.Show,
end,
procedureTmain1.Image8Click(Sender:TObject),
begin
cygl11.cygl:等于cygl11.Tcygl.Create(application),
cygl11.cygl.Show,
end,
proceduretmain1.tuichuclick(sender:tobject),
begin
application.Terminate,
end,
procedureTmain1.N20Click(Sender:TObject),
begin
yzgl11.yhzcgl:等于yzgl11.Tyhzcgl.Create(application),
yzgl11.yhzcgl.Show,
end,
procedureTmain1.N22Click(Sender:TObject),
begin
mimagai11.mimagai:等于mimagai11.Tmimagai.Create(application),
mimagai11.mimagai.Show,
end,
procedureTmain1.ToolButton11Click(Sender:TObject),
begin
yztjgl11.yztjgl:等于yztjgl11.Tyztjgl.Create(application),
yztjgl11.yztjgl.Show,
end,
procedureTmain1.N16Click(Sender:TObject),
begin
jinzhanggl11.jinzhanggl:等于jinzhanggl11.Tjinzhanggl.Create(application),
jinzhanggl11.jinzhanggl.Show,
end,
procedureTmain1.ToolButton3Click(Sender:TObject),
begin
application.Terminate,
end,
procedureTmain1.N23Click(Sender:TObject),
begin
dmshuju11.dmshuju.ADOQuery1.Close,
//dmshuju11.dmshuju.ADOQuery1.connectionstring:等于'provider等于sqloledb.1,persistsecurityinfo等于false,userid等于sa,initialcatalog等于data',
//Provider等于SQLOLEDB.1,PersistSecurityInfo等于False,UserID等于sa,InitialCatalog等于data,DataSource等于.,UseProcedureforPrepare等于1,AutoTranslate等于True,PacketSize等于4096,WorkstationID等于TOND_MO,UseEncryptionforData等于False,Tagwithcolumncollationwhenpossible等于False
try
withdmshuju11.dmshuju.ADOQuery1do
begin
close,
sql.Clear,
sql.Add('backupdatabasedatatodisk等于''e:\±òμéè\D£òoê·1üàíμí3\êyY±·Y\data.bak'''),
execsql,
end,
showmessage('±·Y3é1|'),
except
one:exceptiondo
showmessage('±·Yê °ü'),
end,
end,
procedureTmain1.N26Click(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.ConnectionString:等于'Provider等于SQLOLEDB.1,PersistSecurity',
ADOQuery1.ConnectionString:等于ADOQuery1.ConnectionString+'Info等于False,UserID等于sa,InitialCatalog等于master,DataSource等于.,UseProcedure',
ADOQuery1.ConnectionString:等于ADOQuery1.ConnectionString+'forPrepare等于1,AutoTranslate等于True,PacketSize等于4096,WorkstationID等于TOND_MO,UseEncryptionforData等于False,Tagwithcolumncollationwhenpossible等于False',
try
withADOQuery1do
begin
close,
sql.Clear,
sql.Add('restoredatabasedatafromdisk等于''e:\±òμéè\D£òoê·1üàíμí3\êyY±·Y\data.bak'''),
execsql,
end,
showmessage('1-3é1|'),
except
one:exceptiondo
showmessage('1-ê °ü'),
end,
end,
end.
登陆界面代码:
unitlogin,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,Buttons,jpeg,ExtCtrls,ComCtrls,Mask,DBCtrls,
type
TForm1等于class(TForm)
RichEdit1:TRichEdit,
GroupBox2:TGroupBox,
Image1:TImage,
GroupBox1:TGroupBox,
Label1:TLabel,
Label2:TLabel,
e_password:TEdit,
b_register:TBitBtn,
b_cancel:TBitBtn,
c_username:TComboBox,
DBEdit1:TDBEdit,
DBEdit2:TDBEdit,
DBEdit3:TDBEdit,
procedureFormShow(Sender:TObject),
proceduree_passwordKeyPress(Sender:TObject,varKey:Char),
procedureb_cancelClick(Sender:TObject),
procedureb_registerClick(Sender:TObject),
procedurec_usernameChange(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
Form1:TForm1,
flag:integer,
implementation
{$R*.dfm}usesdmlogin,main,
procedureTForm1.FormShow(Sender:TObject),
vari:integer,
begin
dm_login.ADOQuery1.Close,
dm_login.ADOQuery1.SQL.Clear,
dm_login.ADOQuery1.SQL.Add('select*fromμ±í'),
dm_login.ADOQuery1.Open,
dm_login.ADOQuery1.Active:等于true,
dm_login.ADOQuery1.First,
c_username.Items.Clear,
fori:等于0todm_login.ADOQuery1.RecordCount-1do
begin
c_username.Items.Add(dm_login.ADOQuery1.Fields[1].asstring),
dm_login.A DOQuery1.Next,
end,
dm_login.ADOQuery1.First,
c_username.Text:等于'2ù×÷±',
c_username.ItemIndex:等于-1,
flag:等于0,
end,
procedureTForm1.e_passwordKeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
b_register.Click,
end,
procedureTForm1.b_cancelClick(Sender:TObject),
begin
c_username.ItemIndex:等于-1,
c_username.Text:等于'2ù×÷±',
e_password.Text:等于'',
end,
procedureTForm1.b_registerClick(Sender:TObject),
begin
flag:等于flag+1,
dm_login.ADOQuery1.Close,
dm_login.ADOQuery1.SQL.Clear,
dm_login.ADOQuery1.SQL.Add('select*fromμ±íwhere2ù×÷±D等于'),
dm_login.ADOQuery1.SQL.Add(''''+c_username.Items[c_username.itemindex]+''''),
dm_login.ADOQuery1.Open,
dbedit1.DataField:等于dm_login.ADOQuery1.FieldList[1].DisplayName,
dbedit2.DataField:等于dm_login.ADOQuery1.FieldList[2].DisplayName,
dbedit3.DataField:等于dm_login.ADOQuery1.FieldList[3].DisplayName,
ifdm_login.ADOQuery1.RecordCount等于0then
begin
showmessage('D2ù×÷±'),
b_cancel.Click,
end
elsebegin
if(trim(dbedit2.Text))<,>,(trim(e_password.Text))then
begin
showmessage('ü′íó,2ù×÷ê °ü!'),
b_cancel.Click,
end
elsebegin
form1.Hide,
main1.Show,
iftrim(login.Form1.DBEdit3.Text)<,>,'1'then
begin
main1.ToolButton11.Enabled:等于false,
main1.N20.Enabled:等于false,
main1.N30.Enabled:等于false,
end,
exit,
end,
end,
ifflag等于3then
begin
showmessage('μ3ê±,2ù×÷ê °ü'),
application.Terminate,
end,
end,
procedureTForm1.c_usernameChange(Sender:TObject),
begin
form1.e_password.SetFocus,
end,
end.
门诊部挂号管理代码:
unitmzgh,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,jpeg,ExtCtrls,
type
Tmzghd等于class(TForm)
Panel1:TPanel,
Edit1:TEdit,
GroupBox1:TGroupBox,
Label1:TLabel,
Label2:TLabel,
Label3:TLabel,
Label4:TLabel,
Label5:TLabel,
Label6:TLabel,
Label7:TLabel,
Image1:TImage,
e_bianhao:TEdit,
e_name:TEdit,
e_grade:TEdit,
e_date:TEdit,
e_jine:TEdit,
c_keshi:TComboBox,
c_leixing:TComboBox,
GroupBox2:TGroupBox,
Image2:TImage,
Panel2:TPanel,
b_mit:TButton,
b_resume:TButton,
b_print:TButton,
b_exit:TButton,
procedureFormShow(Sender:TObject),
procedureb_exitClick(Sender:TObject),
proceduree_nameChange(Sender:TObject),
proceduree_gradeChange(Sender:TObject),
procedurec_leixingClick(Sender:TObject),
procedurec_keshiChange(Sender:TObject),
procedureb_mitClick(Sender:TObject),
proceduree_nameKeyPress(Sender:TObject,varKey:Char),
proceduree_gradeKeyPress(Sender:TObject,varKey:Char),
procedureb_resumeClick(Sender:TObject),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
mzghd:Tmzghd,
implementation
{$R*.dfm}usesdmshoufei,
procedureTmzghd.FormShow(Sender:TObject),
vari:integer,
begin
image2.Visible:等于false,
b_mit.Enabled:等于false,
dmshoufei.dm_mz.ADOkeshi.Close,
dmshoufei.dm_mz.ADOkeshi.SQL.Clear,
dmshoufei.dm_mz.ADOkeshi.SQL.Add('select*fromêò±í'),
dmshoufei.dm_mz.ADOkeshi.Open,
dmshoufei.dm_mz.ADOkeshi.Active:等于true,
c_keshi.Items.Clear,
fori:等于0todmshoufei.dm_mz.ADOkeshi.RecordCount-1do
begin
c_keshi.Items.Add(dmshoufei.dm_mz.ADOkeshi.Fields[1].asstring),
dmshoufei.dm_mz.ADOkeshi.Next,
end,
dmshoufei.dm_mz.ADOkeshi.First,
c_keshi.Text:等于'êò3',
c_keshi.ItemIndex:等于-1,
dmshoufei.dm_mz.ADOleixing.Close,
dmshoufei.dm_mz.ADOleixing.SQL.Clear,
dmshoufei.dm_mz.ADOleixing.SQL.Add('select*from1òoààDí'),
dmshoufei.dm_mz.ADOleixing.Open,
dmshoufei.dm_mz.ADOleixing.Active:等于true,
c_leixing.Items.Clear,
fori:等于0todmshoufei.dm_mz.ADOleixing.RecordCount-1do
begin
c_leixing.Items.Add(dmshoufei.dm_mz.ADOleixing.Fields[1].asstring),
dmshoufei.dm_mz.ADOleixing.Next,
end,
c_leixing.ItemIndex:等于-1,
c_leixing.Text:等于'1òoààDí',
e_name.Text:等于'',
e_grade.Text:等于'',
e_jine.Text:等于'',
dmshoufei.dm_mz.ADOshoufei.Close,
dmshoufei.dm_mz.ADOshoufei.SQL.Clear,
dmshoufei.dm_mz.ADOshoufei.SQL.Add('select*from1òo±í'),
dmshoufei.dm_mz.ADOkeshi.Open,
dmshoufei.dm_mz.ADOshoufei.Active:等于true,
dmshoufei.dm_mz.ADOshoufei.Last,
e_bianhao.Text:等于inttostr(dmshoufei.dm_mz.ADOshoufei.Fields[0].AsInteger+1),
e_date.Text:等于formatdatetime('yyyy-mm-dd',now),
e_name.SetFocus,
end,
procedureTmzghd.b_exitClick(Sender:TObject),
begin
close,
end,
procedureTmzghd.e_nameChange(Sender:TObject),
begin
b_mit.Enabled:等于(e_name.Text<,>,'')and(e_grade.Text<,>,''),
end,
procedureT mzghd.e_gradeChange(Sender:TObject),
begin
b_mit.Enabled:等于(e_name.Text<,>,'')and(e_grade.Text<,>,''),
end,
procedureTmzghd.c_leixingClick(Sender:TObject),
begin
dmshoufei.dm_mz.ADOleixing.Close,
dmshoufei.dm_mz.ADOleixing.SQL.Clear,
dmshoufei.dm_mz.ADOleixing.SQL.Add('select*from1òoààDíwhereààDí3等于'),
dmshoufei.dm_mz.ADOleixing.SQL.Add(''''+c_leixing.Items[c_leixing.itemindex]+''''),
dmshoufei.dm_mz.ADOleixing.Open,
e_jine.Text:等于floattostr(dmshoufei.dm_mz.ADOleixing.Fields[2].AsFloat),
b_mit.SetFocus,
end,
procedureTmzghd.c_keshiChange(Sender:TObject),
begin
c_leixing.SetFocus,
end,
procedureTmzghd.b_mitClick(Sender:TObject),
begin
dmshoufei.dm_mz.ADOshoufei.Append,
dmshoufei.dm_mz.ADOshoufei.Fields[1].AsString:等于e_name.Text,
dmshoufei.dm_mz.ADOshoufei.Fields[2].AsString:等于e_grade.Text,
dmshoufei.dm_mz.ADOshoufei.Fields[3].AsDateTime:等于strtodate(e_date.Text),
dmshoufei.dm_mz.ADOshoufei.Fields[4].AsString:等于c_keshi.Items[c_keshi.itemindex],
dmshoufei.dm_mz.ADOshoufei.Fields[5].AsString:等于c_leixing.Items[c_leixing.itemindex],
dmshoufei.dm_mz.ADOshoufei.Fields[6].AsFloat:等于strtofloat(e_jine.Text),
dmshoufei.dm_mz.ADOshoufei.Post,
dmshoufei.dm_mz.ADOshoufei.Last,
image2.Visible:等于true,
b_mit.Enabled:等于false,
end,
procedureTmzghd.e_nameKeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
e_grade.SetFocus,
end,
procedureTmzghd.e_gradeKeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
c_keshi.SetFocus,
end,
procedureTmzghd.b_resumeClick(Sender:TObject),
begin
dmshoufei.dm_mz.ADOshoufei.Last,
e_bianhao.Text:等于inttostr(dmshoufei.dm_mz.ADOshoufei.Fields[0].AsInteger+1),
e_name.Text:等于'',
e_grade.Text:等于'',
c_keshi.ItemIndex:等于-1,
c_leixing.ItemIndex:等于-1,
c_keshi.Text:等于'êò3',
c_leixing.Text:等于'1òoààDí',
e_jine.Text:等于'',
e_date.Text:等于formatdatetime('yyyy-mm-dd',now),
e_name.SetFocus,
b_mit.Enabled:等于false,
image2.Visible:等于false,
end,
end.
门诊部收费,划价管理代码:
unitmzshg,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ExtCtrls,Grids,DBGrids,ToolWin,ComCtrls,
type
Tmzshgf等于class(TForm)
Panel1:TPanel,
ToolBar1:TToolBar,
GroupBox1:TGroupBox,
Panel2:TPanel,
Panel3:TPanel,
Panel4:TPanel,
Label1:TLabel,
Edit1:TEdit,
Edit2:TEdit,
Label2:TLabel,
Label3:TLabel,
Edit3:TEdit,
Label4:TLabel,
ComboBox2:TComboBox,
GroupBox2:TGroupBox,
Label5:TLabel,
DBGrid1:TDBGrid,
Panel5:TPanel,
Bevel2:TBevel,
Panel6:TPanel,
Label6:TLabel,
DBGrid2:TDBGrid,
DBGrid3:TDBGrid,
Label7:TLabel,
Label8:TLabel,
ComboBox1:TComboBox,
Label9:TLabel,
Edit5:TEdit,
Label10:TLabel,
Edit6:TEdit,
Label11:TLabel,
Edit7:TEdit,
Label12:TLabel,
Edit8:TEdit,
Label13:TLabel,
Edit9:TEdit,
Button5:TButton,
Label14:TLabel,
ListBox1:TListBox,
Edit4:TEdit,
Edit10:TEdit,
Label15:TLabel,
Label16:TLabel,
Edit11:TEdit,
Edit12:TEdit,
Panel7:TPanel,
Button1:TButton,
Button2:TButton,
Button3:TButton,
Button4:TButton,
Label17:TLabel,
procedureFormShow(Sender:TObject),
procedureEdit1KeyPress(Sender:TObject,varKey:Char),
procedureComboBox1Click(Sender:TObject),
procedureListBox1DblClick(Sender:TObject),
procedureEdit5KeyPress(Sender:TObject,varKey:Char),
procedureButton1Click(Sender:TObject),
procedureButton2Click(Sender:TObject),
procedureButton5Click(Sender:TObject),
procedureEdit10KeyPress(Sender:TObject,varKey:Char),
procedureButton3Click(Sender:TObject),
procedureButton4Click(Sender:TObject),
procedureEdit8KeyPress(Sender:TObject,varKey:Char),
procedureDBGrid1DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
procedureDBGrid2DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
procedureDBGrid3DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
mzshgf:Tmzshgf,
implementation
{$R*.dfm}usesdmmzshg,login,
procedureTmzshgf.FormShow(Sender:TObject),
vari:integer,
begin
edit1.Text:等于'',
edit2.Text:等于'',
edit3.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
edit6.Text:等于'',
edit7.Text:等于'',
edit8.Text:等于'',
edit9.Text:等于'',
edit10.Text: 等于'',
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. 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,
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& #93;.AsFloat:等于f6,
dmmzshg.dm_mzshg.adojiesuan.Fields[10].AsFloat:等于f7,
dmmzshg.dm_mzshg.adojiesuan.Fields[11].AsFloat:等于f8,
dmmzshg.dm_mzshg.adojiesuan.Fields[12].AsFloat:等于f9,
dmmzshg.dm_mzshg.adojiesuan.Fields[13].AsFloat:等于f10,
dmmzshg.dm_mzshg.adojiesuan.Post,
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,
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,
end,
procedureTmzshgf.Button5Click(Sender:TObject),
begin
edit11.Text:等于edit12.Text,
end,
procedureTmzshgf.Edit10KeyPress(Sender:TObject,varKey:Char),
begin
ifkey等于#13then
begin
edit4.Text:等于floattostr(strtofloat(edit10.Text)-strtofloat(edit11.Text)),
end,
end,
procedureTmzshgf.Button3Click(Sender:TObject),
begin
showmessage('′1|ü1′aí¨'),
end,
procedureTmzshgf.Button4Click(Sender:TObject),
begin
close,
end,
procedureTmzshgf.Edit8KeyPress(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*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,
end,
procedureTmzshgf.DBGrid1DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
begin
ifdmmzshg.dm_mzshg.ADOkucun.RecNomod2等于0then
begin
dbgrid1.Canvas.Font.Color:等于clblue,
dbgrid1.Canvas.Brush.Color:等于cllime,
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state),
end
else
begin
dbgrid1.Canvas.Font.Color:等于clblue,
dbgrid1.Canvas.Brush.Color:等于clwhite,
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state),
end,
end,
procedureTmzshgf.DBGrid2DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
begin
ifdmmzshg.dm_mzshg.adojiesuan.RecNomod2等于0then
begin
dbgrid2.Canvas.Font.Color:等于clblue,
dbgrid2.Canvas.Brush.Color:等于cllime,
dbgrid2.DefaultDrawColumnCell(rect,datacol,column,state),
end
else
begin
dbgrid2.Canvas.Font.Color:等于clblue,
dbgrid2.Canvas.Brush.Color:等于clwhite,
dbgrid2.DefaultDrawColumnCell(rect,datacol,column,state),
end,
end,
procedureTmzshgf.DBGrid3DrawColumnCell(Sender:TObject,constRect:TRect,
DataCol:Integer,Column:TColumn,State:TGridDrawState),
begin
ifdmmzshg.dm_mzshg.adomingxi.RecNomod2等于0then
begin
dbgrid3.Canvas.Font.Color:等于clblue,
dbgrid3.Canvas.Brush.Color:等于cllime,
dbgrid3.DefaultDrawColumnCell(rect,datacol,column,state),
end
else
begin
dbgrid3.Canvas.Font.Color:等于clblue,
dbgrid3.Canvas.Brush.Color:等于clwhite,
dbgrid3.DefaultDrawColumnCell(rect,datacol,column,state),
end,
end,
end.
药品入库管理代码:
unityaotianxiedan,
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,ComCtrls,
type
Tyaodan等于class(TForm)
GroupBox1:TGroupBox,
Label1:TLabel,
Label2:TLabel,
Label3:TLabel,
Label4:TLabel,
Label5:TLabel,
Label6:TLabel,
Label7:TLabel,
Label8:TLabel,
Label9:TLabel,
Label10:TLabel,
Edit1:TEdit,
Edit3:TEdit,
ComboBox1:TComboBox,
Edit2:TEdit,
Edit4:TEdit,
Edit5:TEdit,
DateTimePicker1:TDateTimePicker,
DateTimePicker2:TDateTimePicker,
DateTimePicker3:TDateTimePicker,
ComboBox2:TComboBox,
GroupBox2:TGroupBox,
Button1:TButton,
Button2:TButton,
procedureFormShow(Sender:TObject),
procedureButton2Click(Sender:TObject),
procedureEdit1KeyPress(Sender:TObject,varKey:Char),
procedureComboBox1Click(Sender:TObject),
procedureEdit3KeyPress(Sender:TObject,varKey:Char),
procedureEdit2KeyPress(Sender:TObject,varKey:Char),
procedureEdit4KeyPress(Sender:TObject,varKey:Char),
procedureComboBox2KeyPress(Sender:TObject,varKey:Char),
private
{Privatedeclarations}
public
{Publicdeclarations}
end,
var
yaodan:Tyaodan,
implementation
{$R*.dfm}
procedureTyaodan.FormShow(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.Butt 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,
DBNigator1:TDBNigator,
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