frmmain.frm

来自「需要控件：Active Report 2.0(专业报表控件破解版)2.0下的ar」· FRM 代码 · 共 516 行 · 第 1/2 页

      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      cGradient       =   0
      Mode            =   0
      Value           =   0   'False
      Image           =   "FrmMain.frx":71E1
      cBack           =   -2147483633
   End
   Begin yfDNetMenu.DNetMenu DNetMenu1 
      Left            =   7965
      Top             =   15
      _ExtentX        =   847
      _ExtentY        =   847
      BmpCount        =   13
      Bmp:1           =   "FrmMain.frx":757B
      Key:1           =   "#mCZYGL"
      Bmp:2           =   "FrmMain.frx":79A3
      Key:2           =   "#mCXDL"
      Bmp:3           =   "FrmMain.frx":7DCB
      Key:3           =   "#mMMXG"
      Bmp:4           =   "FrmMain.frx":81F3
      Key:4           =   "#mTCXT"
      Bmp:5           =   "FrmMain.frx":861B
      Key:5           =   "#mWXDJ"
      Bmp:6           =   "FrmMain.frx":8A43
      Key:6           =   "#mBJWH"
      Bmp:7           =   "FrmMain.frx":8E6B
      Key:7           =   "#mXHWH"
      Bmp:8           =   "FrmMain.frx":9293
      Key:8           =   "#mCLFS"
      Bmp:9           =   "FrmMain.frx":96BB
      Key:9           =   "#mABHC"
      Bmp:10          =   "FrmMain.frx":9AE3
      Key:10          =   "#mAKHC"
      Bmp:11          =   "FrmMain.frx":9F0B
      Key:11          =   "#mASJC"
      Bmp:12          =   "FrmMain.frx":A333
      Key:12          =   "#mHelpm"
      Bmp:13          =   "FrmMain.frx":A75B
      Key:13          =   "#mAbout"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu mXTGL 
      Caption         =   "系统管理"
      Begin VB.Menu mCZYGL 
         Caption         =   "操作员管理"
      End
      Begin VB.Menu mBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mMMXG 
         Caption         =   "密码修改"
      End
      Begin VB.Menu mCXDL 
         Caption         =   "重新登录"
      End
      Begin VB.Menu mBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mTCXT 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mJBXX 
      Caption         =   "基本信息"
      Begin VB.Menu mWXDJ 
         Caption         =   "维修产品登记"
      End
      Begin VB.Menu mBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mBJWH 
         Caption         =   "部件信息维护"
      End
      Begin VB.Menu mWGWH 
         Caption         =   "规格信息维护"
      End
      Begin VB.Menu mXHWH 
         Caption         =   "型号信息维护"
      End
      Begin VB.Menu mKHWH 
         Caption         =   "客户信息维护"
      End
      Begin VB.Menu mCLFS 
         Caption         =   "处理方式维护"
      End
   End
   Begin VB.Menu mSJCC 
      Caption         =   "数据查询"
      Begin VB.Menu mABHC 
         Caption         =   "按编号查询"
      End
      Begin VB.Menu mAKHC 
         Caption         =   "按客户查询"
      End
      Begin VB.Menu mASJC 
         Caption         =   "按时间查询"
      End
   End
   Begin VB.Menu mHelp 
      Caption         =   "帮助"
      Begin VB.Menu mHelpm 
         Caption         =   "帮助主题"
      End
      Begin VB.Menu mAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CmdCenliSearch_Click()
   FrmSearchClient.Show vbModal
End Sub

Private Sub CmdDateSearch_Click()
   FrmSearchDate.Show
End Sub

Private Sub CmdIdSearch_Click()
   FrmSearchID.Show vbModal
End Sub

Private Sub CmdProcregister_Click()
    FrmProductEnregister.Show vbModal
End Sub

Private Sub Form_Load()
'    Dim newFormat As String
'    Dim LCID As Long
'    'Me.Visible = False
'
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
'
''    newFormat = "yyyy-mm-dd"
''    If GetUserLocaleInfo(LCID, LOCALE_SSHORTDATE) <> newFormat Then
''       LCID = GetSystemDefaultLCID()
''       '设置短日期格式
''       Call SetLocaleInfo(LCID, LOCALE_SSHORTDATE, newFormat)
''
''       '发送消息更改系统模式
''       Call PostMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, ByVal 0&)
''    End If
'
'    'Call LoadItems
''    If checkWantedAccessDSN("SerManage", "HC") = False Then
''       Call CreateMDBDSN(App.pAth & "\ServicingManage", "SerManage", "HC", App.pAth & "\sms.mdb")
''    End If

'frmSplash.Show
'frmSplash.SetFocus
'Call DelayTime(2) 'Delay 2 Sec
'Me.Visible = True
'frmSplash.SetFocus
'Call DelayTime(2) 'Delay 2 Sec
'Unload frmSplash
'Me.SetFocus
    Image1.Picture = LoadPicture(GetSetting(App.EXEName, "Settings", "PicName", ""))
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case UnloadMode
        Case vbFormControlMenu
            If MsgBox("确认要退出本系统?", vbQuestion + vbOKCancel, "确认") = vbCancel Then
                Cancel = 1
            End If
        Case vbFormCode
            If MsgBox("确认要退出本系统?", vbQuestion + vbOKCancel, "确认") = vbCancel Then
                Cancel = 1
            End If
    End Select
End Sub

Private Sub Form_Resize()
   On Error Resume Next
   Frame1.Width = Me.Width
   
   WellPicture.AutoRedraw = True
   WellPicture.Cls
   WellPicture.Height = Me.ScaleHeight + WellPicture.Height - WellPicture.ScaleHeight - 990
   WellPicture.Width = Me.ScaleWidth + WellPicture.Width - WellPicture.ScaleWidth - 140
   WellPicture.PaintPicture Image1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
   'WellPicture.Width = Me.Width - 200
   'WellPicture.Height = Me.Height - 1600
End Sub

Private Sub CmdQuit_Click()
    Unload Me
End Sub

Private Sub mABHC_Click()
    Call CmdIdSearch_Click
End Sub

Private Sub mAbout_Click()
    frmAbout.Show vbModal
End Sub

Private Sub mAKHC_Click()
    Call CmdCenliSearch_Click
End Sub

Private Sub mASJC_Click()
    Call CmdDateSearch_Click
End Sub

Private Sub mBJWH_Click()
    FrmParts.Show vbModal
End Sub

Private Sub mCLFS_Click()
    FrmDispose.Show vbModal
End Sub

Private Sub mKHWH_Click()
    FrmClient.Show vbModal
End Sub

Private Sub mTCXT_Click()
    Unload Me
End Sub

Private Sub mWGWH_Click()
    FrmSpec.Show vbModal
End Sub

Private Sub mWXDJ_Click()
    FrmProductEnregister.Show vbModal
End Sub

Private Sub mXHWH_Click()
    FrmModel.Show vbModal
End Sub

Private Sub WellPicture_DblClick()
     SelectFile.Show vbModal
End Sub