上传用户:zhpu1995
上传日期:2013-09-06
资源大小:61151k
文件大小:24k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form Cg_InvoiceTotalQuery 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "采购发票统计表查询条件"
  6.    ClientHeight    =   3435
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5355
  10.    HelpContextID   =   1109002
  11.    Icon            =   "采购系统_采购发票统计表查询条件.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3435
  17.    ScaleWidth      =   5355
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   1  '所有者中心
  20.    Begin VB.CommandButton QxCommand 
  21.       Caption         =   "取消(&C)"
  22.       Height          =   300
  23.       Left            =   4170
  24.       TabIndex        =   11
  25.       Top             =   3060
  26.       Width           =   1120
  27.    End
  28.    Begin VB.CommandButton QdCommand 
  29.       Caption         =   "确定(&O)"
  30.       Height          =   300
  31.       Left            =   2970
  32.       TabIndex        =   10
  33.       Top             =   3060
  34.       Width           =   1120
  35.    End
  36.    Begin VB.CommandButton Cmd_Clear 
  37.       Caption         =   "全清"
  38.       Height          =   300
  39.       Left            =   60
  40.       TabIndex        =   12
  41.       Top             =   3060
  42.       Width           =   1120
  43.    End
  44.    Begin VB.CheckBox UnloadCheck 
  45.       Caption         =   "卸载窗体"
  46.       Height          =   615
  47.       Left            =   6390
  48.       TabIndex        =   13
  49.       Top             =   960
  50.       Width           =   825
  51.    End
  52.    Begin TabDlg.SSTab SSTab1 
  53.       Height          =   2925
  54.       Left            =   60
  55.       TabIndex        =   14
  56.       Top             =   30
  57.       Width           =   5235
  58.       _ExtentX        =   9234
  59.       _ExtentY        =   5159
  60.       _Version        =   393216
  61.       Style           =   1
  62.       Tabs            =   2
  63.       TabsPerRow      =   2
  64.       TabHeight       =   520
  65.       TabCaption(0)   =   "基本条件"
  66.       TabPicture(0)   =   "采购系统_采购发票统计表查询条件.frx":1042
  67.       Tab(0).ControlEnabled=   -1  'True
  68.       Tab(0).Control(0)=   "Frame1"
  69.       Tab(0).Control(0).Enabled=   0   'False
  70.       Tab(0).ControlCount=   1
  71.       TabCaption(1)   =   "辅助条件"
  72.       TabPicture(1)   =   "采购系统_采购发票统计表查询条件.frx":105E
  73.       Tab(1).ControlEnabled=   0   'False
  74.       Tab(1).Control(0)=   "Frame2"
  75.       Tab(1).Control(0).Enabled=   0   'False
  76.       Tab(1).ControlCount=   1
  77.       Begin VB.Frame Frame2 
  78.          Height          =   2475
  79.          Left            =   -74940
  80.          TabIndex        =   27
  81.          Top             =   330
  82.          Width           =   5055
  83.          Begin VB.CommandButton Ydcommand1 
  84.             Height          =   300
  85.             Index           =   9
  86.             Left            =   4620
  87.             Picture         =   "采购系统_采购发票统计表查询条件.frx":107A
  88.             Style           =   1  'Graphical
  89.             TabIndex        =   34
  90.             Top             =   960
  91.             Visible         =   0   'False
  92.             Width           =   300
  93.          End
  94.          Begin VB.TextBox LrText 
  95.             Height          =   300
  96.             Index           =   9
  97.             Left            =   1110
  98.             TabIndex        =   9
  99.             Text            =   "9"
  100.             Top             =   960
  101.             Width           =   3525
  102.          End
  103.          Begin VB.CommandButton Ydcommand1 
  104.             Height          =   300
  105.             Index           =   7
  106.             Left            =   4620
  107.             Picture         =   "采购系统_采购发票统计表查询条件.frx":1404
  108.             Style           =   1  'Graphical
  109.             TabIndex        =   29
  110.             Top             =   240
  111.             Visible         =   0   'False
  112.             Width           =   300
  113.          End
  114.          Begin VB.TextBox LrText 
  115.             Height          =   300
  116.             Index           =   7
  117.             Left            =   1110
  118.             TabIndex        =   7
  119.             Text            =   "7"
  120.             Top             =   240
  121.             Width           =   3525
  122.          End
  123.          Begin VB.TextBox LrText 
  124.             Height          =   300
  125.             Index           =   8
  126.             Left            =   1110
  127.             TabIndex        =   8
  128.             Text            =   "8"
  129.             Top             =   600
  130.             Width           =   3525
  131.          End
  132.          Begin VB.CommandButton Ydcommand1 
  133.             Height          =   300
  134.             Index           =   8
  135.             Left            =   4620
  136.             Picture         =   "采购系统_采购发票统计表查询条件.frx":178E
  137.             Style           =   1  'Graphical
  138.             TabIndex        =   28
  139.             Top             =   600
  140.             Visible         =   0   'False
  141.             Width           =   300
  142.          End
  143.          Begin VB.Label Label1 
  144.             AutoSize        =   -1  'True
  145.             Caption         =   "币种:"
  146.             Height          =   180
  147.             Index           =   7
  148.             Left            =   150
  149.             TabIndex        =   35
  150.             Top             =   1020
  151.             Width           =   450
  152.          End
  153.          Begin VB.Label Label1 
  154.             AutoSize        =   -1  'True
  155.             Caption         =   "付款条件:"
  156.             Height          =   180
  157.             Index           =   4
  158.             Left            =   150
  159.             TabIndex        =   31
  160.             Top             =   300
  161.             Width           =   810
  162.          End
  163.          Begin VB.Label Label1 
  164.             AutoSize        =   -1  'True
  165.             Caption         =   "运输方式:"
  166.             Height          =   180
  167.             Index           =   5
  168.             Left            =   150
  169.             TabIndex        =   30
  170.             Top             =   660
  171.             Width           =   810
  172.          End
  173.       End
  174.       Begin VB.Frame Frame1 
  175.          Height          =   2475
  176.          Left            =   60
  177.          TabIndex        =   15
  178.          Top             =   330
  179.          Width           =   5055
  180.          Begin VB.TextBox LrText 
  181.             Height          =   300
  182.             Index           =   6
  183.             Left            =   1410
  184.             TabIndex        =   6
  185.             Text            =   "6"
  186.             Top             =   2070
  187.             Width           =   3225
  188.          End
  189.          Begin VB.CommandButton Ydcommand1 
  190.             Height          =   300
  191.             Index           =   6
  192.             Left            =   4620
  193.             Picture         =   "采购系统_采购发票统计表查询条件.frx":1B18
  194.             Style           =   1  'Graphical
  195.             TabIndex        =   32
  196.             Top             =   2070
  197.             Visible         =   0   'False
  198.             Width           =   300
  199.          End
  200.          Begin VB.CommandButton Ydcommand1 
  201.             Height          =   300
  202.             Index           =   1
  203.             Left            =   4620
  204.             Picture         =   "采购系统_采购发票统计表查询条件.frx":1EA2
  205.             Style           =   1  'Graphical
  206.             TabIndex        =   21
  207.             Top             =   240
  208.             Visible         =   0   'False
  209.             Width           =   300
  210.          End
  211.          Begin VB.CommandButton Ydcommand1 
  212.             Height          =   300
  213.             Index           =   0
  214.             Left            =   2640
  215.             Picture         =   "采购系统_采购发票统计表查询条件.frx":222C
  216.             Style           =   1  'Graphical
  217.             TabIndex        =   20
  218.             Top             =   240
  219.             Visible         =   0   'False
  220.             Width           =   300
  221.          End
  222.          Begin VB.TextBox LrText 
  223.             Height          =   300
  224.             Index           =   2
  225.             Left            =   1410
  226.             TabIndex        =   2
  227.             Text            =   "2"
  228.             Top             =   606
  229.             Width           =   3225
  230.          End
  231.          Begin VB.TextBox LrText 
  232.             Height          =   300
  233.             Index           =   0
  234.             Left            =   1410
  235.             TabIndex        =   0
  236.             Text            =   "0"
  237.             Top             =   240
  238.             Width           =   1245
  239.          End
  240.          Begin VB.TextBox LrText 
  241.             Height          =   300
  242.             Index           =   1
  243.             Left            =   3390
  244.             TabIndex        =   1
  245.             Text            =   "1"
  246.             Top             =   240
  247.             Width           =   1245
  248.          End
  249.          Begin VB.TextBox LrText 
  250.             Height          =   300
  251.             Index           =   3
  252.             Left            =   1410
  253.             TabIndex        =   3
  254.             Text            =   "3"
  255.             Top             =   972
  256.             Width           =   3225
  257.          End
  258.          Begin VB.TextBox LrText 
  259.             Height          =   300
  260.             Index           =   4
  261.             Left            =   1410
  262.             TabIndex        =   4
  263.             Text            =   "4"
  264.             Top             =   1338
  265.             Width           =   3225
  266.          End
  267.          Begin VB.CommandButton Ydcommand1 
  268.             Height          =   300
  269.             Index           =   3
  270.             Left            =   4620
  271.             Picture         =   "采购系统_采购发票统计表查询条件.frx":25B6
  272.             Style           =   1  'Graphical
  273.             TabIndex        =   19
  274.             Top             =   972
  275.             Visible         =   0   'False
  276.             Width           =   300
  277.          End
  278.          Begin VB.CommandButton Ydcommand1 
  279.             Height          =   300
  280.             Index           =   4
  281.             Left            =   4620
  282.             Picture         =   "采购系统_采购发票统计表查询条件.frx":2940
  283.             Style           =   1  'Graphical
  284.             TabIndex        =   18
  285.             Top             =   1320
  286.             Visible         =   0   'False
  287.             Width           =   300
  288.          End
  289.          Begin VB.CommandButton Ydcommand1 
  290.             Height          =   300
  291.             Index           =   5
  292.             Left            =   4620
  293.             Picture         =   "采购系统_采购发票统计表查询条件.frx":2CCA
  294.             Style           =   1  'Graphical
  295.             TabIndex        =   17
  296.             Top             =   1710
  297.             Visible         =   0   'False
  298.             Width           =   300
  299.          End
  300.          Begin VB.TextBox LrText 
  301.             Height          =   300
  302.             Index           =   5
  303.             Left            =   1410
  304.             TabIndex        =   5
  305.             Text            =   "5"
  306.             Top             =   1704
  307.             Width           =   3225
  308.          End
  309.          Begin VB.CommandButton Ydcommand1 
  310.             Height          =   300
  311.             Index           =   2
  312.             Left            =   4620
  313.             Picture         =   "采购系统_采购发票统计表查询条件.frx":3054
  314.             Style           =   1  'Graphical
  315.             TabIndex        =   16
  316.             Top             =   600
  317.             Visible         =   0   'False
  318.             Width           =   300
  319.          End
  320.          Begin VB.Label Label1 
  321.             AutoSize        =   -1  'True
  322.             Caption         =   "业务员:"
  323.             Height          =   180
  324.             Index           =   3
  325.             Left            =   180
  326.             TabIndex        =   33
  327.             Top             =   2130
  328.             Width           =   630
  329.          End
  330.          Begin VB.Label Label1 
  331.             AutoSize        =   -1  'True
  332.             Caption         =   "部门:"
  333.             Height          =   180
  334.             Index           =   0
  335.             Left            =   180
  336.             TabIndex        =   26
  337.             Top             =   1770
  338.             Width           =   450
  339.          End
  340.          Begin VB.Label Label1 
  341.             AutoSize        =   -1  'True
  342.             Caption         =   "采购物料分类:"
  343.             Height          =   180
  344.             Index           =   11
  345.             Left            =   180
  346.             TabIndex        =   25
  347.             Top             =   1050
  348.             Width           =   1170
  349.          End
  350.          Begin VB.Line Line2 
  351.             Index           =   1
  352.             X1              =   3060
  353.             X2              =   3270
  354.             Y1              =   390
  355.             Y2              =   390
  356.          End
  357.          Begin VB.Label Label1 
  358.             AutoSize        =   -1  'True
  359.             Caption         =   "日期:"
  360.             Height          =   180
  361.             Index           =   2
  362.             Left            =   180
  363.             TabIndex        =   24
  364.             Top             =   300
  365.             Width           =   450
  366.          End
  367.          Begin VB.Label Label1 
  368.             AutoSize        =   -1  'True
  369.             Caption         =   "物料名称:"
  370.             Height          =   180
  371.             Index           =   1
  372.             Left            =   180
  373.             TabIndex        =   23
  374.             Top             =   1410
  375.             Width           =   810
  376.          End
  377.          Begin VB.Label Label1 
  378.             AutoSize        =   -1  'True
  379.             Caption         =   "供应商:"
  380.             Height          =   180
  381.             Index           =   6
  382.             Left            =   180
  383.             TabIndex        =   22
  384.             Top             =   660
  385.             Width           =   630
  386.          End
  387.       End
  388.    End
  389. End
  390. Attribute VB_Name = "Cg_InvoiceTotalQuery"
  391. Attribute VB_GlobalNameSpace = False
  392. Attribute VB_Creatable = False
  393. Attribute VB_PredeclaredId = True
  394. Attribute VB_Exposed = False
  395. '******************************************************************
  396. '*    模 块 名 称 :采购发票统计表查询条件
  397. '*    功 能 描 述 :
  398. '*    程序员姓名  :李海祥
  399. '*    最后修改人  :李海祥
  400. '*    最后修改时间:2001/09/20
  401. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  402. '******************************************************************
  403. Dim Tsxx As String                       '系统信息提示
  404. '以下为固定使用变量(文本框)
  405. Dim Textvar() As Variant                 '存储变体型文本框信息
  406. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  407. Dim Textint() As Integer                 '存储整型文本框信息
  408. Dim Textstr() As String                  '存储字符型文本框信息
  409. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  410. Dim TextGroupCode As String              '文本框录入分组编码
  411. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  412. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  413. Dim CurTextIndex As Integer              '当前文本框索引值
  414. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  415. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  416. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移(Fixed)
  417.     Dim jdzygs As Integer                         '控件焦点转移个数
  418.     jdzygs = 30
  419.     Select Case KeyAscii
  420.         Case vbKeyReturn
  421.             If Kjjdzy(jdzygs) Then
  422.                 KeyAscii = 0
  423.             End If
  424.         Case 39           '屏蔽"'"
  425.             KeyAscii = 0
  426.     End Select
  427. End Sub
  428. Private Sub Form_Load()
  429.    
  430.     '以下为文本框处理程序(Fixed)
  431.     TextGroupCode = "Cg_InvoiceTotalQuery"
  432.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  433.     Call Wbkcsh
  434.    
  435.     '[>>初始化查询条件默认值
  436.     LrText(0).Text = Format(Xtrq, "yyyy-mm-dd")
  437.     LrText(1).Text = Format(Xtrq, "yyyy-mm-dd")
  438.     '<<]
  439.    
  440. End Sub
  441. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)          '查询条件窗体卸载
  442.     '查询条件窗体卸载时判断是否因为结果窗体卸载,如是则卸载,否则隐藏
  443.     If UnloadCheck.Value <> 1 Then
  444.         Cancel = 1
  445.         Me.Hide
  446.     End If
  447.     
  448. End Sub
  449. Private Sub QdCommand_Click()                                   '确 定
  450.     '录入条件有效性判断(Fixed)
  451.     If Not Lrtjyxxpd Then
  452.         Exit Sub
  453.     End If
  454.     Me.Hide
  455.         
  456.     '[>>激活查询过程结果窗体
  457.     
  458.     Cg_InvoiceTotalList.Timer1.Enabled = True
  459.     Cg_InvoiceTotalList.SetFocus
  460.     
  461.     '<<]
  462. End Sub
  463. Private Sub QxCommand_Click()                                    '取消(Fixed)
  464.     Me.Hide
  465. End Sub
  466. Private Function Lrtjyxxpd() As Boolean                          '用户录入条件有效性判断
  467.     Dim jsqte As Integer
  468.     Lrtjyxxpd = False
  469.  
  470.     '对需要进行事后判断的文本框录入内容进行有效性判断 (Fixed)
  471.     For jsqte = 0 To Max_Text_Index
  472.         If Textint(jsqte, 9) = 0 Or Textint(jsqte, 9) = 2 Then
  473.             If Not TextYxxpd(jsqte) Then
  474.                  Call TextShow(jsqte)
  475.                  Exit Function
  476.             End If
  477.         End If
  478.     Next jsqte
  479.    
  480.     '[>>以下为依据实际情况自定义部分
  481.  
  482.     '查询日期范围应由小到大
  483.     If LrText(0).Text > LrText(1).Text And Trim(LrText(1).Text) <> "" Then
  484.         Tsxx = "查询发票日期范围应由小到大!"
  485.         Call Xtxxts(Tsxx, 0, 4)
  486.         LrText(0).SetFocus
  487.         Exit Function
  488.     End If
  489.     
  490.     '<<]以上为依据实际情况自定义部分
  491.  
  492.     Lrtjyxxpd = True
  493. End Function
  494. Private Sub Cmd_Clear_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)    '将用户输入条件全部清除(可选)
  495.     '清除文本框(Fixed)
  496.     For jsqte = 0 To Max_Text_Index
  497.         LrText(jsqte).Tag = ""
  498.         LrText(jsqte).Text = ""
  499.     Next jsqte
  500.     '[>>
  501.     '此处可以写入其他清除条件程序
  502.     '<<]
  503.   
  504. End Sub
  505. '*************以下为文本框录入处理程序(固定不变部分)*************'
  506. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  507.   
  508.     '以下为依据实际情况自定义部分[
  509.     '在此填写文本框录入事后处理程序
  510.     ']以上为依据实际情况自定义部分
  511.   
  512. End Sub
  513. Private Sub LrText_Change(Index As Integer)
  514.    
  515.     '屏蔽程序改变控制
  516.     If TextChangeLock Then
  517.         Exit Sub
  518.     End If
  519.     
  520.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  521.     
  522.     '限制字段录入长度
  523.           
  524.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  525.     Call TextChangeLimit(LrText(Index), Textint(Index, 1))  '去掉无效字符
  526.     Select Case Textint(Index, 1)
  527.         Case 8, 11      '金额型
  528.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  529.         Case 9, 12      '数量型
  530.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  531.         Case 10          '单价型
  532.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  533.         Case Else        '其他小数类型控制
  534.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  535.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  536.             End If
  537.     End Select
  538.         
  539.     TextChangeLock = False '解锁
  540. End Sub
  541. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  542.     Call TextShow(Index)
  543.     CurTextIndex = Index
  544.     LrText(Index).SelStart = Len(LrText(Index))
  545. End Sub
  546. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  547.     
  548.     Select Case KeyCode
  549.         Case vbKeyF2
  550.             Call Text_Help(Index)
  551.     End Select
  552. End Sub
  553. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  554.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  555. End Sub
  556. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  557.     '显示相应信息但不能进行有效性判断
  558.   
  559. End Sub
  560. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  561.     Call Text_Help(Index)
  562. End Sub
  563. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  564.     If Not Textboolean(Index, 1) Then
  565.         Exit Sub
  566.     End If
  567.      
  568.     '调用帮助
  569.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  570.   
  571.     '根据设置选择显示编码和名称,并进行存储
  572.     If Len(Xtfhcs) <> 0 Then
  573.         If Textint(Index, 3) = 1 Then
  574.             LrText(Index).Text = Xtfhcsfz
  575.             LrText(Index).Tag = Xtfhcs
  576.         Else
  577.             LrText(Index).Text = Xtfhcs
  578.             LrText(Index).Tag = Xtfhcsfz
  579.         End If
  580.     End If
  581.    
  582.     LrText(Index).SetFocus
  583. End Sub
  584. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  585.     '填写文本框得到焦点,进行相应信息处理程序
  586.    
  587. End Sub
  588. Private Sub Wbkcsh()                          '录入文本框初始化
  589.     
  590.     Dim jsqte As Integer
  591.   
  592.     '最大录入文本框索引值
  593.     Max_Text_Index = Textvar(1)
  594.   
  595.     ReDim TextValiJudgeLock(Max_Text_Index)
  596.     For jsqte = 0 To Max_Text_Index
  597.         If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  598.             If Textboolean(jsqte, 1) Then
  599.                 If jsqte <> 0 And Not Textboolean(jsqte, 3) Then
  600.                     Load Ydcommand1(jsqte)
  601.                 End If
  602.                 Ydcommand1(jsqte).Visible = True
  603.                 Ydcommand1(jsqte).Move LrText(jsqte).Left + LrText(jsqte).Width, LrText(jsqte).Top
  604.             End If
  605.             TextChangeLock = True
  606.             LrText(jsqte).Text = ""
  607.             LrText(jsqte).Tag = ""
  608.             If Textint(jsqte, 5) <> 0 Then
  609.                 LrText(jsqte).MaxLength = Textint(jsqte, 5)
  610.             End If
  611.             TextChangeLock = False
  612.         End If
  613.         TextValiJudgeLock(jsqte) = True
  614.     Next jsqte
  615. End Sub
  616. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  617.     
  618.     Dim Sqlstr As String
  619.     Dim Findrec As ADODB.Recordset
  620.   
  621.     '文本框内容未曾改变不进行有效性判断
  622.     If TextValiJudgeLock(Index) Then
  623.         TextYxxpd = True
  624.         Exit Function
  625.     End If
  626.   
  627.     '文本框内容为空认为有效,并清空其Tag值
  628.     If Trim(LrText(Index)) = "" Then
  629.         LrText(Index).Tag = ""
  630.         Call Wbklrwbcl(Index)
  631.         TextValiJudgeLock(Index) = True
  632.         TextYxxpd = True
  633.         Exit Function
  634.     End If
  635.   
  636.     '可在此加入不做有效性判断的理由
  637.   
  638.     Select Case Textint(Index, 4)
  639.         Case 1      '编码型
  640.             Sqlstr = Trim(Textstr(Index, 5))
  641.             Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  642.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  643.             If Findrec.EOF Then
  644.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  645.                 LrText(Index).SetFocus
  646.                 Exit Function
  647.             Else
  648.                 Select Case Textint(Index, 3)
  649.                     Case 0
  650.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  651.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  652.                         End If
  653.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  654.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  655.                         End If
  656.                     Case 1
  657.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  658.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  659.                         End If
  660.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  661.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  662.                         End If
  663.                 End Select
  664.             End If
  665.         Case 2      '日期型
  666.             If IsDate(LrText(Index).Text) Then
  667.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  668.                 If S2N(Mid(LrText(Index), 1, 4)) < 1900 Then
  669.                     LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  670.                 End If
  671.             Else
  672.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  673.                 Call Xtxxts(Tsxx, 0, 1)
  674.                 LrText(Index).SetFocus
  675.                 Exit Function
  676.             End If
  677.         Case 3      '其他类型
  678.     End Select
  679.     
  680.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  681.     TextValiJudgeLock(Index) = True
  682.     '调用文本框事后处理程序
  683.     Call Wbklrwbcl(Index)
  684.    
  685.     '有效性判断通过则返回True
  686.     TextYxxpd = True
  687.    
  688. End Function