object SQL_DM: TSQL_DM
  OldCreateOrder = False
  Height = 392
  Width = 633
  object mysql_query1: TUniQuery
    Connection = mysql_con
    SQL.Strings = (
      
        'CALL rd_patient_insert(:in_Sirname, :in_Name, :in_MiddleName, :i' +
        'n_BirthDay, :in_BirthMonth, :in_BirthYear, :in_PatientInfo, @out' +
        '_Success, @out_ErrorMessage); SELECT @out_Success AS '#39'@out_Succe' +
        'ss'#39', @out_ErrorMessage AS '#39'@out_ErrorMessage'#39)
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    OnPostError = mysql_query1PostError
    Left = 120
    Top = 104
    ParamData = <
      item
        DataType = ftString
        Name = 'in_Sirname'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'in_Name'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'in_MiddleName'
        ParamType = ptInput
        Size = 50
      end
      item
        DataType = ftBoolean
        Name = 'in_BirthDay'
        ParamType = ptInput
      end
      item
        DataType = ftBoolean
        Name = 'in_BirthMonth'
        ParamType = ptInput
      end
      item
        DataType = ftBoolean
        Name = 'in_BirthYear'
        ParamType = ptInput
      end
      item
        DataType = ftMemo
        Name = 'in_PatientInfo'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftSmallint
        Name = 'out_Success'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'out_ErrorMessage'
        ParamType = ptOutput
        Size = 50
      end>
    CommandStoredProcName = 'rd_patient_insert'
  end
  object mysql_query2: TUniQuery
    Connection = mysql_con
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    Left = 200
    Top = 104
  end
  object MySQL_mon: TUniSQLMonitor
    Options = [moSQLMonitor, moDBMonitor, moCustom]
    OnSQL = MySQL_monSQL
    Left = 32
    Top = 80
  end
  object mysql_DSQ2: TUniDataSource
    DataSet = mysql_query2
    Left = 200
    Top = 168
  end
  object mysql_DSQ1: TUniDataSource
    DataSet = mysql_query1
    Left = 120
    Top = 168
  end
  object mysql_conn_dialog: TUniConnectDialog
    DatabaseLabel = #1041#1072#1079#1072' '#1076#1072#1085#1085#1099#1093
    PortLabel = #1055#1086#1088#1090
    ProviderLabel = #1055#1088#1086#1074#1072#1081#1076#1077#1088
    Caption = #1057#1086#1077#1076#1080#1085#1077#1085#1080#1077
    UsernameLabel = #1048#1084#1103
    PasswordLabel = #1055#1072#1088#1086#1083#1100
    ServerLabel = #1057#1077#1088#1074#1077#1088
    ConnectButton = #1057#1086#1077#1076#1080#1085#1080#1090#1100
    CancelButton = #1054#1090#1084#1077#1085#1072
    LabelSet = lsRussian
    Left = 32
    Top = 128
  end
  object mysql_query3: TUniQuery
    Connection = mysql_con
    SQL.Strings = (
      'SHOW databases;')
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    Left = 280
    Top = 104
  end
  object mysql_DSQ3: TUniDataSource
    DataSet = mysql_query3
    Left = 280
    Top = 168
  end
  object mysql_DSQ4: TUniDataSource
    DataSet = mysql_query4
    Left = 360
    Top = 168
  end
  object mysql_query4: TUniQuery
    Connection = mysql_con
    SQL.Strings = (
      'SHOW databases;')
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    OnPostError = mysql_query4PostError
    Left = 360
    Top = 104
  end
  object mysql_DSQ5: TUniDataSource
    DataSet = mysql_query5
    Left = 440
    Top = 168
  end
  object mysql_query5: TUniQuery
    Connection = mysql_con
    SQL.Strings = (
      'SHOW databases;')
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    OnPostError = mysql_query4PostError
    Left = 440
    Top = 104
  end
  object mysql_con: TUniConnection
    ProviderName = 'MySQL'
    Database = 'rd'
    SpecificOptions.Strings = (
      'MySQL.Charset=cp1251')
    PoolingOptions.Validate = True
    Username = 'root'
    Server = 'localhost'
    LoginPrompt = False
    BeforeConnect = mysql_conBeforeConnect
    OnError = mysql_conError
    Left = 32
    Top = 24
  end
  object mysql_DSQ6: TUniDataSource
    DataSet = mysql_query6
    Left = 520
    Top = 168
  end
  object mysql_query6: TUniQuery
    Connection = mysql_con
    SQL.Strings = (
      'SHOW databases;')
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    OnPostError = mysql_query4PostError
    Left = 520
    Top = 104
  end
  object mysql_query_sp: TUniQuery
    Connection = mysql_con
    SQL.Strings = (
      'CALL rd_patient_select_by_id('#39'5'#39')')
    SpecificOptions.Strings = (
      'MySQL.CreateConnection=False')
    OnPostError = mysql_query1PostError
    Left = 40
    Top = 256
  end
  object mysql_query_sp_DS: TUniDataSource
    DataSet = mysql_query_sp
    Left = 40
    Top = 320
  end
end
