📄 form12.frm
字号:
TabIndex = 33
Top = 7680
Width = 1335
End
Begin VB.Label Label29
Caption = "驱动盘类"
ForeColor = &H00FF0000&
Height = 375
Left = 7200
TabIndex = 32
Top = 8280
Width = 1335
End
Begin VB.Label Label30
Caption = "英策触控标牌"
ForeColor = &H00FF0000&
Height = 375
Left = 7200
TabIndex = 31
Top = 8880
Width = 1935
End
Begin VB.Label Label31
Caption = "公司标牌"
ForeColor = &H00FF0000&
Height = 375
Left = 7200
TabIndex = 30
Top = 9480
Width = 1335
End
Begin VB.Label Label32
Caption = "地 址"
Height = 375
Left = 2760
TabIndex = 29
Top = 2160
Width = 1455
End
Begin VB.Label Label33
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 495
Left = 4320
TabIndex = 28
Top = 2160
Width = 5055
End
Begin VB.Line Line1
BorderColor = &H0000C000&
BorderStyle = 4 'Dash-Dot
X1 = 480
X2 = 15720
Y1 = 2600
Y2 = 2600
End
Begin VB.Line Line2
BorderColor = &H0000C000&
BorderStyle = 4 'Dash-Dot
X1 = 480
X2 = 15720
Y1 = 4920
Y2 = 4920
End
Begin VB.Label Label21
Caption = "备 注"
ForeColor = &H00FF0000&
Height = 375
Left = 1080
TabIndex = 27
Top = 9600
Width = 1335
End
Begin VB.Label Label34
Height = 255
Left = 600
TabIndex = 26
Top = 8520
Visible = 0 'False
Width = 1455
End
Begin VB.Label Label37
BackStyle = 0 'Transparent
Caption = "签 定 人"
Height = 375
Left = 9720
TabIndex = 25
Top = 2240
Width = 1455
End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "请输入合同号!", vbExclamation, "系统提示您"
GoTo 1
End If
Adodc1.RecordSource = "select a.*,b.lxr,b.dz,b.lxdh from xsqk a,khzl b where a.xsid like'" & Text8 & "' and a.khmc=b.khmc "
Adodc1.Refresh
Set Label36.DataSource = Adodc1
Label36.DataField = "khmc"
Set Label3.DataSource = Adodc1
Label3.DataField = "lxr"
Set Label4.DataSource = Adodc1
Label4.DataField = "lxdh"
Set Label33.DataSource = Adodc1
Label33.DataField = "dz"
Set Label6.DataSource = Adodc1
Label6.DataField = "xsid"
Set Label8.DataSource = Adodc1
Label8.DataField = "xssj"
Set Text52.DataSource = Adodc1
Text52.DataField = "qdr"
Set Text22.DataSource = Adodc1
Text22.DataField = "fkfs"
Set Text23.DataSource = Adodc1
Text23.DataField = "KJFP"
Set Text24.DataSource = Adodc1
Text24.DataField = "ysfs"
Set Text28.DataSource = Adodc1
Text28.DataField = "ysfkfs"
Set Text25.DataSource = Adodc1
Text25.DataField = "KHFJ"
Set Text29.DataSource = Adodc1
Text29.DataField = "chdd"
Set Text44.DataSource = Adodc1
Text44.DataField = "bz"
Set Text27.DataSource = Adodc1
Text27.DataField = "FHDZ"
Set Text30.DataSource = Adodc1
Text30.DataField = "FHsj"
Set Text31.DataSource = Adodc1
Text31.DataField = "FPYSFS"
Set Text32.DataSource = Adodc1
Text32.DataField = "bxk"
Set Text33.DataSource = Adodc1
Text33.DataField = "sms"
Set Text34.DataSource = Adodc1
Text34.DataField = "qd"
Set Text35.DataSource = Adodc1
Text35.DataField = "ycck"
Set Text36.DataSource = Adodc1
Text36.DataField = "gsbp"
Set Text7.DataSource = Adodc1
Text7.DataField = "zxqk"
1 End Sub
Private Sub Command18_Click()
Dim I As Integer
Dim B As String
Dim c As Integer
Dim D As Integer
Dim E As Double
Dim F As String
Dim G As String
E = 0
Adodc2.RecordSource = "select cpmc,sl,dj,sl*dj as je from xsmx where xsid like'" & Label6 & "'"
Adodc2.Refresh
If Adodc2.Recordset.BOF = True And Adodc12.Recordset.EOF = True Then
MsgBox "没有销售记录或按'加入'按钮确认销售记录,请核实！", vbExclamation, "系统提示您"
GoTo 1110
End If
D = Adodc2.Recordset.RecordCount
Set Text53.DataSource = Adodc2
Text53.DataField = "CPMC"
Set Text55.DataSource = Adodc2
Text55.DataField = "SL"
Adodc2.Recordset.MoveFirst
Static l As Integer, rPnt As Integer, A As String
rPnt = 1
TempInit
PrintHeader "", " ", 1
PrintInCen 9, 1.5, "合 同 执 行 单", "楷体_GB2312", 16, True, 0
c = 30 - Len(Trim(Text1)) * 2
B = "客户名称:" + Trim(Text1) + Space(c) + "合 同 号:" + Label6
PrintInLef 2, 2 + (1 * 1), B, "宋体", 12, False, 0
c = 30 - Len(Trim(Label3)) * 2
B = "联 系 人:" + Trim(Label3) + Space(c) + "日 期:" + Label8
PrintInLef 2, 2 + (1 * 2), B, "宋体", 12, False, 0
c = 30 - Len(Trim(Label4))
B = "联系电话:" + Trim(Label4) + Space(c) + "签 定 人:" + Text52
PrintInLef 2, 2 + (1 * 3), B, "宋体", 12, False, 0
B = "地 址:" + Label33
PrintInLef 2, 6, B, "宋体", 12, False, 0
PrintInLef 2, 3 + (0.5 * 7), "-------------------------------------------------------------------------------", "宋体", 12, False, 0
PrintInLef 2, 3 + (1 * 4), "产品或服务规格 数 量 ", "宋体", 12, False, 0
PrintInLef 2, 3 + (0.5 * 9), "-------------------------------------------------------------------------------", "宋体", 12, False, 0
For I = 1 To D
PrintInLef 2, 3 + (1 * (4 + I)), Text53, "宋体", 12, False, 0
PrintInLef 16, 3 + (1 * (4 + I)), Text55, "宋体", 12, False, 0
Adodc12.Recordset.MoveNext
Next I
F = E
PrintInLef 2, 14, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "备 注:" + Text57
PrintInLef 2, 14.5, F, "宋体", 12, False, 0
PrintInLef 2, 16, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "发货地址:" + Text27
PrintInLef 2, 16.5, F, "宋体", 12, False, 0
PrintInLef 2, 17, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "发货时间:" + Text30
PrintInLef 2, 17.5, F, "宋体", 12, False, 0
PrintInLef 2, 18, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "发 票:" + Text23 + Space(30 - Len(Text23) * 2) + "发票运送方式:" + Text31
PrintInLef 2, 18.5, F, "宋体", 12, False, 0
PrintInLef 2, 19, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "保修卡:" + Text32 + Space(18 - Len(Text32) * 2) + "说明书:" + Text33 + Space(18 - Len(Text33) * 2) + "驱动:" + Text34
PrintInLef 2, 19.5, F, "宋体", 12, False, 0
PrintInLef 2, 20, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "英策触控:" + Text35 + Space(41 - Len(Text35) * 2) + "公司标牌:" + Text36
PrintInLef 2, 20.5, F, "宋体", 12, False, 0
PrintInLef 2, 21, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "发货方式:" + Text24 + Space(15 - Len(Text24) * 2) + "运费付款方式:" + Text28 + Space(13 - Len(Text28) * 2) + "出货地点:" + Text29
PrintInLef 2, 21.5, F, "宋体", 12, False, 0
PrintInLef 2, 22, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "显示器号： 领货人： "
PrintInLef 2, 22.5, F, "宋体", 12, False, 0
F = "安 装： 包 装： "
PrintInLef 2, 23, F, "宋体", 12, False, 0
F = "库管(签字)： 经办人(签字)： "
PrintInLef 2, 23.5, F, "宋体", 12, False, 0
F = "会计(签字)： 主管(签字)： "
PrintInLef 2, 24, F, "宋体", 12, False, 0
F = "定制机柜: 采购主机: 特殊设备: "
PrintInLef 2, 24.5, F, "宋体", 12, False, 0
PrintFooter "", "", 0
PrnPRV.Caption = "合同执行单预览"
1110 End Sub
Private Sub Command20_Click()
Dim I As Integer
Dim B As String
Dim c As Integer
Dim D As Integer
Dim E As Double
Dim F As String
E = 0
Adodc2.RecordSource = "select cpmc,sl,dj,sl*dj as je from xsmx where xsid like'" & Text8 & "'"
Adodc2.Refresh
D = Adodc2.Recordset.RecordCount
Set Text53.DataSource = Adodc2
Text53.DataField = "CPMC"
Set Text54.DataSource = Adodc2
Text54.DataField = "DJ"
Set Text55.DataSource = Adodc2
Text55.DataField = "SL"
Set Text56.DataSource = Adodc2
Text56.DataField = "JE"
Adodc2.Recordset.MoveFirst
Static l As Integer, rPnt As Integer, A As String
rPnt = 1
TempInit
PrintHeader "", " ", 1
PrintInCen 9, 1.5, "销 售 合 同", "楷体_GB2312", 16, True, 0
c = 30 - Len(Trim(Label36)) * 2
B = "客户名称:" + Label36 + Space(c) + "合 同 号:" + Label6
PrintInLef 2, 2 + (1 * 1), B, "宋体", 12, False, 0
c = 30 - Len(Trim(Label3)) * 2
B = "联 系 人:" + Label3 + Space(c) + "日 期:" + Label8
PrintInLef 2, 2 + (1 * 2), B, "宋体", 12, False, 0
c = 30 - Len(Trim(Label4))
B = "联系电话:" + Label4 + Space(c) + "签 定 人:" + Trim(Text52)
PrintInLef 2, 2 + (1 * 3), B, "宋体", 12, False, 0
PrintInLef 2, 2 + (0.5 * 7), "-------------------------------------------------------------------------------", "宋体", 12, False, 0
PrintInLef 2, 2 + (1 * 4), "产品或服务规格 数 量 单价(人民币元) 金额(人民币元) ", "宋体", 12, False, 0
PrintInLef 2, 2 + (0.5 * 9), "-------------------------------------------------------------------------------", "宋体", 12, False, 0
For I = 1 To D
E = E + Text56
PrintInLef 2, 2 + (1 * (4 + I)), Text53, "宋体", 12, False, 0
PrintInLef 8.5, 2 + (1 * (4 + I)), Text55, "宋体", 12, False, 0
PrintInLef 11.5, 2 + (1 * (4 + I)), Text54, "宋体", 12, False, 0
PrintInLef 16, 2 + (1 * (4 + I)), Text56, "宋体", 12, False, 0
Adodc2.Recordset.MoveNext
Next I
F = E
PrintInLef 2, 2 + (1 * 17), "-------------------------------------------------------------------------------", "宋体", 12, False, 0
PrintInLef 14, 19.5, "合计金额:", "宋体", 12, False, 0
PrintInLef 16, 19.5, F, "宋体", 12, False, 0
PrintInLef 2, 20, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "备 注:" + Text44
PrintInLef 2, 20.5, F, "宋体", 12, False, 0
PrintInLef 2, 22, "-------------------------------------------------------------------------------", "宋体", 12, False, 0
F = "付款方式:" + Text22
PrintInLef 2, 22.5, F, "宋体", 12, False, 0
F = "发 票:" + Text23
PrintInLef 10, 22.5, F, "宋体", 12, False, 0
F = "运输方式:" + Text24
PrintInLef 2, 23.5, F, "宋体", 12, False, 0
F = "运费付款方式:" + Text28
PrintInLef 10, 23.5, F, "宋体", 12, False, 0
F = "招 待 费:" + Text25
PrintInLef 2, 24.5, F, "宋体", 12, False, 0
PrintInLef 2, 25.5, "开票记录: 增值税 普通发票 收据 ", "宋体", 12, False, 0
PrintInLef 2, 27, "会计:_______________", "宋体", 12, True, 0
PrintFooter "", "", 0
PrnPRV.Caption = "销售合同预览"
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Form1.Text6 & ";Persist Security Info=True;User ID=" & Form1.Text5 & ";Initial Catalog=" & Form1.Text8 & ";Data Source=" & Form1.Text4 & ""
Adodc2.ConnectionString = "Provider=SQLOLEDB.1;Password=" & Form1.Text6 & ";Persist Security Info=True;User ID=" & Form1.Text5 & ";Initial Catalog=" & Form1.Text8 & ";Data Source=" & Form1.Text4 & ""
End Sub
Private Sub Text1_Change()
Text8 = Text1 + "%"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -