mdiform1.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "中国银行承兑汇票台帐登记系统"
   ClientHeight    =   7950
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11970
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   5400
      Top             =   120
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   9
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":0AC2
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1142
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":159E
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":1C1A
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":2076
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":24D2
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":292E
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":2D8A
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   795
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11970
      _ExtentX        =   21114
      _ExtentY        =   1402
      ButtonWidth     =   1032
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "登 记"
            Key             =   "DJ"
            Object.ToolTipText     =   "开始台帐登记"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "报 表"
            Key             =   "BB1"
            Object.ToolTipText     =   "生成承兑申请人情况报告表"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "报 表"
            Key             =   "BB2"
            Object.ToolTipText     =   "生成申请经办人情况报告表"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "备 份"
            Key             =   "BF"
            Object.ToolTipText     =   "进行数据备份"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删 除"
            Key             =   "SC"
            Object.ToolTipText     =   "删除部分数据"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "恢 复"
            Key             =   "HF"
            Object.ToolTipText     =   "进行数据恢复"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "密 码"
            Key             =   "MM"
            Object.ToolTipText     =   "修改用户密码"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "退出系统"
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退 出"
            Key             =   "TC"
            Object.ToolTipText     =   "退出系统"
            ImageIndex      =   9
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Menu WJ 
      Caption         =   "文件(&F)"
      Begin VB.Menu KSDJ 
         Caption         =   "开始登记"
         Shortcut        =   {F1}
      End
      Begin VB.Menu DYBB 
         Caption         =   "生成报表(&R)"
         Begin VB.Menu cdbg 
            Caption         =   "承兑申请人情况报告表"
            Shortcut        =   {F2}
         End
         Begin VB.Menu sqjbbg 
            Caption         =   "申请经办人情况报告表"
            Shortcut        =   {F3}
         End
      End
      Begin VB.Menu yy 
         Caption         =   "-"
      End
      Begin VB.Menu TC 
         Caption         =   "退出"
         Shortcut        =   ^{F4}
      End
   End
   Begin VB.Menu sz 
      Caption         =   "设置(&S)"
      Begin VB.Menu CDSQW 
         Caption         =   "设置承兑申请人(&E)"
      End
      Begin VB.Menu SKR 
         Caption         =   "设置收款人(&M)"
      End
      Begin VB.Menu JB 
         Caption         =   "设置申请经办人(&N)"
      End
   End
   Begin VB.Menu sjwh 
      Caption         =   "数据维护(&D)"
      Begin VB.Menu beifen 
         Caption         =   "数据备份(&S)"
      End
      Begin VB.Menu shanchu 
         Caption         =   "数据删除(&E)"
      End
      Begin VB.Menu huifu 
         Caption         =   "数据恢复(&H)"
      End
      Begin VB.Menu dd 
         Caption         =   "-"
      End
      Begin VB.Menu LSJL 
         Caption         =   "历史记录(&F)"
      End
      Begin VB.Menu OIJ 
         Caption         =   "-"
      End
      Begin VB.Menu mima 
         Caption         =   "修改密码(&P)"
      End
   End
   Begin VB.Menu 帮助 
      Caption         =   "帮助(&H)"
      Visible         =   0   'False
      Begin VB.Menu 内容 
         Caption         =   "内容(&C)"
      End
      Begin VB.Menu 注册A 
         Caption         =   "进行用户注册"
      End
      Begin VB.Menu 关于 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub beifen_Click()

Frmbflj.Show 1
End Sub

Public Sub cdbg_Click()
frmcdsqr.Show 1
End Sub

Private Sub CDSQW_Click()
Screen.MousePointer = 11
frmshzi.Show 1
End Sub

Public Sub huifu_Click()
X = MsgBox("进行数据恢复需首先退出当前系统，确实要退出吗？", vbOKCancel Or vbQuestion, "系统信息")
If X = vbOK Then
Hf = True
Shell App.Path & "\数据恢复.exe", 1
Unload MDIForm1
ElseIf X = vbCancel Then
Exit Sub
End If
End Sub

Private Sub JB_Click()
Screen.MousePointer = 11
Frmjb.Show 1
End Sub

Public Sub KSDJ_Click()
Screen.MousePointer = 11
On Error GoTo ef
With ycdck.Adodc1
Dim shu As Integer
.RecordSource = "select 承兑申请人 from 承兑申请人 group by 承兑申请人"
.Refresh
shu = .Recordset.RecordCount
frmDataEnv.Combo1.Clear
For i = 1 To shu
frmDataEnv.Combo1.AddItem .Recordset.Fields(0).Value
.Recordset.MoveNext
Next i
.RecordSource = "select * from 承兑申请人 where 是否默认=" & "'" & "默认" & "'"
.Refresh
If .Recordset.RecordCount = 1 Then
frmDataEnv.Combo1.Text = .Recordset.Fields(1).Value
ElseIf .Recordset.RecordCount = 0 Then
.RecordSource = "select * from 承兑申请人"
.Refresh
frmDataEnv.Combo1.Text = .Recordset.Fields(1).Value
End If
.RecordSource = "select 收款人 from 收款人 group by 收款人"
.Refresh
shu = .Recordset.RecordCount
For i = 1 To shu
frmDataEnv.Combo5.AddItem .Recordset.Fields(0).Value
.Recordset.MoveNext
Next i
.RecordSource = "select 申请经办人 from 申请经办人 group by 申请经办人"
.Refresh
shu = .Recordset.RecordCount
For i = 1 To shu
frmDataEnv.Combo6.AddItem .Recordset.Fields(0).Value
.Recordset.MoveNext
Next i
.RecordSource = "select * from 收款人 where 是否默认=" & "'" & "默认" & "'"
.Refresh
If .Recordset.RecordCount = 1 Then
frmDataEnv.Combo5.Text = .Recordset.Fields(1).Value
ElseIf .Recordset.RecordCount = 0 Then
.RecordSource = "select * from 收款人"
.Refresh
frmDataEnv.Combo5.Text = .Recordset.Fields(1).Value
End If
.RecordSource = "select * from 申请经办人 where 是否默认=" & "'" & "默认" & "'"
.Refresh
If .Recordset.RecordCount = 1 Then
frmDataEnv.Combo6.Text = .Recordset.Fields(1).Value
ElseIf .Recordset.RecordCount = 0 Then
.RecordSource = "select * from 申请经办人"
.Refresh
frmDataEnv.Combo6.Text = .Recordset.Fields(1).Value
End If
.Recordset.Close
frmDataEnv.Show 1
End With
GoTo fe
ef:
Screen.MousePointer = 0
MsgBox "请首先进行有关设置", vbOKOnly Or vbInformation, "系统信息"
fe:
Screen.MousePointer = 0
End Sub
Private Sub LSJL_Click()
With ycdck.Adodc1
.RecordSource = "select * from 台帐数据"
.Refresh
If .Recordset.RecordCount = 0 Then
MsgBox "历史数据为零！", vbOKOnly Or vbInformation, "系统信息"
Exit Sub
End If
End With
frmlsjl.Show 1
End Sub
Private Sub MDIForm_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
desktop.Top = 0
desktop.Left = 0
desktop.Height = MDIForm1.ScaleHeight
desktop.Width = MDIForm1.ScaleWidth
End Sub
Private Sub MDIForm_Load()
With ycdck.Data7.Recordset
For i = 1 To 4
Bj(i) = .Fields(i).Value
Next i
End With
'求一下动态库存量
Dim shu1 As Single
Dim shu2 As Single
With ycdck.Adodc1
.RecordSource = "select * from 台帐录入"
.Refresh
shu1 = .Recordset.RecordCount
.RecordSource = "select * from 台帐数据"
.Refresh
shu2 = .Recordset.RecordCount
End With
动态库存量 = shu1 + shu2

End Sub
Private Sub MDIForm_Resize()
Me.Width = 12090
Me.Height = 8760
desktop.Top = 0
desktop.Left = 0
desktop.Height = MDIForm1.ScaleHeight
desktop.Width = MDIForm1.ScaleWidth

End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub

Public Sub mima_Click()
Dialog.Show 1
End Sub

Public Sub shanchu_Click()
frmxh.Show 1
End Sub

Private Sub SKR_Click()
Screen.MousePointer = 11
frmshk.Show 1
End Sub

Public Sub sqjbbg_Click()
frmcdsqr1.Show 1
End Sub

Public Sub TC_Click()
End
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key
Case "DJ"
Me.KSDJ_Click
Case "BB1"
Me.cdbg_Click
Case "BB2"
Me.sqjbbg_Click
Case "BF"
Me.beifen_Click
Case "SC"
Me.shanchu_Click
Case "HF"
Me.huifu_Click
Case "MM"
Me.mima_Click
Case "TC"
Me.TC_Click


End Select

End Sub

Private Sub yejb_Click()
Screen.MousePointer = 11
frmsqye2.Show

End Sub

Private Sub yesq_Click()
Screen.MousePointer = 11
frmsqye.Show 1

End Sub

Private Sub 关于_Click()
frmAbout.Show 1
End Sub

Private Sub 注册A_Click()
Frmzhce.Show 1
End Sub