vfp做的企業(yè)人事管理系統(tǒng)方案(編輯修改稿)
2025-05-30 00:52 本頁面
【文章內容簡介】 =.f.=.f.=.f.=.f.=.f.“保存”代碼如下：m=messagebox(是否保存？,4+48,信息窗口)if m=6 messagebox(信息已保存,48,信息窗口)=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.elseendif“查找“代碼如下：set order to 職工號seek allt()if !found()messagebox(此職工號不存在,48,錯誤)go topendif=“刪除”代碼如下： m = messagebox(是否刪除?,4+32,信息窗口)if m=6 messagebox(記錄已經(jīng)刪除!,48,信息窗口) delete pack select 職工信息表 go bottomelse endif“查詢”代碼如下：getid=allt()getname=allt()getdepart=allt()flag1=flag2=flag3=if flag1=0 and flag2=0 and flag3=0messagebox(請輸入查詢條件,48,錯誤)endifif flag1=1 and flag2=0 and flag3=0select * from 職工信息表 where 職工號=getid into cursor aa=aaendifif flag1=0 and flag2=1 and flag3=0select * from 職工信息表 where 姓名=getname into cursor aa=aaendifif flag1=0 and
公司管理相關推薦
鄂ICP備17016276號-1