Информационные системы

Автор работы: Пользователь скрыл имя, 24 Апреля 2012 в 20:20, контрольная работа

Описание работы

Целью выполнения данной дипломной работы является разработка системы "ГАИ" и соответствующей ей базы данных, позволяющей документировать в электронном виде автоматизацию учета движений автомобилей и предоставлять необходимые отчеты.

В качестве среды разработки базы данных была выбрана СУБД MSSQL Server 2000.

Содержание работы

Введение

1.1 Постановка задачи

1.2 Информационные системы

2.1 Введение в базы данных

2.2 Шаги проектирования базы данных

Заключение

Список использованной литературы

Приложение 1.

Скачать архив (60.90 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Диплом 2012.doc

— 383.50 Кб (Скачать файл)

Printer.Canvas.Font:=RichEdit2.Font;

for i:=0 to RichEdit2.Lines.Count-1 do

  Writeln(Stroka,RichEdit2.Lines[i]);

System.Close(stroka);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

i,l:integer;

a,b,c,d,e,x:string;

begin

RichEdit2.Lines.Clear;

RichEdit2.Lines.Add('|-------------------------------------------------------------------------------------------------------------------------|');

RichEdit2.Lines.Add('|   №   |  ИНН  |  Адрес  |  Телефон  |  Владелец  |  Тех.осмотр  |  Регистр. номер |  Марка  |     Цвет  |  Год выпуска  |');

RichEdit2.Lines.Add('|-------------------------------------------------------------------------------------------------------------------------|');

for i:=1 to StringGrid1.RowCount-1 do

  begin

   a:=StringGrid1.Cells[1,i];

   b:=StringGrid1.Cells[2,i];

   c:=StringGrid1.Cells[3,i];

   d:=StringGrid1.Cells[4,i];

   e:=StringGrid1.Cells[5,i];

   ////////////////////////////////////////////////

   l:=Length(a);

   x:=a;

   Delete(x,l,1);

   if (StrToInt(x)<10)

   then a:=a+'      ';

   if (StrToInt(x)>=10) and (StrToInt(x)<100)

   then a:=a+'     ';

   ////////////////////////////////////////////////

   RichEdit2.Lines.Add('|  '+a+'  |   '+b+'   |   '+c+'   |   '+d+'   |   '+e+'   |');

  end;

RichEdit2.Lines.Add('|-------------------------------------------------------------------------------------------------------------------------|');

StringGrid1.Row:=1;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

AssignFile(NoteFile,GetProgramPath+'data\'+'adsbaz.dat'); // связываем переменную с файлом

Reset(NoteFile); // открытие файла

_Pos:=0;

  if not Eof(NoteFile) then // если в файле есть данные

   begin

    Read(NoteFile,NoteData); // чтение данных

    _Pos:=FilePos(NoteFile)-1; // определение располож. указателя

    ShowRecord; // показать данные

   end;

StringGrid1.ColWidths[0]:=10;

StringGrid1.ColWidths[1]:=50;

StringGrid1.ColWidths[2]:=100;

StringGrid1.ColWidths[3]:=100;

StringGrid1.ColWidths[4]:=98;

StringGrid1.ColWidths[5]:=100;

StringGrid1.ColWidths[6]:=95;

StringGrid1.ColWidths[7]:=95;

StringGrid1.ColWidths[8]:=100;

StringGrid1.ColWidths[9]:=100;

StringGrid1.ColWidths[10]:=100;

StringGrid1.RowHeights[0]:=20;

StringGrid1.RowCount:=2;

StringGrid1.Cells[1,0]:='№';

StringGrid1.Cells[2,0]:='ИНН';

StringGrid1.Cells[3,0]:='Адрес';

StringGrid1.Cells[4,0]:='Телефон';

StringGrid1.Cells[5,0]:='Владелец';

StringGrid1.Cells[6,0]:='Тех.осмотр';

StringGrid1.Cells[7,0]:='Регистр. номер';

StringGrid1.Cells[8,0]:='Марка';

StringGrid1.Cells[9,0]:='Цвет';

StringGrid1.Cells[10,0]:='Год выпуска';

Form1.Caption:='Выборка... (0 записей из '+IntToStr(FileSize(NoteFile))+')';

end;

 

procedure TForm1.Button3Click(Sender: TObject);

Label Thenext1;

Label Thenext2;

Label Thenext3;

var

pPos,i,ch,zap: integer;

s: string;

begin

ch:=0;

for i:=1 to StringGrid1.RowCount-1 do

  StringGrid1.Rows[i].Clear;

StringGrid1.RowCount:=2;

StringGrid1.FixedCols:=1;

StringGrid1.FixedRows:=1;

////////////////////////////////////////////////////////////////

if ComboBox1.Text='ИНН'

then

  begin

   zap:=0;

   for pPos:=0 to FileSize(NoteFile)-1 do

    begin

     Seek(NoteFile,pPos);

     Read(NoteFile,NoteData); // чтение данных

     if NoteData.org=''

     then goto Thenext2;

     s:=NoteData.org;

     if pos(ComboBox2.Text,s)<>0

     then

      begin

       ch:=ch+1;

       StringGrid1.Cells[1,ch]:=IntToStr(ch)+'.';

       StringGrid1.Cells[2,ch]:=NoteData.org;

       StringGrid1.Cells[3,ch]:=NoteData.adr;

       StringGrid1.Cells[4,ch]:=NoteData.tel;

       StringGrid1.Cells[5,ch]:=NoteData.kontl;

       StringGrid1.Cells[6,ch]:=NoteData.email;

       StringGrid1.Cells[7,ch]:=NoteData.reg;

       StringGrid1.Cells[8,ch]:=NoteData.vidd;

       StringGrid1.Cells[9,ch]:=NoteData.osnprod;

       StringGrid1.Cells[10,ch]:=NoteData.meneg;

       StringGrid1.RowCount:=StringGrid1.RowCount+1;

       zap:=zap+1;

       Form1.Caption:='Выборка ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

       Application.ProcessMessages;

      end;

     Thenext2:

    end;

   Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

   StringGrid1.RowCount:=StringGrid1.RowCount-1;

  end;

////////////////////////////////////////////////////////////////

if ComboBox1.Text='Регистр. номер'

then

  begin

   zap:=0;

   for pPos:=0 to FileSize(NoteFile)-1 do

    begin

     Seek(NoteFile,pPos);

     Read(NoteFile,NoteData); // чтение данных

     if NoteData.reg='' then goto Thenext1;

     s:=NoteData.reg;

     if s=ComboBox2.Text then

      begin

       ch:=ch+1;

       StringGrid1.Cells[1,ch]:=IntToStr(ch)+'.';

       StringGrid1.Cells[2,ch]:=NoteData.org;

       StringGrid1.Cells[3,ch]:=NoteData.adr;

       StringGrid1.Cells[4,ch]:=NoteData.tel;

       StringGrid1.Cells[5,ch]:=NoteData.kontl;

       StringGrid1.Cells[6,ch]:=NoteData.email;

       StringGrid1.Cells[7,ch]:=NoteData.reg;

       StringGrid1.Cells[8,ch]:=NoteData.vidd;

       StringGrid1.Cells[9,ch]:=NoteData.osnprod;

       StringGrid1.Cells[10,ch]:=NoteData.meneg;

       StringGrid1.RowCount:=StringGrid1.RowCount+1;

       zap:=zap+1;

       Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

       Application.ProcessMessages;

      end;

     Thenext1:

    end;

   Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

   StringGrid1.RowCount:=StringGrid1.RowCount-1;

  end;

////////////////////////////////////////

if ComboBox1.Text='Год выпуска'

then

  begin

   zap:=0;

   for pPos:=0 to FileSize(NoteFile)-1 do

    begin

     Seek(NoteFile,pPos);

     Read(NoteFile,NoteData); // чтение данных

     if NoteData.meneg='' then goto Thenext3;

     s:=NoteData.meneg;

     if s=ComboBox2.Text then

      begin

       ch:=ch+1;

       StringGrid1.Cells[1,ch]:=IntToStr(ch)+'.';

       StringGrid1.Cells[2,ch]:=NoteData.org;

       StringGrid1.Cells[3,ch]:=NoteData.adr;

       StringGrid1.Cells[4,ch]:=NoteData.tel;

       StringGrid1.Cells[5,ch]:=NoteData.kontl;

       StringGrid1.Cells[6,ch]:=NoteData.email;

       StringGrid1.Cells[7,ch]:=NoteData.reg;

       StringGrid1.Cells[8,ch]:=NoteData.vidd;

       StringGrid1.Cells[9,ch]:=NoteData.osnprod;

       StringGrid1.Cells[10,ch]:=NoteData.meneg;

       StringGrid1.RowCount:=StringGrid1.RowCount+1;

       zap:=zap+1;

       Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

       Application.ProcessMessages;

      end;

     Thenext3:

    end;

   Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

   StringGrid1.RowCount:=StringGrid1.RowCount-1;

  end;

////////////////////////////////////////////////////////////////

if ComboBox1.Text='Все'

then

  begin

   zap:=0;

   for pPos:=0 to FileSize(NoteFile)-1 do

    begin

     Seek(NoteFile,pPos);

     Read(NoteFile,NoteData); //чтение данных

     StringGrid1.Cells[1,pPos+1]:=IntToStr(pPos+1)+'.';

     StringGrid1.Cells[2,pPos+1]:=NoteData.org;

     StringGrid1.Cells[3,pPos+1]:=NoteData.adr;

     StringGrid1.Cells[4,pPos+1]:=NoteData.tel;

     StringGrid1.Cells[5,pPos+1]:=NoteData.kontl;

     StringGrid1.Cells[6,pPos+1]:=NoteData.email;

     StringGrid1.Cells[7,pPos+1]:=NoteData.reg;

     StringGrid1.Cells[8,pPos+1]:=NoteData.vidd;

     StringGrid1.Cells[9,pPos+1]:=NoteData.osnprod;

     StringGrid1.Cells[10,pPos+1]:=NoteData.meneg;

     StringGrid1.RowCount:=StringGrid1.RowCount+1;

     zap:=zap+1;

     Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

     Application.ProcessMessages;

    end;

   Form1.Caption:='Выборка... ('+IntToStr(zap)+' записей из '+IntToStr(FileSize(NoteFile))+')';

   StringGrid1.RowCount:=StringGrid1.RowCount-1;

  end;

////////////////////////////////////////////////////////////////

Button1.Enabled:=true;

Button2.Enabled:=true;

Button6.Enabled:=true;

Button6.Enabled:=true;

Button8.Enabled:=true;

Button9.Enabled:=true;

Button12.Enabled:=true;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

var

pPos: integer;

begin

for pPos:=0 to StringGrid1.RowCount-2 do

  begin

   Seek(NoteFile,pPos); // перемещ. указателя на конец файла

   NoteData.org:=StringGrid1.Cells[2,pPos+1];

   NoteData.adr:=StringGrid1.Cells[3,pPos+1];

   NoteData.tel:=StringGrid1.Cells[4,pPos+1];

   NoteData.kontl:=StringGrid1.Cells[5,pPos+1];

   NoteData.email:=StringGrid1.Cells[6,pPos+1];

   Notedata.reg:=StringGrid1.Cells[7,pPos+1];

   Notedata.vidd:=StringGrid1.Cells[8,pPos+1];

   Notedata.osnprod:=StringGrid1.Cells[9,pPos+1];

   Notedata.meneg:=StringGrid1.Cells[10,pPos+1];

   Write(NoteFile,NoteData); // запись в файл

  end;

Form3.Close;

end;

 

procedure TForm1.Button6Click(Sender: TObject);

var

EditFile:string;

begin

Button2.Click;

if SaveDialog1.Execute then

  begin

   EditFile:=SaveDialog1.FileName;

   RichEdit2.Lines.SaveToFile(EditFile);

  end;

end;

 

procedure AutoSizeGridColumn(Grid: TStringGrid; column: integer);

var

i: integer;

temp: integer;

max: integer;

begin

max:=0;

for i:=0 to Grid.RowCount-1 do

  begin

   temp:=Grid.Canvas.TextWidth(Grid.Cells[column, i]);

   if temp>max

   then max:=temp;

  end;

Grid.ColWidths[column]:=Max+Grid.GridLineWidth+6;

end;

 

procedure TForm1.Button8Click(Sender: TObject);

var

i: integer;

begin

for i:=0 to StringGrid1.ColCount-1 do

  AutoSizeGridColumn(StringGrid1, i);

end;

 

procedure TForm1.Button7Click(Sender: TObject);

var

n: integer;

begin

RichEdit1.Lines.LoadFromFile(GetProgramPath+'data\'+'num.txt');

   for n:=0 to RichEdit1.Lines.Count-1 do

    begin

     StringGrid1.Cells[1,n+1]:=RichEdit1.Lines.Strings[n];

     StringGrid1.RowCount:=StringGrid1.RowCount+1;

    end;

   StringGrid1.RowCount:=StringGrid1.RowCount-1;

 

RichEdit1.Lines.LoadFromFile(GetProgramPath+'data\'+'org.txt');

   for n:=0 to RichEdit1.Lines.Count-1 do

    begin

     StringGrid1.Cells[2,n+1]:=RichEdit1.Lines.Strings[n];

    end;

 

RichEdit1.Lines.LoadFromFile(GetProgramPath+'data\'+'adr.txt');

   for n:=0 to RichEdit1.Lines.Count-1 do

    begin

     StringGrid1.Cells[3,n+1]:=RichEdit1.Lines.Strings[n];

    end;

 

RichEdit1.Lines.LoadFromFile(GetProgramPath+'data\'+'tel.txt');

   for n:=0 to RichEdit1.Lines.Count-1 do

    begin

     StringGrid1.Cells[4,n+1]:=RichEdit1.Lines.Strings[n];

    end;

 

RichEdit1.Lines.LoadFromFile(GetProgramPath+'data\'+'kontl.txt');

   for n:=0 to RichEdit1.Lines.Count-1 do

    begin

     StringGrid1.Cells[5,n+1]:=RichEdit1.Lines.Strings[n];

    end;

 

RichEdit1.Lines.LoadFromFile(GetProgramPath+'data\'+'email.txt');

   for n:=0 to RichEdit1.Lines.Count-1 do

    begin

     StringGrid1.Cells[6,n+1]:=RichEdit1.Lines.Strings[n];

    end;

Информация о работе Информационные системы