医院药品管理系统分析与设计 第14页 Private Sub Option3_Click()
On Error Resume Next
Data1.RecordSource = "基本信息表"
Data1.Refresh
form1.Caption = "医药管理系统-----药品信息管理"
Option1.Value = True
For i = 0 To 17
txtFields(i).Visible = True
lblLabels(i).Visible = True
DBGrid1.Columns(i).DividerStyle = 5
Next
For j = 0 To 4
lblLabels1(j).Visible = False
txtFields1(j).Visible = False
Next
DBGrid1.Columns(0).Width = 1300
DBGrid1.Columns(1).Width = 2000
DBGrid1.Columns(2).Width = 1200
DBGrid1.Columns(3).Width = 880
DBGrid1.Columns(4).Width = 880
DBGrid1.Columns(5).Width = 880
DBGrid1.Columns(6).Width = 1800
DBGrid1.Columns(7).Width = 480
DBGrid1.Columns(8).Width = 880
DBGrid1.Columns(9).Width = 880
DBGrid1.Columns(10).Width = 880
DBGrid1.Columns(11).Width = 880
DBGrid1.Columns(12).Width = 880
DBGrid1.Columns(13).Width = 1200
DBGrid1.Columns(14).Width = 1200
DBGrid1.Columns(15).Width = 1200
DBGrid1.Columns(16).Width = 2300
DBGrid1.Columns(17).Width = 3000
cmdOut.Enabled = True
Combo1.Visible = True
Combo2.Visible = True
Combo3.Visible = True
Combo4.Visible = True
DTPicker1.Visible = True
DTPicker2.Visible = True
DTPicker3.Visible = True
form1.Refresh
If Data1.Recordset.EOF And Data1.Recordset.BOF Then '检测记录是否为空
cmdDelete.Enabled = False
cmdUpdate.Enabled = False
cmdFind.Enabled = False
Image1.Visible = True
Else
Data1.Recordset.MoveFirst
cmdUpdate.Enabled = True
cmdFind.Enabled = True
cmdDelete.Enabled = True
End If
Frame4.Refresh
cmdAdd.Enabled = True
End Sub
Private Sub Option4_Click()
On Error Resume Next
Data1.RecordSource = "供货商表"
Data1.Refresh
form1.Caption = "医药管理系统-----供货商管理"
Option2.Value = True
For i = 0 To 17
txtFields(i).Visible = False
lblLabels(i).Visible = False
DBGrid1.Columns(i).DividerStyle = 5
Next
For j = 0 To 4
lblLabels1(j).Visible = True
txtFields1(j).Visible = True
Next
DBGrid1.Columns(0).Width = 1300
DBGrid1.Columns(1).Width = 3000
DBGrid1.Columns(2).Width = 1500
DBGrid1.Columns(3).Width = 2100
DBGrid1.Columns(4).Width = 3680
cmdOut.Enabled = False
Combo1.Visible = False
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False
DTPicker1.Visible = False
DTPicker2.Visible = False
DTPicker3.Visible = False
form1.Refresh
If Data1.Recordset.EOF And Data1.Recordset.BOF Then '检测记录是否为空
cmdDelete.Enabled = False
cmdFind.Enabled = False
Image1.Visible = True
Else
Data1.Recordset.MoveFirst
cmdFind.Enabled = True
cmdDelete.Enabled = True
End If
Frame4.Refresh
cmdAdd.Enabled = True
End Sub
<< 上一页 [11] [12] [13] [14] [15] [16] [17] 下一页
医院药品管理系统分析与设计 第14页下载如图片无法显示或论文不完整，请联系qq752018766
