📄 yk_b_out.frm
字号:
Height = 360
Left = 1260
MaxLength = 10
TabIndex = 0
Top = 1065
Width = 1785
End
Begin MSDBCtls.DBCombo yp_source
Bindings = "yk_B_out.frx":0000
Height = 360
Left = 1260
TabIndex = 2
Top = 630
Width = 1785
_ExtentX = 3149
_ExtentY = 635
_Version = 393216
Style = 2
ListField = "ks_name"
Text = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label2
BackColor = &H00800080&
BackStyle = 0 'Transparent
Caption = "终止日期："
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 5
Left = 3480
TabIndex = 10
Top = 1050
Width = 1095
End
Begin VB.Label Label2
BackColor = &H00800080&
BackStyle = 0 'Transparent
Caption = "拼音缩写"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 7
Left = 150
TabIndex = 8
Top = 1110
Width = 1095
End
Begin VB.Label Label2
BackColor = &H00800080&
BackStyle = 0 'Transparent
Caption = "请领科室："
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 3
Left = 150
TabIndex = 7
Top = 690
Width = 1095
End
Begin VB.Label Label2
BackColor = &H00800080&
BackStyle = 0 'Transparent
Caption = "起始日期："
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 4
Left = 3480
TabIndex = 6
Top = 300
Width = 1095
End
Begin VB.Label Label2
BackColor = &H00800080&
BackStyle = 0 'Transparent
Caption = "药品类别"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 2
Left = 150
TabIndex = 5
Top = 330
Width = 1095
End
End
Begin MSDBGrid.DBGrid data_wind
Bindings = "yk_B_out.frx":0016
Height = 4365
Left = 30
OleObjectBlob = "yk_B_out.frx":0029
TabIndex = 3
Top = 2460
Width = 9495
End
Begin MSDBGrid.DBGrid lib_wind
Bindings = "yk_B_out.frx":09EE
Height = 855
Left = 30
OleObjectBlob = "yk_B_out.frx":0A01
TabIndex = 14
Top = 1530
Width = 6135
End
Begin VB.Label HJ_MONEY
BackColor = &H00800000&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "仿宋_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Index = 1
Left = 7710
TabIndex = 9
Top = 1950
Width = 1695
End
Begin VB.Label HJ_MONEY
BackColor = &H00800000&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "仿宋_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Index = 0
Left = 7710
TabIndex = 11
Top = 1560
Width = 1695
End
Begin VB.Label Label2
BackColor = &H00800000&
BackStyle = 0 'Transparent
Caption = "批发价合计:"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 1
Left = 6300
TabIndex = 19
Top = 2010
Width = 1455
End
Begin VB.Label Label2
BackColor = &H00800000&
BackStyle = 0 'Transparent
Caption = "进货价合计:"
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Index = 0
Left = 6300
TabIndex = 18
Top = 1590
Width = 1455
End
End
Attribute VB_Name = "yk_b_out"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'出库管理
Dim mkind_code As String
Dim xcode As String
Dim dbfstr As String
Dim dbfname As String
Private Sub Form_Load()
'设置主窗体无效
dbfstr = "ODBC;DATABASE=netba;UID=zc;PWD=1234"
dbfname = "207his"
Form3.Enabled = False
'设置药品类型
yp_kind.AddItem "西 药"
yp_kind.AddItem "中成药"
yp_kind.AddItem "饮 片"
yp_kind.AddItem "卫 材"
yp_kind.Text = "西 药"
'设置科室词典
source_data.DataSourceName = dbfname
source_data.Connect = dbfstr
source_data.SQL = "select * from ks_table"
source_data.Refresh
'设置药品词典
lib_data.DataSourceName = dbfname
lib_data.Connect = dbfstr
lib_data.SQL = "select code as 代码,yp_name as 药品名称,standard as 规格," _
+ "UNIT AS 单位 from yp_library where code=''"
lib_data.Refresh
'设置查询日期
'设置查询日期,设置后改为不允许设置
yp_date2.Text = CStr(Date)
yp_date1.Text = CStr(Date)
yp_date1.Text = CStr(DateAdd("m", -1, CDate(yp_date1.Text)))
yp_date1.Text = CStr(DateAdd("d", 1, CDate(yp_date1.Text)))
'显示控件设置无效
all_data.Enabled = False
Screen.MousePointer = vbDefault
End Sub
Private Sub lib_wind_DblClick()
If Not (lib_data.Resultset.BOF And lib_data.Resultset.EOF) Then
xcode = DxNULL(lib_data.Resultset!代码)
brow_com_Click
End If
End Sub
Private Sub lib_wind_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
lib_wind_DblClick
End If
End Sub
Private Sub yp_kind_Click()
If yp_kind.Text = "西 药" Then mkind_code = "A"
If yp_kind.Text = "中成药" Then mkind_code = "B"
If yp_kind.Text = "饮 片" Then mkind_code = "C"
If yp_kind.Text = "卫 材" Then mkind_code = "D"
End Sub
Private Sub brow_com_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -