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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
frmCilent.frm
资源名称：CarMaintain.rar　[点击查看]
上传用户：yexiandon
上传日期：2022-07-12
资源大小：895k
文件大小：32k
源码类别：

百货/超市行业

开发平台：

Visual Basic

frmCilent.frm：源码内容
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmCilent 
  5.    Caption         =   "维修车辆信息"
  6.    ClientHeight    =   5805
  7.    ClientLeft      =   2520
  8.    ClientTop       =   5190
  9.    ClientWidth     =   15240
  10.    Icon            =   "frmCilent.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   5805
  14.    ScaleWidth      =   15240
  15.    WindowState     =   2  'Maximized
  16.    Begin MSComctlLib.ImageList ImageList1 
  17.       Left            =   13560
  18.       Top             =   1320
  19.       _ExtentX        =   1005
  20.       _ExtentY        =   1005
  21.       BackColor       =   -2147483643
  22.       ImageWidth      =   16
  23.       ImageHeight     =   16
  24.       MaskColor       =   12632256
  25.       _Version        =   393216
  26.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  27.          NumListImages   =   32
  28.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  29.             Picture         =   "frmCilent.frx":08CA
  30.             Key             =   "A2"
  31.          EndProperty
  32.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  33.             Picture         =   "frmCilent.frx":11A4
  34.             Key             =   "A1"
  35.          EndProperty
  36.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "frmCilent.frx":1C6E
  38.             Key             =   "A0"
  39.          EndProperty
  40.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "frmCilent.frx":2548
  42.             Key             =   ""
  43.          EndProperty
  44.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "frmCilent.frx":30F2
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "frmCilent.frx":368C
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "frmCilent.frx":3C26
  54.             Key             =   ""
  55.          EndProperty
  56.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  57.             Picture         =   "frmCilent.frx":41C0
  58.             Key             =   "gb"
  59.          EndProperty
  60.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "frmCilent.frx":4D0A
  62.             Key             =   ""
  63.          EndProperty
  64.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "frmCilent.frx":A92C
  66.             Key             =   ""
  67.          EndProperty
  68.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  69.             Picture         =   "frmCilent.frx":AEC6
  70.             Key             =   ""
  71.          EndProperty
  72.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  73.             Picture         =   "frmCilent.frx":B020
  74.             Key             =   ""
  75.          EndProperty
  76.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "frmCilent.frx":B17A
  78.             Key             =   ""
  79.          EndProperty
  80.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "frmCilent.frx":B2D4
  82.             Key             =   "f5"
  83.          EndProperty
  84.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "frmCilent.frx":B42E
  86.             Key             =   ""
  87.          EndProperty
  88.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "frmCilent.frx":B588
  90.             Key             =   "del"
  91.          EndProperty
  92.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "frmCilent.frx":B6E2
  94.             Key             =   "cz"
  95.          EndProperty
  96.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  97.             Picture         =   "frmCilent.frx":B83C
  98.             Key             =   ""
  99.          EndProperty
  100.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  101.             Picture         =   "frmCilent.frx":B996
  102.             Key             =   "new"
  103.          EndProperty
  104.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "frmCilent.frx":BF30
  106.             Key             =   "view"
  107.          EndProperty
  108.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "frmCilent.frx":C4CA
  110.             Key             =   ""
  111.          EndProperty
  112.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "frmCilent.frx":CA64
  114.             Key             =   "save"
  115.          EndProperty
  116.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "frmCilent.frx":CFFE
  118.             Key             =   "cute"
  119.          EndProperty
  120.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "frmCilent.frx":D598
  122.             Key             =   "copy"
  123.          EndProperty
  124.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.             Picture         =   "frmCilent.frx":DB32
  126.             Key             =   "paste"
  127.          EndProperty
  128.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  129.             Picture         =   "frmCilent.frx":E0CC
  130.             Key             =   "xg"
  131.          EndProperty
  132.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "frmCilent.frx":E666
  134.             Key             =   "serch"
  135.          EndProperty
  136.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  137.             Picture         =   "frmCilent.frx":EC00
  138.             Key             =   "info"
  139.          EndProperty
  140.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  141.             Picture         =   "frmCilent.frx":F19A
  142.             Key             =   ""
  143.          EndProperty
  144.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  145.             Picture         =   "frmCilent.frx":F734
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  149.             Picture         =   "frmCilent.frx":FCCE
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "frmCilent.frx":10268
  154.             Key             =   "exit"
  155.          EndProperty
  156.       EndProperty
  157.    End
  158.    Begin VB.PictureBox picSplitter 
  159.       BackColor       =   &H00808080&
  160.       BorderStyle     =   0  'None
  161.       FillColor       =   &H00808080&
  162.       Height          =   4800
  163.       Left            =   2040
  164.       ScaleHeight     =   2090.126
  165.       ScaleMode       =   0  'User
  166.       ScaleWidth      =   780
  167.       TabIndex        =   6
  168.       Top             =   945
  169.       Visible         =   0   'False
  170.       Width           =   72
  171.    End
  172.    Begin MSComctlLib.TreeView tvTreeView 
  173.       Height          =   4800
  174.       Left            =   0
  175.       TabIndex        =   5
  176.       Top             =   945
  177.       Width           =   2010
  178.       _ExtentX        =   3545
  179.       _ExtentY        =   8467
  180.       _Version        =   393217
  181.       HideSelection   =   0   'False
  182.       Indentation     =   529
  183.       LabelEdit       =   1
  184.       Style           =   7
  185.       HotTracking     =   -1  'True
  186.       SingleSel       =   -1  'True
  187.       ImageList       =   "ImageList1"
  188.       Appearance      =   1
  189.    End
  190.    Begin MSComctlLib.ListView lvListView 
  191.       Height          =   4800
  192.       Left            =   2055
  193.       TabIndex        =   4
  194.       Top             =   945
  195.       Width           =   13770
  196.       _ExtentX        =   24289
  197.       _ExtentY        =   8467
  198.       View            =   3
  199.       LabelEdit       =   1
  200.       LabelWrap       =   0   'False
  201.       HideSelection   =   0   'False
  202.       FullRowSelect   =   -1  'True
  203.       _Version        =   393217
  204.       Icons           =   "imlViewBIcon"
  205.       SmallIcons      =   "imlViewSIcon"
  206.       ColHdrIcons     =   "imlViewSIcon"
  207.       ForeColor       =   -2147483640
  208.       BackColor       =   -2147483643
  209.       BorderStyle     =   1
  210.       Appearance      =   1
  211.       NumItems        =   0
  212.    End
  213.    Begin VB.PictureBox picTitles 
  214.       Align           =   1  'Align Top
  215.       Appearance      =   0  'Flat
  216.       BorderStyle     =   0  'None
  217.       ForeColor       =   &H80000008&
  218.       Height          =   300
  219.       Left            =   0
  220.       ScaleHeight     =   300
  221.       ScaleWidth      =   15240
  222.       TabIndex        =   1
  223.       TabStop         =   0   'False
  224.       Top             =   585
  225.       Width           =   15240
  226.       Begin VB.Label lblTitle 
  227.          BorderStyle     =   1  'Fixed Single
  228.          Caption         =   " 列表视图:"
  229.          Height          =   270
  230.          Index           =   1
  231.          Left            =   2078
  232.          TabIndex        =   3
  233.          Tag             =   " 列表视图:"
  234.          Top             =   12
  235.          Width           =   3216
  236.       End
  237.       Begin VB.Label lblTitle 
  238.          BorderStyle     =   1  'Fixed Single
  239.          Caption         =   " 状态类别:"
  240.          Height          =   270
  241.          Index           =   0
  242.          Left            =   0
  243.          TabIndex        =   2
  244.          Tag             =   " 树形视图:"
  245.          Top             =   12
  246.          Width           =   2016
  247.       End
  248.    End
  249.    Begin MSComctlLib.Toolbar tbToolBar 
  250.       Align           =   1  'Align Top
  251.       Height          =   585
  252.       Left            =   0
  253.       TabIndex        =   0
  254.       Top             =   0
  255.       Width           =   15240
  256.       _ExtentX        =   26882
  257.       _ExtentY        =   1032
  258.       ButtonWidth     =   820
  259.       ButtonHeight    =   979
  260.       Appearance      =   1
  261.       Style           =   1
  262.       ImageList       =   "ImageList1"
  263.       _Version        =   393216
  264.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  265.          NumButtons      =   12
  266.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  267.             Caption         =   "新增"
  268.             Key             =   "new"
  269.             ImageKey        =   "new"
  270.          EndProperty
  271.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  272.             Caption         =   "修改"
  273.             Key             =   "modi"
  274.             ImageKey        =   "xg"
  275.          EndProperty
  276.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  277.             Caption         =   "删除"
  278.             Key             =   "del"
  279.             ImageKey        =   "del"
  280.          EndProperty
  281.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  282.             Caption         =   "查看"
  283.             Key             =   "info"
  284.             ImageKey        =   "info"
  285.          EndProperty
  286.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  287.             Style           =   3
  288.          EndProperty
  289.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  290.             Caption         =   "新增"
  291.             Key             =   "news"
  292.             ImageKey        =   "new"
  293.          EndProperty
  294.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  295.             Caption         =   "修改"
  296.             Key             =   "modis"
  297.             ImageKey        =   "xg"
  298.          EndProperty
  299.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  300.             Caption         =   "删除"
  301.             Key             =   "dels"
  302.             ImageKey        =   "del"
  303.          EndProperty
  304.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  305.             Caption         =   "查看"
  306.             Key             =   "infos"
  307.             ImageKey        =   "info"
  308.          EndProperty
  309.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  310.             Caption         =   "图标"
  311.             Key             =   "view"
  312.             ImageKey        =   "view"
  313.             Style           =   5
  314.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  315.                NumButtonMenus  =   5
  316.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  317.                   Key             =   "dtb"
  318.                   Text            =   "大图标"
  319.                EndProperty
  320.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  321.                   Key             =   "xtb"
  322.                   Text            =   "小图标"
  323.                EndProperty
  324.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  325.                   Key             =   "lb"
  326.                   Text            =   "列表"
  327.                EndProperty
  328.                BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  329.                   Key             =   "xxzl"
  330.                   Text            =   "详细资料"
  331.                EndProperty
  332.                BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  333.                EndProperty
  334.             EndProperty
  335.          EndProperty
  336.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  337.             Style           =   3
  338.          EndProperty
  339.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  340.             Caption         =   "关闭"
  341.             Key             =   "exit"
  342.             ImageKey        =   "exit"
  343.          EndProperty
  344.       EndProperty
  345.    End
  346.    Begin MSComDlg.CommonDialog dlgCommonDialog 
  347.       Left            =   13560
  348.       Top             =   2040
  349.       _ExtentX        =   847
  350.       _ExtentY        =   847
  351.       _Version        =   393216
  352.    End
  353.    Begin MSComctlLib.ImageList imlViewBIcon 
  354.       Left            =   600
  355.       Top             =   0
  356.       _ExtentX        =   1005
  357.       _ExtentY        =   1005
  358.       BackColor       =   -2147483643
  359.       ImageWidth      =   32
  360.       ImageHeight     =   32
  361.       MaskColor       =   12632256
  362.       _Version        =   393216
  363.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  364.          NumListImages   =   17
  365.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  366.             Picture         =   "frmCilent.frx":10642
  367.             Key             =   "boy"
  368.          EndProperty
  369.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.             Picture         =   "frmCilent.frx":10A94
  371.             Key             =   "girl"
  372.          EndProperty
  373.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.             Picture         =   "frmCilent.frx":10EE6
  375.             Key             =   "bboy1"
  376.          EndProperty
  377.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  378.             Picture         =   "frmCilent.frx":11F3A
  379.             Key             =   "bgirl"
  380.          EndProperty
  381.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  382.             Picture         =   "frmCilent.frx":12F8E
  383.             Key             =   "group"
  384.          EndProperty
  385.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.             Picture         =   "frmCilent.frx":15740
  387.             Key             =   "add"
  388.          EndProperty
  389.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.             Picture         =   "frmCilent.frx":15B92
  391.             Key             =   "modify2"
  392.          EndProperty
  393.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.             Picture         =   "frmCilent.frx":15FE4
  395.             Key             =   "modify"
  396.          EndProperty
  397.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.             Picture         =   "frmCilent.frx":162FE
  399.             Key             =   "del"
  400.          EndProperty
  401.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.             Picture         =   "frmCilent.frx":16458
  403.             Key             =   "info"
  404.          EndProperty
  405.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.             Picture         =   "frmCilent.frx":169F2
  407.             Key             =   "info2"
  408.          EndProperty
  409.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.             Picture         =   "frmCilent.frx":18CA4
  411.             Key             =   "search"
  412.          EndProperty
  413.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.             Picture         =   "frmCilent.frx":1923E
  415.             Key             =   "warn"
  416.          EndProperty
  417.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.             Picture         =   "frmCilent.frx":195D8
  419.             Key             =   "setting"
  420.          EndProperty
  421.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.             Picture         =   "frmCilent.frx":198F2
  423.             Key             =   "lstView"
  424.          EndProperty
  425.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.             Picture         =   "frmCilent.frx":19C0C
  427.             Key             =   "exit"
  428.          EndProperty
  429.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.             Picture         =   "frmCilent.frx":1FEA6
  431.             Key             =   "bboy"
  432.          EndProperty
  433.       EndProperty
  434.    End
  435.    Begin MSComctlLib.ImageList imlViewSIcon 
  436.       Left            =   0
  437.       Top             =   0
  438.       _ExtentX        =   1005
  439.       _ExtentY        =   1005
  440.       BackColor       =   -2147483643
  441.       ImageWidth      =   16
  442.       ImageHeight     =   16
  443.       MaskColor       =   12632256
  444.       _Version        =   393216
  445.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  446.          NumListImages   =   7
  447.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.             Picture         =   "frmCilent.frx":20780
  449.             Key             =   "group"
  450.          EndProperty
  451.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.             Picture         =   "frmCilent.frx":20BD2
  453.             Key             =   "group2"
  454.          EndProperty
  455.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.             Picture         =   "frmCilent.frx":23384
  457.             Key             =   "boy"
  458.          EndProperty
  459.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.             Picture         =   "frmCilent.frx":237D6
  461.             Key             =   "girl"
  462.          EndProperty
  463.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.             Picture         =   "frmCilent.frx":23C28
  465.             Key             =   "sboy1"
  466.          EndProperty
  467.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.             Picture         =   "frmCilent.frx":2407C
  469.             Key             =   "sgirl"
  470.          EndProperty
  471.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.             Picture         =   "frmCilent.frx":244D0
  473.             Key             =   "sboy"
  474.          EndProperty
  475.       EndProperty
  476.    End
  477.    Begin VB.Image imgSplitter 
  478.       Height          =   4785
  479.       Left            =   1965
  480.       MousePointer    =   9  'Size W E
  481.       Top             =   945
  482.       Width           =   150
  483.    End
  484. End
  485. Attribute VB_Name = "frmCilent"
  486. Attribute VB_GlobalNameSpace = False
  487. Attribute VB_Creatable = False
  488. Attribute VB_PredeclaredId = True
  489. Attribute VB_Exposed = False
  490. '****************************************************************************
  491. '人人为我，我为人人
  492. '枕善居收藏整理
  493. '发布日期：2008/01/21
  494. '描    述：汽车维修管理系统SQL2000版
  495. '网    站：http://www.Mndsoft.com/  (VB6源码博客)
  496. '网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
  497. 'e-mail  ：Mndsoft@163.com
  498. 'e-mail  ：Mndsoft@126.com
  499. 'OICQ    ：88382850
  500. '          如果您有新的好的代码别忘记给枕善居哦!
  501. '****************************************************************************
  502. Dim mbMoving As Boolean
  503. Const sglSplitLimit = 500
  504. Dim strName As String
  505. Private OK As Boolean               '确定用户按了OK还是CANCEL按钮
  506. Private mvarViewType As gxcViewType '显示类型，即表示当前是添加、查看、修改
  508. Public Sub AddClientToLvw(ByVal objClient As Recordset, _
  509.                           ByRef lvw As ListView, _
  510.                           ByVal IsOverWrite As Boolean)
  511.   Dim itm As ListItem
  512.   Dim sIcon As String
  513.   Dim bIcon As String
  514. '  If objClient("clkSex") = Male Then
  515.     sIcon = "sboy"
  516.     bIcon = "bboy"
  517. '  Else
  518. '    sIcon = "sgirl"
  519. '    bIcon = "bgirl"
  520. '  End If
  521.   
  522.   '如果是更新（即覆盖），则使用当前选种的元素
  523.   If IsOverWrite Then
  524.     Set itm = lvw.SelectedItem
  525.     If itm Is Nothing Then Exit Sub
  526.   Else
  527.     Set itm = lvw.ListItems.Add(, "A" & objClient(0), , bIcon, sIcon)
  528.   End If
  529.   With objClient  '这里要与InitClientListview相对应
  530. '    itm.SmallIcon = sIcon
  531. '    itm.Icon = bIcon
  532.     itm.Text = .Fields(1).Value
  533.     itm.SubItems(1) = .Fields(2).Value
  534.     itm.SubItems(2) = .Fields(3).Value
  535.     itm.SubItems(3) = .Fields(4).Value
  536.     itm.SubItems(4) = .Fields(5).Value
  537.     itm.SubItems(5) = .Fields(6).Value
  538.     itm.SubItems(6) = .Fields(7).Value
  539.     itm.SubItems(7) = .Fields(8).Value
  540.     itm.SubItems(8) = GetValueByID("State", "ID", .Fields("stID").Value, "State")
  541.     itm.SubItems(9) = GetValueByID("Clerk", "clkID", .Fields("clkID").Value, "clkName")
  542.     itm.SubItems(10) = .Fields(11).Value
  543.   End With
  544.   Set itm = Nothing
  545. End Sub
  548. '按照“客户”设置ListView的显示样式
  549. Public Sub InitClientListview(ByRef lvw As ListView)
  550.   With lvw
  551.     .ColumnHeaders.Clear
  552.     '加入四个列首
  553.     .ColumnHeaders.Add , , "车牌号", 1500
  554.     .ColumnHeaders.Add , , "工单号", 2000
  555.     .ColumnHeaders.Add , , "入场时间", 2000
  556.     .ColumnHeaders.Add , , "车型厂牌", 1600
  557.     .ColumnHeaders.Add , , "发动机号", 1600
  558.     .ColumnHeaders.Add , , "底盘号", 1600
  559.     .ColumnHeaders.Add , , "客户姓名", 1000
  560.     .ColumnHeaders.Add , , "联系电话", 1300
  561.     .ColumnHeaders.Add , , "类别", 1300
  562.     .ColumnHeaders.Add , , "接待员", 1000
  563.     .ColumnHeaders.Add , , "维修备注", 2000
  564.   End With
  565. End Sub
  567. '将职员显示到ListView中
  568. Public Sub ClientsToListview(ByVal objClients As Recordset, ByRef lvw As ListView)
  569.   Dim i As Long
  570.   
  571.   If lvw.ColumnHeaders.Count = 0 Then InitClientListview lvw
  572.   lvw.ListItems.Clear '清除当前的列表内容
  573.   
  574.   For i = 1 To objClients.RecordCount
  575.     AddClientToLvw objClients.DataSource, lvw, False
  576.     objClients.MoveNext
  577.   Next i
  578. End Sub
  580. ' 显示全部客户到列表控件
  581. Public Sub ListAllClients(ByRef lvw As ListView)
  582.   Dim rstClients As New Recordset
  583.   
  584.   'Find的两个参数均取默认值，此时查找全部的客户
  585.   Set rstClients = g_Conn.Execute("select ID,carNO,IDN,inDate,carType,MotoNo,MainNo,cName,cTel,stID,clkID,Demo from Client")
  586.   
  587.   '将查找到的客户集合添加到列表控件中
  588.   ClientsToListview rstClients, lvw
  589.   
  590.   Set rstClients = Nothing
  591.   
  592. End Sub
  594. Private Sub cmdAddNews_Click()
  595. frmAddClient.mvarViewType = vtadd
  596. frmAddClient.Show vbModal
  597. If frmAddClient.OK = True Then AddClientToLvw g_Conn.Execute("select ID,carNO,IDN,inDate,carType,MotoNo,MainNo,cName,cTel,stID,clkID,Demo from Client where id='" & MaxID("Client", "ID") & "'"), frmCilent.lvListView, False
  598. End Sub
  600. Private Sub cmdDeletes_Click()
  601. 'If MsgBox("真的要删除“" & lvListView.SelectedItem.Text & "”吗？", vbQuestion + vbYesNo + _
  602.         vbDefaultButton2) = vbNo Then Exit Sub
  603. 'Dim ErrMsg As String
  604. 'If RunSql("Delete from Client where ID=" & GetID(lvListView.SelectedItem.Key), ErrMsg) Then
  605. '    lvListView.ListItems.Remove (lvListView.SelectedItem.Index)
  606. 'Else
  607. '    MsgBox ErrMsg
  608. 'End If
  609. End Sub
  611. Private Sub cmdModifys_Click()
  612. If lvListView.SelectedItem Is Nothing Then Exit Sub
  613. frmAddClient.mvarID = lvListView.SelectedItem.Key
  614. frmAddClient.mvarViewType = vtModify
  615. frmAddClient.Show vbModal
  616. If frmAddClient.OK = True Then AddClientToLvw g_Conn.Execute("select ID,carNO,IDN,inDate,carType,MotoNo,MainNo,cName,cTel,stID,clkID,Demo from Client where id='" & GetID(frmAddClient.mvarID) & "'"), frmCilent.lvListView, True
  617. End Sub
  619. Private Sub cmdAddNew_Click()
  620. Dim sID As Integer
  621. sID = GetID(tvTreeView.SelectedItem.Key)
  622.   strName = Trim(InputBox("请输入状态类别名称:"))
  623.   If strName = "" Then Exit Sub
  624.   If ExistByName("Depart", "DName", strName) Then MsgBox "有重名的状态类别存在，重新命名！", vbOKOnly + vbExclamation: Exit Sub
  625.     Dim ErrMsg As String
  626.     If RunSql("insert into State(State,superID) Values('" & strName & "','" & sID & "')", ErrMsg) Then
  627.       AddTypeToTvw g_Conn.Execute("select ID,superID,State from State where State='" & strName & "'"), tvTreeView
  628.     Else
  629.       MsgBox ErrMsg
  630.     End If
  631. strName = ""
  632. End Sub
  634. Private Sub cmdClose_Click()
  635.    Unload Me
  636. End Sub
  638. Private Sub cmdDelete_Click()
  639. Dim objID As Integer
  640. objID = GetID(tvTreeView.SelectedItem.Key)
  641. If objID = 0 Then Exit Sub
  642.   If MsgBox("真的要删除“" & tvTreeView.SelectedItem.Text & "”吗？", vbQuestion + vbYesNo + _
  643.             vbDefaultButton2) = vbNo Then Exit Sub
  644.   If ExistByID("Client", "stID", objID) Then MsgBox "此类别下有维修车辆存在！不能删除。": Exit Sub
  645.   If ExistByID("State", "superID", objID) Then MsgBox "此类别下有下级存在！不能删除。": Exit Sub
  646.     Dim ErrMsg As String
  647.     If RunSql("Delete from Client where ID='" & objID & "'", ErrMsg) Then
  648.     tvTreeView.Nodes.Remove (tvTreeView.SelectedItem.Index)
  649.     Else
  650.       MsgBox ErrMsg
  651.     End If
  652. End Sub
  654. Private Sub cmdModify_Click()
  655. If tvTreeView.SelectedItem.Key = "A0" Then Exit Sub
  656.   strName = Trim(InputBox("请输入部门名称:", , tvTreeView.SelectedItem.Text))
  657.   If strName = "" Then Exit Sub
  658.   If ExistByName("State", "State", strName) Then
  659.     MsgBox "有重名的类别存在，重新命名！", vbOKOnly + vbExclamation
  660.   Else
  661.     Dim ErrMsg As String
  662.     If RunSql("Update State set State='" & strName & "' where ID=" & GetID(tvTreeView.SelectedItem.Key), ErrMsg) Then
  663.         tvTreeView.SelectedItem.Text = strName
  664.     Else
  665.       MsgBox ErrMsg
  666.     End If
  667.   End If
  668. strName = ""
  669. End Sub
  671. Private Sub Form_Load()
  672.     InitClientListview lvListView '初始化列表
  673. '    ListAllClients lvListView
  674.     TypeToTreeview tvTreeView
  675. End Sub
  677. Private Sub Form_Resize()
  678.     On Error Resume Next
  679.     If Me.Width < 3000 Then Me.Width = 3000
  680.     SizeControls imgSplitter.Left
  681. End Sub
  683. Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  684.     With imgSplitter
  685.         picSplitter.Move .Left, .Top, .Width  2, .Height - 20
  686.     End With
  687.     picSplitter.Visible = True
  688.     mbMoving = True
  689. End Sub
  691. Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  692.     Dim sglPos As Single
  693.     
  694.     If mbMoving Then
  695.         sglPos = x + imgSplitter.Left
  696.         If sglPos < sglSplitLimit Then
  697.             picSplitter.Left = sglSplitLimit
  698.         ElseIf sglPos > Me.Width - sglSplitLimit Then
  699.             picSplitter.Left = Me.Width - sglSplitLimit
  700.         Else
  701.             picSplitter.Left = sglPos
  702.         End If
  703.     End If
  704. End Sub
  706. Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  707.     SizeControls picSplitter.Left
  708.     picSplitter.Visible = False
  709.     mbMoving = False
  710. End Sub
  712. Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
  713.     If Source = imgSplitter Then
  714.         SizeControls x
  715.     End If
  716. End Sub
  718. Sub SizeControls(x As Single)
  719.     On Error Resume Next
  720.     
  721.     '设置 Width 属性
  722.     If x < 1500 Then x = 1500
  723.     If x > (Me.Width - 1500) Then x = Me.Width - 1500
  724.     tvTreeView.Width = x
  725.     imgSplitter.Left = x
  726.     lvListView.Left = x + 40
  727.     lvListView.Width = Me.Width - (tvTreeView.Width + 140)
  728.     lblTitle(0).Width = tvTreeView.Width
  729.     lblTitle(1).Left = lvListView.Left + 20
  730.     lblTitle(1).Width = lvListView.Width - 40
  732.     '设置 Top 属性
  733.   
  734.     If tbToolBar.Visible Then
  735.         tvTreeView.Top = tbToolBar.Height + picTitles.Height
  736.     Else
  737.         tvTreeView.Top = picTitles.Height
  738.     End If
  740.     lvListView.Top = tvTreeView.Top
  741.     
  742.     '设置 height 属性
  743.         tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
  745.     lvListView.Height = tvTreeView.Height
  746.     imgSplitter.Top = tvTreeView.Top
  747.     imgSplitter.Height = tvTreeView.Height
  748. End Sub
  750. '将一个类型加入到树型图中
  751. Public Sub AddTypeToTvw(ByVal objType As Recordset, ByRef tvw As TreeView)
  752.   On Error Resume Next
  753.   If objType(1) = 0 Then
  754.     '“A0”中，第一个为字母A，第二个为数字0
  755.     tvw.Nodes.Add "A0", tvwChild, "A" & objType(0), objType(2), "A1"
  756.   Else
  757.     tvw.Nodes.Add "A" & objType(1), tvwChild, "A" & objType(0), objType(2), "A1"
  758.   End If
  759. End Sub
  761. Public Sub TypeToTreeview(ByRef tvw As TreeView)
  762.   Dim i As Long
  763.   Dim Nd As Node
  764.   Dim Rs As Recordset
  765.   Set Nd = tvw.Nodes.Add(, , "A0", "所有类别", "A0")
  766.   
  767.   Nd.Expanded = True
  768.   Nd.Selected = True
  769.     Set Rs = g_Conn.Execute("select ID,State from State where superID=0")
  770.   For i = 1 To Rs.RecordCount
  771.     Set Nd = tvw.Nodes.Add("A0", tvwChild, "A" & Rs(0), Rs(1), "A1")
  772.     Nd.Expanded = True
  773.     '加载其下级客户类型节点
  774.     LoadSubNodes tvw, Nd, Rs(0)
  775.    Rs.MoveNext
  776.   Next i
  777.   Set Rs = Nothing
  778. End Sub
  780. '调用递归，显示树型的客户类型结构
  781. Private Sub LoadSubNodes(ByRef tvw As TreeView, Nd As Node, NodeID As Long)
  782.   Dim Nd1 As Node
  783.   Dim Rs As New ADODB.Recordset
  784.   Dim i As Long
  785.     Set Rs = g_Conn.Execute("select ID,State from State where SuperID=" & NodeID)      '找到客户类型的所有子客户类型
  786.   For i = 1 To Rs.RecordCount
  787.     Set Nd1 = tvw.Nodes.Add(Nd, tvwChild, "A" & Rs(0), Rs(1), "A1")
  788.     Nd1.Expanded = True
  789.     '递归加载下级客户类型.....
  790.     LoadSubNodes tvw, Nd1, Rs(0)
  791.     Rs.MoveNext
  792.   Next i
  793.     Set Rs = Nothing
  794. End Sub
  796. Private Sub lvListView_DblClick()
  797. If lvListView.SelectedItem Is Nothing Then Exit Sub
  798. frmAddClient.mvarID = lvListView.SelectedItem.Key
  799. frmAddClient.mvarViewType = vtinfo
  800. frmAddClient.Show vbModal
  801. End Sub
  803. Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  804. Select Case Button.Key
  805.     Case "new"
  806.         If g_QX(2) Then cmdAddNew_Click Else MsgBox qMSG
  807.     Case "modi"
  808.         If g_QX(2) Then cmdModify_Click Else MsgBox qMSG
  809.     Case "del"
  810.         If g_QX(2) Then cmdDelete_Click Else MsgBox qMSG
  811.     Case "exit"
  812.         cmdClose_Click
  813.     Case "news"
  814.         If g_QX(3) Then cmdAddNews_Click Else MsgBox qMSG
  815.     Case "modis"
  816.         If g_QX(3) Then cmdModifys_Click Else MsgBox qMSG
  817.     Case "dels"
  818.         If g_QX(3) Then cmdDeletes_Click Else MsgBox qMSG
  819.     Case "infos"
  820.         lvListView_DblClick
  821.     Case "view"
  822.         If lvListView.View = lvwIcon Then
  823.             lvListView.View = lvwSmallIcon
  824.         ElseIf lvListView.View = lvwSmallIcon Then
  825.             lvListView.View = lvwList
  826.         ElseIf lvListView.View = lvwList Then
  827.             lvListView.View = lvwReport
  828.         ElseIf lvListView.View = lvwReport Then
  829.             lvListView.View = lvwIcon
  830.         End If
  831. End Select
  832. End Sub
  834. Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  835. Select Case ButtonMenu.Key
  836.     Case "dtb"
  837.         lvListView.View = lvwIcon
  838.     Case "xtb"
  839.         lvListView.View = lvwSmallIcon
  840.     Case "lb"
  841.         lvListView.View = lvwList
  842.     Case "xxzl"
  843.         lvListView.View = lvwReport
  844. End Select
  845. End Sub
  847. Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
  848. Dim khID As Integer
  849. khID = GetID(Me.tvTreeView.SelectedItem.Key)
  850. Dim Rst As New ADODB.Recordset
  851. If khID = 0 Then
  852.     Set Rst = g_Conn.Execute("select ID,carNO,IDN,inDate,carType,MotoNo,MainNo,cName,cTel,stID,clkID,Demo from Client")
  853. Else
  854.     Set Rst = g_Conn.Execute("select ID,carNO,IDN,inDate,carType,MotoNo,MainNo,cName,cTel,stID,clkID,Demo from Client where stID=" & khID)
  855. End If
  856. ClientsToListview Rst, lvListView
  857.     Set Rst = Nothing
  858. End Sub