?? form2.frm
字號:
VERSION 5.00
Begin VB.Form Form2
Caption = "醫院藥品進銷存系統"
ClientHeight = 3345
ClientLeft = 3945
ClientTop = 2490
ClientWidth = 7680
LinkTopic = "Form2"
ScaleHeight = 3345
ScaleWidth = 7680
Begin VB.Timer Timer1
Interval = 150
Left = 960
Top = 2400
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "歡迎使用醫院藥品進銷存系統!"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 3120
TabIndex = 0
Top = 3000
Width = 3375
End
Begin VB.Image Image2
Height = 5760
Left = 0
Picture = "Form2.frx":0000
Top = 0
Width = 7680
End
Begin VB.Image Image1
Height = 4935
Left = 120
Top = 120
Width = 7215
End
Begin VB.Menu operation
Caption = "基本操作(&A)"
Begin VB.Menu a
Caption = "-"
End
Begin VB.Menu ruku
Caption = "藥品入庫"
End
Begin VB.Menu aa
Caption = "-"
End
Begin VB.Menu chuku
Caption = "藥品出庫"
End
Begin VB.Menu aaaa
Caption = "-"
End
Begin VB.Menu buymanger
Caption = "藥品采購信息管理"
Begin VB.Menu gy
Caption = "-"
End
Begin VB.Menu buyresearch
Caption = "采購紀錄查詢"
End
Begin VB.Menu yy
Caption = "-"
End
Begin VB.Menu edit
Caption = "錄入采購記錄"
End
End
Begin VB.Menu ji
Caption = "-"
End
Begin VB.Menu passtime
Caption = "過期藥品處理"
End
End
Begin VB.Menu search
Caption = "查詢(&S)"
Begin VB.Menu b
Caption = "-"
End
Begin VB.Menu kucunchaxun
Caption = "藥品庫存查詢"
End
Begin VB.Menu bbb
Caption = "-"
End
Begin VB.Menu fenleisearch
Caption = "藥品分類信息查詢"
End
Begin VB.Menu bb
Caption = "-"
End
Begin VB.Menu supply
Caption = "供應商查詢"
End
Begin VB.Menu c
Caption = "-"
End
Begin VB.Menu shuoming
Caption = "用藥說明查詢"
End
End
Begin VB.Menu systermsafty
Caption = "系統安全(&D)"
Begin VB.Menu nnnnm
Caption = "-"
End
Begin VB.Menu administer
Caption = "添加用戶"
End
Begin VB.Menu d
Caption = "-"
End
Begin VB.Menu change
Caption = "用戶更改密碼"
End
Begin VB.Menu opiu
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出系統"
End
End
Begin VB.Menu out
Caption = "輸出報表(&F)"
Begin VB.Menu caigouout
Caption = "輸出采購記錄報表"
End
Begin VB.Menu uio
Caption = "-"
End
Begin VB.Menu chukuout
Caption = "輸出出庫記錄報表"
End
Begin VB.Menu hlop
Caption = "-"
End
Begin VB.Menu kucunout
Caption = "輸出庫存記錄報表"
End
End
Begin VB.Menu beifen
Caption = "數據備份與恢復(&G)"
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ruku_Click()
Form3.Show
End Sub
Private Sub administer_Click()
Form10.Show
End Sub
Private Sub beifen_Click()
Form12.Show
End Sub
Private Sub change_Click()
Form14.Show
End Sub
Private Sub fenleisearch_Click()
Form6.Show
End Sub
Private Sub caigouout_Click() '輸出采購報表
DataReport3.Show
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub kucunchaxun_Click()
Form7.Show
End Sub
Private Sub kucunout_Click() ' 輸出庫存報表
DataReport2.Show
End Sub
Private Sub chuku_Click()
Form4.Show
End Sub
Private Sub passtime_Click()
Form11.Show
End Sub
Private Sub edit_Click()
Form13.Show
End Sub
Private Sub chukuout_Click() '輸出出庫報表
DataReport1.Show
End Sub
Private Sub shuoming_Click()
Form8.Show
End Sub
Private Sub supply_Click()
Form9.Show
End Sub
Private Sub buyresearch_Click()
Form5.Show
End Sub
Private Sub Timer1_Timer()
If Label1.Left <= -100 Then
Label1.Left = 8080
End If
Label1.Left = Label1.Left - 100
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -