医院药品管理系统分析与设计 第13页 Private Sub Enter_Click()
cmdEnter_Click
End Sub
Private Sub Find1_Click(Index As Integer)
Frame1.Visible = True
Option1.Visible = True
Option2.Visible = True
Text1.Visible = True
cmdF.Visible = True
Image1.Visible = False
Option3.Value = True
Option1.Value = True
Combo5.Visible = True
Combo6.Visible = False
End Sub
Private Sub Find2_Click(Index As Integer)
Frame1.Visible = True
Option1.Visible = True
Option2.Visible = True
Text1.Visible = True
cmdF.Visible = True
Image1.Visible = False
Option2.Value = True
Combo5.Visible = False
Option4.Value = True
Combo6.Visible = True
End Sub
Private Sub Form_Load()
On Error Resume Next
FrmSkin1.Skin Me
Text2.Text = Date
FrmSkin1.ColorScheme = XP_Silver
CenterForm Me
Data1.DatabaseName = App.Path & "\date\date.mdb"
Data1.RecordSource = "基本信息表"
Data1.Refresh
cmdCancle.Enabled = False
cmdF.Picture = LoadPicture(App.Path + "\img\find.bmp")
cmdF.DownPicture = LoadPicture(App.Path + "\img\find.bmp")
Image1.Picture = LoadPicture(App.Path + "\img\mbg5.jpg")
Frame1.Visible = False
Option3.Value = True
DataEnvironment1.Connection1.ConnectionString = connectstring
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
End If
For j = 0 To 4
lblLabels1(j).Visible = False
txtFields1(j).Visible = False
Next
End Sub
Private Sub Manage1_Click(Index As Integer)
Option3_Click
End Sub
Private Sub Manage2_Click(Index As Integer)
Option4_Click
End Sub
Private Sub Manage3_Click(Index As Integer)
frmForm3.Show
End Sub
Private Sub Option1_Click()
On Error Resume Next
Data1.RecordSource = "基本信息表"
Data1.Refresh
For i = 0 To 17
DBGrid1.Columns(i).DividerStyle = 5
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
Combo5.Visible = True
Combo6.Visible = False
Combo5.SetFocus
Option3.Value = True
End Sub
Private Sub Option2_Click()
On Error Resume Next
Data1.RecordSource = "供货商表"
Data1.Refresh
For i = 0 To 17
DBGrid1.Columns(i).DividerStyle = 5
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
Combo5.Visible = False
Combo6.Visible = True
Combo6.SetFocus
Option4.Value = True
End Sub
<< 上一页 [11] [12] [13] [14] [15] [16] [17] 下一页
医院药品管理系统分析与设计 第13页下载如图片无法显示或论文不完整，请联系qq752018766
