开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 磁盘/存储 > SCSI/ASPI > 查看源码
Form1.frm
资源名称：WebSite1.rar　[点击查看]
上传用户：vtryaojia
上传日期：2020-04-18
资源大小：1214k
文件大小：7k
源码类别：

SCSI/ASPI

开发平台：

Others

Form1.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form main 
  3.    Caption         =   "Computer Sale后台管理系统"
  4.    ClientHeight    =   6495
  5.    ClientLeft      =   165
  6.    ClientTop       =   855
  7.    ClientWidth     =   9030
  8.    BeginProperty Font 
  9.       Name            =   "幼圆"
  10.       Size            =   9
  11.       Charset         =   134
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   6495
  19.    ScaleWidth      =   9030
  20.    StartUpPosition =   3  '窗口缺省
  21.    Begin VB.PictureBox Picture1 
  22.       BeginProperty Font 
  23.          Name            =   "幼圆"
  24.          Size            =   9
  25.          Charset         =   134
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   -1  'True
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   4815
  32.       Left            =   120
  33.       Picture         =   "Form1.frx":0000
  34.       ScaleHeight     =   4755
  35.       ScaleWidth      =   7275
  36.       TabIndex        =   5
  37.       Top             =   960
  38.       Width           =   7335
  39.    End
  40.    Begin VB.CommandButton Command6 
  41.       Caption         =   "退出系统"
  42.       BeginProperty Font 
  43.          Name            =   "宋体"
  44.          Size            =   9
  45.          Charset         =   134
  46.          Weight          =   400
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   855
  52.       Left            =   4320
  53.       TabIndex        =   4
  54.       Top             =   120
  55.       Width           =   975
  56.    End
  57.    Begin VB.CommandButton Command4 
  58.       Caption         =   "订单处理"
  59.       BeginProperty Font 
  60.          Name            =   "宋体"
  61.          Size            =   9
  62.          Charset         =   134
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   855
  69.       Left            =   3240
  70.       TabIndex        =   3
  71.       Top             =   120
  72.       Width           =   975
  73.    End
  74.    Begin VB.CommandButton Command3 
  75.       Caption         =   "商品添加"
  76.       BeginProperty Font 
  77.          Name            =   "宋体"
  78.          Size            =   9
  79.          Charset         =   134
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       Height          =   855
  86.       Left            =   2160
  87.       TabIndex        =   2
  88.       Top             =   120
  89.       Width           =   975
  90.    End
  91.    Begin VB.CommandButton Command2 
  92.       Caption         =   "用户查询"
  93.       BeginProperty Font 
  94.          Name            =   "宋体"
  95.          Size            =   9
  96.          Charset         =   134
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   855
  103.       Left            =   1080
  104.       TabIndex        =   1
  105.       Top             =   120
  106.       Width           =   975
  107.    End
  108.    Begin VB.CommandButton Command1 
  109.       Caption         =   "客户查询"
  110.       BeginProperty Font 
  111.          Name            =   "宋体"
  112.          Size            =   9
  113.          Charset         =   134
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   855
  120.       Left            =   0
  121.       TabIndex        =   0
  122.       Top             =   120
  123.       Width           =   975
  124.    End
  125.    Begin VB.Label Label2 
  126.       Caption         =   "       当前操作员：管理员"
  127.       Height          =   495
  128.       Left            =   4200
  129.       TabIndex        =   7
  130.       Top             =   5880
  131.       Width           =   3615
  132.    End
  133.    Begin VB.Label Label1 
  134.       Caption         =   "欢迎使用Computer Sale后台管理系统"
  135.       BeginProperty Font 
  136.          Name            =   "宋体"
  137.          Size            =   9
  138.          Charset         =   134
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   495
  145.       Left            =   120
  146.       TabIndex        =   6
  147.       Top             =   5880
  148.       Width           =   3855
  149.    End
  150.    Begin VB.Menu xtsz 
  151.       Caption         =   "系统设置"
  152.       Begin VB.Menu dl 
  153.          Caption         =   "重新登陆"
  154.       End
  155.       Begin VB.Menu tcxt 
  156.          Caption         =   "退出系统"
  157.       End
  158.    End
  159.    Begin VB.Menu jbxxgl 
  160.       Caption         =   "基本信息管理"
  161.       Begin VB.Menu khdagl 
  162.          Caption         =   "客户档案管理"
  163.          Begin VB.Menu khglcx 
  164.             Caption         =   "客户管理查询"
  165.          End
  166.       End
  167.       Begin VB.Menu yhxxgl 
  168.          Caption         =   "用户信息管理"
  169.          Begin VB.Menu mmxg 
  170.             Caption         =   "密码修改"
  171.          End
  172.       End
  173.    End
  174.    Begin VB.Menu spgl 
  175.       Caption         =   "商品管理"
  176.       Begin VB.Menu tjxsp 
  177.          Caption         =   "添加新商品"
  178.       End
  179.    End
  180.    Begin VB.Menu ddgl 
  181.       Caption         =   "订单管理"
  182.       Begin VB.Menu ddcl 
  183.          Caption         =   "订单处理"
  184.       End
  185.    End
  186.    Begin VB.Menu help 
  187.       Caption         =   "系统帮助"
  188.       Begin VB.Menu xtzc 
  189.          Caption         =   "系统注册"
  190.          Enabled         =   0   'False
  191.       End
  192.       Begin VB.Menu sjkbf 
  193.          Caption         =   "数据库备份"
  194.          Enabled         =   0   'False
  195.       End
  196.       Begin VB.Menu gy 
  197.          Caption         =   "关于"
  198.       End
  199.    End
  200. End
  201. Attribute VB_Name = "main"
  202. Attribute VB_GlobalNameSpace = False
  203. Attribute VB_Creatable = False
  204. Attribute VB_PredeclaredId = True
  205. Attribute VB_Exposed = False
  206. Private Sub Command1_Click()
  207. khcxun.Show
  208. End Sub
  210. Private Sub Command2_Click()
  211. cxun.Show
  212. End Sub
  214. Private Sub Command3_Click()
  215. xsp.Show
  216. End Sub
  218. Private Sub Command4_Click()
  219. ddan.Show
  220. End Sub
  222. Private Sub Command6_Click()
  223. End
  224. End Sub
  226. Private Sub ddcl_Click()
  227. ddan.Show
  228. End Sub
  230. Private Sub dl_Click()
  231. Unload main
  232. login.Show
  233. End Sub
  236. Private Sub gy_Click()
  237. gyu.Show
  238. End Sub
  240. Private Sub khglcx_Click()
  241. khcxun.Show
  242. End Sub
  244. Private Sub mmxg_Click()
  245. mima.Show
  246. End Sub
  248. Private Sub tcxt_Click()
  249. End
  250. End Sub
  252. Private Sub tjxsp_Click()
  253. xsp.Show
  254. End Sub
  257. Private Sub wdd_Click()
  258. wddan.Show
  259. End Sub