main_rqdialog.frm

简单的进销存vb源代码

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form main_rqDialog 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "日期选择"
   ClientHeight    =   2205
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6030
   Icon            =   "main_rqDialog.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2205
   ScaleWidth      =   6030
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   60
      TabIndex        =   6
      Top             =   1335
      Visible         =   0   'False
      Width           =   645
   End
   Begin MSComCtl2.DTPicker DTP1 
      Height          =   390
      Left            =   1005
      TabIndex        =   2
      Top             =   810
      Width           =   1785
      _ExtentX        =   3149
      _ExtentY        =   688
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Format          =   30408705
      CurrentDate     =   36654
   End
   Begin VB.CommandButton CancelButton 
      BackColor       =   &H00FFC0C0&
      Height          =   345
      Left            =   3165
      Picture         =   "main_rqDialog.frx":000C
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1560
      Width           =   1095
   End
   Begin VB.CommandButton OKButton 
      Height          =   345
      Left            =   1785
      Picture         =   "main_rqDialog.frx":19C6
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   1560
      Width           =   1095
   End
   Begin MSComCtl2.DTPicker DTP2 
      Height          =   390
      Left            =   3285
      TabIndex        =   3
      Top             =   810
      Width           =   1785
      _ExtentX        =   3149
      _ExtentY        =   688
      _Version        =   393216
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Format          =   30408705
      CurrentDate     =   37256
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请选择日期:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   2070
      TabIndex        =   5
      Top             =   270
      Width           =   1755
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "到"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   330
      Left            =   2910
      TabIndex        =   4
      Top             =   870
      Width           =   330
   End
End
Attribute VB_Name = "main_rqDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  '初始化日期
  DTP2.Value = Date
  DTP1.Value = Date - 30
End Sub
Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub

Private Sub OKButton_Click()
  Select Case text1.Text
    Case Is = 0
      '载入入库查询
      Load main_cxtj_rkcx
      main_cxtj_rkcx.Show
      main_cxtj_rkcx.rq1.Text = DTP1.Value
      main_cxtj_rkcx.rq2.Text = DTP2.Value
    Case Is = 1
      '载入入库退单查询
      Load main_cxtj_rktdcx
      main_cxtj_rktdcx.Show
      main_cxtj_rktdcx.rq1.Text = DTP1.Value
      main_cxtj_rktdcx.rq2.Text = DTP2.Value
      Unload Me
    Case Is = 2
     '载入销售单查询
      Load main_cxtj_xscx
      main_cxtj_xscx.Show
      main_cxtj_xscx.rq1.Text = DTP1.Value
      main_cxtj_xscx.rq2.Text = DTP2.Value
     Case Is = 3
      '载入销售退单查询
      Load main_cxtj_xstdcx
      main_cxtj_xstdcx.Show
      main_cxtj_xstdcx.rq1.Text = DTP1.Value
      main_cxtj_xstdcx.rq2.Text = DTP2.Value
  End Select
  Unload Me
End Sub
Private Sub CancelButton_Click()
  frm_main.Enabled = True
  Unload Me
End Sub