База данных по FoxPro 9

Отчет

Лабораторная работа №1

Цель – создать базу данных «Аэропорт Усть-Каменогорск». Предусмотреть поиск данных по маршруту, добавление новой записи, изменения курсов доллара и российского рубля, окно авторизации.

Окно авторизации:

[pic 1]

Кнопка входа:

[pic 2]

Форма Маршруты:

[pic 3]

Код поиск по маршруту:

[pic 4]

Кнопка добавления:

[pic 5]

Кнопка Курса доллара и Курса рубля:

[pic 6]

Окно изменения курса доллара:

[pic 7]

Аналогично выглядит форма изменения курса рубля.

Форма Номер бортов:

[pic 8]

Кнопка добавления новой записи:

[pic 9]

Кнопка поиска:

[pic 10]

Лабораторная работа №2

Цель – создать форму «Оформление счет-фактуры». Предусмотреть добавление данных, поиск по дате и номеру рейса, печать формы.

Главная форма:

[pic 11]

Код поиска по дате:

[pic 12]

Код поиска по номеру рейса:

[pic 13]

Код выбора компании ComboBox:

[pic 14]

Код кнопки Сохранения данных:

[pic 15]

Код кнопки Печати:

  #Define xlCenter          -4108   

#Define xlSolid               1  

  #Define xlEdgeLeft            7  

  #Define xlEdgeTop             8  

  #Define xlEdgeBottom          9  

  #Define xlEdgeRight          10  

  #Define xlInsideVertical     11  

  #Define xlInsideHorizontal   12  

  #Define xlThin                2  

  #Define xlThick               4  

  #Define xlMedium          -4138  

  #Define xlDouble          -4119  

  Local lcPath, loExcel, lnRow

  loExcel = Createobject("Excel.Application")  

  With loExcel  

    .Visible = .T.  

    .WorkBooks.Add  

 **.ActiveWindow.DisplayZeros = .F.  

    .Columns[1].ColumnWidth = 5  

    .Columns[2].ColumnWidth = 40  

    .Columns[3].ColumnWidth = 7  

    .Columns[4].ColumnWidth = 50

    .Columns[5].ColumnWidth = 15

    .Columns[6].ColumnWidth = 25

    .Columns[7].ColumnWidth = 30

    .cells(1,4).HorizontalAlignment = xlCenter  

    .cells(1,4).VerticalAlignment = xlCenter  

    .cells(1,4).Font.Size = 13  

    .cells(1,4).Font.Bold = .T.  

    .cells(1,4).Value = 'Счет-фактура'

        .cells(2,4).HorizontalAlignment = xlCenter  

    .cells(2,4).VerticalAlignment = xlCenter  

    .cells(2,4).Font.Size = 13

    .cells(2,4).Value = DATE()

    .cells(2,5).Font.Size = 11                  

    .cells(2,5).Font.Bold = .F.  

  ************************************LEFT*********************************************************

 .Range("A3:B3").Select  

    With .Selection  

        .MergeCells = .T.  

        .HorizontalAlignment = xlCenter  

        .VerticalAlignment = xlCenter

    Endwith  

        .cells(3,1).Value = 'Поставщик Акционерное Общество'

        .cells(3,1).Font.Bold = .T.

   .Range("A4:B4").Select

    With .Selection  

        .MergeCells = .T.  

        .HorizontalAlignment = xlCenter  

        .VerticalAlignment = xlCenter

    Endwith  

            *parse from aeroport

            select aeroport FROM table22 WHERE counter =MAX(counter,0) INTO ARRAY var_aero

            *_________________

        .cells(4,1).Value = var_aero

  .Range("A6:B6").Select  

    With .Selection  

        .MergeCells = .T.  

        .HorizontalAlignment = xlCenter  

        .VerticalAlignment = xlCenter

    Endwith

            *parse from rnn + wiil need to add the mail adess