开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
FrmMain.frm
资源名称：20080403.rar　[点击查看]
上传用户：linhua1013
上传日期：2014-12-05
资源大小：375k
文件大小：8k
源码类别：

SQL Server

开发平台：

Visual Basic

FrmMain.frm：源码内容
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.MDIForm FrmMain 
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "企业人事信息管理系统"
  6.    ClientHeight    =   4305
  7.    ClientLeft      =   60
  8.    ClientTop       =   630
  9.    ClientWidth     =   6885
  10.    LinkTopic       =   "MDIForm1"
  11.    Picture         =   "FrmMain.frx":0000
  12.    StartUpPosition =   2  '屏幕中心
  13.    WindowState     =   2  'Maximized
  14.    Begin ComctlLib.StatusBar StatusBar1 
  15.       Align           =   2  'Align Bottom
  16.       Height          =   375
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   3930
  20.       Width           =   6885
  21.       _ExtentX        =   12144
  22.       _ExtentY        =   661
  23.       SimpleText      =   ""
  24.       _Version        =   327682
  25.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  26.          NumPanels       =   4
  27.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  28.             Bevel           =   0
  29.             Object.Width           =   1677
  30.             MinWidth        =   1677
  31.             Text            =   "当前用户："
  32.             TextSave        =   "当前用户："
  33.             Object.Tag             =   ""
  34.          EndProperty
  35.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  36.             Object.Width           =   3528
  37.             MinWidth        =   3528
  38.             Key             =   "XSHyonghu"
  39.             Object.Tag             =   ""
  40.          EndProperty
  41.          BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  42.             Style           =   5
  43.             TextSave        =   "0:33"
  44.             Object.Tag             =   ""
  45.          EndProperty
  46.          BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  47.             Style           =   6
  48.             TextSave        =   "2005-10-24"
  49.             Object.Tag             =   ""
  50.          EndProperty
  51.       EndProperty
  52.    End
  53.    Begin VB.Menu 系统 
  54.       Caption         =   "系统"
  55.       Begin VB.Menu 添加用户 
  56.          Caption         =   "添加用户"
  57.       End
  58.       Begin VB.Menu 修改密码 
  59.          Caption         =   "修改密码"
  60.       End
  61.       Begin VB.Menu 退出系统 
  62.          Caption         =   "退出系统"
  63.       End
  64.    End
  65.    Begin VB.Menu 员工基本信息 
  66.       Caption         =   "员工基本信息"
  67.       Begin VB.Menu 员工信息查看 
  68.          Caption         =   "员工信息查看"
  69.       End
  70.       Begin VB.Menu 员工信息添加 
  71.          Caption         =   "员工信息添加"
  72.       End
  73.       Begin VB.Menu 员工信息修改 
  74.          Caption         =   "员工信息修改"
  75.       End
  76.       Begin VB.Menu 删除员工信息 
  77.          Caption         =   "删除员工信息"
  78.       End
  79.    End
  80.    Begin VB.Menu 员工考勤管理 
  81.       Caption         =   "员工考勤管理"
  82.       Begin VB.Menu 考勤信息查看 
  83.          Caption         =   "考勤信息查看"
  84.       End
  85.       Begin VB.Menu 添加考勤信息 
  86.          Caption         =   "添加考勤信息"
  87.       End
  88.       Begin VB.Menu 修改考勤信息 
  89.          Caption         =   "修改考勤信息"
  90.       End
  91.       Begin VB.Menu 删除考勤信息 
  92.          Caption         =   "删除考勤信息"
  93.       End
  94.    End
  95.    Begin VB.Menu 员工工作信息管理 
  96.       Caption         =   "员工工作信息管理"
  97.       Begin VB.Menu 工作信息查看 
  98.          Caption         =   "工作信息查看"
  99.       End
  100.       Begin VB.Menu 添加工作信息 
  101.          Caption         =   "添加工作信息"
  102.       End
  103.       Begin VB.Menu 修改工作信息 
  104.          Caption         =   "修改工作信息"
  105.       End
  106.       Begin VB.Menu 删除工作信息 
  107.          Caption         =   "删除工作信息"
  108.       End
  109.    End
  110.    Begin VB.Menu 员工工资管理 
  111.       Caption         =   "员工工资管理"
  112.       Begin VB.Menu 员工工资信息查看 
  113.          Caption         =   "员工工资信息查看"
  114.       End
  115.       Begin VB.Menu 计发员工工资信息 
  116.          Caption         =   "计发员工工资信息"
  117.       End
  118.       Begin VB.Menu 删除员工工资信息 
  119.          Caption         =   "删除员工工资信息"
  120.       End
  121.    End
  122.    Begin VB.Menu 关于 
  123.       Caption         =   "关于"
  124.    End
  125. End
  126. Attribute VB_Name = "FrmMain"
  127. Attribute VB_GlobalNameSpace = False
  128. Attribute VB_Creatable = False
  129. Attribute VB_PredeclaredId = True
  130. Attribute VB_Exposed = False
  131. Private Sub MDIForm_Load()
  132.   Picture = LoadPicture("")
  133.   StatusBar1.Panels(2) = DLyonghuM & "(" & DLyonghuQX & ")"
  134.   If DLyonghuQX = "普通用户" Then
  135.      FrmMain.计发员工工资信息.Visible = False
  136.      FrmMain.删除工作信息.Visible = False
  137.      FrmMain.删除考勤信息.Visible = False
  138.      FrmMain.删除员工信息.Visible = False
  139.      FrmMain.添加工作信息.Visible = False
  140.      FrmMain.添加考勤信息.Visible = False
  141.      FrmMain.添加用户.Visible = False
  142.      FrmMain.修改工作信息.Visible = False
  143.      FrmMain.修改考勤信息.Visible = False
  144. '     FrmMain.修改员工工资信息.Visible = False
  145.      FrmMain.员工信息添加.Visible = False
  146.      FrmMain.员工信息修改.Visible = False
  147.      FrmMain.修改密码.Visible = False
  148.   End If
  149. End Sub
  151. Private Sub 工作信息查看_Click()
  152.   Unload GongZuoXinXi
  153.   ChakanGZ_PD = True
  154.   TianJiaGZ_PD = False
  155.   XiuGaiGZ_PD = False
  156.   ShanChuGZ_PD = False
  157.   Load GongZuoXinXi
  158.   GongZuoXinXi.Show
  159. End Sub
  161. Private Sub 关于_Click()
  162.   GuangYu.Show
  163. End Sub
  165. Private Sub 计发员工工资信息_Click()
  166.   Unload GongZi
  167.   GongZiChK_PD = False
  168.   GongZiXG_PD = False
  169.   GongZiTJ_PD = True
  170.   GongZiShCh_PD = False
  171.   Load GongZi
  172.   GongZi.Show
  173. End Sub
  175. Private Sub 考勤信息查看_Click()
  176.   Load chaKanYGKQ
  177.   chaKanYGKQ.Show
  178. End Sub
  180. Private Sub 删除工作信息_Click()
  181.   Unload GongZuoXinXi
  182.   ChakanGZ_PD = False
  183.   TianJiaGZ_PD = False
  184.   XiuGaiGZ_PD = False
  185.   ShanChuGZ_PD = True
  186.   Load GongZuoXinXi
  187.   GongZuoXinXi.Show
  188. End Sub
  190. Private Sub 删除考勤信息_Click()
  191.   Unload XiuGaiKQ
  192.   XiuGaiKQ_PD = False
  193.   TianJiaKQ_PD = False
  194.   ShanChuKQ_PD = True
  195.   Load XiuGaiKQ
  196.   XiuGaiKQ.Show
  197. End Sub
  199. Private Sub 删除员工工资信息_Click()
  200.   Unload GongZi
  201.   GongZiChK_PD = False
  202.   GongZiXG_PD = False
  203.   GongZiTJ_PD = False
  204.   GongZiShCh_PD = True
  205.   Load GongZi
  206.   GongZi.Show
  207. End Sub
  209. Private Sub 删除员工信息_Click()
  210.   Unload xiugaiXX
  211.   ShanChuJB = True
  212.   XiuGaiJB_PD = False
  213.   TianJiaJB = False
  214.   Load xiugaiXX
  215.   xiugaiXX.Show
  216. End Sub
  218. Private Sub 添加工作信息_Click()
  219.   Unload GongZuoXinXi
  220.   ChakanGZ_PD = False
  221.   TianJiaGZ_PD = True
  222.   XiuGaiGZ_PD = False
  223.   ShanChuGZ_PD = False
  224.   Load GongZuoXinXi
  225.   GongZuoXinXi.Show
  226. End Sub
  228. Private Sub 添加考勤信息_Click()
  229.   Unload XiuGaiKQ
  230.   XiuGaiKQ_PD = False
  231.   TianJiaKQ_PD = True
  232.   ShanChuKQ_PD = False
  233.   Load XiuGaiKQ
  234.   XiuGaiKQ.Show
  235. End Sub
  237. Private Sub 添加用户_Click()
  238.   Load tianjiaYH
  239.   tianjiaYH.Show
  240. End Sub
  242. Private Sub 退出系统_Click()
  243.   End
  244. End Sub
  246. Private Sub 修改工作信息_Click()
  247.   Unload GongZuoXinXi
  248.   ChakanGZ_PD = False
  249.   TianJiaGZ_PD = False
  250.   XiuGaiGZ_PD = True
  251.   ShanChuGZ_PD = False
  252.   Load GongZuoXinXi
  253.   GongZuoXinXi.Show
  254. End Sub
  256. Private Sub 修改考勤信息_Click()
  257.   Unload XiuGaiKQ
  258.   XiuGaiKQ_PD = True
  259.   TianJiaKQ_PD = False
  260.   ShanChuKQ_PD = False
  261.   Load XiuGaiKQ
  262.   XiuGaiKQ.Show
  263. End Sub
  265. Private Sub 修改密码_Click()
  266.   Load XiuGaimima
  267.   XiuGaimima.Show
  268. End Sub
  270. 'Private Sub 修改员工工资信息_Click()
  271. '  Unload GongZi
  272. '  GongZiChK_PD = False
  273. '  GongZiXG_PD = True
  274. '  GongZiTJ_PD = False
  275. '  GongZiShCh_PD = False
  276. '  Load GongZi
  277. '  GongZi.Show
  278. 'End Sub
  280. Private Sub 员工工资信息查看_Click()
  281.   Unload GongZi
  282.   GongZiChK_PD = True
  283.   GongZiXG_PD = False
  284.   GongZiTJ_PD = False
  285.   GongZiShCh_PD = False
  286.   Load GongZi
  287.   GongZi.Show
  288. End Sub
  290. Private Sub 员工信息查看_Click()
  291.   Load chakanXX
  292.   chakanXX.Show
  293. End Sub
  295. Private Sub 员工信息添加_Click()
  296.   Unload xiugaiXX
  297.   TianJiaJB = True
  298.   XiuGaiJB_PD = False
  299.   ShanChuJB = False
  300.   Load xiugaiXX
  301.   xiugaiXX.Show
  302. End Sub
  304. Private Sub 员工信息修改_Click()
  305.   Unload xiugaiXX
  306.   XiuGaiJB_PD = True
  307.   TianJiaJB = False
  308.   ShanChuJB = False
  309.   Load xiugaiXX
  310.   xiugaiXX.Show
  311. End Sub