ywgl.frm

一个进销存系统,界面清楚,操作简单,是一个不错的企业进销存系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form input 
   Caption         =   "销售业务信息查询系统"
   ClientHeight    =   8445
   ClientLeft      =   2070
   ClientTop       =   1185
   ClientWidth     =   10695
   Icon            =   "ywgl.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8445
   ScaleWidth      =   10695
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame3 
      Caption         =   "查询区"
      Height          =   2295
      Left            =   9600
      TabIndex        =   15
      Top             =   7800
      Width           =   5415
      Begin VB.CommandButton Command11 
         Caption         =   "全 部 显 示"
         Height          =   375
         Left            =   1200
         TabIndex        =   7
         Top             =   1800
         Width           =   2295
      End
      Begin VB.CommandButton Command9 
         Caption         =   "按日期查询"
         Height          =   375
         Left            =   4200
         TabIndex        =   8
         Top             =   1410
         Width           =   1095
      End
      Begin VB.CommandButton Command8 
         Caption         =   "按商品查询"
         Height          =   375
         Left            =   4200
         TabIndex        =   9
         Top             =   930
         Width           =   1095
      End
      Begin VB.CommandButton Command7 
         Caption         =   "按姓名查询"
         Height          =   375
         Left            =   4200
         TabIndex        =   17
         Top             =   460
         Width           =   1095
      End
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   2520
         TabIndex        =   22
         Top             =   1440
         Width           =   1455
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   720
         TabIndex        =   21
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "日 期："
         Height          =   180
         Left            =   120
         TabIndex        =   19
         Top             =   1440
         Width           =   630
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "至"
         Height          =   180
         Left            =   2280
         TabIndex        =   23
         Top             =   1485
         Width           =   180
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "商品名："
         Height          =   180
         Left            =   120
         TabIndex        =   20
         Top             =   1020
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "业务员："
         Height          =   180
         Left            =   120
         TabIndex        =   16
         Top             =   600
         Width           =   720
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "统计区"
      Height          =   2295
      Left            =   4680
      TabIndex        =   12
      Top             =   7800
      Width           =   4335
      Begin VB.CommandButton Command6 
         Caption         =   "利  润  率"
         Height          =   495
         Left            =   1320
         TabIndex        =   14
         Top             =   1320
         Width           =   1695
      End
      Begin VB.CommandButton Command5 
         Caption         =   "计算毛利及合计"
         Height          =   495
         Left            =   1320
         TabIndex        =   13
         Top             =   480
         Width           =   1695
      End
   End
   Begin VB.Data Data3 
      Caption         =   "Data3"
      Connect         =   "Access"
      DatabaseName    =   "C:\Program Files\YWGL\ywy.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   2520
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "sp"
      Top             =   10200
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   "C:\Program Files\YWGL\ywy.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   1200
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "ywy"
      Top             =   10200
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Frame Frame1 
      Caption         =   "操作区"
      Height          =   2295
      Left            =   360
      TabIndex        =   4
      Top             =   7800
      Width           =   3855
      Begin VB.CommandButton Command4 
         Caption         =   "至表尾部&E"
         Height          =   495
         Left            =   1800
         TabIndex        =   11
         Top             =   1320
         Width           =   1215
      End
      Begin VB.CommandButton Command3 
         Caption         =   "至表首部&T"
         Height          =   495
         Left            =   600
         TabIndex        =   10
         Top             =   1320
         Width           =   1095
      End
      Begin VB.CommandButton Command2 
         Caption         =   "删除业务&D"
         Height          =   495
         Left            =   1800
         TabIndex        =   6
         Top             =   720
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "增加业务&A"
         Height          =   495
         Left            =   600
         TabIndex        =   5
         Top             =   720
         Width           =   1095
      End
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\Program Files\YWGL\ywy.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "yw"
      Top             =   10200
      Visible         =   0   'False
      Width           =   1065
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "ywgl.frx":0442
      Height          =   6855
      Left            =   120
      OleObjectBlob   =   "ywgl.frx":0456
      TabIndex        =   3
      Top             =   840
      Width           =   15015
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   405
      Left            =   0
      Negotiate       =   -1  'True
      TabIndex        =   0
      Top             =   8040
      Width           =   10695
      _ExtentX        =   18865
      _ExtentY        =   714
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   8819
            MinWidth        =   8819
            Picture         =   "ywgl.frx":164C
            Text            =   "☆销售业务查询系统№1.0"
            TextSave        =   "☆销售业务查询系统№1.0"
         EndProperty