医院药品管理系统分析与设计 第15页

医院药品管理系统分析与设计 第15页　　　
　　　Private Sub Option5_Click()
　　　    On Error Resume Next
　　　    Data1.RecordSource = "select * from 基本信息表 where 有效日期 <  #" & Trim(Text2.Text) & "#"
　　　    Data1.Refresh
　　　    Set DBGrid1.DataSource = Data1
　　　    DBGrid1.Refresh
　　　    For i = 0 To 17
　　　       DBGrid1.Columns(i).DividerStyle = 5
　　　    Next
　　　    DBGrid1.Columns(0).Width = 1300
　　　    DBGrid1.Columns(2).Width = 1200
　　　    DBGrid1.Columns(1).Width = 2000
　　　    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
　　　    cmdAdd.Enabled = False
　　　End Sub
　　　
　　　Private Sub Quit_Click(Index As Integer)
　　　    Unload Me
　　　End Sub
　　　
　　　Private Sub report1_Click()
　　　    DataReport1.Show
　　　End Sub
　　　
　　　Private Sub report2_Click()
　　　    DataReport2.Show
　　　End Sub
　　　
　　　Private Sub Timer1_Timer()
　　　    Label1.Caption = Now
　　　End Sub

 << 上一页  [11] [12] [13] [14] [15] [16] [17] 下一页

医院药品管理系统分析与设计 第15页下载如图片无法显示或论文不完整，请联系qq752018766