📄 yk_query_yielder.frm
字号:
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "yk_query_yielder.frx":035E
Height = 3255
Index = 0
Left = -74925
OleObjectBlob = "yk_query_yielder.frx":036F
TabIndex = 17
Top = 400
Width = 9240
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "yk_query_yielder.frx":13F9
Height = 3255
Index = 1
Left = -74925
OleObjectBlob = "yk_query_yielder.frx":140B
TabIndex = 18
Top = 400
Width = 9240
End
Begin MSDBGrid.DBGrid DBGrid2
Bindings = "yk_query_yielder.frx":2495
Height = 3255
Index = 2
Left = 75
OleObjectBlob = "yk_query_yielder.frx":24A9
TabIndex = 19
Top = 400
Width = 9240
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "yk_query_yielder.frx":3533
Height = 1890
Left = 60
OleObjectBlob = "yk_query_yielder.frx":3545
TabIndex = 7
Top = 1035
Width = 9405
End
Begin VB.Frame Frame2
Height = 645
Index = 0
Left = 45
TabIndex = 0
Top = -75
Width = 1350
Begin VB.CheckBox Check_in
Caption = "代销厂商"
Height = 225
Left = 195
TabIndex = 2
Top = 165
Value = 1 'Checked
Width = 1065
End
Begin VB.CheckBox Check_inback
Caption = "购买厂商"
Height = 225
Left = 195
TabIndex = 1
Top = 390
Value = 1 'Checked
Width = 1050
End
End
Begin MSComCtl2.DTPicker end_date
Height = 360
Left = 5835
TabIndex = 3
ToolTipText = "日期范围-end"
Top = 150
Width = 1890
_ExtentX = 3334
_ExtentY = 635
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarBackColor= 16777215
CalendarTitleBackColor= 12632319
Format = 662831105
CurrentDate = 36603
MaxDate = 73050
MinDate = 36526
End
Begin MSComCtl2.DTPicker begin_date
Height = 345
Left = 2745
TabIndex = 4
ToolTipText = "日期范围-begin"
Top = 165
Width = 1875
_ExtentX = 3307
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarBackColor= 16777215
CalendarTitleBackColor= 12632319
Format = 662831105
CurrentDate = 36600
MaxDate = 73050
MinDate = 36526
End
Begin VB.Label Label1
Caption = "类别"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Index = 0
Left = 105
TabIndex = 16
Top = 690
Width = 1080
End
Begin VB.Label lab_yielder
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "Label3"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3315
TabIndex = 10
Top = 645
Width = 4455
End
Begin VB.Label Label2
Caption = "供 货 商"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 2235
TabIndex = 9
Top = 675
Width = 990
End
Begin VB.Line Line1
BorderColor = &H00FF00FF&
X1 = 1455
X2 = 7755
Y1 = 570
Y2 = 570
End
Begin VB.Label Label1
Caption = "起始日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 6
Left = 1665
TabIndex = 6
Top = 210
Width = 1050
End
Begin VB.Label Label1
Caption = "终止日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 7
Left = 4785
TabIndex = 5
Top = 195
Width = 1065
End
End
Attribute VB_Name = "yk_query_yielder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mkind_code As String
Private Sub browse_com_Click()
Dim this_option As String
this_option = 0
If Check_in.Value = 1 Then this_option = this_option + 1
If Check_inback.Value = 1 Then this_option = this_option + 10
this_option = Format(this_option, "00")
rdc_all.SQL = "drugbank_query_yielder_all '" + CStr(begin_date.Value) + "','" + CStr(CDate(CDate(end_date.Value) + 1)) + "','" + mkind_code + "','" + this_option + "'"
rdc_all.Refresh
rdc_all.Resultset.MoveNext
End Sub
Private Sub DBGrid1_DblClick()
If rdc_all.SQL = "" Then
Exit Sub
End If
If Not (rdc_all.Resultset.EOF And rdc_all.Resultset.BOF) Then
If rdc_all.Resultset!yielder_id <> "ZZ" Then
lab_yielder.Caption = rdc_all.Resultset!yielder_name
rdc_in.SQL = "drugbank_query_yielder_inout '" + CStr(begin_date.Value) + "','" + CStr(CDate(CDate(end_date.Value) + 1)) + "','" + mkind_code + "','" + rdc_all.Resultset!yielder_id + "','1'"
rdc_in.Refresh
rdc_out.SQL = "drugbank_query_yielder_inout '" + CStr(begin_date.Value) + "','" + CStr(CDate(CDate(end_date.Value) + 1)) + "','" + mkind_code + "','" + rdc_all.Resultset!yielder_id + "','2'"
rdc_out.Refresh
rdc_stock.SQL = "drugbank_query_yielder_stock '" + mkind_code + "','" + rdc_all.Resultset!yielder_id + "'"
rdc_stock.Refresh
End If
End If
End Sub
Private Sub drug_kind_Click()
If drug_kind.Text = "西 药" Then mkind_code = "A"
If drug_kind.Text = "中成药" Then mkind_code = "B"
If drug_kind.Text = "饮 片" Then mkind_code = "C"
If drug_kind.Text = "材 料" Then mkind_code = "D"
End Sub
Private Sub Form_Load()
lab_yielder.Caption = ""
rdc_all.DataSourceName = dbfname
rdc_all.Connect = dbfstr
rdc_in.DataSourceName = dbfname
rdc_in.Connect = dbfstr
rdc_out.DataSourceName = dbfname
rdc_out.Connect = dbfstr
rdc_stock.DataSourceName = dbfname
rdc_stock.Connect = dbfstr
drug_kind.AddItem "西 药"
drug_kind.AddItem "中成药"
drug_kind.AddItem "饮 片"
drug_kind.AddItem "材 料"
drug_kind.Text = "西 药"
end_date.Value = Date
begin_date.Value = DateAdd("m", -1, Date)
begin_date.Value = DateAdd("d", 1, begin_date.Value)
Form3.Enabled = False
Form3.Visible = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form3.Enabled = True
Form3.Visible = True
End Sub
Private Sub quit_com_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -