工作选项.frm

一个客车售票系统

         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   315
      Left            =   2970
      TabIndex        =   3
      Top             =   90
      Width           =   1725
   End
   Begin VB.Image Image5 
      Height          =   750
      Left            =   9870
      MouseIcon       =   "工作选项.frx":84C6D
      MousePointer    =   99  'Custom
      Picture         =   "工作选项.frx":84F77
      Top             =   7560
      Width           =   1500
   End
   Begin VB.Image Image4 
      Height          =   750
      Left            =   2310
      MouseIcon       =   "工作选项.frx":85C94
      MousePointer    =   99  'Custom
      Picture         =   "工作选项.frx":85F9E
      Top             =   1680
      Width           =   1500
   End
   Begin VB.Image Image3 
      Height          =   750
      Left            =   7920
      MouseIcon       =   "工作选项.frx":8705C
      MousePointer    =   99  'Custom
      Picture         =   "工作选项.frx":87366
      Top             =   6420
      Width           =   1500
   End
   Begin VB.Image Image2 
      Height          =   750
      Left            =   6060
      MouseIcon       =   "工作选项.frx":881AF
      MousePointer    =   99  'Custom
      Picture         =   "工作选项.frx":884B9
      Top             =   4740
      Width           =   1500
   End
   Begin VB.Image Image1 
      Height          =   750
      Left            =   3990
      MouseIcon       =   "工作选项.frx":88F5B
      MousePointer    =   99  'Custom
      Picture         =   "工作选项.frx":89265
      Top             =   3360
      Width           =   1500
   End
End
Attribute VB_Name = "工作选项"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal X As Long, _
 ByVal hWndInsterAfter As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
 ByVal wFlags As Long) As Long
    Dim hWndl As Long
    Const SWP_HIDEWINDOW = &H80
    Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Label4 = Time
Close #1
Open App.Path + "\" + "Date.txt" For Output As #1
Write #1, " "
Close #1
Open App.Path + "\" + "Cc.txt" For Output As #1
Write #1, " "
Close #1
Open App.Path + "\" + "Bz.txt" For Output As #1
Write #1, " "
Close #1
Label2 = Format(Date, "yyyy 年 m 月 d 日")
hWndl = FindWindow("Shell_traywnd", "")
Picture1.Visible = False
Picture1.Left = 210
Picture1.Top = 191
Picture2.Visible = False
Picture2.Left = 238
Picture2.Top = 264
Picture3.Visible = False
Picture3.Left = 254
Picture3.Top = 315
Picture4.Visible = False
Picture4.Left = 111
Picture4.Top = 86
Image1.Enabled = True
Image2.Enabled = True
Image3.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
Image5.Visible = True
Image1.Enabled = True
Image2.Enabled = True
Image3.Enabled = True
Image4.Enabled = True
Image5.Enabled = True
End Sub
Private Sub Image1_Click()
    Picture1.Visible = True
    Image1.Visible = False
    Image1.Enabled = False
    Image2.Enabled = False
    Image3.Enabled = False
    Image4.Enabled = False
    Image5.Enabled = False
    Image6.Visible = True
    Image7.Visible = True
    Image8.Visible = True
    Image9.Visible = True
End Sub
Private Sub Image18_Click()
    工作选项.Enabled = False
    上报数据.Show
End Sub
Private Sub Image19_Click()
    工作选项.Enabled = False
    删除数据.Show
End Sub
Private Sub Image2_Click()
    Picture2.Visible = True
    Image2.Visible = False
    Image1.Enabled = False
    Image2.Enabled = False
    Image3.Enabled = False
    Image4.Enabled = False
    Image5.Enabled = False
    Image1.Visible = False
    Image3.Visible = False
    Image10.Visible = True
    Image11.Visible = True
    Image12.Visible = True
    Image13.Visible = True
End Sub
Private Sub Image3_Click()
    Picture3.Visible = True
    Image2.Visible = False
    Image2.Enabled = False
    Image3.Enabled = False
    Image4.Enabled = False
    Image5.Enabled = False
    Image5.Visible = False
    Image14.Visible = True
    Image15.Visible = True
    Image16.Visible = True
    Image17.Visible = True
End Sub
Private Sub Image4_Click()
    Picture4.Visible = True
    Image1.Visible = False
    Image2.Enabled = False
    Image3.Enabled = False
    Image4.Enabled = False
    Image5.Enabled = False
End Sub
Private Sub Image5_Click()
On Error Resume Next
Open App.Path + "\" + "Screen.txt" For Input As #1
Input #1, apiRECT.Right
Close #1
Call SetWindowPos(hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  If apiRECT.Right = 1024 Then
    SetDisplayMode 1024, 768, 16
End If
If apiRECT.Right = 800 Then
    SetDisplayMode 800, 600, 16
End If
If apiRECT.Right = 640 Then
    SetDisplayMode 640, 480, 16
End If
Timer1.Enabled = False
Unload Me
End
End Sub
Private Sub Image6_Click()
On Error Resume Next
发车日期.Show
End Sub
Private Sub Image7_Click()
On Error Resume Next
日期选择.Show
End Sub
Private Sub Image8_Click()
On Error Resume Next
成本录入.Show
End Sub
Private Sub Image9_Click()
On Error Resume Next
密码.Show
End Sub
Private Sub Image10_Click()
On Error Resume Next
各区段人数统计.Show
End Sub
Private Sub Image11_Click()
On Error Resume Next
各区段金额统计.Show
End Sub
Private Sub Image12_Click()
On Error Resume Next
量本利分析.Show
End Sub
Private Sub Image13_Click()
On Error Resume Next
工资效益表.Show
End Sub
Private Sub Image14_Click()
On Error Resume Next
涨幅调整.Show
End Sub
Private Sub Image15_Click()
On Error Resume Next
软卧票价调整.Show
End Sub
Private Sub Image16_Click()
On Error Resume Next
硬卧票价调整.Show
End Sub
Private Sub Image17_Click()
On Error Resume Next
硬座票价调整.Show
End Sub
Private Sub Picture1_Click()
Picture1.Visible = False
End Sub
Private Sub Picture2_Click()
Picture2.Visible = False
End Sub
Private Sub Picture3_Click()
Picture3.Visible = False
Image5.Visible = True
End Sub
Private Sub Picture4_Click()
Picture4.Visible = False
End Sub
Private Sub Timer1_Timer()
Label4 = Time
End Sub