参照课本 12.5 节内容完成以下设计:
设计一个医院挂号系统
1. 设计数据库,要求包含序号、病人姓名、性别、年龄、挂号科室、医
生姓名、挂号类别等字段;
2. 设计应用程序登陆窗体,经验证用户名和密码后进入挂号操作窗体;
3. 设计挂号操作窗体,通过文本框输入病人姓名及年龄,通过单选钮选
择性别,用组合框列出医院可挂号的科室、医生姓名及挂号类别。
4. 设计“挂号”命令按钮,实现将当前挂号窗体中输入内容加入数据库,
“修改”按钮实现修改当前挂号信息,“删除”按钮实现删除当前挂
号信息;
5. 在挂号窗体下半部分,使用 DataGrid 控件列出所有挂号信息。
6. 可自行增加菜单,工具栏,图片框等控件美化窗体。
登录:Private Sub Command1_Click()
If Len(Text1.Text) > 6 Then
MsgBox "账号不超过 6 位数字"
Text1.SetFocus
Exit Sub
评论0