zw_fkfs.frm

内容详尽的代码主要是与数据库的连接查询删除的功能

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form fm_fkfs 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   2370
   ClientLeft      =   -15
   ClientTop       =   -15
   ClientWidth     =   2640
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2370
   ScaleWidth      =   2640
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.Timer XT_Timer 
      Interval        =   1000
      Left            =   270
      Top             =   1620
   End
   Begin VB.Frame Frame1 
      Height          =   2415
      Left            =   0
      TabIndex        =   0
      Top             =   -60
      Width           =   2640
      Begin MSFlexGridLib.MSFlexGrid gd1 
         Height          =   1680
         Left            =   90
         TabIndex        =   2
         Top             =   420
         Width           =   2460
         _ExtentX        =   4339
         _ExtentY        =   2963
         _Version        =   327680
         Rows            =   10
         Cols            =   6
         FixedCols       =   0
         BackColor       =   12648447
         FocusRect       =   0
         ScrollBars      =   2
         SelectionMode   =   1
      End
      Begin VB.Label lb_title 
         Alignment       =   2  'Center
         Caption         =   "ENTER:选中"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   1
         Left            =   150
         TabIndex        =   3
         Top             =   2160
         Width           =   2295
      End
      Begin VB.Label lb_title 
         Alignment       =   2  'Center
         Caption         =   "选择付款方式"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   225
         Index           =   0
         Left            =   210
         TabIndex        =   1
         Top             =   180
         Width           =   2235
      End
   End
End
Attribute VB_Name = "fm_fkfs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim t_bt As String       '存储列表显示的表头
Dim t_fields As Variant  '存储列表显示的字段名
Dim t_fdxs As Variant    '显示列是否有特殊处理    0 无, 1 有
Dim t_fdcounts As Integer   '表示列表所显示的字段的个数

Dim fkfs_fkdm As String
Dim fkfs_sql As String

Dim CS_CODE As String       '功能代码
Dim CS_DATA As Database     '库名
Dim CS_R4 As Database       '判断收款还是退款    1-收  2-退

Sub MAIN(t_data As Database, t_r4 As String, t_code As String)
    Set CS_DATA = t_data
    CS_CODE = Trim(t_code)
    CS_R4 = Trim(t_r4)
End Sub
'***********************************************************************
'* 功    能 : 给 Form 赋焦点
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'***********************************************************************
Private Sub Form_Activate()
    gd1.SetFocus
End Sub



'**************************************************************************************************
'*  功    能 :
'*  作    者 : 梁卫
'*  作成日期 : 1999.03.19
'*  修改日期 : 1999.03.19
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If gd1.Rows > 1 Then
            fkfs_fkdm = Trim(gd1.TextArray(gd1.Row * t_fdcounts))
        Else
            fkfs_fkdm = ""
        End If
        Unload Me
    End If
End Sub



'***********************************************************************
'* 功    能 : 按 Esc 键时， 退出
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'***********************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        fkfs_fkdm = ""
        Unload Me
    Else
        If (KeyCode >= Asc("0") And KeyCode <= Asc("9")) Or (KeyCode >= Asc("A") And KeyCode <= Asc("Z")) Or (KeyCode >= Asc("a") And KeyCode <= Asc("z")) Then
            fkfs_fkdm = UCase(Trim(Chr(KeyCode)))
            
            Dim fkfs_rec As Recordset
            Dim temp_ft As Boolean
            temp_ft = False
            Set fkfs_rec = CS_DATA.OpenRecordset(fkfs_sql & " AND TRIM(FK_DM)='" & Trim(fkfs_fkdm) & "'", 4, 0, 2)
            If Not fkfs_rec.BOF Then
                fkfs_rec.MoveLast
                temp_ft = True
            End If
            fkfs_rec.Close
            
            If temp_ft Then
                Unload Me
            End If
        End If
    End If
End Sub

'***********************************************************************
'* 功    能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.04
'* 修改日期 : 1999.03.04
'***********************************************************************
Private Sub Form_Load()
    Dim fkfs_rec As Recordset
    
    KeyPreview = True
    
    Me.Left = (Screen.Width - Me.Width) / 2   ' 在水平方向上居中。
    Me.Top = (Screen.Height - Me.Height) / 2  ' 在垂直方向上居中。
    
    If CS_R4 <> "2" Then
        fkfs_sql = "SELECT FK_DM, FK_MC FROM ZW_FKFS WHERE SR_FT='1'"
    Else
        fkfs_sql = "SELECT FK_DM, FK_MC FROM ZW_FKFS WHERE SR_FT='1' AND TK_FT='1'"
    End If
    
    Set fkfs_rec = CS_DATA.OpenRecordset(fkfs_sql & "  ORDER BY FK_DM", 4, 0, 2)
    If Not fkfs_rec.BOF Then
        fkfs_rec.MoveLast
    End If
    
    t_fields = Array("FK_DM", "FK_MC")  '设置显示字段
    t_fdxs = Array(0, 0)  '设置显示字段
    t_bt = "^代码|<  付款方式名称      "   '设置显示表头格式
    t_fdcounts = 2
        
    Call Flex_full(gd1, t_bt, fkfs_rec, t_fields, t_fdcounts - 1, t_fdxs)
   
    fkfs_rec.Close
    
End Sub

'***********************************************************************
'* 功    能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.21
'* 修改日期 : 1999.03.21
'***********************************************************************
Public Property Get FK_FS() As String
    FK_FS = fkfs_fkdm
End Property

'***********************************************************************
'* 功    能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.21
'* 修改日期 : 1999.03.21
'***********************************************************************
Public Property Let FK_FS(ByVal temp_fkfs As String)
    fkfs_fkdm = temp_fkfs
End Property