frmAnalyAll.frm
上传用户:xianglong
上传日期:2022-06-19
资源大小:1105k
文件大小:6k
- VERSION 5.00
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
- Begin VB.Form frmAnalyAll
- BorderStyle = 3 'Fixed Dialog
- Caption = "所有物料信息显示"
- ClientHeight = 3720
- ClientLeft = 45
- ClientTop = 405
- ClientWidth = 8880
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3720
- ScaleWidth = 8880
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin MSAdodcLib.Adodc Adodc1
- Height = 330
- Left = 7200
- Top = 120
- Visible = 0 'False
- Width = 1560
- _ExtentX = 2752
- _ExtentY = 582
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 8
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = ""
- OLEDBString = ""
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = ""
- Caption = "Adodc1"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- _Version = 393216
- End
- Begin MSDataGridLib.DataGrid DataGrid1
- Height = 3015
- Left = 120
- TabIndex = 0
- Top = 600
- Width = 8655
- _ExtentX = 15266
- _ExtentY = 5318
- _Version = 393216
- AllowUpdate = 0 'False
- HeadLines = 1
- RowHeight = 15
- BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ColumnCount = 2
- BeginProperty Column00
- 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 Column01
- 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
- EndProperty
- BeginProperty Column01
- EndProperty
- EndProperty
- End
- Begin VB.Label Label1
- Caption = "所 有 物 料 信 息 显 示"
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00000000&
- Height = 255
- Left = 3120
- TabIndex = 1
- Top = 120
- Width = 3255
- End
- End
- Attribute VB_Name = "frmAnalyAll"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Form_Load()
- Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info=False"
- Adodc1.RecordSource = "SELECT 物料信息表.Code as 物料代号, 物料信息表.Name as 物料名, 物料类型信息表.TypeName as 物料类型, 物料信息变化表.Last as 昨日金额, 物料信息变化表.Today as 今日金额, 物料信息变化表.Volume as 日耗量,物料信息变化表.[Volume Price] as 日均额,物料信息变化表.Change as 涨跌,物料信息变化表.Inventory as 库存,物料信息变化表.Day as 日期 From 物料类型信息表,物料信息表,物料信息变化表 WHERE 物料信息表.TypeId = 物料类型信息表.ID and 物料信息表.Code = 物料信息变化表.Code "
- Adodc1.Refresh
- Set DataGrid1.DataSource = Adodc1
- End Sub