📄 frmserch.frm
字号:
EndProperty
BeginProperty Column11
Alignment = 1
ColumnWidth = 1844.787
EndProperty
BeginProperty Column12
Alignment = 1
ColumnWidth = 1335.118
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid3
Height = 1935
Left = 120
TabIndex = 4
Top = 4200
Width = 9465
_ExtentX = 16695
_ExtentY = 3413
_Version = 393216
AllowUpdate = 0 'False
BackColor = 16777215
ForeColor = 16711680
HeadLines = 1.5
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "库存器械和材料列表"
ColumnCount = 14
BeginProperty Column00
DataField = "编号"
Caption = "编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = """￥""#,##0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "名称"
Caption = "名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "规格"
Caption = "规格"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "单位"
Caption = "单位"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "数量"
Caption = "数量"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "进价"
Caption = "进价"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "零售价"
Caption = "零售价"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "批号"
Caption = "批号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "采购日期"
Caption = "采购日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "调价日期"
Caption = "调价日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "出厂日期"
Caption = "出厂日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "产地"
Caption = "产地"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "失效期"
Caption = "失效期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 1
Format = "yyyy""年""M""月""d""日"""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "备注"
Caption = "备注"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Alignment = 1
ColumnWidth = 675.213
EndProperty
BeginProperty Column01
Alignment = 1
ColumnWidth = 1260.284
EndProperty
BeginProperty Column02
Alignment = 1
ColumnWidth = 1440
EndProperty
BeginProperty Column03
Alignment = 1
ColumnWidth = 524.976
EndProperty
BeginProperty Column04
Alignment = 1
ColumnWidth = 464.882
EndProperty
BeginProperty Column05
Alignment = 1
ColumnWidth = 659.906
EndProperty
BeginProperty Column06
Alignment = 1
ColumnWidth = 675.213
EndProperty
BeginProperty Column07
Alignment = 1
ColumnWidth = 1049.953
EndProperty
BeginProperty Column08
Alignment = 1
ColumnWidth = 1275.024
EndProperty
BeginProperty Column09
Alignment = 1
ColumnWidth = 1305.071
EndProperty
BeginProperty Column10
Alignment = 1
ColumnWidth = 1319.811
EndProperty
BeginProperty Column11
Alignment = 1
ColumnWidth = 1844.787
EndProperty
BeginProperty Column12
Alignment = 1
ColumnWidth = 1335.118
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 180
Left = 360
TabIndex = 1
Top = 6300
Width = 90
End
End
Attribute VB_Name = "frmserch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub DataGrid1_GotFocus()
Label1.Caption = "目前库存西药和中成药" & Adodc1.Recordset.RecordCount & "种。"
End Sub
Private Sub DataGrid2_GotFocus()
Label1.Caption = "目前库存中草药" & Adodc2.Recordset.RecordCount & "种。"
End Sub
Private Sub DataGrid3_GotFocus()
Label1.Caption = "目前库存医疗器械和材料" & Adodc3.Recordset.RecordCount & "种。"
End Sub
Private Sub Form_Load()
On Error GoTo err1
frmserch.Top = (frmmain.Height - frmserch.Height) / 2 - 500
frmserch.Left = (frmmain.Width - frmserch.Width) / 2
Adodc1.ConnectionString = frmlogin.conn
Adodc2.ConnectionString = frmlogin.conn
Adodc3.ConnectionString = frmlogin.conn
Adodc1.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,采购日期,调价日期,出厂日期,产地,失效期,备注 from kcyp order by 编号"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Adodc2.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,采购日期,调价日期,出厂日期,产地,失效期,备注 from caoyao order by 编号"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
Adodc3.RecordSource = "select 编号,名称,规格,单位,数量,进价,零售价,批号,采购日期,调价日期,出厂日期,产地,失效期,备注 from qixie order by 编号"
Adodc3.Refresh
Set DataGrid3.DataSource = Adodc3
Exit Sub
err1:
MsgBox "数据库连接失败！"
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmmain.StatusBar1.Panels(2) = "目前没有窗口被激活"
End Sub
Private Sub Form_Activate()
frmmain.StatusBar1.Panels(2) = "活动窗口：" & frmserch.Caption
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -