перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
FormActivate(Sender: TObject);
var k:integer;
begin
with datamodule4
Show;
form1.Hide;
timer1.Enabled:=false;
form2.PageControl1.ActivePage:=form2.TabSheet1;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
timer1.Enabled:=true;
end;
end.
unit Unit2;//главная форма отображения информации
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, Menus, bsSkinCtrls,
bsSkinData, BusinessSkinForm,ShellAPI;
type
TForm2 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
TabSheet3: TTabSheet;
DBGrid3: TDBGrid;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinMainMenu1: TbsSkinMainMenu;
bsSkinMainMenuBar1: TbsSkinMainMenuBar;
N12: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N29Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12, Unit13, Unit14, Unit15;
{$R *.dfm}
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Form1.close;
form2.Close;
form3.Close;
form5.Close;
form6.Close;
form7.Close;
form8.Close;
form9.Close;
form10.Close;
form11.close;
form12.close;
form13.close;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form3.Show;
end;
procedure TForm2.FormActivate(Sender: TObject);
var k:integer;
begin
with datamodule4.ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('select * from Pract');
sql.Add('where Rugo="Аппарат УВД"');
Open;
if RecordCount <> 0 then
begin
datamodule4.
скачать бесплатно Организационно-экономическая сущность задачи
Содержание дипломной работы
Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер
В графической части проекта представлены: диаграмма вариантов использования, диаграмма классов, диаграмма последовательности и диаграмма деятельности
В ее основе лежит идея отделения процесса разработки от процесса создания отчета за счет использования промежуточного документа, который называется проектом отчета
Кроме того, Delphi включает в себя локальный сервер Interbase для того, чтобы можно было разработать расширяемые на любые внешние SQL-сервера приложения в офлайновом режиме
Мощность множества кортежей отношения называют мощностью отношения
1 – Главное окно программы
На главном окне есть три вкладки с тремя таблицами: информация о сотрудниках УВД, областных сотрудниках и сотрудниках снятых с учета
Взаимосвязь процедур используется как для возможности дальнейшей обработки уже обработанной информации другими процедурами, так и для возможности существования некоторых процедур по средствам других
Value;
datamodule4
С учетом имеющихся знаний относительно построения баз данных с помощью SQL технологии и архитектуры «клиент-сервер» было принято решение написать новую программу с учетом приведенных требований
Add('select * from Pract'); //выбирает все данные из таблицы Sotr1
SQL
ADOQuery2Datapr
IsEmpty then exit;
if datamodule4
ОПИСАНИЕ ПРОГРАММНОГО СРЕДСТВА
4
Проверка степени этих правил проводится без использования объектного кода программы путем формального анализа текста программы на языке программирования
С помощью встроенного компилятора были обнаружены синтаксические ошибки, которые тут же исправлялись с помощью встроенного редактора текста программы
Программа найдет широкое применение не только среди работников отдела кадров, но и среди многих сотрудников УВД
: Выш
FormActivate(Sender: TObject);
var k:integer;
begin
with datamodule4
Value;
datamodule4
ADOTable2['nomspr']:=datamodule4
ADOQuery1Datapr
ADOQuery2
show;
end;
procedure TForm2
Delete;
datamodule4
ADOTable2;
form5
show;
end;
procedure TForm2
show;
end;
procedure TForm2
Hide;
end;
procedure TForm3
ADOQuery1['Dataspr']:=strtodate(s);
datamodule4
ADOQuery1['Otc']:=edit3
dfm}
procedure TForm5
Columns[3]
Columns[2]
Show;
end;
procedure TForm6
DataSet
Add('select * from SnVzisk'); //выбирает все данные из таблицы Sotr1
SQL
ActivePage=form2
unit Unit15; //форма информации о программе
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, bsSkinCtrls, bsSkinData, BusinessSkinForm;
type
TForm15 = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinButton1: TbsSkinButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure bsSkinButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
implementation
{$R *
