📄 frmdeserts.frm
字号:
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form frmDeserts
BorderStyle = 1 'Fixed Single
Caption = "Deserts"
ClientHeight = 9540
ClientLeft = 45
ClientTop = 735
ClientWidth = 9105
Icon = "frmDeserts.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 9540
ScaleWidth = 9105
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 8640
Top = 0
End
Begin MSDBCtls.DBList dbList
Bindings = "frmDeserts.frx":0442
DataSource = "Data1"
Height = 1815
Left = 1320
TabIndex = 16
Top = 600
Visible = 0 'False
Width = 2895
_ExtentX = 5106
_ExtentY = 3201
_Version = 393216
ListField = "Name"
End
Begin VB.CommandButton cmdList
Height = 375
Left = 4200
Picture = "frmDeserts.frx":0456
Style = 1 'Graphical
TabIndex = 15
Top = 240
Width = 375
End
Begin VB.TextBox txtSource
DataField = "Source"
DataSource = "Data1"
Enabled = 0 'False
Height = 375
Left = 6000
TabIndex = 2
Top = 240
Width = 2895
End
Begin VB.CommandButton cmdSave
Caption = "SAVE"
Enabled = 0 'False
Height = 375
Left = 7800
TabIndex = 9
Top = 8985
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "DELETE"
Height = 375
Left = 6600
TabIndex = 8
Top = 8985
Width = 1095
End
Begin VB.CommandButton cmdEdit
Caption = "EDIT"
Height = 375
Left = 1560
TabIndex = 7
Top = 9000
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "ADD"
Height = 375
Left = 240
TabIndex = 6
Top = 8985
Width = 1095
End
Begin VB.TextBox txtNotes
DataField = "notes"
DataSource = "Data1"
Enabled = 0 'False
Height = 1455
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 7200
Width = 8535
End
Begin VB.Frame Frame3
Caption = "Recipe Notes"
Height = 1815
Left = 120
TabIndex = 12
Top = 6960
Width = 8775
End
Begin VB.TextBox txtName
DataField = "Name"
DataSource = "Data1"
Enabled = 0 'False
Height = 375
Left = 1320
TabIndex = 1
Top = 240
Width = 2895
End
Begin VB.TextBox txtDirections
DataField = "Directions"
DataSource = "Data1"
Enabled = 0 'False
Height = 2175
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 4680
Width = 8535
End
Begin VB.Frame Frame2
Caption = "Baking directions"
Height = 2535
Left = 120
TabIndex = 10
Top = 4440
Width = 8775
End
Begin VB.TextBox txtIngredients
DataField = "Ingredients"
DataSource = "Data1"
Enabled = 0 'False
Height = 3375
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 960
Width = 8535
End
Begin VB.Frame Frame1
Caption = "Ingredients"
Height = 3735
Left = 120
TabIndex = 0
Top = 720
Width = 8775
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access 2000;"
DatabaseName = "C:\Cook\cook.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = 2880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "Deserts"
Top = 9000
Width = 3540
End
Begin VB.CommandButton cmdEditDone
Caption = "DONE EDIT"
Height = 375
Left = 1560
TabIndex = 13
Top = 9000
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Recipe Source"
Height = 195
Left = 4680
TabIndex = 14
Top = 360
Width = 1065
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Recipe Name"
Height = 195
Left = 120
TabIndex = 11
Top = 360
Width = 975
End
Begin VB.Menu File
Caption = "&File"
Begin VB.Menu Print
Caption = "&Print"
Shortcut = ^P
End
Begin VB.Menu sep2
Caption = "-"
End
Begin VB.Menu FileClose
Caption = "&Close Form"
Shortcut = ^C
End
Begin VB.Menu sep1
Caption = "-"
End
Begin VB.Menu FileExit
Caption = "E&xit"
Shortcut = ^X
End
End
Begin VB.Menu Recipes
Caption = "&Recipes"
Begin VB.Menu RecipesMeals
Caption = "&Meals"
Shortcut = ^M
End
Begin VB.Menu RecipesDeserts
Caption = "&Deserts"
Enabled = 0 'False
Shortcut = ^D
End
End
Begin VB.Menu window
Caption = "&Window"
WindowList = -1 'True
Begin VB.Menu tile
Caption = "&Tile"
End
Begin VB.Menu cascade
Caption = "&Cascade"
End
End
Begin VB.Menu About
Caption = "&About"
End
End
Attribute VB_Name = "frmDeserts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Programed By James Letner (J-SOFT)
Private Sub About_Click()
'Keeps the user updated on the programs status
fMainForm.sbStatusBar.Panels(1).Text = "Status: Loading Page..."
fMainForm.sbStatusBar.Refresh
'Opens the about form and keeps it on top untill closed
frmAbout.Show 1
End Sub
Private Sub arange_Click()
End Sub
Private Sub cascade_Click()
'Cascades the windows in the form
fMainForm.Arrange vbCascade
End Sub
Private Sub cmdAdd_Click()
' sets the enable propertys for the text boxes to true
' so a new record can be added to the cook.mdb
txtName.Enabled = True
txtSource.Enabled = True
txtNotes.Enabled = True
txtIngredients.Enabled = True
txtDirections.Enabled = True
' adds a new record to the cook.mdb
' also dsables the Add, Delete, Edit, cmdList buttons
' and enables the save record button
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -