main_thgl_thcx.frm

完整的物资管理系统源码

            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
      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
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   1260.284
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column12 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column13 
            ColumnWidth     =   1335.118
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_thgl_thcx"
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_rkth  where tb_rkth." & Combo1.text & " like + '%'+ '" + text1.text + "'+'%'"
        Adodc1.Refresh
      Else
        Adodc1.RecordSource = "select * from tb_rkth where tb_rkth." & 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_rkth 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_rkth  where tb_rkth." & Combo1.text & " like + '%'+ '" + text1.text + "'+'%'and 进货日期 between '" + Str(DTP1.Value) + "'AND '" + Str(DTP2.Value) + "'"
        Adodc1.Refresh
     Else
        Adodc1.RecordSource = "select * from tb_rkth where tb_rkth." & 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