register.dfm

用Delphi开发的医院管理系统

object Form2: TForm2
  Left = 0
  Top = 0
  AlphaBlend = True
  AlphaBlendValue = 220
  BorderStyle = bsNone
  Caption = #12288#25346'    '#21495
  ClientHeight = 461
  ClientWidth = 627
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label15: TLabel
    Left = 184
    Top = 24
    Width = 240
    Height = 29
    Caption = #29992#25143#22522#26412#36164#26009#36755#20837
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object PageControl1: TPageControl
    Left = 21
    Top = 60
    Width = 588
    Height = 369
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '         '#12288#36755#12288#12288'  '#20837#12288'       '
      object Label3: TLabel
        Left = 112
        Top = 117
        Width = 100
        Height = 19
        Caption = #22995'    '#21517#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label4: TLabel
        Left = 112
        Top = 144
        Width = 100
        Height = 19
        Caption = #24615'    '#21035#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label5: TLabel
        Left = 112
        Top = 174
        Width = 100
        Height = 19
        Caption = #24180#12288#12288#40836#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label6: TLabel
        Left = 112
        Top = 199
        Width = 100
        Height = 19
        Caption = #24037'    '#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label7: TLabel
        Left = 112
        Top = 224
        Width = 100
        Height = 19
        Caption = #21333#12288#12288#20301#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label1: TLabel
        Left = 112
        Top = 61
        Width = 100
        Height = 19
        Caption = #35777#12288#12288#20214#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label2: TLabel
        Left = 112
        Top = 86
        Width = 100
        Height = 19
        Caption = #35777#20214#32534#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 218
        Top = 88
        Width = 239
        Height = 21
        TabOrder = 1
      end
      object Edit2: TEdit
        Left = 218
        Top = 115
        Width = 239
        Height = 21
        TabOrder = 2
      end
      object Edit3: TEdit
        Left = 218
        Top = 169
        Width = 239
        Height = 21
        TabOrder = 4
      end
      object Edit4: TEdit
        Left = 218
        Top = 196
        Width = 239
        Height = 21
        TabOrder = 5
      end
      object Edit5: TEdit
        Left = 218
        Top = 224
        Width = 239
        Height = 21
        TabOrder = 6
      end
      object ComboBox2: TComboBox
        Left = 218
        Top = 142
        Width = 41
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
        Items.Strings = (
          #30007
          #22899)
      end
      object Button1: TButton
        Left = 447
        Top = 294
        Width = 89
        Height = 25
        Caption = #23384#20837#25968#25454#24211
        Default = True
        TabOrder = 7
        OnClick = Button1Click
      end
      object ComboBox1: TComboBox
        Left = 218
        Top = 61
        Width = 121
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 0
        Items.Strings = (
          #36523#20221#35777
          #20891#23448#35777
          #23398#29983#35777)
      end
    end
    object TabSheet2: TTabSheet
      Caption = '       '#12288#26356#12288#12288#26032#12288'     '
      ImageIndex = 1
      object Label14: TLabel
        Left = 96
        Top = 218
        Width = 100
        Height = 19
        Caption = #21333#12288#12288#20301#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label13: TLabel
        Left = 96
        Top = 193
        Width = 100
        Height = 19
        Caption = #24037'    '#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label12: TLabel
        Left = 96
        Top = 162
        Width = 100
        Height = 19
        Caption = #24180#12288#12288#40836#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label8: TLabel
        Left = 96
        Top = 54
        Width = 100
        Height = 19
        Caption = #35777#20214#32534#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label11: TLabel
        Left = 96
        Top = 81
        Width = 100
        Height = 19
        Caption = #35777#20214#31867#22411#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label10: TLabel
        Left = 96
        Top = 135
        Width = 100
        Height = 19
        Caption = #24615'    '#21035#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label9: TLabel
        Left = 96
        Top = 108
        Width = 100
        Height = 19
        Caption = #22995'    '#21517#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Label16: TLabel
        Left = 207
        Top = 264
        Width = 192
        Height = 13
        Caption = #35828#26126#65306#35777#20214#31867#22411#21644#35777#20214#21495#30721#19981#21487#21464#65281
      end
      object Button4: TButton
        Left = 447
        Top = 258
        Width = 90
        Height = 25
        Caption = #26356'        '#26032
        TabOrder = 8
        OnClick = Button4Click
      end
      object Edit6: TEdit
        Left = 202
        Top = 54
        Width = 223
        Height = 21
        TabOrder = 0
      end
      object Edit10: TEdit
        Left = 202
        Top = 218
        Width = 223
        Height = 21
        TabOrder = 6
      end
      object Edit9: TEdit
        Left = 202
        Top = 191
        Width = 223
        Height = 21
        TabOrder = 5
      end
      object Edit8: TEdit
        Left = 202
        Top = 164
        Width = 223
        Height = 21
        TabOrder = 4
      end
      object Edit7: TEdit
        Left = 202
        Top = 108
        Width = 223
        Height = 21
        TabOrder = 1
      end
      object ComboBox3: TComboBox
        Left = 202
        Top = 81
        Width = 97
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
        Items.Strings = (
          #36523#20221#35777
          #20891#23448#35777
          #23398#29983#35777)
      end
      object ComboBox4: TComboBox
        Left = 202
        Top = 137
        Width = 41
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        Items.Strings = (
          #30007
          #22899)
      end
      object Button3: TButton
        Left = 447
        Top = 52
        Width = 90
        Height = 25
        Caption = #26597#12288#12288#25214
        Default = True
        TabOrder = 7
        OnClick = Button3Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #12288'  '#26597' '#30475' '#25968' '#25454' '#12288
      ImageIndex = 2
      object DBGrid1: TDBGrid
        Left = 3
        Top = 40
        Width = 574
        Height = 289
        DataSource = DataSource1
        DragMode = dmAutomatic
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'patientID'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gender'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'age'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'patientNo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'company'
            Visible = True
          end>
      end
      object Button5: TButton
        Left = 447
        Top = 8
        Width = 90
        Height = 26
        Caption = #12288#26174#12288#31034#12288
        TabOrder = 1
        OnClick = Button5Click
      end
    end
  end
  object Button2: TButton
    Left = 472
    Top = 435
    Width = 90
    Height = 25
    Caption = #36820#22238#30331#24405#30028#38754
    TabOrder = 1
    OnClick = Button2Click
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection1
    Parameters = <>
    Left = 32
    Top = 88
  end
  object DataSource1: TDataSource
    AutoEdit = False
    Left = 32
    Top = 384
  end
end