frmtakeoutman.frm

这是一个利用VB编写的中小企业ERP。功能比较全

            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "StoreRoom"
         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       =   "Location"
         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       =   "FillinPerson"
         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       =   "FillinTime"
         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 
         EndProperty
         BeginProperty Column01 
         EndProperty
         BeginProperty Column02 
         EndProperty
         BeginProperty Column03 
         EndProperty
         BeginProperty Column04 
         EndProperty
         BeginProperty Column05 
         EndProperty
         BeginProperty Column06 
         EndProperty
         BeginProperty Column07 
         EndProperty
         BeginProperty Column08 
         EndProperty
         BeginProperty Column09 
         EndProperty
         BeginProperty Column10 
         EndProperty
         BeginProperty Column11 
         EndProperty
         BeginProperty Column12 
         EndProperty
      EndProperty
   End
   Begin VB.Label LblOK 
      BackStyle       =   0  'Transparent
      Caption         =   "填写出库单"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6600
      MouseIcon       =   "FrmTakeoutMan.frx":0D0E
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   8160
      Width           =   1455
   End
   Begin VB.Image Image3 
      Height          =   300
      Left            =   6000
      Picture         =   "FrmTakeoutMan.frx":1018
      Top             =   8160
      Width           =   300
   End
   Begin VB.Label LblCancel 
      BackStyle       =   0  'Transparent
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   9000
      MouseIcon       =   "FrmTakeoutMan.frx":1434
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   8160
      Width           =   855
   End
   Begin VB.Image Image4 
      Height          =   300
      Left            =   8400
      Picture         =   "FrmTakeoutMan.frx":173E
      Top             =   8160
      Width           =   300
   End
   Begin VB.Label Label7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "选择日期"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   3240
      TabIndex        =   2
      Top             =   420
      Width           =   1020
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "选择出库类型"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   8880
      TabIndex        =   1
      Top             =   420
      Width           =   1530
   End
End
Attribute VB_Name = "FrmTakeoutMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Refresh_Takeout()
    Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
    Adodc1.RecordSource = "select * from Takeout,Item where Item.Item=Takeout.Item and Takeout.FillinTime='" + Trim(DTDate.Value) + "' and Takeout.TakeoutType='" + Trim(ComboType.Text) + "' "
    Set DataGrid1.DataSource = Adodc1
    Adodc1.Refresh
    
End Sub
Private Sub ComboType_Click()
    Refresh_Takeout
End Sub



Private Sub DTDate_Change()
    Refresh_Takeout
End Sub

Private Sub Form_Load()
    DTDate.Value = Format(Now, "yyyy-mm-dd")
    ComboType.ListIndex = 0
    Refresh_Takeout
End Sub


Private Sub LblCancel_Click()
    Unload Me
End Sub

Private Sub LblOK_Click()
    FrmTakeoutEdit.OriTakeoutType = ComboType.Text
    FrmTakeoutEdit.LblTakeoutType.Caption = ComboType.Text
    FrmTakeoutEdit.LblFillinTime.Caption = DTDate.Value
    FrmTakeoutEdit.Frame1.Caption = ComboType.Text + "产品选择———从下表中选出出库产品"
    FrmTakeoutEdit.Show 1
    Refresh_Takeout
End Sub