main_jhgl_jhcx.frm

来自「完整的物资管理系统源码」· FRM 代码 · 共 550 行 · 第 1/2 页

         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
      BeginProperty Column11 
         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 Column12 
         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 Column13 
         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 Column14 
         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 Column15 
         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 Column16 
         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 
         BeginProperty Column00 
            ColumnWidth     =   929.764
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   884.976
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   824.882
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   510.236
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   524.976
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   659.906
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   705.26
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   975.118
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   840.189
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   1200.189
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   870.236
         EndProperty
         BeginProperty Column12 
            ColumnWidth     =   959.811
         EndProperty
         BeginProperty Column13 
            ColumnWidth     =   675.213
         EndProperty
         BeginProperty Column14 
            ColumnWidth     =   524.976
         EndProperty
         BeginProperty Column15 
            ColumnWidth     =   1425.26
         EndProperty
         BeginProperty Column16 
            ColumnWidth     =   1305.071
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_jhgl_jhcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Me.Caption = text
  '向combo1添加查询项目列表
  Combo1.AddItem ("物资编号")
  Combo1.AddItem ("物资名称")
  Combo1.AddItem ("规格型号")
  Combo1.AddItem ("批号或炉号")
  Combo1.AddItem ("进货票号")
  Combo1.ListIndex = 1
  '向combo2中添加查询条件列表
  Combo2.AddItem ("like")
  Combo2.AddItem (">")
  Combo2.AddItem (">=")
  Combo2.AddItem ("=")
  Combo2.AddItem ("<")
  Combo2.AddItem ("<=")
  Combo2.AddItem ("<>")
  Combo2.ListIndex = 0
  DTP1.Value = Date - 30
  DTP2.Value = Date
  Dim fld
  For Each fld In Adodc1.Recordset.Fields
     '如果字段类型为“货币”，则格式化该字段
     If fld.Type = 6 Then
        Dim f1 As StdDataFormat
        Set f1 = DataGrid1.Columns(fld.Name).DataFormat
        f1.Format = "##,##0.00"
     End If
  Next
End Sub
Private Sub cmdFind_Click()     '查询统计
  If Check1(0).Value = 0 And Check1(1).Value = 1 Then
     If Combo2.text = "like" Then
        Adodc1.RecordSource = "select * from tb_rk  where tb_rk." & Combo1.text & " like + '%'+ '" + Text1.text + "'+'%'"
        Adodc1.Refresh
      Else
        Adodc1.RecordSource = "select * from tb_rk where tb_rk." & Combo1.text & Combo2.text & "'" + Text1.text + "'"
        Adodc1.Refresh
      End If
  End If
  If Check1(0).Value = 1 And Check1(1).Value = 0 Then
      Adodc1.RecordSource = "select * from tb_rk where 进货日期 between '" + Str(DTP1.Value) + "'AND '" + Str(DTP2.Value) + "'"
      Adodc1.Refresh
  End If
  If Check1(0).Value = 1 And Check1(1).Value = 1 Then
     If Combo2.text = "like" Then
        Adodc1.RecordSource = "select * from tb_rk  where tb_rk." & Combo1.text & " like + '%'+ '" + Text1.text + "'+'%'and 进货日期 between '" + Str(DTP1.Value) + "'AND '" + Str(DTP2.Value) + "'"
        Adodc1.Refresh
     Else
        Adodc1.RecordSource = "select * from tb_rk where tb_rk." & Combo1.text & Combo2.text & "'" + Text1.text + "'and 进货日期 between '" + Str(DTP1.Value) + "'AND '" + Str(DTP2.Value) + "'"
        Adodc1.Refresh
     End If
  End If
End Sub
Private Sub cmdExit_Click()
 Unload Me
End Sub