form1.ebf
来自「windows mobile 应用程序开发实践一书的源代码」· EBF 代码 · 共 623 行 · 第 1/2 页
EBF
623 行
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label3
Height = 375
Left = 0
TabIndex = 4
Top = 840
Width = 1095
_cx = 1931
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "数据浏览"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.TextBox datamanagert
Height = 375
Left = 1080
TabIndex = 3
Top = 432
Width = 1695
_cx = 2990
_cy = 661
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label2
Height = 375
Left = 0
TabIndex = 2
Top = 360
Width = 1095
_cx = 1931
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "系统"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.TextBox systemsett
Height = 375
Left = 1080
TabIndex = 1
Top = 0
Width = 1695
_cx = 2990
_cy = 661
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = ""
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label Label1
Height = 495
Left = 0
TabIndex = 0
Top = 0
Width = 1215
_cx = 2143
_cy = 873
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "设置菜单"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public systemset As MenuBarLib.MenuBarMenu
Public datamanager As MenuBarLib.MenuBarMenu
Public dataliulan As MenuBarLib.MenuBarMenu
Public recordmanager As MenuBarLib.MenuBarMenu
Public tongxin As MenuBarLib.MenuBarMenu
Public fenxi As MenuBarLib.MenuBarMenu
Public datasearch As MenuBarLib.MenuBarMenu
Public standard As MenuBarLib.MenuBarMenu
Public bangzu As MenuBarLib.MenuBarMenu
Private Sub Command1_Click()
datamanager.Items.Remove 2
systemsett.Text = systemset.Items.Count
datamanagert.Text = datamanager.Items.Count
dataliulant.Text = dataliulan.Items.Count
recordmanagert.Text = recordmanager.Items.Count
tongxint.Text = tongxin.Items.Count
fenxit.Text = fenxi.Items.Count
datasearcht.Text = datasearch.Items.Count
End Sub
Private Sub Command2_Click()
datamanager.Items.Clear
systemsett.Text = systemset.Items.Count
datamanagert.Text = datamanager.Items.Count
dataliulant.Text = dataliulan.Items.Count
recordmanagert.Text = recordmanager.Items.Count
tongxint.Text = tongxin.Items.Count
fenxit.Text = fenxi.Items.Count
datasearcht.Text = datasearch.Items.Count
End Sub
Private Sub Form_Load()
'系统设置
Set systemset = MenuBar.Controls.AddMenu("设置")
systemset.Items.Add 1, "userlogin", "用户登陆"
systemset.Items.Add 2, "longinusermanager", "用户管理"
systemset.Items.Add 3, "exitwindow", "退出"
' 数据管理
Set datamanager = MenuBar.Controls.AddMenu("系统")
datamanager.Items.Add 1, "createdb", "创建数据库"
datamanager.Items.Add 2, "createtable", "创建表"
datamanager.Items.Add 3, "createindex", "创建索引"
datamanager.Items.Add 4, "addfield", "增加字段"
datamanager.Items.Add 5, "altertablename", "修改表名"
datamanager.Items.Add 6, "showfield", "查看字段"
datamanager.Items.Add 7, "delfield", "删除字段 "
datamanager.Items.Add 8, "delindex", "删除索引"
datamanager.Items.Add 9, "deltable", "删除表格"
datamanager.Items.Add 10, "deldb", "删除数据库"
datamanager.Items.Add 11, "cakanshujukubiao", "查看数据库表"
Set dataliulan = MenuBar.Controls.AddMenu("浏览")
dataliulan.Items.Add 1, "userliulan", "用户记录浏览"
dataliulan.Items.Add 2, "machineliulan", "设备记录浏览"
dataliulan.Items.Add 3, "positionliulan", "监控部位浏览"
dataliulan.Items.Add 4, "sampleliulan", "样品记录浏览"
dataliulan.Items.Add 5, "pqpliulan", "PQP记录浏览"
dataliulan.Items.Add 6, "dcaliulan", "DCA记录浏览"
dataliulan.Items.Add 7, "hwgpliulan", "红外光谱记录浏览"
dataliulan.Items.Add 8, "zdtpliulan", "直读铁谱记录浏览"
dataliulan.Items.Add 9, "lhzbliulan", "理化指标记录浏览"
dataliulan.Items.Add 10, "yzgpliulan", "原子光谱记录浏览"
Set recordmanager = MenuBar.Controls.AddMenu("管理")
recordmanager.Items.Add 1, "usermanager", "用户记录管理"
recordmanager.Items.Add 2, "machinemanager", "设备记录管理"
recordmanager.Items.Add 3, "positionmanager", "监控部位管理"
recordmanager.Items.Add 4, "samplemanager", "样品记录管理"
recordmanager.Items.Add 5, "pqpmanager", "PQP记录管理"
recordmanager.Items.Add 6, "dcamanager", "DCA记录管理"
recordmanager.Items.Add 7, "hwgpmanager", "红外光谱记录管理"
recordmanager.Items.Add 8, "zdtpmanager", "直读铁谱记录管理"
recordmanager.Items.Add 9, "lhzbmanager", "理化指标记录管理"
recordmanager.Items.Add 10, "yzgpmanager", "原子光谱记录管理"
Set tongxin = MenuBar.Controls.AddMenu("通信")
tongxin.Items.Add 1, "serial", "串口通信"
tongxin.Items.Add 2, "socket", "网络通信"
tongxin.Items.Add 3, "irda_client", "红外口通信(客户端)"
tongxin.Items.Add 4, "PQP", "PQP通信"
tongxin.Items.Add 5, "HWGPCOM", "红外光谱通信"
tongxin.Items.Add 6, "DCA", "DCA通信"
tongxin.Items.Add 7, "YZGPCOM", "原子光谱通信"
tongxin.Items.Add 8, "ZDTPCOM", "直读铁谱通信"
tongxin.Items.Add 9, "LHZBCOM", "理化指标通信"
tongxin.Items.Add 10, "quanzanyi", "全站仪通信"
tongxin.Items.Add 11, "XMLwin", "XML数据读取"
tongxin.Items.Add 12, "ConectDeskTop", "与台式机通信"
tongxin.Items.Add 13, "irda_server", "红外口通信(服务器端)"
Set fenxi = MenuBar.Controls.AddMenu("分析")
fenxi.Items.Add 1, "YZGPJK", "原子光谱分析"
fenxi.Items.Add 2, "pie", "圆饼图分析"
fenxi.Items.Add 3, "zifangtu", "直方图分析"
fenxi.Items.Add 4, "jizifenxi", "极值分析"
fenxi.Items.Add 5, "HWGPJK", "红外光谱分析"
fenxi.Items.Add 6, "ZDTPJK", "直读铁谱分析"
fenxi.Items.Add 7, "LHZBJK", "理化指标图分析"
fenxi.Items.Add 8, "DCAJK", "DCA曲线分析"
fenxi.Items.Add 9, "PQPJK", "PQP曲线分析"
fenxi.Items.Add 10, "Sin(x)", "Sin(x)曲线例子"
fenxi.Items.Add 11, "Cos(x)", "Cos(x)曲线例子"
Set datasearch = MenuBar.Controls.AddMenu("查询")
datasearch.Items.Add 1, "searchyonghu", "查询用户记录"
datasearch.Items.Add 2, "searchsebei", "查询设备记录"
datasearch.Items.Add 3, "searchbuwei", "查询部位记录"
datasearch.Items.Add 4, "searchyangben", "查询样本记录"
datasearch.Items.Add 5, "searchDCA", "查询DCA记录"
datasearch.Items.Add 6, "searchPQP", "查询PQP记录"
datasearch.Items.Add 7, "searchHWGP", "查询红外光谱记录"
datasearch.Items.Add 8, "searchZDTP", "查询直读铁谱记录"
datasearch.Items.Add 9, "searchLHZB", "查询理化指标记录"
datasearch.Items.Add 10, "searchYZGP", "查询原子光谱记录"
systemsett.Text = systemset.Items.Count
datamanagert.Text = datamanager.Items.Count
dataliulant.Text = dataliulan.Items.Count
recordmanagert.Text = recordmanager.Items.Count
tongxint.Text = tongxin.Items.Count
fenxit.Text = fenxi.Items.Count
datasearcht.Text = datasearch.Items.Count
End Sub
Private Sub Form_OKClick()
App.End
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?