ypgl_.dfm

医院mis系统,把数据库到入sql2000,有什么问题请直接和杨安(catan)联系 E:[e-mail] qq:48687078

              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
              Kind = dtkDate
              ParseInput = False
              ParentFont = False
              TabOrder = 3
            end
            object BitBtn1: TBitBtn
              Left = 408
              Top = 26
              Width = 75
              Height = 25
              Caption = #26597#35810
              TabOrder = 4
              OnClick = BitBtn1Click
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000130B0000130B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                333333333333333FF3FF3333333333CC30003333333333773777333333333C33
                3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
                33003377333337F33377333333333C333300333F333337F33377339333333C33
                3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
                330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
                330077F377F337F33377993399333C33330077FF773337F33377399993333C33
                33333777733337F333FF333333333C33300033333333373FF7773333333333CC
                3000333333333377377733333333333333333333333333333333}
              NumGlyphs = 2
            end
            object BitBtn2: TBitBtn
              Left = 408
              Top = 67
              Width = 75
              Height = 25
              Caption = #26597#35810
              TabOrder = 5
              OnClick = BitBtn2Click
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
                333333333337FF3333333333330003333333333333777F333333333333080333
                3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
                33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
                B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
                BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
                B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
                3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
                333333333337F33333333333333B333333333333333733333333}
              NumGlyphs = 2
            end
          end
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20379#24212#21830#31649#29702
      ImageIndex = 1
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 796
        Height = 425
        Align = alClient
        TabOrder = 0
        object Label16: TLabel
          Left = 24
          Top = 40
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #20379#24212#21830#32534#21495
          FocusControl = DBEgysbh
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 288
          Top = 40
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #20379#24212#21830#21517#31216
          FocusControl = DBEgysmc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 544
          Top = 40
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #32852#31995#20154#22995#21517
          FocusControl = DBEdit15
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label20: TLabel
          Left = 24
          Top = 64
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #22320'              '#22336
          FocusControl = DBEdit17
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label21: TLabel
          Left = 288
          Top = 64
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #22478'               '#24066
          FocusControl = DBEdit18
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 544
          Top = 64
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #22320'              '#21306
          FocusControl = DBEdit19
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 24
          Top = 88
          Width = 81
          Height = 13
          AutoSize = False
          Caption = #22269'              '#23478
          FocusControl = DBEdit21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 288
          Top = 88
          Width = 81
          Height = 13
          AutoSize = False
          Caption = #30005'               '#35805
          FocusControl = DBEdit22
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label26: TLabel
          Left = 544
          Top = 88
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #20256'              '#30495
          FocusControl = DBEdit23
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label19: TLabel
          Left = 24
          Top = 112
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #32852#31995#20154#22836#34900
          FocusControl = DBEdit16
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 288
          Top = 112
          Width = 81
          Height = 13
          AutoSize = False
          Caption = #37038'               '#32534
          FocusControl = DBEdit20
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Bevel2: TBevel
          Left = 8
          Top = 144
          Width = 777
          Height = 1
        end
        object ControlBar2: TControlBar
          Left = 1
          Top = 1
          Width = 794
          Height = 32
          Align = alTop
          TabOrder = 0
          object addgys: TBitBtn
            Left = 11
            Top = 2
            Width = 93
            Height = 22
            Caption = #28155#21152#20379#24212#21830
            TabOrder = 0
            OnClick = addgysClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
              555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
              055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
              005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
              B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
              305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
              305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
              30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
              3055577777555557F7F555000555555999555577755555577755}
            NumGlyphs = 2
          end
          object BTgysbb: TButton
            Left = 229
            Top = 2
            Width = 73
            Height = 22
            Caption = #20379#24212#21830#25253#34920
            TabOrder = 1
            OnClick = BTgysbbClick
          end
          object deletegys: TBitBtn
            Left = 117
            Top = 2
            Width = 99
            Height = 22
            Caption = #21024#38500#20379#24212#21830
            TabOrder = 2
            OnClick = deletegysClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
              3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
              33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
              33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
              333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
              03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
              33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
              0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
              3333333337FFF7F3333333333000003333333333377777333333}
            NumGlyphs = 2
          end
        end
        object DBEgysbh: TDBEdit
          Left = 112
          Top = 40
          Width = 140
          Height = 21
          DataField = #20379#24212#21830#32534#21495
          DataSource = DMypgl.DSgys2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          OnDblClick = DBEgysbhDblClick
        end
        object DBEgysmc: TDBEdit
          Left = 376
          Top = 40
          Width = 140
          Height = 21
          DataField = #20379#24212#21830#21517#31216
          DataSource = DMypgl.DSgys2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object DBEdit15: TDBEdit
          Left = 632
          Top = 40
          Width = 140
          Height = 21
          DataField = #32852#31995#20154#22995#21517
          DataSource = DMypgl.DSgys2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
        end
        object DBEdit17: TDBEdit
          Left = 112
          Top = 64
          Width = 140
          Height = 21
          DataField = #22320#22336
          DataSource = DMypgl.DSgys2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ReadOnly = True
          TabOrder = 4
        end
        object DBEdit18: TDBEdit
          Left = 376
          Top = 64
          Width = 140
          Height = 21
          DataField = #22478#24066
          DataSource = DMypgl.DSgys2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ReadOnly = True
          TabOrder = 5