перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Hide;
end;
procedure TForm3
ActivePage=tabsheet2 then datamodule4.RvProject2.Execute;
end;
procedure TForm2.N29Click(Sender: TObject);
begin
shellExeCute(handle,nil,'Справка.chm',nil,nil,sw_restore);
end;
end.
unit Unit3; //форма добавления записи
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Buttons, ComCtrls, bsSkinCtrls, bsSkinData,
BusinessSkinForm, bsdbctrls, Mask, bsSkinBoxCtrls;
type
TForm3 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit11: TEdit;
Edit13: TEdit;
Edit4: TEdit;
PopupMenu1: TPopupMenu;
N1,N2, N3, N4, N5, N6, N7, N8, N9, N10, N11, N12, N13, N14, N15, N16, N17, N18, N19,N20: TMenuItem;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
PopupMenu2: TPopupMenu;
N21,N22,N23,N24,N25, N26, N27, N28, N29, N30,N31,N32,N33,N34,N35,N36,N37,N38,N39,N40,N41,N42,N43,N44,N45,N46,N47,N48, N49,N50,N51,N52,N53,N54,N55,N56,N57,N58,N59,N60,N61: TMenuItem;
DateTimePicker1: TDateTimePicker;
ComboBox3: TComboBox;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinButton1: TbsSkinButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Edit6: TEdit;
Label5: TLabel;
Edit7: TEdit;
Label6: TLabel;
Edit8: TEdit;
bsSkinButton2: TbsSkinButton;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm3.N2Click(Sender: TObject);
begin
edit4.Text:='рядовой милиции';
end;
procedure TForm3.N3Click(Sender: TObject);
begin
edit4.Text:='младший сержант милиции';
end;
procedure TForm3.N4Click(Sender: TObject);
begin
edit4.Text:='сержант ';
end;
procedure TForm3.N5Click(Sender: TObject);
begin
edit4.Text:='старший сержат';
end;
procedure TForm3.N6Click(Sender: TObject);
begin
edit4.Text:='старшина милиции';
end;
procedure TForm3.N7Click(Sender: TObject);
begin
edit4.Text:='прапорщик';
end;
procedure TForm3.N8Click(Sender: TObject);
begin
edit4.Text:='старший прапорщик';
end;
procedure TForm3.N10Click(Sender: TObject);
begin
edit4.Text:='младший лейтенант милиции';
end;
……….
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form3.Hide;
end;
procedure TForm3.Button1Click(Sender: TObject);
var s,b:string;
a:integer;
begin
s:=datetostr(datetimepicker1.Date);
a:=strtoint(copy(s,7,4));
a:=a+1;
b:=copy(s,1,6);
s:=b+inttostr(a);
datamodule4.ADOQuery1.Insert;
datamodule4.ADOQuery1['Fam']:=edit1.
скачать бесплатно Организационно-экономическая сущность задачи
Содержание дипломной работы
Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер
В графической части проекта представлены: диаграмма вариантов использования, диаграмма классов, диаграмма последовательности и диаграмма деятельности
В ее основе лежит идея отделения процесса разработки от процесса создания отчета за счет использования промежуточного документа, который называется проектом отчета
Кроме того, 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 *
