yuqcd.frm

煤炭销售管理系统.完成煤炭销售的日常管理工作,和重车计量系统空车计量系统配合使用.

         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "发货人"
         Caption         =   "发货人"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "合同量"
         Caption         =   "合同量"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "已发量"
         Caption         =   "已发量"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "欠存量"
         Caption         =   "欠存量"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "货物名"
         Caption         =   "货物名"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "单价"
         Caption         =   "单价"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "金额"
         Caption         =   "金额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "发货时间"
         Caption         =   "发货时间"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column10 
         DataField       =   "备注"
         Caption         =   "备注"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         SizeMode        =   1
         BeginProperty Column00 
            ColumnWidth     =   972.284
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1811.906
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1476.284
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1451.906
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1451.906
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1451.906
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   1572.095
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1451.906
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   1451.906
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   1811.906
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   2772.284
         EndProperty
      EndProperty
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "编辑文本"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3000
      TabIndex        =   12
      Top             =   3720
      Width           =   4095
   End
End
Attribute VB_Name = "yuqcd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Dim text As String
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    Dim sql As String
    sql = Trim(Combo1.text) & Val(Text1.text)
    
    'sql = " select * from htk where wfl" & sql
    sql = "select  hth as 票号,fhdw as  用户名称,fhr as 发货人,htl as  合同量,yfl as 已发量,wfl as 欠存量,hwm as 货物名,dj as 单价,je as 金额,sj as 发货时间,bz as 备注 from htk where wfl" & sql
    
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    DataGrid1.Refresh
End Sub
    
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
    If Option2.Value = True Then
        dayinyu.cmdFirst.Visible = False
        dayinyu.cmdLast.Visible = False
        dayinyu.cmdNext.Visible = False
        dayinyu.cmdPrevious.Visible = False
    Else
        dayinyu.cmdFirst.Visible = True
        dayinyu.cmdLast.Visible = True
        dayinyu.cmdNext.Visible = True
        dayinyu.cmdPrevious.Visible = True
        
    End If
    kk = 1
    dayinyu.Show
End Sub
    
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    RichTextBox1.text = "贵公司与我公司的" & hwm & "购销合同现已完成，谢谢你对本公司的支持，在此次合同执行过程中如有不尽人意之处，还望多加海涵," & jl_qym & "全体员工对贵方的大力支持再次表示感谢！"
    
    'RichTextBox1.Font.Size = 14
    'RichTextBox1.text = jl_qym + "欠存通知单" + Chr(10) + Chr(13)
    
    'RichTextBox1.Font.Underline = False
    'RichTextBox1.Font.Size = 9
    
    'RichTextBox1.text = RichTextBox1.text + jl_qym + "欠存通知单"
    'RichTextBox1.Font.Underline = True
End Sub
    
'##################################################################
'## 过程名称：Picture1_Click
'## 参数： 无
'##################################################################
Private Sub Picture1_Click()
    Unload Me
End Sub