Контрольная работа: Інформаційна система будівельної організації
end;
if
(Combobox1.Text='Інженерно-технічний персонал') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblTech
';form1.ADOTable1.Active:=true;
end;
if
(Combobox1.Text='будівельна техніка') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblMachines
';form1.ADOTable1.Active:=true;
end;
if
(Combobox1.Text='Робітники') then
begin
form1.ADOTable1.Active:=false;
form1.ADOTable1.TableName:='tblWorkers
';form1.ADOTable1.Active:=true;
end;
end;
procedure
TForm1.N2Click(Sender: TObject);
begin
close();
end;
procedure
TForm1.N1Click(Sender: TObject);
begin ShowMessage('Anisimov
Andriy');
end;
procedure
TForm1.Button6Click(Sender: TObject);
begin
form5.ShowModal;
if
(Form5.modalresult <> 6) then
begin
ShowMessage('Пароль
неверный');
end
else
begin
form3.ShowModal;
end;
end;
procedure
TForm1.Button7Click(Sender: TObject);
begin
form4.ShowModal;
end;
end.
unit Unit2;
interface
uses Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, jpeg;
type TForm2 =
class(TForm) Image1: TImage; Timer1: TTimer; procedure Image1Click(Sender:
TObject); private { Private declarations } public { Public declarations } end;
var Form2:
TForm2;
implementation
{$R *.dfm}
procedure
TForm2.Image1Click(Sender: TObject);
begin
close;
end;
end.
unit Unit3;
interface
uses Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, DB, ADODB, Grids, DBGrids;
type TForm3 =
class(TForm) Label1: TLabel; DBGrid2: TDBGrid; ADOConnection1: TADOConnection; ADOConnection2:
TADOConnection;
ADOTable1:
TADOTable; ADOQuery1: TADOQuery; DataSource1: TDataSource; DataSource2:
TDataSource; MainMenu1: TMainMenu; File1: TMenuItem; N1: TMenuItem; N2:
TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Label2: TLabel; Button1:
TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; Button4: TButton; Button5:
TButton; procedure Button1Click(Sender: TObject); procedure
Button5Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure
Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure
N2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private {
Private declarations } public { Public declarations } end;
var Form3:
TForm3;
implementation
{$R *.dfm}
procedure
TForm3.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
{Деактивируем запрос в качестве одной из мер предосторожности }
ADOQuery1.SQL.Clear;
{Стираем любой предыдущий запрос}
If Memo1.Lines[0]
<> '' {Проверяем на предмет пустого ввода} then
ADOQuery1.SQL.Add(Memo1.Text)
{Назначаем свойству SQL текст Memo}
else
begin
messageDlg('Введіть
sql запрос', mtError, [mbOK], 0);
exit;
end;
try {перехватчик
ошибок}
ADOQuery1.Open; {Выполняем
запрос и открываем набор данных}
except {секция
обработки ошибок}
On e :
EDatabaseError do {e - новый дескриптор ошибки}
messageDlg(e.message,mtError,[mbOK],0);
{показываем свойство message объекта e}
end;{окончание
обработки ошибки}
Memo1.ReadOnly:=false;
end;
procedure
TForm3.Button5Click(Sender: TObject);
begin
Memo1.Clear;
end;
procedure
TForm3.Button4Click(Sender: TObject);
begin
if
SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure
TForm3.Button2Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(OpenDialog1.FileName)
end;
procedure
TForm3.Button3Click(Sender: TObject);
begin
Memo1.ReadOnly:=true;
openDialog1.Filter:='Текстові
файли|*.txt';
if
OpenDialog1.Execute and FileExists (OpenDialog1.FileName)
then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure
TForm3.N2Click(Sender: TObject);
begin
close();
end;
procedure
TForm3.FormCreate(Sender: TObject);
begin
ShowMessage('Anisimov
Andriy');
end;
end.
unit Unit4;
interface
uses Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, DB, ADODB, Grids, DBGrids;
type
TForm4 =
class(TForm) Label1: TLabel; DBGrid2: TDBGrid; ADOConnection1: TADOConnection; ADOConnection2:
TADOConnection; ADOTable1: TADOTable; ADOQuery1: TADOQuery; DataSource1:
TDataSource; DataSource2: TDataSource; MainMenu1: TMainMenu; File1: TMenuItem; N1:
TMenuItem; N2: TMenuItem; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Label2:
TLabel; Button1: TButton; Memo1: TMemo; Button3: TButton; procedure
Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure
N2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private {
Private declarations } public { Public declarations } end;
var Form4:
TForm4;
implementation
{$R *.dfm}
procedure
TForm4.Button3Click(Sender: TObject);
begin
Memo1.ReadOnly:=true;
openDialog1.Filter:='Текстові
файли|*.txt';
if
OpenDialog1.Execute and FileExists (OpenDialog1.FileName)
then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure
TForm4.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
{Деактивируем запрос в качестве одной из мер предосторожности }
ADOQuery1.SQL.Clear;
{Стираем любой предыдущий запрос}
If Memo1.Lines[0]
<> '' {Проверяем на предмет пустого ввода} then
ADOQuery1.SQL.Add(Memo1.Text)
{Назначаем свойству SQL текст Memo}
else
begin
messageDlg('Введіть
sql запрос', mtError, [mbOK], 0);
exit;
end;
try {перехватчик
ошибок}
ADOQuery1.Open; {Выполняем
запрос и открываем набор данных}
except {секция
обработки ошибок}
On e :
EDatabaseError do {e - новый дескриптор ошибки}
messageDlg(e.message,mtError,[mbOK],0);
{показываем свойство message объекта e}
end;{окончание
обработки ошибки}
Memo1.ReadOnly:=false;
end;
procedure
TForm4.N2Click(Sender: TObject);
begin
close();
end;
procedure
TForm4.FormCreate(Sender: TObject);
begin
ShowMessage('Anisimov
Andriy');
end;
end.
unit Unit5;
interface
uses Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type TForm5 =
class(TForm) Button1: TButton; Edit1: TEdit; procedure oK(Sender: TObject); procedure
FormClose(Sender: TObject; var Action: TCloseAction); private { Private
declarations } public { Public declarations } end;
var Form5:
TForm5;
implementation
{$R *.dfm}
procedure
TForm5.oK(Sender: TObject);
begin
if (Edit1.Text =
'0000') then ModalResult:=6;
close;
end;
procedure
TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (Edit1.Text =
'0000') then ModalResult:=6;
end;
end.
Висновок
При виконанні курсової
роботи я пригадав як створювати: базу даних, концептуальну та фізичну модель
БД, SQL запити, запити на створення
таблиць та зв’язків між ними. Освіжив свої навики в SQL quarry analyzer, SQL Enterprise manager та Power designer. А також написав програму на мові Delphi, яка допомогла б користувачу
з легкістю користуватися створеною мною базою даних.
|