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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：34k
源码类别：

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
  3. Begin VB.Form Start_BillListCond 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "单据列表条件"
  6.    ClientHeight    =   4935
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5925
  10.    HelpContextID   =   130202
  11.    Icon            =   "期初_单据列表条件.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4935
  17.    ScaleWidth      =   5925
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CheckBox UnloadCheck 
  20.       Caption         =   "卸载窗体"
  21.       Height          =   615
  22.       Left            =   6150
  23.       TabIndex        =   25
  24.       Top             =   1770
  25.       Width           =   825
  26.    End
  27.    Begin VB.CommandButton QdCommand 
  28.       Caption         =   "确定(&O)"
  29.       Height          =   300
  30.       Left            =   3480
  31.       TabIndex        =   22
  32.       Top             =   4545
  33.       Width           =   1120
  34.    End
  35.    Begin VB.CommandButton QxCommand 
  36.       Caption         =   "取消(&C)"
  37.       Height          =   300
  38.       Left            =   4695
  39.       TabIndex        =   24
  40.       Top             =   4545
  41.       Width           =   1120
  42.    End
  43.    Begin VB.CommandButton Cmd_Clear 
  44.       Caption         =   "全清(&L)"
  45.       Height          =   300
  46.       Left            =   2280
  47.       TabIndex        =   23
  48.       Top             =   4545
  49.       Width           =   1120
  50.    End
  51.    Begin VB.CheckBox Chk_Sum 
  52.       Caption         =   "每张单据输出合计"
  53.       Height          =   315
  54.       Left            =   135
  55.       TabIndex        =   21
  56.       Top             =   4515
  57.       Value           =   1  'Checked
  58.       Width           =   1905
  59.    End
  60.    Begin TabDlg.SSTab Tab_SSTab 
  61.       Height          =   4365
  62.       Left            =   120
  63.       TabIndex        =   26
  64.       Top             =   90
  65.       Width           =   5700
  66.       _ExtentX        =   10054
  67.       _ExtentY        =   7699
  68.       _Version        =   393216
  69.       Style           =   1
  70.       Tabs            =   2
  71.       TabHeight       =   706
  72.       TabCaption(0)   =   "基本条件"
  73.       TabPicture(0)   =   "期初_单据列表条件.frx":1042
  74.       Tab(0).ControlEnabled=   -1  'True
  75.       Tab(0).Control(0)=   "Label1(8)"
  76.       Tab(0).Control(0).Enabled=   0   'False
  77.       Tab(0).Control(1)=   "Label1(12)"
  78.       Tab(0).Control(1).Enabled=   0   'False
  79.       Tab(0).Control(2)=   "Line1(1)"
  80.       Tab(0).Control(2).Enabled=   0   'False
  81.       Tab(0).Control(3)=   "Label1(7)"
  82.       Tab(0).Control(3).Enabled=   0   'False
  83.       Tab(0).Control(4)=   "Label1(6)"
  84.       Tab(0).Control(4).Enabled=   0   'False
  85.       Tab(0).Control(5)=   "Label1(4)"
  86.       Tab(0).Control(5).Enabled=   0   'False
  87.       Tab(0).Control(6)=   "Line1(0)"
  88.       Tab(0).Control(6).Enabled=   0   'False
  89.       Tab(0).Control(7)=   "Label1(3)"
  90.       Tab(0).Control(7).Enabled=   0   'False
  91.       Tab(0).Control(8)=   "Line2(0)"
  92.       Tab(0).Control(8).Enabled=   0   'False
  93.       Tab(0).Control(9)=   "Label1(5)"
  94.       Tab(0).Control(9).Enabled=   0   'False
  95.       Tab(0).Control(10)=   "Label1(13)"
  96.       Tab(0).Control(10).Enabled=   0   'False
  97.       Tab(0).Control(11)=   "Ydcommand1(9)"
  98.       Tab(0).Control(11).Enabled=   0   'False
  99.       Tab(0).Control(12)=   "Ydcommand1(8)"
  100.       Tab(0).Control(12).Enabled=   0   'False
  101.       Tab(0).Control(13)=   "Ydcommand1(4)"
  102.       Tab(0).Control(13).Enabled=   0   'False
  103.       Tab(0).Control(14)=   "Ydcommand1(3)"
  104.       Tab(0).Control(14).Enabled=   0   'False
  105.       Tab(0).Control(15)=   "Ydcommand1(0)"
  106.       Tab(0).Control(15).Enabled=   0   'False
  107.       Tab(0).Control(16)=   "LrText(9)"
  108.       Tab(0).Control(16).Enabled=   0   'False
  109.       Tab(0).Control(17)=   "LrText(6)"
  110.       Tab(0).Control(17).Enabled=   0   'False
  111.       Tab(0).Control(18)=   "LrText(8)"
  112.       Tab(0).Control(18).Enabled=   0   'False
  113.       Tab(0).Control(19)=   "LrText(7)"
  114.       Tab(0).Control(19).Enabled=   0   'False
  115.       Tab(0).Control(20)=   "LrText(3)"
  116.       Tab(0).Control(20).Enabled=   0   'False
  117.       Tab(0).Control(21)=   "LrText(4)"
  118.       Tab(0).Control(21).Enabled=   0   'False
  119.       Tab(0).Control(22)=   "LrText(0)"
  120.       Tab(0).Control(22).Enabled=   0   'False
  121.       Tab(0).Control(23)=   "LrText(2)"
  122.       Tab(0).Control(23).Enabled=   0   'False
  123.       Tab(0).Control(24)=   "LrText(1)"
  124.       Tab(0).Control(24).Enabled=   0   'False
  125.       Tab(0).Control(25)=   "Ydcommand1(6)"
  126.       Tab(0).Control(25).Enabled=   0   'False
  127.       Tab(0).Control(26)=   "Ydcommand1(7)"
  128.       Tab(0).Control(26).Enabled=   0   'False
  129.       Tab(0).Control(27)=   "LrText(10)"
  130.       Tab(0).Control(27).Enabled=   0   'False
  131.       Tab(0).Control(28)=   "Ydcommand1(10)"
  132.       Tab(0).Control(28).Enabled=   0   'False
  133.       Tab(0).Control(29)=   "Frame1(1)"
  134.       Tab(0).Control(29).Enabled=   0   'False
  135.       Tab(0).Control(30)=   "LrText(5)"
  136.       Tab(0).Control(30).Enabled=   0   'False
  137.       Tab(0).Control(31)=   "Ydcommand1(5)"
  138.       Tab(0).Control(31).Enabled=   0   'False
  139.       Tab(0).ControlCount=   32
  140.       TabCaption(1)   =   "辅助条件"
  141.       TabPicture(1)   =   "期初_单据列表条件.frx":105E
  142.       Tab(1).ControlEnabled=   0   'False
  143.       Tab(1).Control(0)=   "LrText(17)"
  144.       Tab(1).Control(1)=   "LrText(12)"
  145.       Tab(1).Control(2)=   "LrText(13)"
  146.       Tab(1).Control(3)=   "LrText(14)"
  147.       Tab(1).Control(4)=   "LrText(11)"
  148.       Tab(1).Control(5)=   "LrText(16)"
  149.       Tab(1).Control(6)=   "LrText(15)"
  150.       Tab(1).Control(7)=   "Ydcommand1(15)"
  151.       Tab(1).Control(8)=   "Ydcommand1(16)"
  152.       Tab(1).Control(9)=   "Ydcommand1(17)"
  153.       Tab(1).Control(10)=   "Line4"
  154.       Tab(1).Control(11)=   "Line3"
  155.       Tab(1).Control(12)=   "Label1(11)"
  156.       Tab(1).Control(13)=   "Label1(10)"
  157.       Tab(1).Control(14)=   "Label1(2)"
  158.       Tab(1).Control(15)=   "Label1(1)"
  159.       Tab(1).Control(16)=   "Label1(0)"
  160.       Tab(1).ControlCount=   17
  161.       Begin VB.CommandButton Ydcommand1 
  162.          Height          =   300
  163.          Index           =   5
  164.          Left            =   5250
  165.          Picture         =   "期初_单据列表条件.frx":107A
  166.          Style           =   1  'Graphical
  167.          TabIndex        =   53
  168.          Top             =   1680
  169.          Width           =   300
  170.       End
  171.       Begin VB.TextBox LrText 
  172.          Height          =   300
  173.          Index           =   5
  174.          Left            =   990
  175.          TabIndex        =   5
  176.          Text            =   "5"
  177.          Top             =   1680
  178.          Width           =   4260
  179.       End
  180.       Begin VB.TextBox LrText 
  181.          Height          =   300
  182.          Index           =   17
  183.          Left            =   -74190
  184.          TabIndex        =   20
  185.          Text            =   "17"
  186.          Top             =   2100
  187.          Width           =   4455
  188.       End
  189.       Begin VB.TextBox LrText 
  190.          Height          =   300
  191.          Index           =   12
  192.          Left            =   -71640
  193.          TabIndex        =   15
  194.          Text            =   "12"
  195.          Top             =   660
  196.          Width           =   2205
  197.       End
  198.       Begin VB.TextBox LrText 
  199.          Height          =   300
  200.          Index           =   13
  201.          Left            =   -74190
  202.          TabIndex        =   16
  203.          Text            =   "13"
  204.          Top             =   1020
  205.          Width           =   2175
  206.       End
  207.       Begin VB.TextBox LrText 
  208.          Height          =   300
  209.          Index           =   14
  210.          Left            =   -71640
  211.          TabIndex        =   17
  212.          Text            =   "14"
  213.          Top             =   1020
  214.          Width           =   2205
  215.       End
  216.       Begin VB.TextBox LrText 
  217.          Height          =   300
  218.          Index           =   11
  219.          Left            =   -74190
  220.          TabIndex        =   14
  221.          Text            =   "11"
  222.          Top             =   660
  223.          Width           =   2175
  224.       End
  225.       Begin VB.TextBox LrText 
  226.          Height          =   300
  227.          Index           =   16
  228.          Left            =   -74190
  229.          TabIndex        =   19
  230.          Text            =   "16"
  231.          Top             =   1740
  232.          Width           =   4455
  233.       End
  234.       Begin VB.TextBox LrText 
  235.          Height          =   300
  236.          Index           =   15
  237.          Left            =   -74190
  238.          TabIndex        =   18
  239.          Text            =   "15"
  240.          Top             =   1380
  241.          Width           =   4455
  242.       End
  243.       Begin VB.Frame Frame1 
  244.          Caption         =   "记帐状态"
  245.          Height          =   585
  246.          Index           =   1
  247.          Left            =   150
  248.          TabIndex        =   38
  249.          Top             =   3570
  250.          Width           =   5415
  251.          Begin VB.OptionButton Opt_Check 
  252.             Caption         =   "全部"
  253.             Height          =   195
  254.             Index           =   0
  255.             Left            =   330
  256.             TabIndex        =   11
  257.             Top             =   270
  258.             Value           =   -1  'True
  259.             Width           =   855
  260.          End
  261.          Begin VB.OptionButton Opt_Check 
  262.             Caption         =   "已记帐"
  263.             Height          =   195
  264.             Index           =   1
  265.             Left            =   2160
  266.             TabIndex        =   12
  267.             Top             =   270
  268.             Width           =   975
  269.          End
  270.          Begin VB.OptionButton Opt_Check 
  271.             Caption         =   "未记帐"
  272.             Height          =   195
  273.             Index           =   2
  274.             Left            =   4095
  275.             TabIndex        =   13
  276.             Top             =   270
  277.             Width           =   915
  278.          End
  279.       End
  280.       Begin VB.CommandButton Ydcommand1 
  281.          Height          =   300
  282.          Index           =   10
  283.          Left            =   5250
  284.          Picture         =   "期初_单据列表条件.frx":1404
  285.          Style           =   1  'Graphical
  286.          TabIndex        =   37
  287.          Top             =   3120
  288.          Width           =   300
  289.       End
  290.       Begin VB.TextBox LrText 
  291.          Height          =   300
  292.          Index           =   10
  293.          Left            =   990
  294.          TabIndex        =   10
  295.          Text            =   "10"
  296.          Top             =   3120
  297.          Width           =   4260
  298.       End
  299.       Begin VB.CommandButton Ydcommand1 
  300.          Height          =   300
  301.          Index           =   7
  302.          Left            =   5250
  303.          Picture         =   "期初_单据列表条件.frx":178E
  304.          Style           =   1  'Graphical
  305.          TabIndex        =   36
  306.          Top             =   2040
  307.          Width           =   300
  308.       End
  309.       Begin VB.CommandButton Ydcommand1 
  310.          Height          =   300
  311.          Index           =   6
  312.          Left            =   2790
  313.          Picture         =   "期初_单据列表条件.frx":1B18
  314.          Style           =   1  'Graphical
  315.          TabIndex        =   35
  316.          Top             =   2040
  317.          Width           =   300
  318.       End
  319.       Begin VB.TextBox LrText 
  320.          Height          =   300
  321.          Index           =   1
  322.          Left            =   990
  323.          TabIndex        =   1
  324.          Text            =   "1"
  325.          Top             =   960
  326.          Width           =   2085
  327.       End
  328.       Begin VB.TextBox LrText 
  329.          Height          =   300
  330.          Index           =   2
  331.          Left            =   3495
  332.          TabIndex        =   2
  333.          Text            =   "2"
  334.          Top             =   960
  335.          Width           =   2055
  336.       End
  337.       Begin VB.TextBox LrText 
  338.          Height          =   300
  339.          Index           =   0
  340.          Left            =   990
  341.          TabIndex        =   0
  342.          Text            =   "0"
  343.          Top             =   600
  344.          Width           =   4260
  345.       End
  346.       Begin VB.TextBox LrText 
  347.          Height          =   300
  348.          Index           =   4
  349.          Left            =   3510
  350.          TabIndex        =   4
  351.          Text            =   "4"
  352.          Top             =   1320
  353.          Width           =   1755
  354.       End
  355.       Begin VB.TextBox LrText 
  356.          Height          =   300
  357.          Index           =   3
  358.          Left            =   990
  359.          TabIndex        =   3
  360.          Text            =   "3"
  361.          Top             =   1320
  362.          Width           =   1815
  363.       End
  364.       Begin VB.TextBox LrText 
  365.          BackColor       =   &H00FFFFFF&
  366.          Height          =   300
  367.          Index           =   7
  368.          Left            =   3510
  369.          TabIndex        =   7
  370.          Text            =   "7"
  371.          Top             =   2040
  372.          Width           =   1755
  373.       End
  374.       Begin VB.TextBox LrText 
  375.          BackColor       =   &H00FFFFFF&
  376.          Height          =   300
  377.          Index           =   8
  378.          Left            =   990
  379.          TabIndex        =   8
  380.          Text            =   "8"
  381.          Top             =   2400
  382.          Width           =   4260
  383.       End
  384.       Begin VB.TextBox LrText 
  385.          Height          =   300
  386.          Index           =   6
  387.          Left            =   990
  388.          TabIndex        =   6
  389.          Text            =   "6"
  390.          Top             =   2040
  391.          Width           =   1815
  392.       End
  393.       Begin VB.TextBox LrText 
  394.          BackColor       =   &H00FFFFFF&
  395.          Height          =   300
  396.          Index           =   9
  397.          Left            =   990
  398.          TabIndex        =   9
  399.          Text            =   "9"
  400.          Top             =   2760
  401.          Width           =   4260
  402.       End
  403.       Begin VB.CommandButton Ydcommand1 
  404.          Height          =   300
  405.          Index           =   0
  406.          Left            =   5250
  407.          Picture         =   "期初_单据列表条件.frx":1EA2
  408.          Style           =   1  'Graphical
  409.          TabIndex        =   34
  410.          Top             =   600
  411.          Width           =   300
  412.       End
  413.       Begin VB.CommandButton Ydcommand1 
  414.          Height          =   300
  415.          Index           =   3
  416.          Left            =   2790
  417.          Picture         =   "期初_单据列表条件.frx":222C
  418.          Style           =   1  'Graphical
  419.          TabIndex        =   33
  420.          Top             =   1320
  421.          Width           =   300
  422.       End
  423.       Begin VB.CommandButton Ydcommand1 
  424.          Height          =   300
  425.          Index           =   4
  426.          Left            =   5250
  427.          Picture         =   "期初_单据列表条件.frx":25B6
  428.          Style           =   1  'Graphical
  429.          TabIndex        =   32
  430.          Top             =   1320
  431.          Width           =   300
  432.       End
  433.       Begin VB.CommandButton Ydcommand1 
  434.          Height          =   300
  435.          Index           =   8
  436.          Left            =   5250
  437.          Picture         =   "期初_单据列表条件.frx":2940
  438.          Style           =   1  'Graphical
  439.          TabIndex        =   31
  440.          Top             =   2430
  441.          Width           =   300
  442.       End
  443.       Begin VB.CommandButton Ydcommand1 
  444.          Height          =   300
  445.          Index           =   9
  446.          Left            =   5250
  447.          Picture         =   "期初_单据列表条件.frx":2CCA
  448.          Style           =   1  'Graphical
  449.          TabIndex        =   30
  450.          Top             =   2760
  451.          Width           =   300
  452.       End
  453.       Begin VB.CommandButton Ydcommand1 
  454.          Height          =   300
  455.          Index           =   15
  456.          Left            =   -69750
  457.          Picture         =   "期初_单据列表条件.frx":3054
  458.          Style           =   1  'Graphical
  459.          TabIndex        =   29
  460.          Top             =   1380
  461.          Width           =   300
  462.       End
  463.       Begin VB.CommandButton Ydcommand1 
  464.          Height          =   300
  465.          Index           =   16
  466.          Left            =   -69750
  467.          Picture         =   "期初_单据列表条件.frx":33DE
  468.          Style           =   1  'Graphical
  469.          TabIndex        =   28
  470.          Top             =   1740
  471.          Width           =   300
  472.       End
  473.       Begin VB.CommandButton Ydcommand1 
  474.          Height          =   300
  475.          Index           =   17
  476.          Left            =   -69750
  477.          Picture         =   "期初_单据列表条件.frx":3768
  478.          Style           =   1  'Graphical
  479.          TabIndex        =   27
  480.          Top             =   2100
  481.          Width           =   300
  482.       End
  483.       Begin VB.Label Label1 
  484.          AutoSize        =   -1  'True
  485.          Caption         =   "存货分类:"
  486.          Height          =   195
  487.          Index           =   13
  488.          Left            =   135
  489.          TabIndex        =   52
  490.          Top             =   1740
  491.          Width           =   765
  492.       End
  493.       Begin VB.Line Line4 
  494.          X1              =   -71910
  495.          X2              =   -71760
  496.          Y1              =   1170
  497.          Y2              =   1170
  498.       End
  499.       Begin VB.Line Line3 
  500.          X1              =   -71910
  501.          X2              =   -71760
  502.          Y1              =   810
  503.          Y2              =   810
  504.       End
  505.       Begin VB.Label Label1 
  506.          AutoSize        =   -1  'True
  507.          Caption         =   "记帐人:"
  508.          Height          =   195
  509.          Index           =   11
  510.          Left            =   -74865
  511.          TabIndex        =   51
  512.          Top             =   2160
  513.          Width           =   585
  514.       End
  515.       Begin VB.Label Label1 
  516.          AutoSize        =   -1  'True
  517.          Caption         =   "制单人:"
  518.          Height          =   195
  519.          Index           =   10
  520.          Left            =   -74865
  521.          TabIndex        =   50
  522.          Top             =   1800
  523.          Width           =   585
  524.       End
  525.       Begin VB.Label Label1 
  526.          AutoSize        =   -1  'True
  527.          Caption         =   "业务员:"
  528.          Height          =   195
  529.          Index           =   2
  530.          Left            =   -74865
  531.          TabIndex        =   49
  532.          Top             =   1440
  533.          Width           =   585
  534.       End
  535.       Begin VB.Label Label1 
  536.          AutoSize        =   -1  'True
  537.          Caption         =   "金额:"
  538.          Height          =   195
  539.          Index           =   1
  540.          Left            =   -74865
  541.          TabIndex        =   48
  542.          Top             =   1080
  543.          Width           =   405
  544.       End
  545.       Begin VB.Label Label1 
  546.          AutoSize        =   -1  'True
  547.          Caption         =   "数量:"
  548.          Height          =   195
  549.          Index           =   0
  550.          Left            =   -74865
  551.          TabIndex        =   47
  552.          Top             =   720
  553.          Width           =   405
  554.       End
  555.       Begin VB.Label Label1 
  556.          AutoSize        =   -1  'True
  557.          Caption         =   "存货编码:"
  558.          Height          =   195
  559.          Index           =   5
  560.          Left            =   135
  561.          TabIndex        =   46
  562.          Top             =   2100
  563.          Width           =   765
  564.       End
  565.       Begin VB.Line Line2 
  566.          Index           =   0
  567.          X1              =   3210
  568.          X2              =   3375
  569.          Y1              =   2175
  570.          Y2              =   2175
  571.       End
  572.       Begin VB.Label Label1 
  573.          AutoSize        =   -1  'True
  574.          Caption         =   "供应商:"
  575.          Height          =   180
  576.          Index           =   3
  577.          Left            =   135
  578.          TabIndex        =   45
  579.          Top             =   2460
  580.          Width           =   630
  581.       End
  582.       Begin VB.Line Line1 
  583.          Index           =   0
  584.          X1              =   3210
  585.          X2              =   3375
  586.          Y1              =   1140
  587.          Y2              =   1140
  588.       End
  589.       Begin VB.Label Label1 
  590.          AutoSize        =   -1  'True
  591.          Caption         =   "单据号:"
  592.          Height          =   180
  593.          Index           =   4
  594.          Left            =   135
  595.          TabIndex        =   44
  596.          Top             =   1020
  597.          Width           =   630
  598.       End
  599.       Begin VB.Label Label1 
  600.          AutoSize        =   -1  'True
  601.          Caption         =   "仓库:"
  602.          Height          =   180
  603.          Index           =   6
  604.          Left            =   135
  605.          TabIndex        =   43
  606.          Top             =   660
  607.          Width           =   450
  608.       End
  609.       Begin VB.Label Label1 
  610.          AutoSize        =   -1  'True
  611.          Caption         =   "入库日期:"
  612.          Height          =   180
  613.          Index           =   7
  614.          Left            =   135
  615.          TabIndex        =   42
  616.          Top             =   1380
  617.          Width           =   810
  618.       End
  619.       Begin VB.Line Line1 
  620.          Index           =   1
  621.          X1              =   3210
  622.          X2              =   3375
  623.          Y1              =   1470
  624.          Y2              =   1470
  625.       End
  626.       Begin VB.Label Label1 
  627.          AutoSize        =   -1  'True
  628.          Caption         =   "入库类别:"
  629.          Height          =   180
  630.          Index           =   12
  631.          Left            =   135
  632.          TabIndex        =   41
  633.          Top             =   3180
  634.          Width           =   810
  635.       End
  636.       Begin VB.Label Label1 
  637.          AutoSize        =   -1  'True
  638.          Caption         =   "部门:"
  639.          Height          =   180
  640.          Index           =   8
  641.          Left            =   135
  642.          TabIndex        =   40
  643.          Top             =   2820
  644.          Width           =   450
  645.       End
  646.       Begin VB.Label Label1 
  647.          AutoSize        =   -1  'True
  648.          Caption         =   "保管员:"
  649.          Height          =   180
  650.          Index           =   9
  651.          Left            =   -74805
  652.          TabIndex        =   39
  653.          Top             =   2640
  654.          Width           =   630
  655.       End
  656.    End
  657. End
  658. Attribute VB_Name = "Start_BillListCond"
  659. Attribute VB_GlobalNameSpace = False
  660. Attribute VB_Creatable = False
  661. Attribute VB_PredeclaredId = True
  662. Attribute VB_Exposed = False
  663. '******************************************************************
  664. '*    模 块 名 称 :单据列表查询条件
  665. '*    功 能 描 述 :
  666. '*    程序员姓名  :白凤英
  667. '*    最后修改人  :白凤英
  668. '*    最后修改时间:2001/11/26
  669. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  670. '******************************************************************
  671. Dim Tsxx As String                       '系统信息提示
  673. '以下为固定使用变量(文本框)
  674. Dim Textvar() As Variant                 '存储变体型文本框信息
  675. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  676. Dim Textint() As Integer                 '存储整型文本框信息
  677. Dim Textstr() As String                  '存储字符型文本框信息
  678. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  679. Dim TextGroupCode As String              '文本框录入分组编码
  680. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  681. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  682. Dim CurTextIndex As Integer              '当前文本框索引值
  683. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  684. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  686. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移(Fixed)
  687.     Dim jdzygs As Integer                         '控件焦点转移个数
  688.     jdzygs = 30
  689.     Select Case KeyAscii
  690.         Case vbKeyReturn
  691.             If Kjjdzy(jdzygs) Then
  692.                 KeyAscii = 0
  693.             End If
  694.         Case 39           '屏蔽"'"
  695.             KeyAscii = 0
  696.     End Select
  698. End Sub
  700. Private Sub Form_Load()
  701. Dim Rectemp As Recordset
  702.    
  703.     '以下为文本框处理程序(Fixed)
  704.     TextGroupCode = "Chhs_StartBilListCon"
  705.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  706.     Call Wbkcsh
  707.    
  708.     '[>>初始化查询条件默认值
  709.     LrText(3).Text = Format(Xtrq, "yyyy-mm-dd")
  710.     LrText(4).Text = Format(Xtrq, "yyyy-mm-dd")
  711.     
  712.     Tab_SSTab.Tab = 0
  713.     '<<]
  714.    
  715. End Sub
  717. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)          '查询条件窗体卸载
  719.     '查询条件窗体卸载时判断是否因为结果窗体卸载,如是则卸载,否则隐藏
  720.     If UnloadCheck.Value <> 1 Then
  721.         Cancel = 1
  722.         Me.Hide
  723.     End If
  724.     
  725. End Sub
  727. Private Sub QdCommand_Click()                                   '确 定
  729.     '录入条件有效性判断(Fixed)
  730.     If Not Lrtjyxxpd Then
  731.         Exit Sub
  732.     End If
  733.     Me.Hide
  734.         
  735.     '[>>激活查询过程结果窗体
  736.     
  737.     Start_BillInputList.Timer1.Enabled = True
  738.     Start_BillInputList.SetFocus
  739.     
  740.     '<<]
  741. End Sub
  743. Private Sub QxCommand_Click()                                    '取消(Fixed)
  744.     Me.Hide
  745.     With Start_BillInputList
  746.         If .CxbbGrid.Rows = .CxbbGrid.FixedRows Then
  747.             .SzToolbar.Buttons("Bill").Enabled = False
  748.             .SzToolbar.Buttons("sc").Enabled = False
  749.         End If
  750.     End With
  751. End Sub
  753. Private Function Lrtjyxxpd() As Boolean                          '用户录入条件有效性判断
  754.     Dim Jsqte As Integer
  755.     Lrtjyxxpd = False
  756.  
  757.     '对需要进行事后判断的文本框录入内容进行有效性判断 (Fixed)
  758.     For Jsqte = 0 To Max_Text_Index
  759.         If Textint(Jsqte, 9) = 0 Or Textint(Jsqte, 9) = 2 Then
  760.             If Not TextYxxpd(Jsqte) Then
  761.                 Exit Function
  762.             End If
  763.         End If
  764.     Next Jsqte
  765.    
  766.     '[>>以下为依据实际情况自定义部分
  767.  
  768.     '查询日期范围应由小到大
  769.     If LrText(1).Text > LrText(2).Text And Trim(LrText(2).Text) <> "" Then
  770.         Tsxx = "查询单据号范围应由小到大!"
  771.         Call Xtxxts(Tsxx, 0, 4)
  772.         LrText(1).SetFocus
  773.         Exit Function
  774.     End If
  775.     If LrText(3).Text > LrText(4).Text And Trim(LrText(4).Text) <> "" Then
  776.         Tsxx = "查询入库日期范围应由小到大!"
  777.         Call Xtxxts(Tsxx, 0, 4)
  778.         LrText(3).SetFocus
  779.         Exit Function
  780.     End If
  781.     If LrText(6).Text > LrText(7).Text And Trim(LrText(7).Text) <> "" Then
  782.         Tsxx = "查询存货编码范围应由小到大!"
  783.         Call Xtxxts(Tsxx, 0, 4)
  784.         LrText(6).SetFocus
  785.         Exit Function
  786.     End If
  787.     If LrText(11).Text > LrText(12).Text And Trim(LrText(12).Text) <> "" Then
  788.         Tsxx = "查询数量范围应由小到大!"
  789.         Call Xtxxts(Tsxx, 0, 4)
  790.         LrText(11).SetFocus
  791.         Exit Function
  792.     End If
  793.     If LrText(13).Text > LrText(14).Text And Trim(LrText(14).Text) <> "" Then
  794.         Tsxx = "查询金额范围应由小到大!"
  795.         Call Xtxxts(Tsxx, 0, 4)
  796.         LrText(13).SetFocus
  797.         Exit Function
  798.     End If
  799.   
  800.     '<<]以上为依据实际情况自定义部分
  801.  
  802.     Lrtjyxxpd = True
  804. End Function
  806. Private Sub Cmd_Clear_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)    '将用户输入条件全部清除(可选)
  808.     '清除文本框(Fixed)
  809.     For Jsqte = 0 To Max_Text_Index
  810.         LrText(Jsqte).Tag = ""
  811.         LrText(Jsqte).Text = ""
  812.     Next Jsqte
  813.     
  814.     Opt_Check(0).Value = True
  815.   
  816.     '[>>
  817.     '此处可以写入其他清除条件程序
  818.     '<<]
  819.   
  820. End Sub
  822. '*************以下为文本框录入处理程序(固定不变部分)*************'
  824. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  825.   
  826.     '以下为依据实际情况自定义部分[
  827.     '在此填写文本框录入事后处理程序
  828.     ']以上为依据实际情况自定义部分
  829.   
  830. End Sub
  832. Private Sub LrText_Change(Index As Integer)
  833.    
  834.     '屏蔽程序改变控制
  835.     If TextChangeLock Then
  836.         Exit Sub
  837.     End If
  838.     
  839.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  840.     
  841.     '限制字段录入长度
  842.           
  843.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  844.         
  845.     Select Case Textint(Index, 1)
  846.         Case 8, 11      '金额型
  847.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  848.         Case 9, 12      '数量型
  849.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  850.         Case 10          '单价型
  851.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  852.         Case Else        '其他小数类型控制
  853.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  854.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  855.             End If
  856.     End Select
  857.         
  858.     TextChangeLock = False '解锁
  860. End Sub
  862. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  863.     Call TextShow(Index)
  864.     CurTextIndex = Index
  865.     LrText(Index).SelStart = Len(LrText(Index))
  866. End Sub
  868. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  869.     
  870.     Select Case KeyCode
  871.         Case vbKeyF2
  872.             Call Text_Help(Index)
  873.     End Select
  875. End Sub
  877. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  878.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  879. End Sub
  881. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  883.     '显示相应信息但不能进行有效性判断
  884.   
  885. End Sub
  887. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  888.     Call Text_Help(Index)
  889. End Sub
  891. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  892.     If Not Textboolean(Index, 1) Then
  893.         Exit Sub
  894.     End If
  895.      
  896.     '调用帮助
  897.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  898.   
  899.     '根据设置选择显示编码和名称,并进行存储
  900.     If Len(Xtfhcs) <> 0 Then
  901.         If Textint(Index, 3) = 1 Then
  902.             LrText(Index).Text = Xtfhcsfz
  903.             LrText(Index).Tag = Xtfhcs
  904.         Else
  905.             LrText(Index).Text = Xtfhcs
  906.             LrText(Index).Tag = Xtfhcsfz
  907.         End If
  908.     End If
  909.    
  910.     LrText(Index).SetFocus
  912. End Sub
  914. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  916.     '填写文本框得到焦点,进行相应信息处理程序
  917.    
  918. End Sub
  920. Private Sub Wbkcsh()                          '录入文本框初始化
  921.     
  922.     Dim Jsqte As Integer
  923.   
  924.     '最大录入文本框索引值
  925.     Max_Text_Index = Textvar(1)
  926.   
  927.     ReDim TextValiJudgeLock(Max_Text_Index)
  928.     For Jsqte = 0 To Max_Text_Index
  929.         If Len(Trim(Textstr(Jsqte, 1))) <> 0 Then
  930.             If Textboolean(Jsqte, 1) Then
  931.                 If Jsqte <> 0 And Not Textboolean(Jsqte, 3) Then
  932.                     Load Ydcommand1(Jsqte)
  933.                 End If
  934.                 Ydcommand1(Jsqte).Visible = True
  935.                 Ydcommand1(Jsqte).Move LrText(Jsqte).Left + LrText(Jsqte).Width, LrText(Jsqte).Top
  936.             End If
  937.             TextChangeLock = True
  938.             LrText(Jsqte).Text = ""
  939.             LrText(Jsqte).Tag = ""
  940.             If Textint(Jsqte, 5) <> 0 Then
  941.                 LrText(Jsqte).MaxLength = Textint(Jsqte, 5)
  942.             End If
  943.             TextChangeLock = False
  944.         End If
  945.         TextValiJudgeLock(Jsqte) = True
  946.     Next Jsqte
  948. End Sub
  950. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  951.     
  952.     Dim SqlStr As String
  953.     Dim Findrec As ADODB.Recordset
  954.   
  955.     '文本框内容未曾改变不进行有效性判断
  956.     If TextValiJudgeLock(Index) Then
  957.         TextYxxpd = True
  958.         Exit Function
  959.     End If
  960.   
  961.     '文本框内容为空认为有效,并清空其Tag值
  962.     If Trim(LrText(Index)) = "" Then
  963.         LrText(Index).Tag = ""
  964.         Call Wbklrwbcl(Index)
  965.         TextValiJudgeLock(Index) = True
  966.         TextYxxpd = True
  967.         Exit Function
  968.     End If
  969.   
  970.     '可在此加入不做有效性判断的理由
  971.   
  972.     Select Case Textint(Index, 4)
  973.         Case 1      '编码型
  974.             SqlStr = Trim(Textstr(Index, 5))
  975.             SqlStr = Replace(SqlStr, "@", "'" + Trim(LrText(Index).Text) + "'")
  976.             SqlStr = Replace(SqlStr, "$$", "'" + Xtczybm + "'")
  977.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  978.             If Findrec.EOF Then
  979.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  980.                 LrText(Index).SetFocus
  981.                 Exit Function
  982.             Else
  983.                 Select Case Textint(Index, 3)
  984.                     Case 0
  985.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  986.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  987.                         End If
  988.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  989.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  990.                         End If
  991.                     Case 1
  992.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  993.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  994.                         End If
  995.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  996.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  997.                         End If
  998.                 End Select
  999.             End If
  1000.         Case 2      '日期型
  1001.             If IsDate(LrText(Index).Text) Then
  1002.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1003.                 If Val(Mid(LrText(Index), 1, 4)) < 1900 Then
  1004.                     LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  1005.                 End If
  1006.             Else
  1007.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1008.                 Call Xtxxts(Tsxx, 0, 1)
  1009.                 LrText(Index).SetFocus
  1010.                 Exit Function
  1011.             End If
  1012.         Case 3      '其他类型
  1013.     End Select
  1014.     
  1015.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  1016.     TextValiJudgeLock(Index) = True
  1018.     '调用文本框事后处理程序
  1019.     Call Wbklrwbcl(Index)
  1020.    
  1021.     '有效性判断通过则返回True
  1022.     TextYxxpd = True
  1023.    
  1024. End Function