main.dfm

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

object frm_main: Tfrm_main
  Left = 49
  Top = 100
  Width = 808
  Height = 580
  Caption = #33647#25151#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object StatusBar1: TStatusBar
    Left = 0
    Top = 510
    Width = 800
    Height = 24
    Panels = <
      item
        Width = 100
      end
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object BitBtn1: TBitBtn
    Left = 54
    Top = -152
    Width = 75
    Height = 24
    BiDiMode = bdRightToLeftReadingOnly
    Caption = #20851#38381#31383#21475
    ParentBiDiMode = False
    TabOrder = 1
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 27
    ButtonHeight = 24
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    EdgeInner = esLowered
    Flat = True
    TabOrder = 2
    Visible = False
    object TabControl1: TTabControl
      Left = 0
      Top = 0
      Width = 654
      Height = 24
      Align = alRight
      Style = tsFlatButtons
      TabOrder = 0
      OnChange = TabControl1Change
    end
    object BitBtn2: TBitBtn
      Left = 654
      Top = 0
      Width = 75
      Height = 24
      BiDiMode = bdRightToLeftReadingOnly
      Caption = #20851#38381#31383#21475
      ParentBiDiMode = False
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object Button1: TButton
    Left = 0
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 3
    Visible = False
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 8
    Top = 184
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 4
    Visible = False
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 128
    Top = 32
    Width = 177
    Height = 217
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object Button3: TButton
    Left = 24
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 6
    Visible = False
    OnClick = Button3Click
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 24
    Top = 32
    object jbzl: TMenuItem
      Caption = #22522#26412#36164#26009
      object cszl: TMenuItem
        Caption = #20379#24212#21830#26723#26696
        OnClick = cszlClick
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object hczl: TMenuItem
        Caption = #33647#21697#22522#26412#20449#24687
        OnClick = hczlClick
      end
      object N7: TMenuItem
        Caption = #33647#21697#23383#20856#32500#25252
      end
      object N15: TMenuItem
        Caption = #21058#22411#32500#25252
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #31185#23460#32500#25252
      end
      object N14: TMenuItem
        Caption = #21307#24072#32500#25252
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object czyda: TMenuItem
        Caption = #25805#20316#21592#26723#26696
        OnClick = czydaClick
      end
      object N5: TMenuItem
        Caption = #23494'  '#30721' '#20462' '#25913
        OnClick = N5Click
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object zx: TMenuItem
        Caption = #27880#38144
        OnClick = zxClick
      end
      object tc: TMenuItem
        Caption = #36864#20986
      end
    end
    object rcyy: TMenuItem
      Caption = #33647#21697#20837#24211
      object hcys: TMenuItem
        Caption = #20837#24211#30331#35760
        OnClick = hcysClick
      end
      object lyck: TMenuItem
        Caption = #20837#24211#26597#35810
        OnClick = lyckClick
      end
      object N27: TMenuItem
        Caption = #20837#24211#25171#21360
      end
    end
    object N9: TMenuItem
      Caption = #33647#21697#20986#24211
      object N13: TMenuItem
        Caption = #20986#24211#30331#35760
      end
      object N10: TMenuItem
        Caption = #20986#24211#26597#35810
      end
      object N11: TMenuItem
        Caption = #20986#24211#25171#21360
      end
    end
    object kccx: TMenuItem
      Caption = #33647#21697#35843#20215
      object jxc: TMenuItem
        Caption = #20215#26684#35843#25972
        OnClick = jxcClick
      end
      object N6: TMenuItem
        Caption = #35843#25972#26597#35810
      end
      object N12: TMenuItem
        Caption = #35843#25972#25171#21360
      end
    end
    object N19: TMenuItem
      Caption = #33647#21697#30424#28857
      object N20: TMenuItem
        Caption = #31354#30333#30424#28857#34920
      end
      object N21: TMenuItem
        Caption = #25171#21360#30424#28857#23553#38754
      end
      object N26: TMenuItem
        Caption = '-'
      end
      object N23: TMenuItem
        Caption = #33647#21697#30424#28857
        object N25: TMenuItem
          Caption = #24320#22987#30424#28857
        end
        object N22: TMenuItem
          Caption = #30424#28857#32467#26524#22788#29702
        end
      end
    end
    object xtgl: TMenuItem
      Caption = #31995#32479#31649#29702
      object bak: TMenuItem
        Caption = #25968#25454#24211#22791#20221
        OnClick = bakClick
      end
      object N28: TMenuItem
        Caption = #25968#25454#24211#24674#22797
      end
    end
    object help: TMenuItem
      Caption = #24110#21161
      object dohelp: TMenuItem
        Caption = #20351#29992#24110#21161
      end
      object about: TMenuItem
        Caption = #20851#20110'.....'
        OnClick = aboutClick
      end
    end
    object tc1: TMenuItem
      Caption = #36864#20986
      object N3: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N3Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 64
    Top = 32
  end
end