⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.frm

📁 这个是我以前做的一个客户管理系统.包内已经含有源码和所用到的控件.代码是用VB写的,数据库采用MSSQL的.
💻 FRM
📖 第 1 页 / 共 5 页
字号:
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   150
      ScaleHeight     =   510
      ScaleWidth      =   12060
      TabIndex        =   71
      Top             =   1860
      Width           =   12060
      Begin VB.CommandButton cmdPlanBack 
         Caption         =   "返回"
         Height          =   330
         Left            =   10890
         TabIndex        =   106
         Top             =   120
         Width           =   1095
      End
      Begin VB.CommandButton cmdNextMonth 
         Height          =   315
         Left            =   450
         Picture         =   "Main.frx":6D15
         Style           =   1  'Graphical
         TabIndex        =   77
         Top             =   90
         Width           =   345
      End
      Begin VB.CommandButton cmdBackMonth 
         Height          =   315
         Left            =   90
         Picture         =   "Main.frx":7257
         Style           =   1  'Graphical
         TabIndex        =   76
         Top             =   90
         Width           =   345
      End
      Begin VB.Label lblDate 
         BackStyle       =   0  'Transparent
         Caption         =   "Label19"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   315
         Left            =   1380
         TabIndex        =   78
         Top             =   90
         Width           =   3585
      End
   End
   Begin VB.PictureBox picPlanManage 
      BorderStyle     =   0  'None
      Height          =   5235
      Left            =   840
      ScaleHeight     =   5235
      ScaleWidth      =   8835
      TabIndex        =   60
      Top             =   6090
      Width           =   8835
      Begin VSFlex7Ctl.VSFlexGrid vsfCal 
         Height          =   4155
         Left            =   300
         TabIndex        =   75
         Top             =   330
         Width           =   6345
         _cx             =   11192
         _cy             =   7329
         _ConvInfo       =   -1
         Appearance      =   1
         BorderStyle     =   1
         Enabled         =   -1  'True
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MousePointer    =   0
         BackColor       =   12632256
         ForeColor       =   -2147483640
         BackColorFixed  =   -2147483633
         ForeColorFixed  =   -2147483630
         BackColorSel    =   8388608
         ForeColorSel    =   -2147483634
         BackColorBkg    =   16777215
         BackColorAlternate=   12632256
         GridColor       =   -2147483633
         GridColorFixed  =   -2147483632
         TreeColor       =   -2147483632
         FloodColor      =   192
         SheetBorder     =   16777215
         FocusRect       =   1
         HighLight       =   1
         AllowSelection  =   -1  'True
         AllowBigSelection=   -1  'True
         AllowUserResizing=   0
         SelectionMode   =   0
         GridLines       =   2
         GridLinesFixed  =   2
         GridLineWidth   =   1
         Rows            =   7
         Cols            =   7
         FixedRows       =   1
         FixedCols       =   0
         RowHeightMin    =   0
         RowHeightMax    =   0
         ColWidthMin     =   0
         ColWidthMax     =   0
         ExtendLastCol   =   0   'False
         FormatString    =   ""
         ScrollTrack     =   0   'False
         ScrollBars      =   0
         ScrollTips      =   0   'False
         MergeCells      =   0
         MergeCompare    =   0
         AutoResize      =   -1  'True
         AutoSizeMode    =   0
         AutoSearch      =   0
         AutoSearchDelay =   2
         MultiTotals     =   -1  'True
         SubtotalPosition=   1
         OutlineBar      =   0
         OutlineCol      =   0
         Ellipsis        =   0
         ExplorerBar     =   0
         PicturesOver    =   0   'False
         FillStyle       =   0
         RightToLeft     =   0   'False
         PictureType     =   0
         TabBehavior     =   0
         OwnerDraw       =   0
         Editable        =   0
         ShowComboButton =   -1  'True
         WordWrap        =   0   'False
         TextStyle       =   0
         TextStyleFixed  =   0
         OleDragMode     =   0
         OleDropMode     =   0
         DataMode        =   0
         VirtualData     =   -1  'True
         DataMember      =   ""
         ComboSearch     =   3
         AutoSizeMouse   =   -1  'True
         FrozenRows      =   0
         FrozenCols      =   0
         AllowUserFreezing=   0
         BackColorFrozen =   0
         ForeColorFrozen =   0
         WallPaperAlignment=   9
      End
   End
   Begin VB.PictureBox picBackPicture 
      BorderStyle     =   0  'None
      Height          =   2325
      Left            =   0
      Picture         =   "Main.frx":7785
      ScaleHeight     =   2325
      ScaleWidth      =   4425
      TabIndex        =   123
      Top             =   5310
      Width           =   4425
   End
   Begin VB.PictureBox picArrangeBar 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   150
      ScaleHeight     =   510
      ScaleWidth      =   12060
      TabIndex        =   115
      Top             =   2400
      Width           =   12060
      Begin VB.CommandButton cmdAddTalkRecord 
         Caption         =   "新增洽谈记录"
         Height          =   330
         Left            =   6270
         TabIndex        =   122
         Top             =   90
         Width           =   1485
      End
      Begin VB.CommandButton cmdModifyTalkRecord 
         Caption         =   "修改洽谈记录"
         Height          =   330
         Left            =   7770
         TabIndex        =   121
         Top             =   90
         Width           =   1485
      End
      Begin VB.CommandButton cmdDelTalkRecord 
         Caption         =   "删除洽谈记录"
         Height          =   330
         Left            =   9270
         TabIndex        =   120
         Top             =   90
         Width           =   1485
      End
      Begin VB.CommandButton cmdRgChoseCustomer 
         Caption         =   "..."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   3270
         TabIndex        =   118
         Top             =   120
         Width           =   375
      End
      Begin VB.TextBox txtAgCustomerName 
         BackColor       =   &H00FFFFFF&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   990
         TabIndex        =   117
         Text            =   "Text1"
         Top             =   150
         Width           =   2205
      End
      Begin VB.CommandButton cmdTalkBack 
         Caption         =   "返回"
         Height          =   330
         Left            =   10770
         TabIndex        =   116
         Top             =   90
         Width           =   1095
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "客户名称:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   90
         TabIndex        =   119
         Top             =   210
         Width           =   1275
      End
   End
   Begin VB.PictureBox picTradeBar 
      BackColor       =   &H00808080&
      BorderStyle     =   0  'None
      Height          =   510
      Left            =   150
      ScaleHeight     =   510
      ScaleWidth      =   12060
      TabIndex        =   107
      Top             =   2970
      Width           =   12060
      Begin VB.CommandButton cmdTdChoseCustomer 
         Caption         =   "..."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Left            =   3270
         TabIndex        =   113
         Top             =   120
         Width           =   375
      End
      Begin VB.TextBox txtTdCustomerName 
         BackColor       =   &H00FFFFFF&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   990
         TabIndex        =   112
         Text            =   "Text1"
         Top             =   150
         Width           =   2205
      End
      Begin VB.CommandButton cmdAddTradeRecord 
         Caption         =   "新增交易记录"
         Height          =   330
         Left            =   6300
         TabIndex        =   111
         Top             =   90
         Width           =   1485
      End
      Begin VB.CommandButton cmdModifyTradeRecord 
         Caption         =   "修改交易记录"
         Height          =   330
         Left            =   7770
         TabIndex        =   110
         Top             =   90
         Width           =   1485
      End
      Begin VB.CommandButton cmdTradeBack 
         Caption         =   "返回"
         Height          =   330
         Left            =   10770
         TabIndex        =   109
         Top             =   90
         Width           =   1095
      End
      Begin VB.CommandButton cmdDelTradeRecord 
         Caption         =   "删除交易记录"
         Height          =   330
         Left            =   9270
         TabIndex        =   108
         Top             =   90
         Width           =   1485
      End
      Begin VB.Label Label5 
         BackStyle       =   0  'Transparent
         Caption         =   "客户名称:"
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Left            =   90
         TabIndex        =   114
         Top             =   210
         Width           =   1275
      End
   End
   Begin VB.PictureBox picMainbar 
      BackColor       =   &H00808080&
    

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -