frmAnalyAll.frm
上传用户:xianglong
上传日期:2022-06-19
资源大小:1105k
文件大小:6k
源码类别:

控制台编程

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Begin VB.Form frmAnalyAll 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "所有物料信息显示"
  7.    ClientHeight    =   3720
  8.    ClientLeft      =   45
  9.    ClientTop       =   405
  10.    ClientWidth     =   8880
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3720
  15.    ScaleWidth      =   8880
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  '屏幕中心
  18.    Begin MSAdodcLib.Adodc Adodc1 
  19.       Height          =   330
  20.       Left            =   7200
  21.       Top             =   120
  22.       Visible         =   0   'False
  23.       Width           =   1560
  24.       _ExtentX        =   2752
  25.       _ExtentY        =   582
  26.       ConnectMode     =   0
  27.       CursorLocation  =   3
  28.       IsolationLevel  =   -1
  29.       ConnectionTimeout=   15
  30.       CommandTimeout  =   30
  31.       CursorType      =   3
  32.       LockType        =   3
  33.       CommandType     =   8
  34.       CursorOptions   =   0
  35.       CacheSize       =   50
  36.       MaxRecords      =   0
  37.       BOFAction       =   0
  38.       EOFAction       =   0
  39.       ConnectStringType=   1
  40.       Appearance      =   1
  41.       BackColor       =   -2147483643
  42.       ForeColor       =   -2147483640
  43.       Orientation     =   0
  44.       Enabled         =   -1
  45.       Connect         =   ""
  46.       OLEDBString     =   ""
  47.       OLEDBFile       =   ""
  48.       DataSourceName  =   ""
  49.       OtherAttributes =   ""
  50.       UserName        =   ""
  51.       Password        =   ""
  52.       RecordSource    =   ""
  53.       Caption         =   "Adodc1"
  54.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "宋体"
  56.          Size            =   9
  57.          Charset         =   134
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       _Version        =   393216
  64.    End
  65.    Begin MSDataGridLib.DataGrid DataGrid1 
  66.       Height          =   3015
  67.       Left            =   120
  68.       TabIndex        =   0
  69.       Top             =   600
  70.       Width           =   8655
  71.       _ExtentX        =   15266
  72.       _ExtentY        =   5318
  73.       _Version        =   393216
  74.       AllowUpdate     =   0   'False
  75.       HeadLines       =   1
  76.       RowHeight       =   15
  77.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  78.          Name            =   "宋体"
  79.          Size            =   9
  80.          Charset         =   134
  81.          Weight          =   400
  82.          Underline       =   0   'False
  83.          Italic          =   0   'False
  84.          Strikethrough   =   0   'False
  85.       EndProperty
  86.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  87.          Name            =   "宋体"
  88.          Size            =   9
  89.          Charset         =   134
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       ColumnCount     =   2
  96.       BeginProperty Column00 
  97.          DataField       =   ""
  98.          Caption         =   ""
  99.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  100.             Type            =   0
  101.             Format          =   ""
  102.             HaveTrueFalseNull=   0
  103.             FirstDayOfWeek  =   0
  104.             FirstWeekOfYear =   0
  105.             LCID            =   2052
  106.             SubFormatType   =   0
  107.          EndProperty
  108.       EndProperty
  109.       BeginProperty Column01 
  110.          DataField       =   ""
  111.          Caption         =   ""
  112.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  113.             Type            =   0
  114.             Format          =   ""
  115.             HaveTrueFalseNull=   0
  116.             FirstDayOfWeek  =   0
  117.             FirstWeekOfYear =   0
  118.             LCID            =   2052
  119.             SubFormatType   =   0
  120.          EndProperty
  121.       EndProperty
  122.       SplitCount      =   1
  123.       BeginProperty Split0 
  124.          BeginProperty Column00 
  125.          EndProperty
  126.          BeginProperty Column01 
  127.          EndProperty
  128.       EndProperty
  129.    End
  130.    Begin VB.Label Label1 
  131.       Caption         =   "所 有 物 料 信 息 显 示"
  132.       BeginProperty Font 
  133.          Name            =   "宋体"
  134.          Size            =   12
  135.          Charset         =   134
  136.          Weight          =   700
  137.          Underline       =   0   'False
  138.          Italic          =   0   'False
  139.          Strikethrough   =   0   'False
  140.       EndProperty
  141.       ForeColor       =   &H00000000&
  142.       Height          =   255
  143.       Left            =   3120
  144.       TabIndex        =   1
  145.       Top             =   120
  146.       Width           =   3255
  147.    End
  148. End
  149. Attribute VB_Name = "frmAnalyAll"
  150. Attribute VB_GlobalNameSpace = False
  151. Attribute VB_Creatable = False
  152. Attribute VB_PredeclaredId = True
  153. Attribute VB_Exposed = False
  154. Private Sub Form_Load()
  155.   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info=False"
  156.   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 "
  157.   Adodc1.Refresh
  158.   Set DataGrid1.DataSource = Adodc1
  159. End Sub