📄 frmoutbd.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmoutbd
Caption = "补打发货单"
ClientHeight = 8595
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form1"
ScaleHeight = 8595
ScaleWidth = 11880
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "发货单查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 6975
Left = 840
TabIndex = 0
Top = 840
Width = 10095
Begin VB.TextBox txtid
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
TabIndex = 4
Top = 720
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "查 询"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4920
TabIndex = 3
Top = 720
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6360
TabIndex = 2
Top = 720
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "打 印"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7800
TabIndex = 1
Top = 720
Width = 1215
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "frmoutbd.frx":0000
Height = 5055
Left = 840
OleObjectBlob = "frmoutbd.frx":0014
TabIndex = 5
Top = 1440
Width = 8175
End
Begin VB.Label Label1
Caption = "发货单编号："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 840
TabIndex = 6
Top = 720
Width = 1815
End
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "xsys"
DefaultCursorType= 0 '缺省游标
DefaultType = 1 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 120
Visible = 0 'False
Width = 2055
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Attribute VB_Name = "frmoutbd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
DefaultType = dbUseODBC
Dim db As Database
Dim wk As Workspace
Dim sql As String
Dim str As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
str = "fdk" & seekyearbd.Combo1.Text
Set wk = DBEngine.Workspaces(0)
Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
If txtid = "" Then
MsgBox "客户编号不能为空，请重新输入！"
Else
str1 = "select 发货单编号,产品编号,单价,数量,总金额,发货单日期"
str2 = " from [" + str + "] where 发货单编号='" + txtid.Text + "'"
sql = str1 + str2
Data1.RecordSource = sql
Data1.Refresh
End If
db.Close
End Sub
Private Sub Command2_Click()
Unload Me
frmmenu.Show
End Sub
Private Sub Command3_Click()
DefaultType = dbUseODBC
Dim db As Database
Dim rs1 As Recordset
Dim wk As Workspace
Dim sql As String
Dim str As String
Dim yue As String
Dim ri As String
Dim str1 As String
Dim str2 As String
Dim zje As Currency
zje = 0
Dim zsl As Long
zsl = 0
str = "fdk" & seekyearbd.Combo1.Text
Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
CommonDialog1.ShowPrinter
Printer.Orientation = vbPRORPortrait
Printer.PaperSize = vbPRPSA4
Printer.ScaleMode = vbMillimeters
Printer.FontName = "宋体"
Printer.FontSize = 18
str1 = "select 发货单编号,产品编号,规格,单位,单价,数量,总金额,发货单日期,备注,单位名称"
str2 = " from [" + str + "] where 发货单编号='" + txtid.Text + "'"
sql = str1 + str2
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset, dbwrite, dbOptimistic)
Printer.CurrentX = 60
Printer.CurrentY = 15
Printer.Print "扬州市兴盛牙刷厂发货单"
Printer.Line (50, 22)-(140, 22)
Printer.Line (50, 23)-(140, 23)
rs1.MoveFirst
Printer.CurrentX = 12
Printer.CurrentY = 35
Printer.FontSize = 10
Printer.Print "客户名称:"
Printer.CurrentX = 35
Printer.CurrentY = 35
Printer.Print rs1.Fields("单位名称")
Printer.CurrentX = 115
Printer.CurrentY = 35
Printer.Print "发货单编号:"
Printer.CurrentX = 140
Printer.CurrentY = 35
Printer.Print rs1.Fields("发货单编号")
Printer.CurrentX = 5.5
Printer.CurrentY = 31
Printer.Line (6, 41.5)-(186, 41.5)
Printer.CurrentX = 5
Printer.CurrentY = 42
Printer.Line (6, 42)-(6, 47)
'Printer.Print "|"
Printer.CurrentX = 7
Printer.CurrentY = 42
Printer.Print " 产品型号"
Printer.CurrentX = 30
Printer.CurrentY = 42
Printer.Line (31, 42)-(31, 47)
'Printer.Print "|"
Printer.CurrentX = 36
Printer.CurrentY = 42
Printer.Print " 规 格"
Printer.CurrentX = 65
Printer.CurrentY = 42
Printer.Line (66, 42)-(66, 47)
'Printer.Print "|"
Printer.CurrentX = 67
Printer.CurrentY = 42
Printer.Print "单价" & "(" & "元" & "/" & "箱" & ")"
Printer.CurrentX = 85
Printer.CurrentY = 42
Printer.Line (86, 42)-(86, 47)
'Printer.Print "|"
Printer.CurrentX = 87
Printer.CurrentY = 42
Printer.Print " 数量(箱)"
Printer.CurrentX = 105
Printer.CurrentY = 42
Printer.Line (106, 42)-(106, 47)
'Printer.Print "|"
Printer.CurrentX = 107
Printer.CurrentY = 42
Printer.Print " 金 额(元)"
Printer.CurrentX = 135
Printer.CurrentY = 42
Printer.Line (136, 42)-(136, 47)
'Printer.Print "|"
Printer.CurrentX = 137
Printer.CurrentY = 42
Printer.Print " 备 注"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -