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

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

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

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

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

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

Введение

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

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

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

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

Заключение

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

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

Файлы: 1 файл

Диплом 2012.doc

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

end;

 

procedure TForm3.DeleteClick(Sender: TObject);

var

i:integer;

pPos: integer;

begin

if MessageDlg('Вы действительно хотите удалить запись?', mtConfirmation,

    [mbYes, mbNo],0)=mrYes

then

  begin

   if _Pos=FileSize(NoteFile)-1 then // если удаляемый эл-т последний

    begin

     Seek(NoteFile,_Pos);

     Truncate(NoteFile);

     Next.Enabled:=false;

     if _Pos<>0

     then dec(_Pos) // если есть данные, то Pos-1

     else

      begin

       Delete.Enabled:=false;

       ClearData;

       exit;

      end;

    end

   else

    begin

     for i:=_Pos+1 to FileSize(NoteFile)-1 do

      begin

       Seek(NoteFile,i); // переход на Pos+1

       Read(NoteFile,NoteData); // чтение

       Seek(NoteFile,i-1); // переход на Pos

       Write(NoteFile,Notedata); // запись Pos+1 в Pos

      end;

     Seek(NoteFile,FileSize(NoteFile)-1);

     Truncate(NoteFile);

    end;

   Seek(NoteFile,_Pos);

   Read(NoteFile,NoteData);

   ShowRecord;

   if _Pos=0 then Previous.Enabled:=false;

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

   pPos:=FileSize(NoteFile); // определение кол-ва компонентов файла   end;

   Label4.Caption:='Запись №  '+IntToStr(_Pos+1)+' из '+IntToStr(pPos);

  end

else

end;

 

procedure TForm3.Button2Click(Sender: TObject);

begin

NoteData.org:=Edit1.Text;

NoteData.adr:=RichEdit1.Text;

NoteData.tel:=Edit2.Text;

NoteData.kontl:=Edit3.Text;

NoteData.email:=Edit6.Text;

Notedata.reg:=ComboBox2.Text;

Notedata.vidd:=ComboBox3.Text;

Notedata.osnprod:=ComboBox4.Text;

Notedata.meneg:=ComboBox5.Text;

if _Pos=0

then _Pos:=0

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

Seek(NoteFile,_Pos);

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

end;

 

procedure TForm3.Button1Click(Sender: TObject);

begin

Close;

end;

 

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin

try

  CloseFile(NoteFile);

except

  MessageDlg('Ошибка закрытия файла!',mtError,[mbOK],0);

end;

Form2.Close;

end;

 

procedure TForm3.Button4Click(Sender: TObject);

begin

Form1.Show;

end;

 

procedure TForm3.Button7Click(Sender: TObject);

var

pPos, p: integer;

begin

ClearData; // очистка окна

Edit1.SetFocus;

_Pos:=0; // определение кол-ва компонентов файла

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

Read(NoteFile,NoteData); // чтение Pos-1

ShowRecord; // показать запись

Previous.Enabled:=false;

Next.Enabled:=true;

Delete.Enabled:=true;

Save.Enabled:=false;

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

pPos:=FileSize(NoteFile)-1; // определение кол-ва компонентов файла

Label4.Caption:='Запись №  '+IntToStr(_Pos+1)+' из '+IntToStr(pPos+1);

end;

 

procedure TForm3.Button6Click(Sender: TObject);

var

pPos: integer;

begin

ClearData; // очистка окна

Edit1.SetFocus;

_Pos:=FileSize(NoteFile)-1;

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

Read(NoteFile,NoteData);

ShowRecord;

Previous.Enabled:=true;

Next.Enabled:=false;

Delete.Enabled:=true;

Save.Enabled:=false;

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

pPos:=FileSize(NoteFile); // определение кол-ва компонентов файла

Label4.Caption:='Запись №  '+IntToStr(_Pos+1)+' из '+IntToStr(pPos);

end;

 

procedure TForm3.Button8Click(Sender: TObject);

var

pPos: integer;

begin

pPos:=FileSize(NoteFile);

if StrToInt(Edit7.Text)>pPos

then

  begin

   MessageDlg('Введеное число ('+Edit7.Text+') больше, чем количество записей ('+IntToStr(pPos)+') !',mtError,[mbOK],0);

   Edit7.Text:='1';

   Edit7.SetFocus;

   Edit7.SelStart:=0;

   Edit7.SelLength:=1;

   Exit;

  end;

if StrToInt(Edit7.Text)=0 then

  begin

   MessageDlg('Введеное число ('+Edit7.Text+') меньше 1!',mtError,[mbOK],0);

   Edit7.Text:='1';

   Edit7.SetFocus;

   Edit7.SelStart:=0;

   Edit7.SelLength:=1;

   Exit;

  end;

ClearData; // очистка окна

Edit1.SetFocus;

_Pos:=StrToInt(Edit7.Text);

Seek(NoteFile,_Pos-1);

Read(NoteFile,NoteData);

ShowRecord; // показать запись

if _Pos-1=FileSize(NoteFile)-1    // если номер позиции=кол-ву

then                              // номеров, то...

  begin

   Next.Enabled:=false;

   Previous.Enabled:=true;

  end;

if _Pos-1=0                   // если номер позиции=кол-ву

then                          // номеров, то...

  begin

   Next.Enabled:=true;

   Previous.Enabled:=false;

  end;

if (_Pos-1>0) and (_Pos-1<FileSize(NoteFile)-1)

then

  begin

   Next.Enabled:=true;

   Previous.Enabled:=true;

  end;

Delete.Enabled:=true;

Save.Enabled:=false;

Button2.Enabled:=true;

pPos:=FileSize(NoteFile);

dec(_Pos);

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

pPos:=FileSize(NoteFile); // определение кол-ва компонентов файла

Label4.Caption:='Запись №  '+IntToStr(_Pos+1)+' из '+IntToStr(pPos);

end;

 

procedure TForm3.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

if Key=#13 then

  begin

   Edit7.Text:='1';

   Edit7.SelStart:=0;

   Edit7.SelLength:=1;

  end;

if (Key<'0') or (Key>'9') then Key:=#0;

if Length(Edit7.Text)>=4 then Key:=#0;

end;

 

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

ShowMessage('-------  База данных ГАИ  -------'+#10#13+

             'Программа предназначена для ведения базы '+#10#13+

             'данных ГАИ: автомобилей и автовладельцев '+#10#13+

 

             'Created by Shakula Alexsandr O., 2010-2012.'+#10#13+

             '-------------------------------------------------------------------'+#10#13+

             'Вопросы, пожелания и замечания по работе'+#10#13+

             'программы присылайте на адрес:'+#10#13+

             'E-mail: neolik1987@mail.ru'+#10#13+'');

ShellExecute(0,'open','http://my.mail.ru/mail/neolik1987/','','',SW_SHOW);

end;

 

procedure TForm3.Button3Click(Sender: TObject);

Label M;

var

newp,st,a: string;

i,x,j,j1,n,s,s1,tt: integer;

begin

if MessageDlg('Вы действительно хотите изменить пароль?', mtConfirmation,

    [mbYes, mbNo],0)=mrYes

then

  begin

  // смещение 78575

  newp:=InputBox('Введите новый пароль','Новый пароль:','');

  if newp='' then

   begin

    MessageDlg('Пароль на вход в программу не изменен!',mtError,[mbOK],0);

    Exit;

   end;

  //

  j:=78575;

  j1:=j;

  st:='1234567890АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюяABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz~ .,:;"-=+\/|!?@#$%^&*_№<>()[]{}`';

  a:=newp;

  x:=length(a);

  try

   for i:=1 to x do

    begin

     if pos(a[i],Edit4.Text)<>0 then

      begin

       Edit4.SelStart:=pos(a[i],Edit4.Text)-1;

       n:=Edit4.SelStart;

       s1:=n+1;

       j:=j1;

       s:=s1+j;

       if (s<=159) then

        begin

         s:=s1+j;

         a[i]:=st[s];

         goto M;

        end;

       s:=159-(n+1);

       j:=j1-s;

       repeat

        tt:=j-159;

        s:=abs(tt);

        j:=s;

       until (s<=159);

       a[i]:=st[s];

       M:

      end

     else

    end;

   Memo1.Lines.LoadFromFile('conf.ps');

   Memo1.Lines.Strings[0]:=a;

   Memo1.Lines.SaveToFile('conf.ps');

   MessageDlg('Пароль на вход в программу успешно изменен!',mtInformation,[mbOK],0);

  except

   MessageDlg('Ошибка сохранения пароля!'+#10#13+'Пароль не изменен',mtError,[mbOK],0);

  end;

end;

end;

 

end.

 

 

Исходный код для сортировки

 

unit usprint;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, StdCtrls, Printers, ComCtrls, DBGrids, Clipbrd,

  OleServer, EXCEL97, EXCEL2000, ComObj, ActiveX, ExtCtrls, ExcelXP;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    StringGrid1: TStringGrid;

    Button5: TButton;

    Button6: TButton;

    SaveDialog1: TSaveDialog;

    Button7: TButton;

    Button10: TButton;

    Button11: TButton;

    XLApp: TExcelApplication;

    Panel1: TPanel;

    Label1: TLabel;

    Bevel1: TBevel;

    Bevel3: TBevel;

    Bevel2: TBevel;

    RichEdit1: TRichEdit;

    RichEdit2: TRichEdit;

    Button3: TButton;

    ComboBox1: TComboBox;

    Button8: TButton;

    Button9: TButton;

    ComboBox2: TComboBox;

    Button4: TButton;

    Button12: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure StringGrid1Click(Sender: TObject);

    procedure StringGrid1DblClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses adsbaz;

 

{$R *.dfm}

 

type

TNote=record

  org: string[200];

  adr: string[255];

  tel: string[150];

  kontl: string[150];

  email: string[100];

  reg: string[200];

  vidd: string[200];

  osnprod: string[200];

  meneg: string[150];

end;

 

var

NoteFile: file of TNote;

NoteData: TNote;

_Pos: integer;

 

function GetProgramPath : String;

begin

GetProgramPath:=ExtractFilePath(ParamStr(0));

end;

 

procedure ShowRecord;

begin

Form3.Edit1.Text:=NoteData.org;

Form3.RichEdit1.Text:=NoteData.adr;

Form3.Edit2.Text:=NoteData.tel;

Form3.Edit3.Text:=NoteData.kontl;

Form3.Edit6.Text:=NoteData.email;

Form3.ComboBox2.Text:=Notedata.reg;

Form3.ComboBox3.Text:=Notedata.vidd;

Form3.ComboBox4.Text:=Notedata.osnprod;

Form3.ComboBox5.Text:=Notedata.meneg;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

Stroka: System.Text;

i: integer;

begin

Button2.Click;

AssignPrn(Stroka);

Rewrite(Stroka);

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