dragdropdemodata.dfm

胜天进销存源码,国产优秀的进销存

    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Param'
        ParamType = ptUnknown
      end>
    object qryFilmsPRIMED: TIntegerField
      FieldName = 'PRIMED'
      Origin = 'DEMOSDB."FILMS.DB".ID'
    end
    object qryFilmsFILMID: TIntegerField
      FieldName = 'FILMID'
      Origin = 'DEMOSDB."FILMS.DB".CAPTION'
    end
    object qryFilmsGENREID: TIntegerField
      FieldName = 'GENREID'
      Origin = 'DEMOSDB."FILMS.DB".ID'
    end
    object qryFilmsID: TIntegerField
      FieldName = 'ID'
      Origin = 'DEMOSDB."FILMS.DB".YEAR'
    end
    object qryFilmsCAPTION: TStringField
      FieldName = 'CAPTION'
      Origin = 'DEMOSDB."FILMS.DB".TAGLINE'
      Size = 50
    end
    object qryFilmsYEAR: TIntegerField
      FieldName = 'YEAR'
      Origin = 'DEMOSDB."FILMS.DB".PLOTOUTLINE'
    end
    object qryFilmsTAGLINE: TStringField
      FieldName = 'TAGLINE'
      Origin = 'DEMOSDB."FILMS.DB".RUNTIME'
      Size = 250
    end
    object qryFilmsPLOTOUTLINE: TStringField
      FieldName = 'PLOTOUTLINE'
      Origin = 'DEMOSDB."FILMS.DB".COLOR'
      Size = 200
    end
    object qryFilmsRUNTIME: TIntegerField
      FieldName = 'RUNTIME'
      Origin = 'DEMOSDB."FILMS.DB".PHOTO'
    end
    object qryFilmsCOLOR: TStringField
      FieldName = 'COLOR'
      Origin = 'DEMOSDB."FILMS.DB".ICON'
      Size = 50
    end
    object qryFilmsPHOTO: TBlobField
      FieldName = 'PHOTO'
      Origin = 'DEMOSDB."FILMS.DB".WEBSITE'
      BlobType = ftParadoxOle
      Size = 10
    end
    object qryFilmsICON: TBlobField
      FieldName = 'ICON'
      Origin = 'DEMOSDB."FILMSGENRES.DB".ID'
      BlobType = ftParadoxOle
      Size = 10
    end
    object qryFilmsWEBSITE: TStringField
      FieldName = 'WEBSITE'
      Origin = 'DEMOSDB."FILMSGENRES.DB".FILMID'
      Size = 50
    end
  end
  object tblGenres: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'GENRES.DB'
    Left = 480
    Top = 160
    object tblGenresID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblGenresNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
  end
  object Database: TDatabase
    Connected = True
    DatabaseName = 'DemosDB'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 16
    Top = 16
  end
  object qryFilmsCompanies: TQuery
    Active = True
    CachedUpdates = True
    BeforeDelete = qryFilmsCompaniesBeforeDelete
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      'SELECT  '
      '  FilmsCompaniesStaff.ID, '
      '  FilmsCompaniesStaff.FilmID, '
      '  FilmsCompaniesStaff.CompanyID,'
      '  Companies.CompanyName'
      'FROM '
      '  FilmsCompaniesStaff'
      'LEFT JOIN '
      '  Companies on Companies.ID = FilmsCompaniesStaff.CompanyID'
      'ORDER BY '
      '  FilmsCompaniesStaff.FilmID')
    UpdateObject = usqFilmsCompanies
    Left = 256
    Top = 56
    object qryFilmsCompaniesID: TIntegerField
      FieldName = 'ID'
      Origin = 'DEMOSDB."FilmsCompaniesStaff.DB".ID'
    end
    object qryFilmsCompaniesFilmID: TIntegerField
      FieldName = 'FilmID'
      Origin = 'DEMOSDB."FilmsCompaniesStaff.DB".FILMID'
    end
    object qryFilmsCompaniesCompanyID: TIntegerField
      FieldName = 'CompanyID'
      Origin = 'DEMOSDB."FilmsCompaniesStaff.DB".COMPANYID'
    end
    object qryFilmsCompaniesCompanyName: TStringField
      FieldName = 'CompanyName'
      Origin = 'DEMOSDB."COMPANIES.DB".COMPANYNAME'
      Size = 50
    end
  end
  object tblCompaniesType: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'COMPANIESTYPE.DB'
    Left = 248
    Top = 272
  end
  object qryFilmsPersons: TQuery
    Active = True
    CachedUpdates = True
    AfterPost = qryFilmsPersonsAfterPost
    BeforeDelete = qryFilmsPersonsBeforeDelete
    OnCalcFields = qryFilmsPersonsCalcFields
    DatabaseName = 'DemosDB'
    SQL.Strings = (
      'SELECT  '
      
        '  FilmsPersonsStaff.ID, FilmsPersonsStaff.FilmID, FilmsPersonsSt' +
        'aff.PersonLineID,'
      
        '  Persons.ID as PersonID, Persons.BIOGRAPHY, Persons.BIRTHCOUNTR' +
        'Y, '
      '  Persons.BIRTHNAME, Persons.DATEOFBIRTH, Persons.FIRSTNAME, '
      
        '  Persons.LOCATIONOFBIRTH, Persons.NICKNAME, Persons.SECONDNAME,' +
        ' '
      '  Persons.HOMEPAGE, Persons.Gender'
      'FROM '
      '  FilmsPersonsStaff'
      'LEFT JOIN '
      '  Persons on FilmsPersonsStaff.PersonID = Persons.ID'
      'ORDER BY '
      '  FilmsPersonsStaff.FilmID')
    UpdateObject = usqFilmsPersons
    Left = 168
    Top = 56
    object qryFilmsPersonsName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Name'
      Calculated = True
    end
    object qryFilmsPersonsID: TIntegerField
      FieldName = 'ID'
      Origin = 'DEMOSDB."FILMSPERSONSSTAFF.DB".ID'
    end
    object qryFilmsPersonsFilmID: TIntegerField
      FieldName = 'FilmID'
      Origin = 'DEMOSDB."FILMSPERSONSSTAFF.DB".FILMID'
    end
    object qryFilmsPersonsPersonID: TIntegerField
      FieldName = 'PersonID'
      Origin = 'DEMOSDB."PERSONS.DB".ID'
    end
    object qryFilmsPersonsPersonLineID: TIntegerField
      FieldName = 'PersonLineID'
      Origin = 'DEMOSDB."FILMSPERSONSSTAFF.DB".PERSONLINEID'
    end
    object qryFilmsPersonsBIOGRAPHY: TMemoField
      FieldName = 'BIOGRAPHY'
      Origin = 'DEMOSDB."PERSONS.DB".BIOGRAPHY'
      BlobType = ftMemo
      Size = 10
    end
    object qryFilmsPersonsBIRTHCOUNTRY: TIntegerField
      FieldName = 'BIRTHCOUNTRY'
      Origin = 'DEMOSDB."PERSONS.DB".BIRTHCOUNTRY'
    end
    object qryFilmsPersonsBIRTHNAME: TStringField
      FieldName = 'BIRTHNAME'
      Origin = 'DEMOSDB."PERSONS.DB".BIRTHNAME'
      Size = 50
    end
    object qryFilmsPersonsDATEOFBIRTH: TDateTimeField
      FieldName = 'DATEOFBIRTH'
      Origin = 'DEMOSDB."PERSONS.DB".DATEOFBIRTH'
    end
    object qryFilmsPersonsFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
      Origin = 'DEMOSDB."PERSONS.DB".FIRSTNAME'
      Size = 50
    end
    object qryFilmsPersonsLOCATIONOFBIRTH: TStringField
      FieldName = 'LOCATIONOFBIRTH'
      Origin = 'DEMOSDB."PERSONS.DB".LOCATIONOFBIRTH'
      Size = 50
    end
    object qryFilmsPersonsNICKNAME: TStringField
      FieldName = 'NICKNAME'
      Origin = 'DEMOSDB."PERSONS.DB".NICKNAME'
      Size = 50
    end
    object qryFilmsPersonsSECONDNAME: TStringField
      FieldName = 'SECONDNAME'
      Origin = 'DEMOSDB."PERSONS.DB".SECONDNAME'
      Size = 50
    end
    object qryFilmsPersonsHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Origin = 'DEMOSDB."PERSONS.DB".HOMEPAGE'
      Size = 100
    end
    object qryFilmsPersonsGender: TBooleanField
      FieldName = 'Gender'
      Origin = 'DEMOSDB."PERSONS.DB".GENDER'
    end
  end
  object tblPersonsLine: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'PERSONSLINE.DB'
    Left = 408
    Top = 272
    object tblPersonsLineID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblPersonsLineNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
  end
  object tblFilmsCompaniesStaff: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'FILMSCOMPANIESSTAFF.DB'
    Left = 480
    Top = 16
    object tblFilmsCompaniesStaffID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblFilmsCompaniesStaffFILMID: TIntegerField
      FieldName = 'FILMID'
    end
    object tblFilmsCompaniesStaffCOMPANYID: TIntegerField
      FieldName = 'COMPANYID'
    end
    object tblFilmsCompaniesStaffDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Size = 100
    end
  end
  object tblFilmsGenres: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'FILMSGENRES.DB'
    Left = 480
    Top = 64
    object tblFilmsGenresID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblFilmsGenresFILMID: TIntegerField
      FieldName = 'FILMID'
    end
    object tblFilmsGenresGENREID: TIntegerField
      FieldName = 'GENREID'
    end
  end
  object tblFilmsPersonsStaff: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'FILMSPERSONSSTAFF.DB'
    Left = 480
    Top = 112
    object tblFilmsPersonsStaffID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblFilmsPersonsStaffFILMID: TIntegerField
      FieldName = 'FILMID'
    end
    object tblFilmsPersonsStaffPERSONLINEID: TIntegerField
      FieldName = 'PERSONLINEID'
    end
    object tblFilmsPersonsStaffPERSONID: TIntegerField
      FieldName = 'PERSONID'
    end
    object tblFilmsPersonsStaffDESCRIPTION: TStringField
      FieldName = 'DESCRIPTION'
      Size = 150
    end
  end
  object tlbCountries: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'COUNTRIES'
    Left = 472
    Top = 272
  end
  object usqFilmsCompanies: TUpdateSQL
    ModifySQL.Strings = (
      '')
    Left = 256
    Top = 16
  end
  object usqFilmsPersons: TUpdateSQL
    Left = 168
    Top = 16
  end
  object usqFilms: TUpdateSQL
    Left = 80
    Top = 16
  end
  object tblFilmsScreens: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'FILMSSCREENS.DB'
    Left = 336
    Top = 272
  end
  object dsPersons: TDataSource
    DataSet = tblPersons
    Left = 24
    Top = 312
  end
  object dsCompanies: TDataSource
    DataSet = tblCompanies
    Left = 96
    Top = 312
  end
  object tblPersons: TTable
    Active = True
    BeforePost = tblPersonsBeforeUpdate
    AfterPost = tblPersonsAfterUpdate
    BeforeDelete = tblPersonsBeforeUpdate
    AfterDelete = tblPersonsAfterUpdate
    DatabaseName = 'DemosDB'
    TableName = 'PERSONS.DB'
    Left = 24
    Top = 272
  end
  object tblCompanies: TTable
    Active = True
    BeforePost = tblCompaniesBeforeUpdate
    AfterPost = tblCompaniesAfterUpdate
    BeforeDelete = tblCompaniesBeforeUpdate
    AfterDelete = tblCompaniesAfterUpdate
    DatabaseName = 'DemosDB'
    TableName = 'COMPANIES.DB'
    Left = 96
    Top = 272
  end
  object dsFilmsDict: TDataSource
    DataSet = tblFilmsDict
    Left = 168
    Top = 312
  end
  object tblFilmsDict: TTable
    Active = True
    BeforePost = tblFilmsDictBeforeUpdate
    AfterPost = tblFilmsDictAfterUpdate
    BeforeDelete = tblFilmsDictBeforeUpdate
    AfterDelete = tblFilmsDictAfterUpdate
    DatabaseName = 'DemosDB'
    TableName = 'FILMS.DB'
    Left = 168
    Top = 272
  end
end