unit1.dfm

a small application in Mysql and Delphi

        end
        object Edit7: TEdit
          Left = 5
          Top = 48
          Width = 44
          Height = 21
          TabOrder = 3
        end
        object Edit13: TEdit
          Left = 56
          Top = 48
          Width = 169
          Height = 21
          TabOrder = 4
        end
        object Edit19: TEdit
          Left = 234
          Top = 48
          Width = 49
          Height = 21
          TabOrder = 5
        end
        object Edit25: TEdit
          Left = 290
          Top = 49
          Width = 118
          Height = 21
          TabOrder = 6
        end
        object Edit26: TEdit
          Left = 413
          Top = 50
          Width = 52
          Height = 21
          TabOrder = 7
        end
        object Edit27: TEdit
          Left = 474
          Top = 50
          Width = 63
          Height = 21
          TabOrder = 8
        end
        object Edit28: TEdit
          Left = 559
          Top = 51
          Width = 74
          Height = 21
          TabOrder = 9
        end
      end
      object ComboBox3: TComboBox
        Left = 472
        Top = 176
        Width = 129
        Height = 21
        ItemHeight = 13
        TabOrder = 8
        Items.Strings = (
          'Code_film'
          'Titre'
          'Annee'
          'Genre'
          'Evaluation'
          'Code_personne'
          'Nb_emprunts')
      end
      object BitBtn43: TBitBtn
        Left = 604
        Top = 189
        Width = 75
        Height = 25
        Caption = 'Chercher'
        TabOrder = 9
        OnClick = BitBtn43Click
      end
      object Edit31: TEdit
        Left = 470
        Top = 205
        Width = 131
        Height = 21
        TabOrder = 10
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Joue_dans'
      ImageIndex = 3
      object Label32: TLabel
        Left = 344
        Top = 176
        Width = 107
        Height = 16
        Caption = 'Recherche par '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label40: TLabel
        Left = 344
        Top = 206
        Width = 127
        Height = 16
        Caption = 'Valeur '#224' chercher:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object suivant4: TBitBtn
        Left = 5
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Suivant'
        TabOrder = 0
        OnClick = suivant4Click
      end
      object precedant4: TBitBtn
        Left = 174
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Pr'#233'c'#233'dant'
        TabOrder = 1
        OnClick = precedant4Click
      end
      object premier4: TBitBtn
        Left = 347
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Premier enregistrement'
        TabOrder = 2
        OnClick = premier4Click
      end
      object dernier4: TBitBtn
        Left = 528
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Dernier enregistrement'
        TabOrder = 3
        OnClick = dernier4Click
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 8
        Width = 665
        Height = 120
        DataSource = DataSource4
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object BitBtn21: TBitBtn
        Left = 4
        Top = 168
        Width = 141
        Height = 25
        Caption = 'Nouveau'
        TabOrder = 5
        OnClick = BitBtn21Click
      end
      object BitBtn28: TBitBtn
        Left = 173
        Top = 168
        Width = 140
        Height = 25
        Caption = 'Modifier/Supprimer'
        TabOrder = 6
        OnClick = BitBtn28Click
      end
      object GroupBox5: TGroupBox
        Left = 0
        Top = 232
        Width = 641
        Height = 105
        Caption = 'Modification/Suppression'
        TabOrder = 7
        object Label8: TLabel
          Left = 16
          Top = 24
          Width = 75
          Height = 13
          Caption = 'Code_personne'
        end
        object Label14: TLabel
          Left = 110
          Top = 25
          Width = 46
          Height = 13
          Caption = 'Code_film'
        end
        object BitBtn9: TBitBtn
          Left = 400
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Modifier'
          TabOrder = 0
          OnClick = BitBtn9Click
        end
        object BitBtn10: TBitBtn
          Left = 560
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Annuler'
          TabOrder = 1
        end
        object BitBtn36: TBitBtn
          Left = 480
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Supprimer'
          Enabled = False
          TabOrder = 2
          OnClick = BitBtn36Click
        end
        object Edit8: TEdit
          Left = 16
          Top = 48
          Width = 73
          Height = 21
          TabOrder = 3
        end
        object Edit14: TEdit
          Left = 107
          Top = 48
          Width = 62
          Height = 21
          TabOrder = 4
        end
      end
      object ComboBox4: TComboBox
        Left = 472
        Top = 176
        Width = 129
        Height = 21
        ItemHeight = 13
        TabOrder = 8
        Items.Strings = (
          'Code_personne'
          'Code_film')
      end
      object BitBtn44: TBitBtn
        Left = 604
        Top = 190
        Width = 75
        Height = 25
        Caption = 'Chercher'
        TabOrder = 9
        OnClick = BitBtn44Click
      end
      object Edit32: TEdit
        Left = 470
        Top = 205
        Width = 131
        Height = 21
        TabOrder = 10
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Media'
      ImageIndex = 4
      object Label33: TLabel
        Left = 344
        Top = 176
        Width = 107
        Height = 16
        Caption = 'Recherche par '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label41: TLabel
        Left = 344
        Top = 206
        Width = 127
        Height = 16
        Caption = 'Valeur '#224' chercher:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object suivant5: TBitBtn
        Left = 5
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Suivant'
        TabOrder = 0
        OnClick = suivant5Click
      end
      object precedant5: TBitBtn
        Left = 174
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Pr'#233'c'#233'dant'
        TabOrder = 1
        OnClick = precedant5Click
      end
      object premier5: TBitBtn
        Left = 347
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Premier enregistrement'
        TabOrder = 2
        OnClick = premier5Click
      end
      object dernier5: TBitBtn
        Left = 528
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Dernier enregistrement'
        TabOrder = 3
        OnClick = dernier5Click
      end
      object DBGrid5: TDBGrid
        Left = 0
        Top = 8
        Width = 665
        Height = 120
        DataSource = DataSource5
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object BitBtn22: TBitBtn
        Left = 4
        Top = 168
        Width = 141
        Height = 25
        Caption = 'Nouveau'
        TabOrder = 5
        OnClick = BitBtn22Click
      end
      object BitBtn29: TBitBtn
        Left = 173
        Top = 168
        Width = 140
        Height = 25
        Caption = 'Modifier/Supprimer'
        TabOrder = 6
        OnClick = BitBtn29Click
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 232
        Width = 641
        Height = 105
        Caption = 'Modification/Suppression'
        TabOrder = 7
        object Label9: TLabel
          Left = 16
          Top = 24
          Width = 59
          Height = 13
          Caption = 'Code_media'
        end
        object Label15: TLabel
          Left = 110
          Top = 25
          Width = 24
          Height = 13
          Caption = 'Type'
        end
        object BitBtn5: TBitBtn
          Left = 400
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Modifier'
          TabOrder = 0
          OnClick = BitBtn5Click
        end
        object BitBtn6: TBitBtn
          Left = 560
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Annuler'
          TabOrder = 1
        end
        object BitBtn37: TBitBtn
          Left = 480
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Supprimer'
          Enabled = False
          TabOrder = 2
          OnClick = BitBtn37Click
        end
        object Edit9: TEdit
          Left = 16
          Top = 48
          Width = 73
          Height = 21
          TabOrder = 3
        end
        object Edit15: TEdit
          Left = 107
          Top = 48
          Width = 158
          Height = 21
          TabOrder = 4
        end
      end
      object ComboBox5: TComboBox
        Left = 472
        Top = 176
        Width = 129
        Height = 21
        ItemHeight = 13
        TabOrder = 8
        Items.Strings = (
          'Code_media'
          'Type')
      end
      object BitBtn45: TBitBtn
        Left = 604
        Top = 189
        Width = 75
        Height = 25
        Caption = 'Chercher'
        TabOrder = 9
        OnClick = BitBtn45Click
      end
      object Edit33: TEdit
        Left = 470
        Top = 205
        Width = 131
        Height = 21
        TabOrder = 10
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Localisation'
      ImageIndex = 5
      object Label34: TLabel
        Left = 344
        Top = 176
        Width = 107
        Height = 16
        Caption = 'Recherche par '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label42: TLabel
        Left = 344
        Top = 206
        Width = 127
        Height = 16
        Caption = 'Valeur '#224' chercher:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object suivant6: TBitBtn
        Left = 5
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Suivant'
        TabOrder = 0
        OnClick = suivant6Click
      end
      object precedant6: TBitBtn
        Left = 174
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Pr'#233'c'#233'dant'
        TabOrder = 1
        OnClick = precedant6Click
      end
      object premier6: TBitBtn
        Left = 347
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Premier enregistrement'
        TabOrder = 2
        OnClick = premier6Click
      end
      object dernier6: TBitBtn
        Left = 528
        Top = 136
        Width = 137
        Height = 25
        Caption = 'Dernier enregistrement'
        TabOrder = 3
        OnClick = dernier6Click
      end
      object DBGrid6: TDBGrid
        Left = 0
        Top = 8
        Width = 665
        Height = 120
        DataSource = DataSource6
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object BitBtn23: TBitBtn
        Left = 4
        Top = 168
        Width = 141
        Height = 25
        Caption = 'Nouveau'
        TabOrder = 5
        OnClick = BitBtn23Click
      end
      object BitBtn30: TBitBtn
        Left = 173
        Top = 168
        Width = 140
        Height = 25
        Caption = 'Modifier/Supprimer'
        TabOrder = 6
        OnClick = BitBtn30Click
      end
      object GroupBox7: TGroupBox
        Left = 0
        Top = 232
        Width = 641
        Height = 105
        Caption = 'Modification/Suppression'
        TabOrder = 7
        object Label10: TLabel
          Left = 16
          Top = 24
          Width = 83
          Height = 13
          Caption = 'Code_localisation'
        end
        object Label16: TLabel
          Left = 122
          Top = 25
          Width = 53
          Height = 13
          Caption = 'Description'
        end
        object BitBtn13: TBitBtn
          Left = 400
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Modifier'
          TabOrder = 0
          OnClick = BitBtn13Click
        end
        object BitBtn14: TBitBtn
          Left = 560
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Annuler'
          TabOrder = 1
        end
        object BitBtn38: TBitBtn
          Left = 480
          Top = 72
          Width = 75
          Height = 25
          Caption = 'Supprimer'
          Enabled = False
          TabOrder = 2
          OnClick = BitBtn38Click
        end
        object Edit10: TEdit
          Left = 16