劳保护具管理系统源代码FOXBASE.docx
- 文档编号:26993047
- 上传时间:2023-06-24
- 格式:DOCX
- 页数:216
- 大小:47.77KB
劳保护具管理系统源代码FOXBASE.docx
《劳保护具管理系统源代码FOXBASE.docx》由会员分享,可在线阅读,更多相关《劳保护具管理系统源代码FOXBASE.docx(216页珍藏版)》请在冰豆网上搜索。
劳保护具管理系统源代码FOXBASE
SETPROCTOLBHJ
DOLB00
************************************************************
*LB00*
************************************************************
PROCEDURELB00
SETTALKOFF
SETSTATOFF
SETSAFEOFF
SETDATEANSI
SETSCOROFF
SETESCAOFF
SETECHOOFF
SETDOHIOFF
GB=''
_UC=''
LOADTEST
CALLTESTWITH_UC
IFLEFT(_UC,1)='1'
SETCOLOTO+GB/B,+W/G
CLEAR
SETCOLOTO/0
@10,20CLEARTO16,61
SETCOLOTO+W/BG
@9,18SAY'******************************************'
@10,18SAY'**'
@11,18SAY'**'
@12,18SAY'**'
@13,18SAY'**'
@14,18SAY'**'
@15,18SAY'******************************************'
SETCOLOTO+GR/R,R/R
@10,20SAY''
@11,20SAY'UCDOSnotbeinstalled'
@12,20SAY''
@13,20SAY'PressanykeytoEXIT!
'
@14,20SAY''
@12,36GETGB
READ
SETCOLOTO
CLEAR
QUIT
ENDIF
IFLEFT(_UC,1)<>'0'
SETCOLOTO+GB/B,+W/G
CLEAR
SETCOLOTO/0
@10,20CLEARTO16,61
SETCOLOTO+W/BG
@9,18SAY'******************************************'
@10,18SAY'**'
@11,18SAY'**'
@12,18SAY'**'
@13,18SAY'**'
@14,18SAY'**'
@15,18SAY'******************************************'
SETCOLOTO+GR/R,R/R
@10,20SAY''
@11,20SAY'UCDOS特殊显示程序TX.COM没有运行'
@12,20SAY''
@13,20SAY'请按任意键退出本系统!
'
@14,20SAY''
@12,36GETGB
READ
SETCOLOTO
CLEAR
QUIT
ENDIF
RELEMODUTEST
SETCOLOTO/B
DOWHILE.T.
SETCOLOTO/1
CLEAR
@0,0SAYCHR(14)+'[CU1,0]'
@0,0SAYCHR(14)+'[RE0,0,LBHJ.PCX]'
SETDEVITOSCRE
SETMESSAGETO24
SETCOLORTO/0
@11,4CLEARTO21,43
SETCOLORTO+BG/BG,+W/BG
@10,1SAY'┏━━━━━━━━━━━━━━━━━┓'
@11,1SAY'┃┃'
@12,1SAY'┠─────────────────┨'
@13,1SAY'┃┃'
@14,1SAY'┃┃'
@15,1SAY'┃┃'
@16,1SAY'┃┃'
@17,1SAY'┃┃'
@18,1SAY'┃┃'
@19,1SAY'┃┃'
@20,1SAY'┗━━━━━━━━━━━━━━━━━┛'
SETCOLORTO+GR/+G
@11,5SAY'主菜单【2006年完整版】'
SETCOLORTO+GR/R,+G/1
@13,5PROMPT'1──查询个人资料'MESSAGE'查询员工个人劳保护具领用情况的详细资料'
@14,5PROMPT'2──查询护具到期'MESSAGE'查询全分厂员工所有护具到期情况'
@15,5PROMPT'3──输入领用时间'MESSAGE'本管理系统的核心部分:
输入员工领用劳保护具的时间'
@16,5PROMPT'4──员工变动操作'MESSAGE'人员增减、调动后对本系统数据库进行维护操作'
@17,5PROMPT'5──输送个人资料'MESSAGE'输送全分厂员工劳保护具领用情况的详细资料'
@18,5PROMPT'6──输送到期资料'MESSAGE'按护具类别输送全分厂员工所有护具到期情况'
@19,5PROMPT'7──退出'MESSAGE'退出本系统'
MENUTOXZ
@0,0SAYCHR(14)+'[CU1,1]'
DOCASE
CASEXZ=1
DOLB01
CASEXZ=2
DOLB02
CASEXZ=3
DOLB03
CASEXZ=4
DOLB04
CASEXZ=5
DOLB05
CASEXZ=6
DOLB06
CASEXZ=7
USE
EXIT
ENDCASE
ENDD
SETCOLORTOB/N
Y1=79
Y2=0
DOWHILEY1>39
@0,Y1CLEATO24,Y1
@0,Y2CLEATO24,Y2
Y1=Y1-1
Y2=Y2+1
Z=1
DOWHILZ<1500
Z=Z+1
ENDD
ENDD
SETSTATON
SETCOLOTO
QUIT
************************************************************
*LB01*
************************************************************
PROCEDURELB01
SETDATEANSI
SETCOLOTO+GB/B,+W/G
CLEAR
CLEARALL
DIMELXYA(58),LXYB(25)
DOWHILE.T.
DOWHILE.T.
SETCOLOTO+GB/B,+W/G
CLEAR
MN=0
SETCOLOTO/0
@10,20CLEARTO16,61
SETCOLOTO+W/BG
@9,18SAY'┏━━━━━━━━━━━━━━━━━━━┓'
@10,18SAY'┃┃'
@11,18SAY'┃┃'
@12,18SAY'┃┃'
@13,18SAY'┃┃'
@14,18SAY'┃┃'
@15,18SAY'┗━━━━━━━━━━━━━━━━━━━┛'
SETCOLOTO+GR/R,+W/G
@10,20SAY''
@11,20SAY'请输入所查询员工的编号'
@12,20SAY'(1-300)'
@13,20SAY''
@14,20SAY''
@13,38GETMNPICT'999'
READ
IFMN<1.OR.MN>300
LOOP
ENDIF
SELE1
USELBHJ
LOCATEFORBH=MN
IF.NOT.FOUND()
LXY=''
@10,20SAY''
@11,20SAY'此员工或编号不存在,无法进行该项操作!
'
@12,20SAY''
@13,20SAY'是否进行其它员工资料的查询(Y/N)?
'
@14,20SAY''
@13,54GETLXYPICT'!
'
READ
IFUPPE(LXY)='Y'
LOOP
ELSE
RETU
ENDIF
ELSE
SCATTERTOLXYA(58)
SELE2
USEHJDR
LOCATEFORDM=LXYA
(1)
SCATTERTOLXYB(14)
EXIT
ENDIF
ENDDO
SETCOLOTO+GR/B
CLEAR
?
?
?
?
'姓名'+LTRIM(LXYA
(2))+''+LTRIM(LXYB
(2))+''+TRIM(LXYB(3))+'编号'+LTRIM(STR(LXYA(3)))
?
'┏━━━┯━━━┯━━━━━━━━━━━━━━━━━━━┯━━━━┓'
?
'┃种类│耐用期│领用时间│到期时间┃'
?
'┣━━━┿━━━┿━━━━┯━━━━┯━━━━┯━━━━┿━━━━┫'
IFLXYB(4)<>0
?
'┃绸服│'+STR(LXYB(4),2)+'│'+DTOC(LXYA(4))+'│'+DTOC(LXYA(5))+'│'+DTOC(LXYA(6))+'│'+DTOC(LXYA(7))+'│'+DTOC(LXYA(8))+'┃'
ENDIF
IFLXYB(5)<>0
?
'┃呢服│'+STR(LXYB(5),2)+'│'+DTOC(LXYA(9))+'│'+DTOC(LXYA(10))+'│'+DTOC(LXYA(11))+'│'+DTOC(LXYA(12))+'│'+DTOC(LXYA(13))+'┃'
ENDIF
IFLXYB(6)<>0
?
'┃绒衣│'+STR(LXYB(6),2)+'│'+DTOC(LXYA(14))+'│'+DTOC(LXYA(15))+'│'+DTOC(LXYA(16))+'│'+DTOC(LXYA(17))+'│'+DTOC(LXYA(18))+'┃'
ENDIF
IFLXYB(7)<>0
?
'┃雨衣│'+STR(LXYB(7),2)+'│'+DTOC(LXYA(19))+'│'+DTOC(LXYA(20))+'│'+DTOC(LXYA(21))+'│'+DTOC(LXYA(22))+'│'+DTOC(LXYA(23))+'┃'
ENDIF
IFLXYB(8)<>0
?
'┃雨鞋│'+STR(LXYB(8),2)+'│'+DTOC(LXYA(24))+'│'+DTOC(LXYA(25))+'│'+DTOC(LXYA(26))+'│'+DTOC(LXYA(27))+'│'+DTOC(LXYA(28))+'┃'
ENDIF
IFLXYB(9)<>0
?
'┃解放鞋│'+STR(LXYB(9),2)+'│'+DTOC(LXYA(29))+'│'+DTOC(LXYA(30))+'│'+DTOC(LXYA(31))+'│'+DTOC(LXYA(32))+'│'+DTOC(LXYA(33))+'┃'
ENDIF
IFLXYB(10)<>0
?
'┃毛巾│'+STR(LXYB(10),2)+'│'+DTOC(LXYA(34))+'│'+DTOC(LXYA(35))+'│'+DTOC(LXYA(36))+'│'+DTOC(LXYA(37))+'│'+DTOC(LXYA(38))+'┃'
ENDIF
IFLXYB(11)<>0
?
'┃牛皮鞋│'+STR(LXYB(11),2)+'│'+DTOC(LXYA(39))+'│'+DTOC(LXYA(40))+'│'+DTOC(LXYA(41))+'│'+DTOC(LXYA(42))+'│'+DTOC(LXYA(43))+'┃'
ENDIF
IFLXYB(12)<>0
?
'┃绝缘鞋│'+STR(LXYB(12),2)+'│'+DTOC(LXYA(44))+'│'+DTOC(LXYA(45))+'│'+DTOC(LXYA(46))+'│'+DTOC(LXYA(47))+'│'+DTOC(LXYA(48))+'┃'
ENDIF
IFLXYB(13)<>0
?
'┃衬衣│'+STR(LXYB(13),2)+'│'+DTOC(LXYA(49))+'│'+DTOC(LXYA(50))+'│'+DTOC(LXYA(51))+'│'+DTOC(LXYA(52))+'│'+DTOC(LXYA(53))+'┃'
ENDIF
IFLXYB(14)<>0
?
'┃布服│'+STR(LXYB(14),2)+'│'+DTOC(LXYA(54))+'│'+DTOC(LXYA(55))+'│'+DTOC(LXYA(56))+'│'+DTOC(LXYA(57))+'│'+DTOC(LXYA(58))+'┃'
ENDIF
?
'┗━━━┷━━━┷━━━━┷━━━━┷━━━━┷━━━━┷━━━━┛'
XZ=''
SETCOLOTO+GR/G
@24,20SAY'是否还要继续查询其他员工的资料(Y/N)?
'GETXZPICT'!
'
READ
IFUPPE(XZ)<>'Y'
RETU
ENDIF
ENDDO
RETU
************************************************************
*LB02*
************************************************************
PROCEDURELB02
CLEARALL
@0,0SAYCHR(14)+'[CU1,0]'
DOWHILE.T.
XZ=''
SETCOLORTO/B
CLEAR
SETCOLORTO/0
@8,20CLEARTO13,61
SETCOLOTO+R/BG
@7,18SAY'*************查询子菜单***************'
SETCOLOTO+W/BG
@8,18SAY'┏━━━━━━━━━━━━━━━━━━┓'
@9,18SAY'┃┃'
@10,18SAY'┃┃'
@11,18SAY'┃┃'
@12,18SAY'┗━━━━━━━━━━━━━━━━━━┛'
SETCOLOTO+GR/R,+G/B
@9,26PROMPT'1.按"前六种护具"查询'
@10,26PROMPT'2.按"后五种护具"查询'
@11,26PROMPT'3.返回'
MENUTOXZ
SETCOLOTO7/0
DOCASE
CASEXZ=3
CLEAR
SETCOLORTO/B
RETU
CASEXZ=1
DOLB02-1
CASEXZ=2
DOLB02-2
OTHERWISE
RETURN
ENDCASE
ENDDO
@0,0SAYCHR(14)+'[CU1,1]'
CLEAR
CLEARALL
SETCOLORTO/B
RETU
************************************************************
*LB02-1*
************************************************************
PROCEDURELB02-1
@0,0SAYCHR(14)+'[CU1,0]'
DOWHILE.T.
XZ=''
SETCOLORTO/B
CLEAR
SETCOLORTO/0
@8,20CLEARTO17,61
SETCOLOTO+R/BG
@7,18SAY'*************查询子菜单***************'
SETCOLOTO+W/BG
@8,18SAY'┏━━━━━━━━━━━━━━━━━━┓'
@9,18SAY'┃┃'
@10,18SAY'┃┃'
@11,18SAY'┃┃'
@12,18SAY'┃┃'
@13,18SAY'┃┃'
@14,18SAY'┃┃'
@15,18SAY'┃┃'
@16,18SAY'┗━━━━━━━━━━━━━━━━━━┛'
SETCOLOTO+GR/R,+G/B
@9,26PROMPT'1.按"绸服"查询'
@10,26PROMPT'2.按"呢服"查询'
@11,26PROMPT'3.按"绒衣"查询'
@12,26PROMPT'4.按"雨衣"查询'
@13,26PROMPT'5.按"雨鞋"查询'
@14,26PROMPT'6.按"解放鞋"查询'
@15,26PROMPT'7.返回'
MENUTOXZ
SETCOLOTO7/0
DOCASE
CASEXZ=7
CLEAR
SETCOLORTO/B
RETU
CASEXZ=1
DOLB07
CASEXZ=2
DOLB08
CASEXZ=3
DOLB09
CASEXZ=4
DOLB10
CASEXZ=5
DOLB11
CASEXZ=6
DOLB12
OTHERWISE
RETURN
ENDCASE
ENDDO
@0,0SAYCHR(14)+'[CU1,1]'
CLEAR
CLEARALL
SETCOLORTO/B
RETU
************************************************************
*LB02-2*
************************************************************
PROCEDURELB02-2
@0,0SAYCHR(14)+'[CU1,0]'
DOWHILE.T.
XZ=''
SETCOLORTO/B
CLEAR
SETCOLORTO/0
@8,20CLEARTO16,61
SETCOLOTO+R/BG
@7,18SAY'*************查询子菜单***************'
SETCOLOTO+W/BG
@8,18SAY'┏━━━━━━━━━━━━━━━━━━┓'
@9,18SAY'┃┃'
@10,18SAY'┃┃'
@11,18SAY'┃┃'
@12,18SAY'┃┃'
@13,18SAY'┃┃'
@14,18SAY'┃┃'
@15,18SAY'┗━━━━━━━━━━━━━━━━━━┛'
SETCOLOTO+GR/R,+G/B
@9,26PROMPT'1.按"毛巾"查询'
@10,26PROMPT'2.按"牛皮鞋"查询'
@11,26PROMPT'3.按"绝缘鞋"查询'
@12,26PROMPT'4.按"衬衣"查询'
@13,26PROMPT'5.按"布服"查询'
@14,26PROMPT'6.返回'
MENUTOXZ
SETCOLOTO7/0
DOCASE
CASEXZ=6
CLEAR
SETCOLORTO/B
RETU
CASEXZ=1
DOLB13
CASEXZ=2
DOLB14
CASEXZ=3
DOLB15
CASEXZ=4
DOLB16
CASEXZ=5
DOLB17
OTHERWISE
RETURN
ENDCASE
ENDDO
@0,0SAYCHR(14)+'[CU1,1]'
CLEAR
CLEARALL
SETCOLORTO/B
RETU
************************************************************
*LB03*
************************************************************
PROCEDURELB03
SETDATEANSI
SETCOLOTO+GB/B,+W/G
CLEARALL
@0,0SAYCHR(14)+'[CU1,0]'
SETCOLOTO/0
@18,52CLEARTO21,70
SETCOLORTO+BG/BG,+W/BG
@17,51SAY'┏━━━━━━┓'
@18,51SAY'┃┃'
@19,51SAY'┃┃'
@20,51SAY'┗━━━━━━┛'
MMMM=1
DOWHILE.T.
SETCOLORTO+GR/R,+G/1
@18,55SAY'请输入密码'
M=''
MM=''
SETCOLOTOR/B
@19,55CLEATO19,64
PJ=1
DOWHILPJ<=8
SETCONSOFF
WAITTOM
STOREMM+MTOMM
XA=55+PJ
XS='@19,'+STR(XA)+'SAY'
&XS.'*'
PJ=PJ+1
ENDD
SETCONSON
IFUPPE(MM)='20060315'
EXIT
ELSE
MMMM=MMMM+1
IFMMMM=3
RETU
ENDIF
ENDIF
ENDDO
DIMELXYA(58),LXYB(25)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 劳保 护具 管理 系统 源代码 FOXBASE