药店管理信息系统报告

1、成绩管理信息系统课程设计报告系统名称药店信息管理系统班级管093姓名张新萌、田新驰、李新雷学号04、06、122011年12月14日一、系统分析系统名称：药店管理信息系统.开发背景、目的、意义：随着人们生活水平的提高，健康意识的增强，对医药产品的需求也迅速增加。药店作为医药产品的主要销售渠道，也处于高速发展时期，同时也加剧了产业间的竞争。为了加强企业的内部管理，提高运营效率，利用现代信息技术提高企业的管理水平已非常迫切。另外，由于医药产品种类繁多、销售模式特殊、业务量大，单凭手工记账已很难适应工作的需要。医药作为一个关系到人们健良的特殊行业，国家对医药行业又有一些不同于其他行业的管理政策，这些

2、都加大了管理的难度。如何尽快建立和完善现代企业的信息化管理机制问题，已成为医药企业发展的关键所在。本课题以提高药店的医药管理水平和效率为目标，建立了管理信息系统。该系统能集中处理药品的进销存业务及其应付账目，实现了药店的现代化管理。实现目标：面对医药行业的高速发展及其发展过程中出现的各种情况，药店管理信息系统在实施后，应能够达到以下目标：实现多点操作的信息共享，相互之间的信息传递准确，快捷和顺畅。全面自动化管理，可随时掌握药品的库存、销售等情况。系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。能够快速、准确地处理药品进、销、存、退、盘点、变价、折扣等多种业务模式。提供助记码及支持多

3、种结算方式。系统维护方便可靠，有较高的安全性，满足实用性，先进性的要求。(5)系统功能：本系统由系统设置、日常业务、查询统计、库存管理、基础信息管理五大分系统组成。主要功能如下：系统设置：初期建账，密码设置，数据备份，数据恢复。日常业务：入库单，销售单，入库退单，销售退单。查询统计：入库查询，销售查询，入库退货查询，销售退货查询。库存管理：库存盘点，库存查询，价格管理。基础信息管理：客户管理，供应商管理。药店管理信息系统E-R图商家号商家名供货量联系方式经理商家名所在地供货商M1欠款查询查询药品库存量查询新入库药品查询提供NP1M时间数量单价库存购买管理交易金额种类11M查询顾客信息查询欠款查

4、询经理顾客药品库2.2概念模型通过对用户需求分析进行综合、归纳与抽象、形成一个独立于具体DBMS的概念模型。在本药店管理系统中涉及到了2种概念模型的抽象聚集模型概况模型2.3用例图和顶层数据流图总体分析的用例图代售经理与供货商的用例图顾客与经理间的用例图填好的仓库信息仓库信息信息真写仓库仓库信息仓库药品信息填好的药品信息药品信息信息填写药品编好号的采购单品来自顾客信息顾客消费单信息付款后进行填写未处理的消费单确认的消费单2.0处理消费单所购药品确定未付款的消费单药品所需药品领取顾客凭盖好章的消费单依据消费单上的药品歹U表为所需药品采购单信息3.0采购依据信息经理信息经理已编过号的消费单1.0付

5、款顶层数据流图填写经理信息填好的经理信息经理信息交易金额确认收货系统总体设计分解的数据流图消费单编号-消费单信息处理消费处理采购组织结构或数学方法、构造模型。药店管理信息系统日常业务日常业务库存管理入销入销库售库售单单退退单单入销库售退退货货查查询询供应商管理客户管理二、系统设计说明：系统设计较为复杂，源程序代码较长，所以报告中只摘录了一小部分程序代码，其余代码详见程序中，程序先进入登陆界面，登陆后进入主界面，登陆到主界面后即可点击进入相应的窗口。该系统采用Access数据库，数据库名称为yyjxc,它包括以下8个表：供应商基础信息表gys,库存表kc,客户基础信息表kh,入库表rkd,入库退

6、单表rktd,密码表ma,销售表xsd,销售退单表xstd。1、系统登录模块及主程序界面设计(1)系统登录模块(窗体名：系统登录.frm)(1)系统登录模块(窗体名：系统登录.frm)“确认驚退岀;：;厳权所育：CrpyRight：2000-201Q：.：.源程序代码较长，此处省略，详见程序中实现目标：程序启动后，首先进入系统登录界面验证操作员密码。其实现的功能如下:可选择操作员，支持鼠标和键盘操作操作员和密码验证成功后，进入主界面操作员错误或密码错误提醒并返回错误点。输入三次错误的密码，系统自动退出主程序界面设计(窗体名：主界面.frm)PublicSubentercell()Dimx,yA

7、sStringIfText1.Text=1ThenSetmyform=main_rcyw_rkIfText1.Text=2ThenSetmyform=main_rcyw_rktdIfText1.Text=3ThenSetmyform=main_rcyw_xsIfText1.Text=4ThenSetmyform=main_rcyw_xstdIfmyform.mf1.CellWidth=0Ormyform.mf1.CellHeight=0ThenExitSubx=myform.mf1.TextMatrix(myform.mf1.FixedRows,myform.mf1.Col)y=myform.

8、mf1.TextMatrix(myform.mf1.Row,0)IfyThen-myform.mfl.LeftCol=3Then+1+EndIfx=myform.mf1.TextMatrix(myform.mf1.FixedRows,myform.mf1.Col)myform.Text1.SelStart=0myform.Text1.SelLength=Len(myform.Text1.Text)EndIfEndSubPublicSubmoveright()IfText1.Text=1ThenSetmyform=main_rcyw_rkIfText1.Text=2ThenSetmyform=m

9、ain_rcyw_rktdIfText1.Text=3ThenSetmyform=main_rcyw_xsIfText1.Text=4ThenSetmyform=main_rcyw_xstdIfmyform.Text1.TextThenmyform.Text1.SelStart=0myform.Text1.SelLength=Len(myform.Text1.Text)EndIf+-1Then+1Else+-1Then=+1=1EndIfEndIfEndSubPublicSubmoveleft()IfText1.Text=1ThenSetmyform=main_rcyw_rkIfText1.T

10、ext=2ThenSetmyform=main_rcyw_rktdIfText1.Text=3ThenSetmyform=main_rcyw_xsIfText1.Text=4ThenSetmyform=main_rcyw_xstdIfmyform.Text1.TextThenmyform.Text1.SelStart=0myform.Text1.SelLength=Len(myform.Text1.Text)EndIf-+1Then-1Ifmyform.mf1.Col=0Thenmyform.mf1.Col=1Else+-1Then+1myform.mf1.Col=1EndIfEndIfEnd

11、SubPublicSubmovereturn()IfText1.Text=1ThenSetmyform=main_rcyw_rkIfText1.Text=2ThenSetmyform=main_rcyw_rktdIfText1.Text=3ThenSetmyform=main_rcyw_xsIfText1.Text=4ThenSetmyform=main_rcyw_xstdIfmyform.mf1.Col=10Then+1myform.mf1.Col=1Else+-1Then+1Else+-1Then+1myform.mf1.Col=1EndIfEndIfEndIfEndSubPrivateS

12、ubForm_Load()在标题栏上显示软件名称及版本Me.Caption=App.Title&版本：V&App.Major&.&App.Minor&.&App.RevisionDimiAsInteger定义一个整型变量Fori=0To1Label1(i).Caption=App.TitleNextiLabel2.Caption=版本：V&App.Major&.&App.Minor&.&App.RevisionEndSubPrivateSubrkd_Click()调入入库单Loadmain_rcyw_rkmain_rcyw_rk.Showfrm_main.Enabled=FalseEndSub

13、PrivateSubxsd_Click()Loadmain_rcyw_xsmain_rcyw_xs.Showfrm_main.Enabled=FalseEndSubPrivateSubxsth_Click()Loadmain_rcyw_xstdmain_rcyw_xstd.Showfrm_main.Enabled=FalseEndSubPrivateSubrkth_Click()Loadmain_rcyw_rktdmain_rcyw_rktd.Showfrm_main.Enabled=FalseEndSubPrivateSubkccx_Click()Loadmain_kcgl_kccxmain

14、_kcgl_kccx.Showfrm_main.Enabled=FalseEndSubPrivateSubkcpd_Click()Loadmain_kcgl_kcpdmain_kcgl_kcpd.Showfrm_main.Enabled=FalseEndSubPrivateSubjggl_Click()Loadmain_kcgl_jgglmain_kcgl_jggl.Showfrm_main.Enabled=FalseEndSubPrivateSubrkcx_Click()Loadmain_rqDialogmain_rqDialog.Showmain_rqDialog.Text1.Text=0

15、frm_main.Enabled=FalseEndSubPrivateSubthfccx_Click()Loadmain_rqDialogmain_rqDialog.Showmain_rqDialog.Text1.Text=1frm_main.Enabled=FalseEndSubPrivateSubxscx_Click()Loadmain_rqDialogmain_rqDialog.Showmain_rqDialog.Text1.Text=2frm_main.Enabled=FalseEndSubPrivateSubxsthcx_Click()Loadmain_rqDialogmain_rq

16、Dialog.Showmain_rqDialog.Text1.Text=3frm_main.Enabled=FalseEndSubPrivateSubgysgl_Click()Loadmain_jbxx_gysmain_jbxx_gys.Showfrm_main.Enabled=False调入销售单调入销售退货调入退货返厂调入库存查询调入库存盘点调入价格管理调入入库查询调入退货返厂调入销售查询调入销售退货查询调入供应商管理调入客户管理调入初期建帐EndSubPrivateSubkhgl_Click()Loadmain_jbxx_khmain_jbxx_kh.Showfrm_main.Enabl

17、ed=FalseEndSubPrivateSubcqjz_Click()Loadmain_xt_cqjzmain_xt_cqjz.Showfrm_main.Enabled=FalseEndSubPrivateSubmmsz_Click()调入密码设置Loadmain_xt_mmszmain_xt_mmsz.Showfrm_main.Enabled=FalseEndSubPrivateSubsjbf_Click()调入数据备份Loadmain_xt_sjbfmain_xt_sjbf.Showfrm_main.Enabled=FalseEndSubPrivateSubsjhf_Click()调入数

18、据恢复Loadmain_xt_sjhfmain_xt_sjhf.Showfrm_main.Enabled=FalseEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctILib.Button)SelectCaseButton.KeyCaseIs=rkd调入入库单rkd_ClickCaseIs=xsdxsd_Click调入供应商管理CaseIs=xscxxscx_ClickCaseIs=kccxkccx_ClickCaseIs=gysgysgl_ClickCaseIs=khkhgl_ClickCaseIs=cqjzcqjz_Click

19、EndSelectEndSub实现目标:密码验证成功后，进入程序主界面。其实现的功能如下：选择主界面的菜单或工具栏，调用相应程序，进行相应操作。显示开发者信息、系统日期和时间。2、日常业务设计（1）入库单模块设计（窗体名：入库单.frm）程序代码过长，内容较多，详见程序中程序启动后，选择“日常业务”菜单下的“入库单”项，将进入入库单模块。其实现的功能如下：完成药品入库工作，入库采用智能化表单式录入。自动生成入库票号，可利用键在列表框中选择供应商信息系统自动统计入库品种、入库数量、入库金额。（2）销售单模块设计（窗体名：销售单.frm）程序代码过长，内容较多，详见程序中程序启动后，选择“日常业务

20、”菜单下的“销售单”项，将进入销售单模块。其实现的功能如下：完成药品销售的功能。自动生成销售票号、销售日期；统计销售品种、销售数量、销售金额。根据商品名称或简称自动检索相应的商品信息。（3）销售退单模块设计（窗体名：销售退单.frm）程序代码过长，内容较多，详见程序中程序启动后，选择“日常业务”菜单下的“销售退单”项，将进入销售退单模块。其实现的功能如下：完成药品销售退货功能。自动生成销售退单票号、销售退单日期；统计退货品种、退货数量、退货金额。根据商品名称或简称自动检索相应的商品信息。3、库存管理设计（1）库存查询模块设计（窗体名：库存查询.frm）PrivateSubForm_Activa

21、te()向combo1添加查询项目列表Combo1.AddItem(商品名称)Combo1.Addltem(简称)Combo1.Addltem(批号)Combo1.ListIndex=0EndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path&yyjxc.mdb自动识别数据库路径EndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubCommand1_Click()查询库存信息Data1.RecordSource=select*fromk

22、cwhere(kc.&Combol.Text&like+Chr(34)+Textl.Text+*+Chr(34)+)Datal.RefreshEndSubPrivateSubCommand2_Click()删除库存信息OnErrorResumeNextData2.RefreshEndSubPrivateSubCommand3_Click()frm_main.Enabled=TrueUnloadMeEndSub程序启动后，选择“库存管理”菜单下的“库存查询”项，将进入库存查询模块。其实现的功能如下：选择字段查询库存商品信息，可模糊查询。删除库存商品信息。库存盘点模块设计(窗体名：库存盘点.frm

23、)PrivateSubForm_Activate()设置ms1表格的列宽MSI.ColWidth(O)=12*25*0:MSI.ColWidth(l)=12*25*8MS1.ColWidth(2)=12*25*0:MS1.ColWidth(5)=12*25*5MS1.ColWidth(9)=12*25*3:MS1.ColWidth(10)=12*25*0EndSubPrivateSubCommand2_Click()frm_main.Enabled=TrueUnloadMePrivateSubForm_Load()Data1.DatabaseName=App.Path&yyjxc.mdbEnd

24、SubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubCommand1_Click()自动识别数据库路径盘点库存大于零的库存信息Data1.RecordSource=select*fromkcwherekc.Data1.RefreshMS1.Col=9:MS1.Sort=flexSortNumericAscendingEndSub库存0第9行按升序排序EndSubPrivateSubMS1_Click()EndSub程序启动后，选择“库存管理”菜单下的“库存盘点”项，将进入库存盘点模块。其实现

25、的功能是盘点库存商品信息。价格管理模块设计(窗体名：价格管理.frm)PublicSubeval()IfData2.Recordset(0)=0IfData2.Recordset(1)定义赋值函数Thenpz.Caption=Data2.Recordset(0)Elsepz.CaptionThenhjsl.Caption=Data2.Recordset(1)Elsehjsl.Caption=0IfData2.Recordset(2)Thenhjje.Caption=Data2.Recordset(2)Elsehjje.Caption=0EndSubPrivateSubForm_Load()自动

26、识别数据库路径Data1.DatabaseName=App.Path&yyjxc.mdbData2.DatabaseName=App.Path&yyjxc.mdbEndSubPrivateSubForm_Activate()向combo1添加查询项目列表Combo1.Addltem(商品名称)Combo1.Addltem(简称)Combo1.AddItem(批号)Combo1.ListIndex=0初始化查询统计库存商品信息一Data2.RecordSource=selectcount(*)as品种，sum(库存)as合计库存，sum(库存金额)as合计库存金额fromkcData2.Refr

27、eshCalleval调用函数EndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubtexgjj_Change()texgje.Text=Val(texgkc.Text)*Val(texgjj.Text)计算库存金额Data2.RefreshCalleval调用函数EndSubPrivateSubtexgkc_Change()texgje.Text=Val(texgkc.Text)*Val(texgjj.Text)计算库存金额Data2.RefreshCalleval调用函数EndSub

28、PrivateSubCommand1_Click()查询统计库存商品信息Datal.RecordSource=select*fromkcwhere(kc.&Combol.Text&like+Chr(34)+Textl.Text+*+Chr(34)+)Datal.RefreshData2.RecordSource=selectcount(*)as品种，sum(库存)as合计库存，sum(库存金额)as合计库存金额fromkcwhere(kc.&Combol.Text&”&like+Chr(34)+Textl.Text+*+Chr(34)+)Data2.RefreshCalleval调用函数End

29、SubPrivateSubCommand2_Click()frm_main.Enabled=TrueUnloadMeEndSub程序启动后，选择“库存管理”菜单下的“价格管理”项，将进入价格管理模块。其实现的功能如下：选择任意字段查询库存商品信息。完成库存商品的进价、库存数量的修改。统计库存品种、库存数量、库存金额。4、查询统计设计入库查询模块设计(窗体名：入库查询.frm)PrivateSubDBGrid1_Click()EndSubPrivateSubForm_Activate()向combo1添加查询项目歹列表Combo1.AddItem(商品名称)Combo1.AddItem(批号)C

30、ombo1.Addltem(票号)Combo1.ListIndex=1Data1.RecordSource=select*fromrkdwhere(rkd.日期between+Chr(35)+rq1.Text+Chr(35)+and+Chr(35)+rq2.Text+Chr(35)+)Data1.RefreshEndSubPrivateSubForm_Load()自动识别数据库路径Data1.DatabaseName=App.Path&yyjxc.mdbEndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSub

31、PrivateSubCommand1_Click()入库查询Data1.RecordSource=select*fromrkdwhere(rkd.日期between+Chr(35)+rq1.Text+Chr(35)+and+Chr(35)+rq2.Text+Chr(35)+)and(rkd.&Combo1.Text&like+Chr(34)+Text1.Text+*+Chr(34)+)Data1.RefreshEndSubPrivateSubCommand2_Click()删除入库信息OnErrorResumeNextEndSubPrivateSubCommand3_Click()frm_ma

32、in.Enabled=TrueUnloadMeEndSub程序启动后，选择“查询统计”菜单下的“入库查询”项，将进入入库查询模块。其实现的功能如下：按任意时间段、任意字段查询入库商品信息。删除入库商品信息。销售查询模块设计(窗体名：销售查询.frm)PrivateSubDBGrid1_Click()EndSubPrivateSubForm_Activate()向combo1添加查询项目歹列表Combo1.Addltem(商品名称)Combo1.Addltem(批号)Combo1.AddItem(票号)Combo1.ListIndex=0Data1.RecordSource=select*fro

33、mxsdwhere(xsd.日期between+Chr(35)+rq1.Text+Chr(35)+and+Chr(35)+rq2.Text+Chr(35)+)Data1.RefreshEndSubPrivateSubForm_Load()自动识别数据库路径Data1.DatabaseName=App.Path&yyjxc.mdbEndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubCommand1_Click()查询销售信息Data1.RecordSource=select*fromxs

34、dwhere(xsd.日期between+Chr(35)+rq1.Text+Chr(35)+and+Chr(35)+rq2.Text+Chr(35)+”)and(xsd.&Combo1.Text&like+Chr(34)+Text1.Text+*+Chr(34)+)Data1.RefreshEndSubPrivateSubCommand2_Click()删除销售信息OnErrorResumeNextEndSubPrivateSubCommand3_Click()frm_main.Enabled=TrueUnloadMeEndSub程序启动后，选择“查询统计”菜单下的“销售查询”项，将进入销售查

35、询模块。其实现的功能如下：按任意时间段、任意字段查询商品销售信息。删除商品销售信息。销售退货查询模块设计(窗体名：销售退货查询.frm)EWftiXSr因PrivateSubDBGrid1_Click()EndSubPrivateSubForm_Activate()向combo1添加查询项目歹列表Combo1.Addltem(商品名称)Combo1.Addltem(批号)Combo1.AddItem(票号)Combo1.ListIndex=0查询销售退货信息Data1.RecordSource=select*fromxstdwhere(xstd.日期between+Chr(35)+rql.Te

36、xt+Chr(35)+and+Chr(35)+rq2.Text+Chr(35)+)Datal.RefreshEndSubPrivateSubForm_Load()自动识别数据库路径Datal.DatabaseName=App.Path&yyjxc.mdbEndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubCommand1_Click()查询销售退货信息Datal.RecordSource=select*fromxstdwhere(xstd.日期between+Chr(35)+rql.T

37、ext+Chr(35)+and+Chr(35)+rq2.Text+Chr(35)+)and(xstd.&Combol.Text&like+Chr(34)+Textl.Text+*+Chr(34)+)Datal.RefreshEndSubPrivateSubCommand2_Click()删除销售退货信息OnErrorResumeNextEndSubPrivateSubCommand3_Click()frm_main.Enabled=TrueUnloadMeEndSub程序启动后，选择“查询统计”菜单下的“销售退货查询”项，将进入销售退货查询模块。其实现的功能如下：按任意时间段、任意字段查询商品

38、销售退货信息。删除商品销售退货信息。4、基础信息管理设计（1）供应商管理模块设计（窗体名：供应商管理.frm）程序代码过长，内容较多，详见程序中程序启动后，选择“基础信息管理”菜单下的“供应商管理”项，将进入供应商管理模块。其实现的功能如下：完成供应商基本信息的录入、保存、修改、删除。按任意字段、任意条件查询供应商基本信息。通过卡片式、列表式两种方式查看供应商基本信息。（2）客户管理模块设计（窗体名：客户管理.frm）程序代码过长，内容较多，详见程序中程序启动后，选择“基础信息管理”菜单下的“客户管理”项，将进入客户管理模块。其实现的功能如下：完成客户基本信息的录入、保存、修改、删除。按任意字

39、段、任意条件查询客户基本信息。通过卡片式、列表式两种方式查看客户基本信息。5、系统设置设计（1）初期建账模块设计（窗体名：初期建账.frm）垂址邀:一一【剖期建犠】XPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubCommand1_Click()DimdbAsDatabaseDimrsAsRecordsetDimconnterAsIntegerDimworkarea(200)AsStringProgressBar1.Visible=TrueProgressBar1.Max=UBound(wor

40、karea)ProgressBar1.Value=ProgressBar1.MinForCounter=LBound(workarea)ToUBound(workarea)workarea(Counter)=initialvalue&CounterProgressBar1.Value=CounterSetdb=Workspaces(0).OpenDatabase(App.Path&yyjxc.mdb)DimsqlAsStringIfCheck1.Value=1Then删除全部库存信息sql=delete*fromkcdb.ExecutesqlEndIfIfCheck2.Value=1Then删

41、除全部供应商信息sql=delete*fromgysdb.ExecutesqlEndIfIfCheck3.Value=1Then删除全部客户信息sql=delete*fromkhdb.ExecutesqlEndIfIfCheck4.Value=1Then删除全部入库信息sql=delete*fromrkddb.ExecutesqlEndIfIfCheck5.Value=1Then删除全部入库退货信息sql=delete*fromrktddb.ExecutesqlEndIfIfCheck6.Value=1Then删除全部销售信息sql=delete*fromxsddb.ExecutesqlEnd

42、IfIfCheck7.Value=1Then删除全部销售退货信息sql=delete*fromxstddb.ExecutesqlEndIfNextCounterProgressBarl.Visible=FalseProgressBar1.Value=ProgressBar1.MinEndSubPrivateSubCommand2_Click()frm_main.Enabled=TrueUnloadMeEndSub程序启动后，选择“系统设置”菜单下的“初期建账”项，将进入初期建账模块。其主要功能是实现清空系统全部或部分数据。(2)密码设置模块设计(窗体名：密码设置.frm)PrivateSubF

43、orm_Load()Data1.DatabaseName=App.Path&yyjxc.mdb自动识别数据库路径EndSubPrivateSubForm_Unload(CancelAsInteger)frm_main.Enabled=TrueEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenText2.SetFocusEndSubPrivateSubtext2_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyR

44、eturnThenText3.SetFocusEndSubPrivateSubText3_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenCommand1.SetFocusEndSubPrivateSubCommand1_Click()确认修改操作员信息Data1.RecordSource=select*frommawhere操作员=+Text1.Text+查询操作员信息Data1.RefreshIfText1.TextAndText2.TextAndText2.Text=ma.TextThenIfText3.TextThenData1.Recordset.Fields(密码)=Text3.TextMsgBox(密码修改成功rjElseMsgBox(请输入新密码!)EndIfElseIfText1.Text=ThenMsgBox（”请输入操作员代号r?Textl.SetFocusElse（”操作员）ThenTextl.SetFocusIfText2.Text