main.dfm

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 298 行

object fmMain: TfmMain
  Left = 161
  Top = 111
  Width = 659
  Height = 502
  Caption = 'HIS'#21307#38498#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
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000999
    9999999999999999999999999990099999999999999999999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999FFFF99999999999990099999999FFFFFFFFFFFFFF9999999900999
    99999FFFFFFFFFFFFFF999999990099999999FFFFFFFFFFFFFF9999999900999
    99999FFFFFFFFFFFFFF99999999009999999999999FFFF999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999FFFF9999999999999009999999999999FFFF999999999999900999
    9999999999999999999999999990099999999999999999999999999999900000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFF0000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    0000000000000000000000000000099999999999999009999999999999900999
    999FF99999900999999FF999999009999FFFFFF9999009999FFFFFF999900999
    999FF99999900999999FF9999990099999999999999000000000000000000000
    00000000000000000000000000000000000000000000FFFF0000FFFF00000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000FFFF0000FFFF0000FFFF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 80
    Top = 48
    Width = 153
    Height = 105
    Shape = bsFrame
  end
  object Bevel4: TBevel
    Left = 352
    Top = 48
    Width = 153
    Height = 257
    Shape = bsFrame
  end
  object Bevel3: TBevel
    Left = 80
    Top = 200
    Width = 153
    Height = 113
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 104
    Top = 72
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #33647#21697#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 104
    Top = 106
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #25910#36153#39033#30446
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label4: TLabel
    Left = 400
    Top = 86
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #38376#35786#25346#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label5: TLabel
    Left = 400
    Top = 204
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #38376#35786#25910#36153
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label7: TLabel
    Left = 400
    Top = 145
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #38376#35786#21010#20215
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label9: TLabel
    Left = 104
    Top = 233
    Width = 80
    Height = 16
    Cursor = crHandPoint
    Caption = #31185#23460#25346#21495#37327
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label10: TLabel
    Left = 104
    Top = 272
    Width = 80
    Height = 16
    Cursor = crHandPoint
    Caption = #33647#21697#24211#23384#37327
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label11: TLabel
    Left = 91
    Top = 194
    Width = 56
    Height = 14
    Caption = #38498#38271#26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 360
    Top = 41
    Width = 56
    Height = 14
    Caption = #38376#35786#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 90
    Top = 42
    Width = 56
    Height = 14
    Caption = #23383#20856#32500#25252
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 400
    Top = 263
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #33647#25151#21457#33647
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 437
    Width = 651
    Height = 19
    Panels = <
      item
        Text = #25968#25454#24211#24320#21457#32463#20856#26696#20363#35299#26512'   '#28165#21326#22823#23398#20986#29256#31038'   '#29992#25143#30331#24405#21151#33021#21644#26435#38480#31649#29702#21151#33021#21442#32771#36827#38144#23384#23454#20363
        Width = 500
      end
      item
        Width = 30
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 568
    object mnuInfo: TMenuItem
      Caption = #23383#20856#32500#25252
      object mnuMedInfo: TMenuItem
        Caption = #33647#21697#20449#24687
        OnClick = mnuMedInfoClick
      end
      object mnuFeeInfo: TMenuItem
        Caption = #25910#36153#39033#30446
        OnClick = mnuFeeInfoClick
      end
    end
    object mnuBook: TMenuItem
      Caption = #38376#35786#31649#29702
      object mnuReg: TMenuItem
        Caption = #38376#35786#25346#21495
        OnClick = mnuRegClick
      end
      object mnuCal: TMenuItem
        Caption = #38376#35786#21010#20215
        OnClick = mnuCalClick
      end
      object mnuPay: TMenuItem
        Caption = #38376#35786#25910#36153
        OnClick = mnuPayClick
      end
      object mnuGetMed: TMenuItem
        Caption = #33647#25151#21457#33647
        OnClick = mnuGetMedClick
      end
    end
    object mnuQuery: TMenuItem
      Caption = #38498#38271#26597#35810
      object mnuQueryReg: TMenuItem
        Caption = #31185#23460#25346#21495#37327
        OnClick = mnuQueryRegClick
      end
      object mnuMedStock: TMenuItem
        Caption = #33647#21697#24211#23384#37327
        OnClick = mnuMedStockClick
      end
    end
    object mnuExit: TMenuItem
      Caption = #36864#20986#31995#32479
      OnClick = mnuExitClick
    end
  end
end