Автор работы: Пользователь скрыл имя, 24 Апреля 2012 в 20:20, контрольная работа
Целью выполнения данной дипломной работы является разработка системы "ГАИ" и соответствующей ей базы данных, позволяющей документировать в электронном виде автоматизацию учета движений автомобилей и предоставлять необходимые отчеты.
В качестве среды разработки базы данных была выбрана СУБД MSSQL Server 2000.
Введение
1.1 Постановка задачи
1.2 Информационные системы
2.1 Введение в базы данных
2.2 Шаги проектирования базы данных
Заключение
Список использованной литературы
Приложение 1.
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(
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.
Notedata.meneg:=ComboBox5.
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(
begin
ShowMessage('------- База данных ГАИ -------'+#10#13+
'Программа предназначена для ведения базы '+#10#13+
'данных ГАИ: автомобилей и автовладельцев '+#10#13+
'Created by Shakula Alexsandr O., 2010-2012.'+#10#13+
'-----------------------------
'Вопросы, пожелания и замечания по работе'+#10#13+
'программы присылайте на адрес:'+#10#13+
'E-mail: neolik1987@mail.ru'+#10#13+'')
ShellExecute(0,'open','http://
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:='
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],
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
Memo1.Lines.Strings[0]:=a;
Memo1.Lines.SaveToFile('conf.
MessageDlg('Пароль на вход в программу успешно изменен!',mtInformation,[mbOK]
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:=
end;
procedure ShowRecord;
begin
Form3.Edit1.Text:=NoteData.
Form3.RichEdit1.Text:=
Form3.Edit2.Text:=NoteData.
Form3.Edit3.Text:=NoteData.
Form3.Edit6.Text:=NoteData.
Form3.ComboBox2.Text:=
Form3.ComboBox3.Text:=
Form3.ComboBox4.Text:=
Form3.ComboBox5.Text:=
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Stroka: System.Text;
i: integer;
begin
Button2.Click;
AssignPrn(Stroka);
Rewrite(Stroka);