www.pudn.com > 数据库作业.rar > zck.frm

VERSION 5.00 
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" 
Begin VB.MDIForm zck  
   BackColor       =   &H8000000C& 
   Caption         =   "医药信息管理系统" 
   ClientHeight    =   4890 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   8205 
   LinkTopic       =   "MDIForm1" 
   StartUpPosition =   3  '窗口缺省 
   WindowState     =   2  'Maximized 
   Begin MSComctlLib.Toolbar Toolbar1  
      Align           =   1  'Align Top 
      Height          =   630 
      Left            =   0 
      TabIndex        =   0 
      Top             =   0 
      Width           =   8205 
      _ExtentX        =   14473 
      _ExtentY        =   1111 
      ButtonWidth     =   2408 
      ButtonHeight    =   953 
      Appearance      =   1 
      _Version        =   393216 
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}  
         NumButtons      =   4 
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Caption         =   "修改顾客信息" 
            Key             =   "comgk" 
         EndProperty 
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Caption         =   "修改经办人信息" 
            Key             =   "comjbr" 
         EndProperty 
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Caption         =   "查询" 
            Key             =   "comcx" 
         EndProperty 
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}  
            Caption         =   "报表" 
            Key             =   "combb" 
         EndProperty 
      EndProperty 
   End 
End 
Attribute VB_Name = "zck" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
 
 
Private Sub DataGrid1_Click() 
 
End Sub 
 
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel) 
 
End Sub 
 
Private Sub MDIForm_Load() 
    csxx.Show 
    csxx.WindowState = 2 
End Sub 
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 
    Select Case Button.Index 
        Case 1 
            gkxx.Show 1 
        Case 2 
            jbrxx.Show 1 
    End Select 
End Sub