frmlsjl.frm

金融机构用于银行承兑票台帐的登记以及统计打印各种报表

            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "承兑金额"
         Caption         =   "承兑金额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "承兑汇票号码"
         Caption         =   "承兑汇票号码"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "出票日期"
         Caption         =   "出票日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "yyyy-M-d"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "到期日期"
         Caption         =   "到期日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   1
            Format          =   "yyyy-M-d"
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "足额存款"
         Caption         =   "单位存单"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "个人存单"
         Caption         =   "个人存单"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "收款人"
         Caption         =   "收款人"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "申请经办人"
         Caption         =   "申请经办人"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column10 
         DataField       =   "备注"
         Caption         =   "备注"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            Locked          =   -1  'True
            ColumnWidth     =   1019.906
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1035.213
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   959.811
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1200.189
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   929.764
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   929.764
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   780.095
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   870.236
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   1484.787
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   1289.764
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   870.236
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame2 
      Height          =   532
      Left            =   1630
      TabIndex        =   0
      Top             =   4920
      Width           =   5890
      Begin VB.CommandButton Command2 
         Caption         =   "删除"
         Height          =   375
         Left            =   4440
         TabIndex        =   1
         Top             =   120
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmlsjl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
If frmlsjl.Adodc1.Recordset.RecordCount > 0 Then
frmlsjl.Adodc1.Recordset.MoveLast
End If
Screen.MousePointer = 0
End Sub

Private Sub Form_Load()
启动历史数据 = True
End Sub

Private Sub Form_Resize()
With Me.DataGrid1
On Error Resume Next
.Width = Me.Width - 120
.Height = Me.Height - 1200
.Top = 795
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
启动历史数据 = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "SC"
Dim num As Integer
num = Adodc1.Recordset.RecordCount
If num > 0 Then
   X = MsgBox("确实要删除选定记录吗？", vbOKCancel Or vbQuestion, "系统信息")
   If X = vbOK Then
   Adodc1.Recordset.Delete
   Else
   Exit Sub
   End If
ElseIf num = 0 Then
MsgBox "没有要删除的记当录", vbOKOnly Or vbInformation, "系统信息"
End If
Case "TC"
Unload Me
Case "统计A"

With ycdck.Adodc1
.RecordSource = "select * from 台帐数据"
.Refresh
If .Recordset.RecordCount = 0 Then
MsgBox "数据为空!", vbOKOnly Or vbInformation, "系统信息"
Exit Sub
End If
End With
With 统计
.Option1(0).Value = True
.Text1(0).Text = ""
.Text1(1).Text = ""
.Label5.Caption = ""
.Label6.Caption = ""
.Command3.Enabled = False
.Command1.Enabled = True
End With
With ycdck.Adodc1
.RecordSource = "select min(出票日期) as min出票日期,max(出票日期) as max出票日期 from 台帐数据"
.Refresh
统计.DTPicker1.Value = .Recordset.Fields(0).Value
统计.DTPicker2.Value = .Recordset.Fields(1).Value
.RecordSource = "select * from 申请经办人 order by 申请经办人"
.Refresh
If .Recordset.RecordCount > 0 Then
.Recordset.MoveFirst
Do While Not .Recordset.EOF
统计.Combo1.AddItem .Recordset.Fields(1).Value
.Recordset.MoveNext
Loop
End If
End With
统计.Show 1
Case "排序A"
选择排序方式.Show 1
End Select

End Sub