?? 計量器具管理.frm

?? 計量器具管理系統
?? FRM
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MainForm 
   BackColor       =   &H8000000C&
   Caption         =   "遠望計量器具管理系統"
   ClientHeight    =   6300
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9360
   Icon            =   "計量器具管理.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "計量器具管理.frx":08CA
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   285
      Left            =   0
      TabIndex        =   0
      Top             =   6015
      Width           =   9360
      _ExtentX        =   16510
      _ExtentY        =   503
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4586
            MinWidth        =   4586
            Text            =   "當前操作員："
            TextSave        =   "當前操作員："
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   4762
            MinWidth        =   4762
            Text            =   "濟寧遠望軟件技術有限公司"
            TextSave        =   "濟寧遠望軟件技術有限公司"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3175
            MinWidth        =   3175
            Text            =   "www.jnywsoft.com"
            TextSave        =   "www.jnywsoft.com"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   7056
            MinWidth        =   7056
            Text            =   "登記時間"
            TextSave        =   "登記時間"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   900
      Top             =   840
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":640FC
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":6454E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":650B3
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":658E1
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":6619B
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":66A86
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":66DA0
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":670BA
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":67565
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "計量器具管理.frx":67A40
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   9360
      _ExtentX        =   16510
      _ExtentY        =   1085
      ButtonWidth     =   1455
      ButtonHeight    =   926
      Appearance      =   1
      ImageList       =   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "信息"
            Key             =   "key1"
            Object.ToolTipText     =   "啟用"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "檢定"
            Object.ToolTipText     =   "檢定"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "維修"
            Object.ToolTipText     =   "維修"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "應檢設備"
            Object.ToolTipText     =   "到期設備"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "數據備份"
            Object.ToolTipText     =   "數據備份"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "數據恢復"
            Object.ToolTipText     =   "數據恢復"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "數據上報"
            Object.ToolTipText     =   "數據上報"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "數據接收"
            Object.ToolTipText     =   "數據接收"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Object.ToolTipText     =   "退出"
            ImageIndex      =   10
         EndProperty
      EndProperty
   End
   Begin VB.Menu jcxx 
      Caption         =   "基礎信息"
      Begin VB.Menu dwxxsz 
         Caption         =   "單位信息"
      End
      Begin VB.Menu bmxx 
         Caption         =   "部門信息"
      End
      Begin VB.Menu yhgl 
         Caption         =   "用戶管理"
      End
      Begin VB.Menu qjlb 
         Caption         =   "器具類別"
      End
      Begin VB.Menu tcxt 
         Caption         =   "退出系統"
      End
   End
   Begin VB.Menu munqjgl 
      Caption         =   "器具管理"
      Begin VB.Menu munjlqjxx 
         Caption         =   "計量器具信息"
      End
      Begin VB.Menu munjlqjjd 
         Caption         =   "計量器具檢定"
      End
      Begin VB.Menu munjlqjwx 
         Caption         =   "計量器具維修"
      End
      Begin VB.Menu munjlqjbf 
         Caption         =   "計量器具報廢"
      End
   End
   Begin VB.Menu mnutjcx 
      Caption         =   "統計查詢"
      Begin VB.Menu mnujlqjxxcx 
         Caption         =   "計量器具信息查詢"
      End
      Begin VB.Menu mnujdqkcx 
         Caption         =   "檢定情況查詢"
      End
      Begin VB.Menu munwxqkcx 
         Caption         =   "維修情況查詢"
      End
   End
   Begin VB.Menu munjlqjtz 
      Caption         =   "計量器具臺帳"
      Begin VB.Menu muntzmb 
         Caption         =   "臺帳摸板"
         Visible         =   0   'False
      End
      Begin VB.Menu jlqjtz 
         Caption         =   "計量器具臺帳"
      End
      Begin VB.Menu qzjdjlqjtz 
         Caption         =   "強制檢定計量器具臺帳"
      End
      Begin VB.Menu bfjlqjtz 
         Caption         =   "報廢計量器具臺帳"
      End
      Begin VB.Menu byxqyjlqjtz 
         Caption         =   "本月新啟用計量器具臺帳"
      End
      Begin VB.Menu bybfjlqjtz 
         Caption         =   "本月報廢計量器具臺帳"
      End
      Begin VB.Menu byyjdjlqjtz 
         Caption         =   "本月應檢定計量器具臺帳"
      End
      Begin VB.Menu sydwftz 
         Caption         =   "使用單位分臺帳"
      End
   End
   Begin VB.Menu xtwh 
      Caption         =   "系統維護"
      Begin VB.Menu xtcsh 
         Caption         =   "系統初始化"
      End
      Begin VB.Menu sjbf 
         Caption         =   "數據備份"
      End
      Begin VB.Menu sjhf 
         Caption         =   "數據恢復"
      End
      Begin VB.Menu sjsb 
         Caption         =   "數據上報"
         Visible         =   0   'False
      End
      Begin VB.Menu sjjs 
         Caption         =   "數據接收"
         Visible         =   0   'False
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim nod As Node
Dim rs As New ADODB.Recordset




Private Sub bfjlqjtz_Click()
    Frm_計量器具臺帳報廢.Show
End Sub

Private Sub bmxx_Click()
    Frm_部門信息.Show
End Sub

Private Sub bybfjlqjtz_Click()
    Frm_計量器具臺帳本月報廢.Show
End Sub

Private Sub byxqyjlqjtz_Click()
    Frm_計量器具臺帳本月啟用.Show
End Sub

Private Sub byyjdjlqjtz_Click()
    Frm_計量器具臺帳本月應檢定.Show
End Sub

Private Sub dwxxsz_Click()
    Frm_單位信息.Show
End Sub

Private Sub jlqjtz_Click()
    Frm_計量器具臺帳.Show
End Sub

Private Sub MDIForm_Activate()
    If log = False Then frm_logon.Show 1
End Sub

Private Sub MDIForm_Load()
    StatusBar1.Panels(1).Text = "當前操作員：" & " " & Czymc
    StatusBar1.Panels(4).Text = "登錄時間：" & " " & Now
    log = False
 End Sub

Private Sub MDIForm_Resize()
'On Error GoTo ERR
'        Picture2.Width = MainForm.Width ' - Picture1.Height
'    Image1.Top = 0
'    Image1.Left = 0
'    Image1.Width = Picture2.Width
'    Image1.Height = Picture2.Height '- Picture1.Height
'    Image1.Stretch = True
'    Exit Sub
'ERR:
'    Exit Sub

End Sub

Private Sub mnujdqkcx_Click()
    Frm_計量器具檢定查詢.Show
End Sub

Private Sub mnujlqjxxcx_Click()
    Frm_計量器具信息查詢.Show
End Sub

Private Sub munjlqjbf_Click()
    Frm_計量器具報廢.Show
End Sub

Private Sub munjlqjjd_Click()
    Frm_計量器具檢定.Show
End Sub

Private Sub munjlqjwx_Click()
    Frm_計量器具維修.Show
End Sub

Private Sub munjlqjxx_Click()
    Frm_計量器具信息.Show
End Sub

Private Sub qjlb_Click()
    Frm_器具種類管理.Show
End Sub

Private Sub sjbf_Click()
    Frm_數據庫備份.Show 1
End Sub

Private Sub muntzmb_Click()
 '   Frm_計量器具臺帳摸板.Show
End Sub

Private Sub munwxqkcx_Click()
    Frm_計量器具維修查詢.Show
End Sub

Private Sub Tree_DblClick()
On Error GoTo ERR
    Call Me.ActiveForm.frm_ini
Exit Sub
ERR:
  Exit Sub
End Sub

Private Sub Tree_NodeClick(ByVal Node As MSComctlLib.Node)
On Error GoTo ERR:

  If Node.Key <> "Root" And Node.Parent.Key = "Root" Then
     P_lybh = Mid(Trim(Node.Key), 2, Len(Trim(Node.Key)) - 1)
     P_dwbh = ""
  End If
  If Node.Key <> "Root" And Node.Parent.Key <> "Root" Then
    P_lybh = Mid(Trim(Node.Parent.Key), 2, Len(Trim(Node.Parent.Key)) - 1)
    P_dwbh = Mid(Trim(Node.Key), 2, Len(Trim(Node.Key)) - 1)
  End If
      
  Exit Sub
ERR:
  Exit Sub
  
End Sub


Private Sub sjhf_Click()
    Frm_數據庫恢復.Show 1
End Sub

Private Sub sjjs_Click()
    Frm_數據接收.Show 1
End Sub

Private Sub sjsb_Click()
    Frm_數據上報.Show 1
End Sub

Private Sub tcxt_Click()
    End
End Sub

Private Sub xtcsh_Click()
    Frm_系統初始化.Show
End Sub

Private Sub yhsz_Click()
    Form2.Show
End Sub


Private Sub qzjdjlqjtz_Click()
    Frm_計量器具臺帳強制檢定.Show
End Sub

Private Sub sydwftz_Click()
    Frm_計量器具臺帳分部門.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
            Frm_計量器具信息.Show
        Case 2
            Frm_計量器具檢定.Show
        Case 3
            Frm_計量器具維修.Show
        Case 4
            Frm_計量器具臺帳本月應檢定.Show
        Case 5
            Frm_數據庫備份.Show 1
        Case 6
            Frm_數據庫恢復.Show 1
        Case 7
            Frm_數據上報.Show 1
        Case 8
            Frm_數據接收.Show 1
        Case 9
            End
    End Select
End Sub

Private Sub yhgl_Click()
    Frm_用戶管理.Show
End Sub
?? 文件大小 992 K
?? 上傳用戶 sy361
?? 所屬分類其他行業
??? 相關標簽

#計量 #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 計量器具管理.frm

?? 快捷鍵說明
