Ответить

А какие параметры будут учитываться?

Ответить

Уточни пожалуйста какую базу предполагаешь использовать, какие поля должны быть. Если в SQL Server, то скинь все на емельяна: oleg.chemodanov@thomson.com , скину варианты скриптов

Ответить

Мне надо написать базу данных по этим конц товарам в VB6. я думала что млжет у кого есть уже что то подобное!!!!!!! мне нужна сама бАЗА ДАННЫХ, желательно в Access.

Ответить

Ответить

Ответить

Мне вообще то не важно с колько таблиц! в данный момент для меня главное - это то, что хоть будет начало. А вообще, в забумках было 3 таблицы: таблица заказов, таблица склада и таблица использованых товаров(проданых).

<=Alex=> ! ну напиши мне таблицы, если можешь! начни заполнять, а там я доделаю! просто мне надо чтобы кто то помог. мне самой не сообразить с чего начать

Ответить

Светик,

Дай e-mail пришлю образец.

Ответить

мой e-mail chvetik@rin.ru

Ответить

Private Sub Form_Load()
    Dim dbFile As String
    ' Проверяет наличие файла, имеющего имя, которое будет присвоено новой базе данных. Если есть такая база, то новая база не создается, если нет то вызывается функция и база создается.
    If Dir(app.path & "\kadrs.Mdb") <> "" Then
        dbFile = "C:\CSBIEE\Examples" & "\kadrs.Mdb"
    Else
        dbFile = dbgreit()
    End If
End Sub

Public Function dbgreit()
    'Описание БД и рабочей области
    Dim dbkadr As DAO.Database, NewWs As DAO.Workspace
    ' Описание таблицы и отношения
    Dim dbOpts As Long, dbName As String, tbWorker As TableDef
    Dim tbFam As TableDef, Rel1 As Relation
    'Описание индексов
    Dim Ind1, Ind2, Ind3, Ind4, Ind5 As Index
    Dim Fin, Fr, Fin2, Fin3, Fr2, Fin4, Fr3, Fin5, Fr4 As Field
    Dim Fin6, Fr5, Fin7, Fr6, Fin8, Fr7, Frel As Field
    Dim Ind9 As Index, Fs1, Fs2 As Field
    ' Описание полей табл. Worker
    ReDim F(1 To 54) As Field
    'Описание полей табл. Family
    ReDim P(1 To 10) As Field '
    ' Строковая переменная, указывающая на файл БД находящийся по тому же пути, что и файл программы.
    dbName = app.path & "\kadrs.Mdb"
    ' Создание рабочей области
    Set NewWs = DBEngine.Workspaces(0)
    ' Параметры БД - версия Jet-машины 3,5 и кодирование.
    dbOpts = dbVersion35 + dnEncrypt
    Set dbkadr = NewWs.CreateDatabase(dbName, dbLangCyrillic, dbOpts)
    ' добавление таблицы с именем Worker в БД
    Set tbWorker = dbkadr.CreateTableDef("Worker")
    ' добавление таблицы с именем Family в БД
    Set tbFam = dbkadr.CreateTableDef("Family")
    ' Создание и описание счетчика с именем Код (табл. Worker)
    Set Fin = tbWorker.CreateField("Код", dbLong) ' Создание поля в таблице с именем Код
    Set Frel = tbWorker.CreateField("Number", dbLong) ' Создаем в таблице поле связи
    Fin.Attributes = dbAutoIncrField ' Атрибуты поля - автоинкремент
    tbWorker.Fields.Append Fin ' Добавляем поля в таблицу
    tbWorker.Fields.Append Frel
    ' Первичный ключ таблицы Worker (индекс по полю Number)
    Set Ind1 = tbWorker.CreateIndex("Number")
    Ind1.Primary = True ' Устанавливаем свойство ключа - первичный ключ
    Set Frel = Ind1.CreateField("Number", dbLong) ' Создаем индексное поле аналогичное полю связи из таблицы
    Ind1.Fields.Append Frel ' Добавляем его к индексу
    tbWorker.Indexes.Append Ind1 ' Добавляем индекс к таблице
    ' Описание остальных полей (табл. Worker)
    Set F(1) = tbWorker.CreateField("Фамилия", dbText, 50) ' Создание текстового поля размером 50 символов
    Set F(2) = tbWorker.CreateField("Имя", dbText, 50)
    Set F(3) = tbWorker.CreateField("Отчество", dbText, 50)
    Set F(4) = tbWorker.CreateField("Дата рождения", dbDate) ' Создание поля даты
    Set F(5) = tbWorker.CreateField("Национальность", dbText, 50)
    Set F(6) = tbWorker.CreateField("Должность", dbText, 150)
    Set F(7) = tbWorker.CreateField("СемПоложение", dbText, 20)
    Set F(8) = tbWorker.CreateField("Телефон", dbText, 15)
    Set F(9) = tbWorker.CreateField("ДатаЗап", dbDate)
    Set F(10) = tbWorker.CreateField("Образование", dbText, 90)
    Set F(11) = tbWorker.CreateField("Телефон2", dbText, 15)
    Set F(12) = tbWorker.CreateField("Профессия", dbText, 200)
    Set F(13) = tbWorker.CreateField("Серия", dbText, 10)
    Set F(14) = tbWorker.CreateField("Номер", dbText, 10)
    Set F(15) = tbWorker.CreateField("Кем выдан", dbText, 200)
    Set F(16) = tbWorker.CreateField("ДатаВыдачи", dbDate)
    Set F(17) = tbWorker.CreateField("Место рождения", dbText, 250)
    Set F(18) = tbWorker.CreateField("Индекс", dbText, 10)
    Set F(19) = tbWorker.CreateField("Улица", dbText, 100)
    Set F(20) = tbWorker.CreateField("Город", dbText, 100)
    Set F(21) = tbWorker.CreateField("Область", dbText, 100)
    Set F(22) = tbWorker.CreateField("Район", dbText, 100)
    Set F(23) = tbWorker.CreateField("УчЗав", dbText, 200)
    Set F(24) = tbWorker.CreateField("ДатаОк1", dbDate)
    Set F(25) = tbWorker.CreateField("УчЗав2", dbText, 200)
    Set F(26) = tbWorker.CreateField("ДатаОк2", dbDate)
    Set F(27) = tbWorker.CreateField("СпецПоД", dbText, 200)
    Set F(28) = tbWorker.CreateField("Квалификация", dbText, 200)
    Set F(29) = tbWorker.CreateField("НомД", dbText, 50)
    Set F(30) = tbWorker.CreateField("УчЗван", dbText, 200)
    Set F(31) = tbWorker.CreateField("ОКОДТ", dbText, 10)
    Set F(32) = tbWorker.CreateField("ОКСО", dbText, 10)
    Set F(33) = tbWorker.CreateField("ГрУч", dbText, 30)
    Set F(34) = tbWorker.CreateField("КатУч", dbText, 30)
    Set F(35) = tbWorker.CreateField("Состав", dbText, 150)
    Set F(36) = tbWorker.CreateField("Звание", dbText, 200)
    Set F(37) = tbWorker.CreateField("ВУС", dbText, 50)
    Set F(38) = tbWorker.CreateField("Годность", dbText, 100)
    Set F(39) = tbWorker.CreateField("Военкомат", dbText, 200)
    Set F(40) = tbWorker.CreateField("СпецУч", dbText, 50)
    Set F(41) = tbWorker.CreateField("НомСтрах", dbText, 40)
    Set F(42) = tbWorker.CreateField("Date1", dbDate)
    Set F(43) = tbWorker.CreateField("Date2", dbDate)
    Set F(44) = tbWorker.CreateField("Date3", dbDate)
    Set F(45) = tbWorker.CreateField("Date4", dbDate)
    Set F(46) = tbWorker.CreateField("Date5", dbDate)
    Set F(47) = tbWorker.CreateField("Date6", dbDat

Ответить

Светик, лови MBD "Товары"

Ответить

Светик, лови MBD "Товары".

Э ??? Мыло дай или мыльни мне свое мыло.

Ответить