перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
dfm}
procedure TForm5
ADOQuery1['Sl']:=edit6.Text;
datamodule4.ADOQuery1['Podr']:=edit7.Text;
datamodule4.ADOQuery1['Dolj']:=edit8.Text;
datamodule4.ADOQuery1['Vzisk']:=combobox1.Text;
datamodule4.ADOQuery1['Chpr']:=combobox3.Text;
datamodule4.ADOQuery1['Nompr']:=edit11.Text;
datamodule4.ADOQuery1['Datapr']:=datetimepicker1.Date;
datamodule4.ADOQuery1['Opis']:=edit13.Text;
datamodule4.ADOQuery1['Dataspr']:=strtodate(s);
datamodule4.ADOQuery1.Post;
form3.Hide;
end;
end;
procedure TForm3.bsSkinButton2Click(Sender: TObject);
begin
form3.Hide;
end;
end.
unit Unit4; //модуль компонент
interface
uses
SysUtils, Classes, DB, ADODB, RpBase, RpSystem, RpRave, RpDefine, RpCon,
RpConDS;
type
TDataModule4 = class(TDataModule)
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource3: TDataSource;
ADOQuery1Fam: TWideStringField;
ADOQuery1Imia: TWideStringField;
ADOQuery1Otc: TWideStringField;
ADOQuery1Zvanie: TWideStringField;
ADOQuery1Rugo: TWideStringField;
ADOQuery1Sl: TWideStringField;
ADOQuery1Podr: TWideStringField;
ADOQuery1Dolj: TWideStringField;
ADOQuery1Vzisk: TWideStringField;
ADOQuery1Chpr: TWideStringField;
ADOQuery1Nompr: TWideStringField;
ADOQuery1Datapr: TDateTimeField;
ADOQuery1Opis: TWideStringField;
ADOQuery1Nomspr: TWideStringField;
ADOQuery1Dataspr: TDateTimeField;
ADOQuery2Fam: TWideStringField;
ADOQuery2Imia: TWideStringField;
ADOQuery2Otc: TWideStringField;
ADOQuery2Zvanie: TWideStringField;
ADOQuery2Rugo: TWideStringField;
ADOQuery2Sl: TWideStringField;
ADOQuery2Podr: TWideStringField;
ADOQuery2Dolj: TWideStringField;
ADOQuery2Vzisk: TWideStringField;
ADOQuery2Chpr: TWideStringField;
ADOQuery2Nompr: TWideStringField;
ADOQuery2Datapr: TDateTimeField;
ADOQuery2Opis: TWideStringField;
ADOQuery2Nomspr: TWideStringField;
ADOQuery2Dataspr: TDateTimeField;
ADOTable1Fam: TWideStringField;
ADOTable1Imia: TWideStringField;
ADOTable1Otc: TWideStringField;
ADOTable1Zvanie: TWideStringField;
ADOTable1Rugo: TWideStringField;
ADOTable1Sl: TWideStringField;
ADOTable1Podr: TWideStringField;
ADOTable1Dolj: TWideStringField;
ADOTable1Vzisk: TWideStringField;
ADOTable1Chpr: TWideStringField;
ADOTable1Nompr: TWideStringField;
ADOTable1Datapr: TDateTimeField;
ADOTable1Opis: TWideStringField;
ADOTable1Nomspr: TWideStringField;
ADOTable1Dataspr: TDateTimeField;
ADOQuery3: TADOQuery;
DataSource4: TDataSource;
ADOTable2: TADOTable;
ADOTable2Fam: TWideStringField;
ADOTable2Imia: TWideStringField;
ADOTable2Otc: TWideStringField;
ADOTable2Zvanie: TWideStringField;
ADOTable2Rugo: TWideStringField;
ADOTable2Sl: TWideStringField;
ADOTable2Podr: TWideStringField;
ADOTable2Dolj: TWideStringField;
ADOTable2Vzisk: TWideStringField;
ADOTable2Chpr: TWideStringField;
ADOTable2Nompr: TWideStringField;
ADOTable2Datapr: TDateTimeField;
ADOTable2Opis: TWideStringField;
ADOTable2Nomspr: TWideStringField;
ADOTable2Dataspr: TDateTimeField;
RvDataSetConnection1: TRvDataSetConnection;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
RvDataSetConnection2: TRvDataSetConnection;
RvProject2: TRvProject;
RvProject3: TRvProject;
RvDataSetConnection3: TRvDataSetConnection;
ADOQuery4: TADOQuery;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule4: TDataModule4;
implementation
{$R *.dfm}
end.
unit Unit5; //форма редактирования записи
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, ComCtrls, Mask, Buttons, Menus,
bsSkinData, BusinessSkinForm, bsSkinCtrls;
type
TForm5 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DateTimePicker1: TDateTimePicker;
DBEdit4: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DataSource1: TDataSource;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit5: TDBEdit;
Label5: TLabel;
DBEdit6: TDBEdit;
Label6: TLabel;
DBEdit7: TDBEdit;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
DBComboBox3: TDBComboBox;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
DataSource1.DataSet.Edit;
DataSource1.DataSet.FieldValues['Datapr']:=DateTimePicker1.Date;
DataSource1.DataSet.Post;
form5.Hide;
end;
procedure TForm5.
скачать бесплатно Организационно-экономическая сущность задачи
Содержание дипломной работы
Еще несколько лет назад было редкостью увидеть какой-нибудь персональный компьютер – они были, но были очень дорогие, и даже не каждая фирма могла иметь у себя в офисе компьютер
В графической части проекта представлены: диаграмма вариантов использования, диаграмма классов, диаграмма последовательности и диаграмма деятельности
В ее основе лежит идея отделения процесса разработки от процесса создания отчета за счет использования промежуточного документа, который называется проектом отчета
Кроме того, 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 *
