main.dfm

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

object main_Form: Tmain_Form
  Left = 8
  Top = 8
  Width = 583
  Height = 572
  Caption = #26032#29983#25253#21517#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 499
    Width = 575
    Height = 19
    Panels = <>
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 24
    object N1: TMenuItem
      Caption = #31995#32479
      object N11: TMenuItem
        Caption = #30331#24405#31995#32479
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #29992#25143#31649#29702
        Visible = False
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #20462#25913#21475#20196
        Visible = False
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #20851#38381#31995#32479
        OnClick = N14Click
      end
    end
    object N2: TMenuItem
      Caption = #25253#21040#21333#31649#29702
      Visible = False
      object N21: TMenuItem
        Caption = #25253#21040#21333#31649#29702
        Visible = False
        OnClick = N21Click
      end
    end
    object N3: TMenuItem
      Caption = #20844#23507#31649#29702
      Visible = False
      object N31: TMenuItem
        Caption = #20844#23507#23433#25490#31649#29702
        Visible = False
        OnClick = N31Click
      end
    end
    object N4: TMenuItem
      Caption = #32564#36153#31649#29702
      Visible = False
      object N41: TMenuItem
        Caption = #26032#29983#32564#36153
        Visible = False
        OnClick = N41Click
      end
      object N42: TMenuItem
        Caption = #25910#36153#32479#35745
        Visible = False
      end
    end
    object N5: TMenuItem
      Caption = #25968#25454#31649#29702
      Visible = False
      object N51: TMenuItem
        Caption = #26032#29983#25968#25454#31649#29702
        Visible = False
        OnClick = N51Click
      end
    end
  end
  object Database1: TDatabase
    AliasName = 'XSBM'
    DatabaseName = 'XSBM'
    LoginPrompt = False
    Params.Strings = (
      'USER=sa'
      'PASSWORD=LQ731Zzg'
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 64
    Top = 24
  end
end