?? lingshoudan.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form lingshoudan
Caption = "零售單"
ClientHeight = 7230
ClientLeft = 60
ClientTop = 345
ClientWidth = 9630
LinkTopic = "Form1"
ScaleHeight = 7230
ScaleWidth = 9630
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Height = 7215
Left = 0
TabIndex = 0
Top = 0
Width = 9615
Begin VB.Frame Frame3
Height = 2175
Left = 120
TabIndex = 11
Top = 1080
Width = 9375
Begin VB.TextBox Text7
Height = 270
Left = 1080
TabIndex = 40
Top = 240
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "零 售"
Height = 375
Left = 5760
TabIndex = 25
Top = 1680
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "退 出"
Height = 375
Left = 8280
TabIndex = 24
Top = 1680
Width = 975
End
Begin VB.CommandButton Command4
Caption = "保 存"
Height = 375
Left = 7080
TabIndex = 23
Top = 1680
Width = 975
End
Begin VB.ComboBox Combo8
Height = 300
Left = 6600
TabIndex = 22
Top = 720
Width = 1815
End
Begin VB.ComboBox Combo7
Height = 300
Left = 6600
TabIndex = 21
Top = 240
Width = 1815
End
Begin VB.CommandButton Command1
Caption = "計算金額"
Height = 375
Left = 600
TabIndex = 20
Top = 2880
Width = 1095
End
Begin VB.TextBox Text6
Height = 375
Left = 6600
MultiLine = -1 'True
TabIndex = 19
Top = 1200
Width = 2415
End
Begin VB.TextBox Text5
Height = 375
Left = 3480
TabIndex = 18
Top = 1680
Width = 1575
End
Begin VB.ComboBox Combo6
Height = 300
Left = 1080
TabIndex = 17
Top = 1200
Width = 1335
End
Begin VB.ComboBox Combo5
Height = 300
Left = 3480
TabIndex = 16
Top = 720
Width = 1575
End
Begin VB.TextBox Text4
Height = 375
Left = 1080
TabIndex = 15
Top = 1680
Width = 1335
End
Begin VB.TextBox Text3
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 255
Left = 3480
TabIndex = 14
Top = 1200
Width = 855
End
Begin VB.ComboBox Combo4
Height = 300
Left = 1080
TabIndex = 13
Top = 720
Width = 1335
End
Begin VB.ComboBox Combo3
Height = 300
Left = 3480
TabIndex = 12
Top = 240
Width = 1575
End
Begin VB.Label Label17
Caption = "金額："
Height = 255
Left = 2760
TabIndex = 41
Top = 1800
Width = 615
End
Begin VB.Label Label16
Caption = "藥品代碼："
Height = 375
Left = 120
TabIndex = 39
Top = 240
Width = 975
End
Begin VB.Label Label13
Caption = "Label13"
Height = 375
Left = 960
TabIndex = 38
Top = 3120
Width = 735
End
Begin VB.Label Label21
Caption = "元"
Height = 255
Left = 5160
TabIndex = 36
Top = 1800
Width = 375
End
Begin VB.Label Label15
Caption = "備 注："
Height = 255
Left = 5760
TabIndex = 35
Top = 1320
Width = 735
End
Begin VB.Label Label14
Caption = "元"
Height = 255
Left = 4440
TabIndex = 34
Top = 1320
Width = 255
End
Begin VB.Label Label12
Caption = "數量："
Height = 255
Left = 360
TabIndex = 33
Top = 1800
Width = 615
End
Begin VB.Label Label11
Caption = "藥品有效期："
Height = 255
Left = 5400
TabIndex = 32
Top = 840
Width = 1095
End
Begin VB.Label Label10
Caption = "藥品類型："
Height = 255
Left = 120
TabIndex = 31
Top = 1200
Width = 975
End
Begin VB.Label Label9
Caption = "劑型："
Height = 255
Left = 2760
TabIndex = 30
Top = 720
Width = 615
End
Begin VB.Label Label8
Caption = "藥品生產期："
Height = 255
Left = 5400
TabIndex = 29
Top = 240
Width = 1335
End
Begin VB.Label Label7
Caption = "價格："
Height = 255
Left = 2760
TabIndex = 28
Top = 1200
Width = 615
End
Begin VB.Label Label6
Caption = "規格："
Height = 255
Left = 480
TabIndex = 27
Top = 720
Width = 615
End
Begin VB.Label Label5
Caption = "藥品名稱："
Height = 255
Left = 2400
TabIndex = 26
Top = 240
Width = 975
End
End
Begin VB.Frame Frame2
Height = 855
Left = 120
TabIndex = 1
Top = 120
Width = 9375
Begin VB.ComboBox Combo2
Height = 300
Left = 7320
TabIndex = 6
Text = "一般單位"
Top = 240
Width = 1695
End
Begin VB.ComboBox Combo1
Height = 300
Left = 5400
TabIndex = 5
Top = 240
Width = 975
End
Begin VB.TextBox Text2
Height = 375
Left = 3120
TabIndex = 4
Top = 240
Width = 1575
End
Begin VB.TextBox Text1
Height = 375
Left = 840
TabIndex = 3
Top = 240
Width = 1575
End
Begin VB.CommandButton Command5
Caption = "Command5"
Height = 255
Left = 9000
TabIndex = 2
Top = 240
Width = 255
End
Begin VB.Label Label4
Caption = "往來單位"
Height = 255
Left = 6480
TabIndex = 10
Top = 360
Width = 855
End
Begin VB.Label Label3
Caption = "操作員"
Height = 255
Left = 4800
TabIndex = 9
Top = 360
Width = 735
End
Begin VB.Label Label2
Caption = "單據號"
Height = 255
Left = 2520
TabIndex = 8
Top = 360
Width = 855
End
Begin VB.Label Label1
Caption = "操作時間"
Height = 255
Left = 120
TabIndex = 7
Top = 360
Width = 855
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 3735
Left = 120
TabIndex = 37
Top = 3360
Width = 9375
_ExtentX = 16536
_ExtentY = 6588
_Version = 393216
End
End
End
Attribute VB_Name = "lingshoudan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Trecordset As New ADODB.Recordset
Dim Trecordset1 As New ADODB.Recordset
Dim Trecordset2 As New ADODB.Recordset
Dim Trecordset3 As New ADODB.Recordset
Dim Trecordset4 As New ADODB.Recordset
Dim Trecordset5 As New ADODB.Recordset
Sub Gridflex()
'init the headers of the msflexgrid1
MSFlexGrid1.Cols = 15
MSFlexGrid1.TextMatrix(0, 0) = "編號"
MSFlexGrid1.TextMatrix(0, 1) = "零售號"
MSFlexGrid1.TextMatrix(0, 2) = "操作員"
MSFlexGrid1.TextMatrix(0, 3) = "往來單位"
MSFlexGrid1.TextMatrix(0, 4) = "零售時間"
MSFlexGrid1.TextMatrix(0, 5) = "藥品名稱"
MSFlexGrid1.TextMatrix(0, 6) = "包裝規格"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -