frmGS.frm
上传用户:yexiandon
上传日期:2022-07-12
资源大小:895k
文件大小:29k
源码类别:

百货/超市行业

开发平台:

Visual Basic

  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 frmGS 
  5.    Caption         =   "工时信息"
  6.    ClientHeight    =   5940
  7.    ClientLeft      =   1860
  8.    ClientTop       =   5520
  9.    ClientWidth     =   15240
  10.    Icon            =   "frmGS.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   5940
  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         =   "frmGS.frx":08CA
  30.             Key             =   "A2"
  31.          EndProperty
  32.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  33.             Picture         =   "frmGS.frx":11A4
  34.             Key             =   "A1"
  35.          EndProperty
  36.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "frmGS.frx":1C6E
  38.             Key             =   "A0"
  39.          EndProperty
  40.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "frmGS.frx":2548
  42.             Key             =   ""
  43.          EndProperty
  44.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "frmGS.frx":30F2
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "frmGS.frx":368C
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "frmGS.frx":3C26
  54.             Key             =   ""
  55.          EndProperty
  56.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  57.             Picture         =   "frmGS.frx":41C0
  58.             Key             =   "gb"
  59.          EndProperty
  60.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "frmGS.frx":4D0A
  62.             Key             =   ""
  63.          EndProperty
  64.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "frmGS.frx":A92C
  66.             Key             =   ""
  67.          EndProperty
  68.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  69.             Picture         =   "frmGS.frx":AEC6
  70.             Key             =   ""
  71.          EndProperty
  72.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  73.             Picture         =   "frmGS.frx":B020
  74.             Key             =   ""
  75.          EndProperty
  76.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "frmGS.frx":B17A
  78.             Key             =   ""
  79.          EndProperty
  80.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "frmGS.frx":B2D4
  82.             Key             =   "f5"
  83.          EndProperty
  84.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "frmGS.frx":B42E
  86.             Key             =   ""
  87.          EndProperty
  88.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "frmGS.frx":B588
  90.             Key             =   "del"
  91.          EndProperty
  92.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "frmGS.frx":B6E2
  94.             Key             =   "cz"
  95.          EndProperty
  96.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  97.             Picture         =   "frmGS.frx":B83C
  98.             Key             =   ""
  99.          EndProperty
  100.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  101.             Picture         =   "frmGS.frx":B996
  102.             Key             =   "new"
  103.          EndProperty
  104.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "frmGS.frx":BF30
  106.             Key             =   "view"
  107.          EndProperty
  108.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "frmGS.frx":C4CA
  110.             Key             =   ""
  111.          EndProperty
  112.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "frmGS.frx":CA64
  114.             Key             =   "save"
  115.          EndProperty
  116.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "frmGS.frx":CFFE
  118.             Key             =   "cute"
  119.          EndProperty
  120.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "frmGS.frx":D598
  122.             Key             =   "copy"
  123.          EndProperty
  124.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.             Picture         =   "frmGS.frx":DB32
  126.             Key             =   "paste"
  127.          EndProperty
  128.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  129.             Picture         =   "frmGS.frx":E0CC
  130.             Key             =   "xg"
  131.          EndProperty
  132.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "frmGS.frx":E666
  134.             Key             =   "serch"
  135.          EndProperty
  136.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  137.             Picture         =   "frmGS.frx":EC00
  138.             Key             =   "info"
  139.          EndProperty
  140.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  141.             Picture         =   "frmGS.frx":F19A
  142.             Key             =   ""
  143.          EndProperty
  144.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  145.             Picture         =   "frmGS.frx":F734
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  149.             Picture         =   "frmGS.frx":FCCE
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "frmGS.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          =   4920
  163.       Left            =   2040
  164.       ScaleHeight     =   2142.379
  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          =   4920
  174.       Left            =   0
  175.       TabIndex        =   5
  176.       Top             =   945
  177.       Width           =   2010
  178.       _ExtentX        =   3545
  179.       _ExtentY        =   8678
  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          =   4920
  192.       Left            =   2055
  193.       TabIndex        =   4
  194.       Top             =   945
  195.       Width           =   14490
  196.       _ExtentX        =   25559
  197.       _ExtentY        =   8678
  198.       View            =   3
  199.       LabelEdit       =   1
  200.       LabelWrap       =   -1  'True
  201.       HideSelection   =   -1  'True
  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            =   2085
  232.          TabIndex        =   3
  233.          Tag             =   " 列表视图:"
  234.          Top             =   15
  235.          Width           =   12930
  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 ToolBartb 
  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         =   "frmGS.frx":10642
  367.             Key             =   "boy"
  368.          EndProperty
  369.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.             Picture         =   "frmGS.frx":10A94
  371.             Key             =   "girl"
  372.          EndProperty
  373.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.             Picture         =   "frmGS.frx":10EE6
  375.             Key             =   "bboy1"
  376.          EndProperty
  377.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  378.             Picture         =   "frmGS.frx":11F3A
  379.             Key             =   "bgirl"
  380.          EndProperty
  381.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  382.             Picture         =   "frmGS.frx":12F8E
  383.             Key             =   "group"
  384.          EndProperty
  385.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.             Picture         =   "frmGS.frx":15740
  387.             Key             =   "add"
  388.          EndProperty
  389.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.             Picture         =   "frmGS.frx":15B92
  391.             Key             =   "modify2"
  392.          EndProperty
  393.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.             Picture         =   "frmGS.frx":15FE4
  395.             Key             =   "modify"
  396.          EndProperty
  397.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.             Picture         =   "frmGS.frx":162FE
  399.             Key             =   "del"
  400.          EndProperty
  401.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.             Picture         =   "frmGS.frx":16458
  403.             Key             =   "info"
  404.          EndProperty
  405.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.             Picture         =   "frmGS.frx":169F2
  407.             Key             =   "info2"
  408.          EndProperty
  409.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.             Picture         =   "frmGS.frx":18CA4
  411.             Key             =   "search"
  412.          EndProperty
  413.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.             Picture         =   "frmGS.frx":1923E
  415.             Key             =   "warn"
  416.          EndProperty
  417.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.             Picture         =   "frmGS.frx":195D8
  419.             Key             =   "setting"
  420.          EndProperty
  421.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.             Picture         =   "frmGS.frx":198F2
  423.             Key             =   "lstView"
  424.          EndProperty
  425.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.             Picture         =   "frmGS.frx":19C0C
  427.             Key             =   "exit"
  428.          EndProperty
  429.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.             Picture         =   "frmGS.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         =   "frmGS.frx":20AF8
  449.             Key             =   "group"
  450.          EndProperty
  451.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.             Picture         =   "frmGS.frx":20F4A
  453.             Key             =   "group2"
  454.          EndProperty
  455.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.             Picture         =   "frmGS.frx":236FC
  457.             Key             =   "boy"
  458.          EndProperty
  459.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.             Picture         =   "frmGS.frx":23B4E
  461.             Key             =   "girl"
  462.          EndProperty
  463.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.             Picture         =   "frmGS.frx":23FA0
  465.             Key             =   "sboy1"
  466.          EndProperty
  467.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.             Picture         =   "frmGS.frx":243F4
  469.             Key             =   "sgirl"
  470.          EndProperty
  471.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.             Picture         =   "frmGS.frx":24848
  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 = "frmGS"
  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 '显示类型,即表示当前是添加、查看、修改
  507. Const allSQL = "select ID,wName,wFdate,wTdate,wMin,carID,cID,wPrice,wDemo from WeiXiu"
  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("ID"), , 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) = GetValueByID("Client", "ID", .Fields("carID").Value, "carNo")
  534.     itm.SubItems(2) = .Fields(2).Value
  535.     itm.SubItems(3) = .Fields(3).Value
  536.     itm.SubItems(4) = .Fields(4).Value
  537.     itm.SubItems(5) = .Fields(7).Value
  538.     itm.SubItems(6) = .Fields(7).Value * .Fields(4).Value
  539.     itm.SubItems(7) = GetValueByID("Clerk", "clkID", .Fields("cID").Value, "clkName")
  540.     itm.SubItems(8) = .Fields(8).Value
  541.   End With
  542.   Set itm = Nothing
  543. End Sub
  544. '按照“客户”设置ListView的显示样式
  545. Public Sub InitClientListview(ByRef lvw As ListView)
  546.   With lvw
  547.     .ColumnHeaders.Clear
  548.     '加入四个列首
  549.     .ColumnHeaders.Add , , "名称", 1200
  550.     .ColumnHeaders.Add , , "维修车号", 1000
  551.     .ColumnHeaders.Add , , "开始时间", 2100
  552.     .ColumnHeaders.Add , , "结束时间", 2100
  553.     .ColumnHeaders.Add , , "工时", 900
  554.     .ColumnHeaders.Add , , "单价", 800
  555.     .ColumnHeaders.Add , , "金额", 800
  556.     .ColumnHeaders.Add , , "维修人", 800
  557.     .ColumnHeaders.Add , , "备注", 1900
  558.   End With
  559. End Sub
  560. '将职员显示到ListView中
  561. Public Sub ClientsToListview(ByVal objClients As Recordset, ByRef lvw As ListView)
  562.   Dim i As Long
  563.   
  564.   If lvw.ColumnHeaders.Count = 0 Then InitClientListview lvw
  565.   lvw.ListItems.Clear '清除当前的列表内容
  566.   
  567.   For i = 1 To objClients.RecordCount
  568.     AddClientToLvw objClients.DataSource, lvw, False
  569.     objClients.MoveNext
  570.   Next i
  571. End Sub
  572. ' 显示全部客户到列表控件
  573. Public Sub ListAllClients(ByRef lvw As ListView)
  574.   Dim rstClients As New Recordset
  575.   Set rstClients = g_Conn.Execute(allSQL)
  576.   ClientsToListview rstClients, lvw
  577.   Set rstClients = Nothing
  578. End Sub
  579. Private Sub cmdAddNews_Click()
  580. frmAddGS.mvarViewType = vtadd
  581. frmAddGS.carID = GetID(tvTreeView.SelectedItem.Key)
  582. frmAddGS.Show vbModal
  583. If frmAddGS.OK = True Then AddClientToLvw g_Conn.Execute(allSQL & " where id='" & MaxID("WeiXiu", "ID") & "'"), lvListView, False
  584. End Sub
  585. Private Sub cmdDeletes_Click()
  586. If MsgBox("真的要删除“" & lvListView.SelectedItem.Text & "”吗?", vbQuestion + vbYesNo + _
  587.         vbDefaultButton2) = vbNo Then Exit Sub
  588. Dim ErrMsg As String
  589. If RunSql("Delete from WeiXiu where ID=" & GetID(lvListView.SelectedItem.Key), ErrMsg) Then
  590.     lvListView.ListItems.Remove (lvListView.SelectedItem.Index)
  591. Else
  592.     MsgBox ErrMsg
  593. End If
  594. End Sub
  595. Private Sub cmdModifys_Click()
  596. If lvListView.ListItems.Count = 0 Then Exit Sub
  597. frmAddGS.mvarID = lvListView.SelectedItem.Key
  598. frmAddGS.mvarViewType = vtModify
  599. frmAddGS.Show vbModal
  600. If frmAddGS.OK = True Then AddClientToLvw g_Conn.Execute(allSQL & " where id='" & GetID(lvListView.SelectedItem.Key) & "'"), lvListView, True
  601. End Sub
  602. Private Sub cmdAddNew_Click()
  603. End Sub
  604. Private Sub cmdClose_Click()
  605.     Unload Me
  606. End Sub
  607. Private Sub cmdDelete_Click()
  608. End Sub
  609. Private Sub cmdModify_Click()
  610. End Sub
  611. Private Sub Form_Load()
  612.     InitClientListview lvListView '初始化列表
  613. '    ListAllClients lvListView
  614.     TypeToTreeview tvTreeView
  615. End Sub
  616. Private Sub Form_Resize()
  617.     On Error Resume Next
  618.     If Me.Width < 3000 Then Me.Width = 3000
  619.     SizeControls imgSplitter.Left
  620. End Sub
  621. Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  622.     With imgSplitter
  623.         picSplitter.Move .Left, .Top, .Width  2, .Height - 20
  624.     End With
  625.     picSplitter.Visible = True
  626.     mbMoving = True
  627. End Sub
  628. Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  629.     Dim sglPos As Single
  630.     
  631.     If mbMoving Then
  632.         sglPos = x + imgSplitter.Left
  633.         If sglPos < sglSplitLimit Then
  634.             picSplitter.Left = sglSplitLimit
  635.         ElseIf sglPos > Me.Width - sglSplitLimit Then
  636.             picSplitter.Left = Me.Width - sglSplitLimit
  637.         Else
  638.             picSplitter.Left = sglPos
  639.         End If
  640.     End If
  641. End Sub
  642. Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  643.     SizeControls picSplitter.Left
  644.     picSplitter.Visible = False
  645.     mbMoving = False
  646. End Sub
  647. Private Sub TreeView1_DragDrop(Source As Control, x As Single, y As Single)
  648.     If Source = imgSplitter Then
  649.         SizeControls x
  650.     End If
  651. End Sub
  652. Sub SizeControls(x As Single)
  653.     On Error Resume Next
  654.     
  655.     '设置 Width 属性
  656.     If x < 1500 Then x = 1500
  657.     If x > (Me.Width - 1500) Then x = Me.Width - 1500
  658.     tvTreeView.Width = x
  659.     imgSplitter.Left = x
  660.     lvListView.Left = x + 40
  661.     lvListView.Width = Me.Width - (tvTreeView.Width + 140)
  662.     lblTitle(0).Width = tvTreeView.Width
  663.     lblTitle(1).Left = lvListView.Left + 20
  664.     lblTitle(1).Width = lvListView.Width - 40
  665.     '设置 Top 属性
  666.   
  667.     If ToolBartb.Visible Then
  668.         tvTreeView.Top = ToolBartb.Height + picTitles.Height
  669.     Else
  670.         tvTreeView.Top = picTitles.Height
  671.     End If
  672.     lvListView.Top = tvTreeView.Top
  673.     
  674.     '设置 height 属性
  675.         tvTreeView.Height = Me.ScaleHeight - (picTitles.Top + picTitles.Height)
  676.     lvListView.Height = tvTreeView.Height
  677.     imgSplitter.Top = tvTreeView.Top
  678.     imgSplitter.Height = tvTreeView.Height
  679. End Sub
  680. Public Sub TypeToTreeview(ByRef tvw As TreeView)
  681.   Dim i As Long
  682.   Dim Nd As Node
  683.   Dim Rs As Recordset
  684.   Set Nd = tvw.Nodes.Add(, , "A0", "所有车辆", "A0")
  685.   
  686.   Nd.Expanded = True
  687.   Nd.Selected = True
  688. Set Rs = g_Conn.Execute("select ID,carNo from Client")
  689.   For i = 1 To Rs.RecordCount
  690.     Set Nd = tvw.Nodes.Add("A0", tvwChild, "A" & Rs(0), Rs(1), "A1")
  691.     Nd.Expanded = True
  692.     '加载其下级客户类型节点
  693.  '   LoadSubNodes tvw, Nd, super.ID
  694.  Rs.MoveNext
  695.   Next i
  696. End Sub
  697. Public Sub AddTypeToTvw(ByRef tvw As TreeView)
  698.   On Error Resume Next
  699.     tvw.Nodes.Add "A0", tvwChild, "A" & MaxID("Client", "ID"), strName, "A1"
  700. End Sub
  701. Private Sub lvListView_DblClick()
  702. If lvListView.SelectedItem Is Nothing Then Exit Sub
  703. frmAddGS.mvarID = lvListView.SelectedItem.Key
  704. frmAddGS.mvarViewType = vtinfo
  705. frmAddGS.Show vbModal
  706. End Sub
  707. Private Sub ToolBartb_ButtonClick(ByVal Button As MSComctlLib.Button)
  708. Select Case Button.Key
  709.     Case "new"
  710.         cmdAddNew_Click
  711.     Case "modi"
  712.         cmdModify_Click
  713.     Case "del"
  714.         cmdDelete_Click
  715.     Case "exit"
  716.         cmdClose_Click
  717.     Case "news"
  718.         If g_QX(7) Then cmdAddNews_Click Else MsgBox qMSG
  719.     Case "modis"
  720.         If g_QX(7) Then cmdModifys_Click Else MsgBox qMSG
  721.     Case "dels"
  722.         If g_QX(7) Then cmdDeletes_Click Else MsgBox qMSG
  723.     Case "infos"
  724.         lvListView_DblClick
  725.     Case "view"
  726.         If lvListView.View = lvwIcon Then
  727.             lvListView.View = lvwSmallIcon
  728.         ElseIf lvListView.View = lvwSmallIcon Then
  729.             lvListView.View = lvwList
  730.         ElseIf lvListView.View = lvwList Then
  731.             lvListView.View = lvwReport
  732.         ElseIf lvListView.View = lvwReport Then
  733.             lvListView.View = lvwIcon
  734.         End If
  735. End Select
  736. End Sub
  737. Private Sub ToolBartb_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  738. Select Case ButtonMenu.Key
  739.     Case "dtb"
  740.         lvListView.View = lvwIcon
  741.     Case "xtb"
  742.         lvListView.View = lvwSmallIcon
  743.     Case "lb"
  744.         lvListView.View = lvwList
  745.     Case "xxzl"
  746.         lvListView.View = lvwReport
  747. End Select
  748. End Sub
  749. Private Sub tvTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
  750. Dim khID As String
  751. khID = GetID(Me.tvTreeView.SelectedItem.Key)
  752. Dim Rst As New ADODB.Recordset
  753.     If khID = 0 Then
  754.         Set Rst = g_Conn.Execute(allSQL)
  755.     Else
  756.         Set Rst = g_Conn.Execute(allSQL & " where carID=" & khID)
  757.     End If
  758.     ClientsToListview Rst, lvListView
  759. End Sub