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

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

百货/超市行业

开发平台：

Visual Basic

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