Главная: Рефераты

Рефераты. База данных «приемная комиссия»

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  try

    NameBookmakers:='Num';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DogovorDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Date';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DateDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Zakazchik';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(FamDBEdit.Text+' '+NameDBEdit.Text+' '+SurNameDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='License';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[9].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Director';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[11].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Slushatel';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(FioDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Programm';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[2].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Hour';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[8].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Month';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[7].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  if SaleDBCheckBox.Checked=false then

    begin

    try

      NameBookmakers:='Summ';

      WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      Temp:=DataModule1.SpecialsTable.Fields.Fields[4].Text;

      WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[4].Text+' ('+MainForm.CurrencyToStr(Temp)+')');

      MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

      MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

    except

    end;

    try

      NameBookmakers:='Plata';

      WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      Temp:=DataModule1.SpecialsTable.Fields.Fields[3].Text;

      WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[3].Text+' ('+MainForm.CurrencyToStr(Temp)+')');

      MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

      MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

    except

    end;

    end else

    begin

    try

      NameBookmakers:='Summ';

      WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      Temp:=DataModule1.SpecialsTable.Fields.Fields[6].Text;

      WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[6].Text+' ('+MainForm.CurrencyToStr(Temp)+')');

      MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

      MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

    except

    end;

    try

      NameBookmakers:='Plata';

      WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

      Temp:=DataModule1.SpecialsTable.Fields.Fields[5].Text;

      WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[5].Text+' ('+MainForm.CurrencyToStr(Temp)+')');

      MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

      MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

    except

    end;

    end;

  try

    NameBookmakers:='DateVuplatu';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DateVuplatuDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='NameFirm';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[1].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Inn';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[2].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Adress';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[3].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Tel';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[4].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Bank';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[5].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='RSChet';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[6].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='KSChet';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[7].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Bik';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[8].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='License2';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[9].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='Doljnost';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[12].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='FIODir';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[10].Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='FIOZakazchik';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(FamDBEdit.Text+' '+NameDBEdit.Text+' '+SurNameDBEdit.Text);

    MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;

    MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'%  ';

  except

  end;

  try

    NameBookmakers:='DateRojd';

    WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);

    WA.Selection.TypeText(DateRDBEdit.Text);

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.