form2.frm

本系统特为行业报价、订单、产品管理与客户关系管理所订制

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.7#0"; "FlexCell.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "合同打印处理中心"
   ClientHeight    =   4815
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7335
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   4815
   ScaleWidth      =   7335
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog opendialog 
      Left            =   6360
      Top             =   600
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin FlexCell.Grid Grid1 
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   8070
      Cols            =   8
      ExtendLastCol   =   -1  'True
      Rows            =   6
   End
   Begin ACTIVESKINLibCtl.Skin Skn1 
      Left            =   0
      OleObjectBlob   =   "Form2.frx":000C
      Top             =   0
   End
   Begin VB.Menu Menu 
      Caption         =   "Menu"
      Visible         =   0   'False
      Begin VB.Menu PrintZ 
         Caption         =   "打印预览"
      End
      Begin VB.Menu SBG 
         Caption         =   "显示灰色背景"
         Checked         =   -1  'True
      End
      Begin VB.Menu SaveXML 
         Caption         =   "保存合同文件"
      End
      Begin VB.Menu LoadXML 
         Caption         =   "载入合同文件"
      End
      Begin VB.Menu HTPrintSet 
         Caption         =   "打印设置"
      End
   End
End
Attribute VB_Name = "form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/10
'描    述：商品综合管理系统 Sql2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim TmpClass As String
Dim Grid_ADD As Boolean
Dim Grid_RC(0 To 8) As Integer
Dim hang As Integer
Private Declare Function GetKeyState Lib "user32" _
   (ByVal nVirtKey As Long) As Integer
Private Sub Form_Load()
Skn1.LoadSkin App.Path & sknPname
Skn1.ApplySkinByName hWnd, "窗体"
Skn1.ApplySkin hWnd
With Grid1
    .AllowUserResizing = True
    .DisplayFocusRect = False
    .ExtendLastCol = True
    .Appearance = Flat
    .FixedRowColStyle = Flat
    .ScrollBarStyle = Flat
    
    .DefaultFont.Name = "Tahoma"
    .DefaultFont.Size = 10
End With
If SendDH <> "" Then
ShowGrid
End If
Grid_RC(2) = 0
End Sub

Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Grid1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
form2.Show
End If
End Sub

Private Sub ShowGrid()
With Grid1
 Dim StrBC As String
.AutoRedraw = False
 StrBC = &HE0E0E0
 .Column(1).Width = 109
 .Column(2).Width = 74
 .Column(3).Width = 117
 .Column(4).Width = 80
 .Column(5).Width = 85
 .Column(6).Width = 72
 .Cell(1, 1).Text = "买卖合同"
 .Cell(1, 1).Font.Size = 25
 .Range(1, 1, 1, .Cols - 2).Merge
 .Cell(1, 1).Alignment = cellCenterCenter
 .RowHeight(1) = 42
 .Cell(2, 1).Text = "供方："
 .Cell(2, 1).Font.Bold = True
 .Cell(2, 1).Alignment = cellRightCenter
 .Cell(2, 2).CellType = cellComboBox
 .Cell(2, 2).Border(cellEdgeBottom) = cellDot
 .Cell(2, 2).BackColor = StrBC
 .Range(2, 2, 2, 3).Merge
  Set Qy1 = cnn.Execute("select ly from unit where numberid='16'")
  If Qy1.EOF = False Then
  Grid1.Cell(2, 2).Text = Qy1.Fields(0)
  End If
 .Cell(2, 5).Text = "合同编号："
 .Cell(2, 5).Font.Bold = True
 .Cell(2, 6).Border(cellEdgeBottom) = cellDot
 .Cell(2, 6).BackColor = StrBC
 .Cell(2, 6).Text = SendDH
  .RowHeight(2) = 25

 .Cell(3, 1).Text = "需方："
 .Cell(3, 1).Font.Bold = True
 .Cell(3, 1).Alignment = cellRightCenter
 .Cell(3, 2).CellType = cellComboBox
 .Range(3, 2, 3, 3).Merge
 .RowHeight(3) = 25
 .Cell(3, 2).Border(cellEdgeBottom) = cellDot
 .Cell(3, 2).BackColor = StrBC


 .Cell(3, 5).Text = "签定地点："
 .Cell(3, 5).Font.Bold = True
 .Cell(3, 6).CellType = cellComboBox
 .Cell(3, 6).Border(cellEdgeBottom) = cellDot
 .Cell(3, 6).BackColor = StrBC
 .Range(2, 4, 3, 4).Merge
 .Range(4, 1, 4, .Cols - 2).Merge


 .Cell(5, 1).Text = "一、产品信息列表："
 .Range(5, 1, 5, 4).Merge
 .RowHeight(5) = 20
 .Cell(5, 5).Text = "签定时间："
 .Cell(5, 5).Font.Bold = True
 .Cell(5, 6).CellType = cellCalendar
 .Cell(5, 6).Border(cellEdgeBottom) = cellDot
 .Cell(5, 6).BackColor = StrBC
 .Cell(5, 6).Text = Date
 
 .Rows = .Rows + 1
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Merge
 .Rows = .Rows + 1
 .RowHeight(6) = 10
 .Cell(.Rows - 1, 1).Text = "产品名称"
 .Cell(.Rows - 1, 2).Text = "规格/型号"
 .Cell(.Rows - 1, 3).Text = "单位"
 .Cell(.Rows - 1, 4).Text = "数量"
 .Cell(.Rows - 1, 5).Text = "单价"
 .Cell(.Rows - 1, 6).Text = "总金额"
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Alignment = cellCenterCenter
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeTop) = cellThin
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellInsideVertical) = cellThin
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeRight) = cellThin
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeLeft) = cellThin
''''''''''''''''
 Set Qy1 = cnn.Execute("select pname,pgg,punit,num,money,cmoney from xs_note where pid='" & SendDH & "'")
 Do While Not Qy1.EOF
 .Rows = .Rows + 1
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellInsideVertical) = cellThin
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeTop) = cellThin
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeRight) = cellThin
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeLeft) = cellThin
 .Cell(.Rows - 1, 1).Text = Qy1.Fields(0)
 .Cell(.Rows - 1, 2).Text = Qy1.Fields(1)
 .Cell(.Rows - 1, 3).Text = Qy1.Fields(2)
 .Cell(.Rows - 1, 4).Text = Qy1.Fields(3)
 .Cell(.Rows - 1, 5).Text = Qy1.Fields(4)
 .Cell(.Rows - 1, 6).Text = Qy1.Fields(5)
 .Range(.Rows - 1, 5, .Rows - 1, 6).Mask = cellValue
 Qy1.MoveNext
 Loop
 .Column(5).DecimalLength = 2
 .Column(6).DecimalLength = 2
 '''''''''''''''
 
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Borders(cellEdgeBottom) = cellThin

 .Rows = .Rows + 1
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Merge
 .Rows = .Rows + 1

 .Cell(.Rows - 1, 3).Text = "总额(小写)"
 .Cell(.Rows - 1, 3).Alignment = cellRightCenter
 .Cell(.Rows - 1, 3).Font.Bold = True
 .Cell(.Rows - 1, 4).Border(cellEdgeBottom) = cellDot
 .Cell(.Rows - 1, 4).BackColor = StrBC
 .Cell(.Rows - 1, 4).Mask = cellValue
 .Cell(.Rows - 1, 4).Alignment = cellRightCenter
 .Column(4).DecimalLength = 2
 Set Qy1 = cnn.Execute("select cmoney,xs_dj.coname,shdz from xs_dj,c_message where xs_dj.id='" & SendDH & "' and c_message.coname=xs_dj.coname")
 If Qy1.EOF = False Then
  .Cell(.Rows - 1, 4).Text = Qy1.Fields(0)
  .Cell(3, 2).Text = Qy1.Fields(1)
 End If

 .Cell(.Rows - 1, 5).Text = "总额(大写)"
 .Cell(.Rows - 1, 5).Font.Bold = True
 .Cell(.Rows - 1, 6).Border(cellEdgeBottom) = cellDot
 .Cell(.Rows - 1, 6).BackColor = StrBC
 .RowHeight(.Rows - 1) = 25
 
 .Rows = .Rows + 1
 .Cell(.Rows - 1, 2).CellType = cellCheckBox
 .Cell(.Rows - 1, 3).Text = "执行优惠价格："
 .Cell(.Rows - 1, 3).Alignment = cellRightCenter
 .Cell(.Rows - 1, 3).Font.Bold = True
 .Cell(.Rows - 1, 4).Border(cellEdgeBottom) = cellDot
 .Cell(.Rows - 1, 4).BackColor = StrBC
 .Cell(.Rows - 1, 4).Mask = cellValue
 .Cell(.Rows - 1, 4).Alignment = cellRightCenter

 .Cell(.Rows - 1, 5).Text = "总额(大写)"
 .Cell(.Rows - 1, 5).Font.Bold = True
 .Cell(.Rows - 1, 6).Border(cellEdgeBottom) = cellDot
 .Cell(.Rows - 1, 6).BackColor = StrBC
 .RowHeight(.Rows - 1) = 25
 .Range(.Rows - 2, 1, .Rows - 1, 1).Merge
 .Rows = .Rows + 1
 .Range(.Rows - 1, 1, .Rows - 1, .Cols - 2).Merge
 .Rows = .Rows + 1

 .Cell(.Rows - 1, 1).Text = "二、质量要求、技术标准、供方对质量负责的条件和期限"
 .Range(.Rows - 1, 1, .Rows - 1, 3).Merge
 .Range(.Rows - 1, 5, .Rows - 1, 6).Merge
 .Cell(.Rows - 1, 5).Text = "交货时间："
 .RowHeight(.Rows - 1) = 40
 .Rows = .Rows + 1
 .Cell(.Rows - 1, 1).CellType = cellComboBox
 .RowHeight(.Rows - 1) = 60
 .Range(.Rows - 1, 1, .Rows - 1, 3).Merge
 .Range(.Rows - 1, 1, .Rows - 1, 3).Borders(cellEdgeBottom) = cellDot
 .Range(.Rows - 1, 1, .Rows - 1, 3).Borders(cellEdgeTop) = cellDot
 .Range(.Rows - 1, 1, .Rows - 1, 3).Borders(cellEdgeLeft) = cellDot
 .Range(.Rows - 1, 1, .Rows - 1, 3).Borders(cellEdgeRight) = cellDot
 .Range(.Rows - 1, 1, .Rows - 1, 3).Alignment = cellLeftTop
 .Cell(.Rows - 1, 1).BackColor = StrBC
 
 Grid_RC(0) = .Rows - 1 '质量要求
 .Cell(.Rows - 1, 5).CellType = cellComboBox
 .Range(.Rows - 1, 5, .Rows - 1, 6).Merge
 .Range(.Rows - 1, 5, .Rows - 1, 6).Borders(cellEdgeBottom) = cellDot
 .Range(.Rows - 1, 5, .Rows - 1, 6).Borders(cellEdgeTop) = cellDot
 .Range(.Rows - 1, 5, .Rows - 1, 6).Borders(cellEdgeLeft) = cellDot
 .Range(.Rows - 1, 5, .Rows - 1, 6).Borders(cellEdgeRight) = cellDot
 .Range(.Rows - 1, 1, .Rows - 1, 3).Alignment = cellLeftTop
 .Cell(.Rows - 1, 5).BackColor = StrBC
 Grid_RC(1) = .Rows - 1 '交货时间
.Range(.Rows - 2, 4, .Rows - 1, 4).Merge
.Rows = .Rows + 1
.Cell(.Rows - 1, 1).Text = "三、交(提)货地点方式："
.Range(.Rows - 1, 1, .Rows - 1, 2).Merge
.Cell(.Rows - 1, 3).CellType = cellComboBox
.Range(.Rows - 1, 3, .Rows - 1, 6).Merge
.Range(.Rows - 1, 3, .Rows - 1, 6).Borders(cellEdgeBottom) = cellDot
.Cell(.Rows - 1, 3).BackColor = StrBC
.Cell(.Rows - 1, 3).Text = Qy1.Fields(2)
.RowHeight(.Rows - 1) = 25
 Grid_RC(2) = .Rows - 1 '交提货方式

.Rows = .Rows + 1
.Cell(.Rows - 1, 1).Text = "四、运输方式及到达站港和费用负担："
.Range(.Rows - 1, 1, .Rows - 1, 2).Merge
.Cell(.Rows - 1, 3).CellType = cellComboBox
.Range(.Rows - 1, 3, .Rows - 1, 6).Merge
.Range(.Rows - 1, 3, .Rows - 1, 6).Borders(cellEdgeBottom) = cellDot
.Cell(.Rows - 1, 3).BackColor = StrBC
.RowHeight(.Rows - 1) = 40
 Grid_RC(3) = .Rows - 1 '运输方式

.Rows = .Rows + 1
.Cell(.Rows - 1, 1).Text = "五、合理损耗及计算方法："
.Range(.Rows - 1, 1, .Rows - 1, 6).Merge
.Rows = .Rows + 1
.Cell(.Rows - 1, 1).CellType = cellComboBox
.RowHeight(.Rows - 1) = 25
.Range(.Rows - 1, 1, .Rows - 1, 6).Merge