База данных государственной инспекции безопасности дорожного движения
Современные программные средства для работы с данными в разных сферах. Предлагаемое программное обеспечение и изменение технологии обработки данных. Характеристика вычислительной техники и общего программного обеспечения. Оценка затрат на разработку.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 10.03.2012 |
| Размер файла | 655,6 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
РФ - Российская Федерация
ДПС - дорожно-патрульная служба
7. Список литературы
1. Delphi7 учебный курс / С.И. Бобровский. - СПб.; Питер, 2004.
2. Дарахвелидзе П., Марков Е. Программирование в Delphi 7 СПб.: BHV-Петербург, 2003.
3. Елманова Н., Трепалин С., Тенцер А. Delphi и технология COM. СПб.: Питер, 2003.
4. Понамарёв В.com и ActiveX в Delphi. СПб.: BHV-Петербург, 2001.
5. Шумаков В., Фаронов П. Delphi 5. Руководство разработчика баз данные. Нолидж, 2003.
6. Ананьев П.И. Технология разработки программного обеспечения: Учебное пособие/ Алт. ГТУ им. Ползунова. - Барнаул: 2000
7. Балдин К.В., Уткин В.Б. Информатика. Учебник для вузов. - М.: Проект, 2003
8. Брукшир Дж. Гленн Введение в компьютерные науки: - М.: Издательский дом "Вильямс", 2001
9. Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. - М.: Гелиос АРВ, 2002
10. Информатика. Учеб. пособие для студентов пед. вузов/ Могилев А.В., Н.И. Пак, Е.К. Хённер; Под рд. Е.К. Хённера. - М., 1999
11. Королев Л.Н. Информатика. Введение в компьютерные науки: Учебник: - М.: Высш. шк., 2003
8. Приложение
Приложение А
unit UnitMain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, DBCtrls, Menus,ActiveX,ComObj;
type
TFormMain = class (TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label6: TLabel;
DBText3: TDBText;
Label8: TLabel;
DBText1: TDBText;
DBText12: TDBText;
Label1: TLabel;
Label2: TLabel;
DBText5: TDBText;
Label11: TLabel;
DBText9: TDBText;
DBText2: TDBText;
Label5: TLabel;
DBText6: TDBText;
Label9: TLabel;
DBText8: TDBText;
Label3: TLabel;
Label4: TLabel;
DBText11: TDBText;
GroupBox3: TGroupBox;
Label10: TLabel;
DBText7: TDBText;
Label7: TLabel;
DBText4: TDBText;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
DBGrid2: TDBGrid;
Button3: TButton;
GroupBox4: TGroupBox;
DBText10: TDBText;
Label12: TLabel;
Label14: TLabel;
DBText14: TDBText;
DBText15: TDBText;
Label16: TLabel;
DBText16: TDBText;
Label15: TLabel;
Label17: TLabel;
DBText17: TDBText;
Label20: TLabel;
DBText19: TDBText;
GroupBox5: TGroupBox;
Label18: TLabel;
DBText18: TDBText;
Label13: TLabel;
DBText13: TDBText;
Label21: TLabel;
DBText21: TDBText;
DBText20: TDBText;
Label19: TLabel;
Button4: TButton;
Button5: TButton;
Button6: TButton;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
Button7: TButton;
Button8: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure FormShow (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure N5Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure N6Click (Sender: TObject);
procedure N8Click (Sender: TObject);
procedure N10Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure N11Click (Sender: TObject);
procedure PageControl1Change (Sender: TObject);
procedure N12Click (Sender: TObject);
procedure N13Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure Button8Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TFormMain;
var
wss: WideString;
ExcelApp: Variant;
implementation
uses UnitDataModule, UnitDobV, UnitDobTS, UnitEditV, UnitAbout, UnitPoiskFIO,
UnitEditTS, UnitRezOsm;
{$R *. dfm}
procedure TFormMain. Button1Click (Sender: TObject);
begin
formdobv. showmodal;
end;
procedure TFormMain. Button2Click (Sender: TObject);
begin
if MessageDlg ('Удалить? ',mtConfirmation, [mbYes,mbNo],0) =mrYes then
DBGrid1. DataSource. DataSet. Delete;
end;
procedure TFormMain. Button3Click (Sender: TObject);
begin
formdobts. showmodal;
end;
procedure TFormMain. Button4Click (Sender: TObject);
begin
if MessageDlg ('Удалить? ',mtConfirmation, [mbYes,mbNo],0) =mrYes then
DBGrid2. DataSource. DataSet. Delete;
end;
procedure TFormMain. Button5Click (Sender: TObject);
begin
FormEditV. showmodal;
end;
procedure TFormMain. Button6Click (Sender: TObject);
begin
formeditts. showmodal;
end;
procedure TFormMain. Button7Click (Sender: TObject);
begin
FormRez. showmodal;
end;
procedure TFormMain. Button8Click (Sender: TObject);
begin
ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel
ExcelApp. Application. EnableEvents: = false; // так будет быстрее
ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'\1. xls');
ExcelApp. cells [3,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;
ExcelApp. cells [5,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;
ExcelApp. cells [6,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('TipTS'). AsString;
ExcelApp. cells [7,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;
ExcelApp. cells [8,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;
ExcelApp. cells [9,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;
ExcelApp. cells [10,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;
ExcelApp. cells [11,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;
ExcelApp. cells [12,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;
ExcelApp. cells [13,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;
ExcelApp. cells [14,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('mosch'). AsString;
ExcelApp. cells [15,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('rmassa'). AsString;
ExcelApp. cells [16,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('massa'). AsString;
ExcelApp. cells [17,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('passts'). AsString;
ExcelApp. cells [18,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('datavyd'). AsString;
ExcelApp. cells [19,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('regdoc'). AsString;
ExcelApp. cells [20,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('datavydr'). AsString;
ExcelApp. Visible: =true;
end;
procedure TFormMain. FormShow (Sender: TObject);
begin
FormDataModule. ADOQueryTS. Active: =true;
FormDataModule. ADOQueryV. Active: =true;
formmain. PageControl1. ActivePageIndex: =0;
end;
procedure TFormMain. N10Click (Sender: TObject);
begin
formsearchVFIO. showmodal;
end;
procedure TFormMain. N11Click (Sender: TObject);
begin
formeditts. showmodal;
end;
procedure TFormMain. N12Click (Sender: TObject);
begin
ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel
ExcelApp. Application. EnableEvents: = false; // так будет быстрее
ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'\1. xls');
ExcelApp. cells [3,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;
ExcelApp. cells [5,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;
ExcelApp. cells [6,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('TipTS'). AsString;
ExcelApp. cells [7,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;
ExcelApp. cells [8,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;
ExcelApp. cells [9,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;
ExcelApp. cells [10,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;
ExcelApp. cells [11,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;
ExcelApp. cells [12,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;
ExcelApp. cells [13,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;
ExcelApp. cells [14,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('mosch'). AsString;
ExcelApp. cells [15,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('rmassa'). AsString;
ExcelApp. cells [16,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('massa'). AsString;
ExcelApp. cells [17,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('passts'). AsString;
ExcelApp. cells [18,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('datavyd'). AsString;
ExcelApp. cells [19,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('regdoc'). AsString;
ExcelApp. cells [20,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('datavydr'). AsString;
ExcelApp. Visible: =true;
end;
procedure TFormMain. N13Click (Sender: TObject);
begin
FormRez. showmodal;
end;
procedure TFormMain. N3Click (Sender: TObject);
begin
formdobv. showmodal;
end;
procedure TFormMain. N4Click (Sender: TObject);
begin
formdobts. showmodal;
end;
procedure TFormMain. N5Click (Sender: TObject);
begin
FormEditV. showmodal;
end;
procedure TFormMain. N6Click (Sender: TObject);
begin
close;
end;
procedure TFormMain. N8Click (Sender: TObject);
begin
FormAbout. showmodal;
end;
procedure TFormMain. PageControl1Change (Sender: TObject);
begin
if PageControl1. ActivePageIndex=1 then
begin
with FormDataModule. ADOQueryTS do
begin
sql. clear;
sql. add ('select * from ts where keyv='+
DBGrid1. DataSource. DataSet. FieldByName ('idv'). AsString);
Active: =true;
end;
Caption: =DBGrid1. DataSource. DataSet. FieldByName ('fam'). AsString+' '+
DBGrid1. DataSource. DataSet. FieldByName ('ima'). AsString+' '+
DBGrid1. DataSource. DataSet. FieldByName ('otch'). AsString;
end else
Caption: ='ГИБДД';
end;
end.
unit UnitRezOsm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj;
type
TFormRez = class (TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormRez: TFormRez; ExcelApp: Variant;
implementation
uses UnitMain;
{$R *. dfm}
procedure TFormRez. Button1Click (Sender: TObject);
begin
with formmain do begin
ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel
ExcelApp. Application. EnableEvents: = false; // так будет быстрее
ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'\2. xls');
ExcelApp. cells [6,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;
ExcelApp. cells [10,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;
ExcelApp. cells [11,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;
ExcelApp. cells [12,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;
ExcelApp. cells [13,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;
ExcelApp. cells [15,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;
ExcelApp. cells [16,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;
ExcelApp. cells [17,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;
ExcelApp. cells [18,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;
ExcelApp. cells [19,5]. value: ='Исправен';
ExcelApp. Visible: =true;
end;
end;
procedure TFormRez. Button2Click (Sender: TObject);
begin
with formmain do begin
ExcelApp: = CreateOleObject ('Excel. Application'); // открываем Excel
ExcelApp. Application. EnableEvents: = false; // так будет быстрее
ExcelApp. Workbooks. Open (ExtractFilePath (Application. ExeName) +'\2. xls');
ExcelApp. cells [6,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('znak'). AsString;
ExcelApp. cells [10,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('marka'). AsString;
ExcelApp. cells [11,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Izgotovitel'). AsString;
ExcelApp. cells [12,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('Kategor'). AsString;
ExcelApp. cells [13,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('GodV'). AsString;
ExcelApp. cells [15,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NDvig'). AsString;
ExcelApp. cells [16,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('NShassi'). AsString;
ExcelApp. cells [17,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('nkuzov'). AsString;
ExcelApp. cells [18,5]. value: =
DBGrid2. DataSource. DataSet. FieldByName ('cvet'). AsString;
ExcelApp. cells [19,5]. value: ='Не исправен';
ExcelApp. Visible: =true;
end;
end;
end.
unit UnitPoiskFIO;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TformsearchVFIO = class (TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
formsearchVFIO: TformsearchVFIO;
implementation
uses UnitDataModule, UnitMain;
{$R *. dfm}
procedure TformsearchVFIO. Button1Click (Sender: TObject);
begin
with formdatamodule. ADOQueryV do
begin
sql. Clear;
sql. Add ('select * from vladelec where fam like '+
QuotedStr ('%'+edit1. Text+'%') +
' or ima like '+QuotedStr ('%'+edit2. Text+'%') +
' or otch like '+QuotedStr ('%'+edit3. Text+'%'));
active: =true;
end;
formmain. PageControl1. ActivePageIndex: =0;
close;
end;
end.
unit UnitAbout;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TFormAbout = class (TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAbout: TFormAbout;
implementation
{$R *. dfm}
end.
unit UnitDataModule;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TFormDataModule = class (TDataModule)
ADOConnection: TADOConnection;
ADOQueryTS: TADOQuery;
ADOQueryV: TADOQuery;
ADOQueryZap: TADOQuery;
DataSourceTS: TDataSource;
DataSourceV: TDataSource;
DataSourceZap: TDataSource;
ADOQueryTSidTS: TAutoIncField;
ADOQueryTSZnak: TWideStringField;
ADOQueryTSMarka: TWideStringField;
ADOQueryTSTipTS: TWideStringField;
ADOQueryTSIzgotovitel: TWideStringField;
ADOQueryTSKategor: TWideStringField;
ADOQueryTSGodV: TDateTimeField;
ADOQueryTSNdvig: TIntegerField;
ADOQueryTSNshassi: TIntegerField;
ADOQueryTSNkuzov: TIntegerField;
ADOQueryTSCvet: TWideStringField;
ADOQueryTSMosch: TWideStringField;
ADOQueryTSRMassa: TIntegerField;
ADOQueryTSMassa: TIntegerField;
ADOQueryTSPassTS: TWideStringField;
ADOQueryTSDataVyd: TDateTimeField;
ADOQueryTSRegDoc: TWideStringField;
ADOQueryTSDataVydR: TDateTimeField;
ADOQueryTSKeyV: TIntegerField;
ADOQueryVidV: TAutoIncField;
ADOQueryVIma: TWideStringField;
ADOQueryVOtch: TWideStringField;
ADOQueryVDR: TDateTimeField;
ADOQueryVDocUL: TWideStringField;
ADOQueryVSerNom: TWideStringField;
ADOQueryVDataVyd: TDateTimeField;
ADOQueryVKray: TWideStringField;
ADOQueryVRaion: TWideStringField;
ADOQueryVPunkt: TWideStringField;
ADOQueryVUl: TWideStringField;
ADOQueryVDom: TIntegerField;
ADOQueryVKv: TWideStringField;
ADOQueryVTel: TWideStringField;
ADOQueryVFam: TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormDataModule: TFormDataModule;
implementation
{$R *. dfm}
end.
unit UnitDobTS;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;
type
TFormDobTS = class (TForm)
MaskEditZnak: TMaskEdit;
EditMarka: TEdit;
ComboBoxTipTS: TComboBox;
EditIzgotovitel: TEdit;
ComboBoxCategor: TComboBox;
MaskEditGodV: TMaskEdit;
MaskEditNdvig: TMaskEdit;
MaskEditNkuzov: TMaskEdit;
EditCvet: TEdit;
MaskEditMosch: TMaskEdit;
MaskEditRMassa: TMaskEdit;
MaskEditMassa: TMaskEdit;
MaskEditPassTS: TMaskEdit;
MaskEditDataVyp: TMaskEdit;
MaskEditRegDoc: TMaskEdit;
MaskEditDataVydR: TMaskEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Button1: TButton;
MaskEditNShssi: TMaskEdit;
Label17: TLabel;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormDobTS: TFormDobTS;
implementation
uses UnitDataModule;
{$R *. dfm}
procedure TFormDobTS. Button1Click (Sender: TObject);
var
I: Integer;
begin
for I: = 0 to ComponentCount-1 do
if (Components [i]. ClassType=tedit) then
if (tedit (Components [i]). Text='') then
begin
ShowMessage ('Заполните все поля!!! ');
Exit;
end;
with formdatamodule. adoqueryzap do
begin
sql. Clear;
sql. Add ('insert into ts'+
(znak,marka,tipts, izgotovitel,kategor,godv,ndvig,nshassi,nkuzov,cvet,mosch,rmassa,massa,passts,datavyd,regdoc,keyv,datavydr) values ('+
QuotedStr (MaskEditZnak. Text) +','+
QuotedStr (EditMarka. Text) +','+
QuotedStr (ComboBoxTipTS. Text) +','+
QuotedStr (EditIzgotovitel. Text) +','+
QuotedStr (ComboBoxCategor. Text) +','+
QuotedStr (MaskEditGodV. Text) +','+
(MaskEditNdvig. Text) +','+
(MaskEditNShssi. Text) +','+
(MaskEditNkuzov. Text) +','+
QuotedStr (EditCvet. Text) +','+
(MaskEditMosch. Text) +','+
(MaskEditRMassa. Text) +','+
(MaskEditMassa. Text) +','+
(MaskEditPassTS. Text) +','+
QuotedStr (MaskEditDataVyp. Text) +','+
QuotedStr (MaskEditRegDoc. Text) +','+
(FormDataModule. ADOQueryV. FieldByName ('idv'). AsString) +','+
QuotedStr (MaskEditDataVydR. Text) +') '
);
execsql;
end;
with formdatamodule. ADOQueryTS do
begin
Active: =false;
Active: =true;
end;
close;
end;
end.
unit UnitDobV;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;
type
TFormDobV = class (TForm)
Button1: TButton;
MaskEditDR: TMaskEdit;
MaskEditSerNom: TMaskEdit;
MaskEditDataVyd: TMaskEdit;
MaskEditTel: TMaskEdit;
MaskEditDom: TMaskEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
EditFam: TEdit;
EditIma: TEdit;
EditOtch: TEdit;
EditDocUL: TEdit;
EditKray: TEdit;
EditRayon: TEdit;
EditPunkt: TEdit;
EditUl: TEdit;
EditKV: TEdit;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormDobV: TFormDobV;
implementation
uses UnitDataModule;
{$R *. dfm}
procedure TFormDobV. Button1Click (Sender: TObject);
var
I: Integer;
begin
for I: = 0 to ComponentCount-1 do
if (Components [i]. ClassType=tedit) then
if (tedit (Components [i]). Text='') then
begin
ShowMessage ('Заполните все поля!!! ');
Exit;
end;
with formdatamodule. adoqueryzap do
begin
sql. Clear;
sql. Add ('insert into vladelec'+
' (fam, ima,otch,dr,docul,sernom,datavyd,kray,raion,punkt,ul,dom,kv,tel) values ('+
QuotedStr (EditFam. Text) +','+
QuotedStr (EditIma. Text) +','+
QuotedStr (EditOtch. Text) +','+
QuotedStr (MaskEditDR. Text) +','+
QuotedStr (EditDocUL. Text) +','+
QuotedStr (MaskEditSerNom. Text) +','+
QuotedStr (MaskEditDataVyd. Text) +','+
QuotedStr (EditKray. Text) +','+
QuotedStr (EditRayon. Text) +','+
QuotedStr (EditPunkt. Text) +','+
QuotedStr (EditUl. Text) +','+
QuotedStr (MaskEditDom. Text) +','+
QuotedStr (EditKV. Text) +','+
QuotedStr (MaskEditTel. Text) +') '
);
execsql;
end;
with formdatamodule. ADOQueryV do
begin
Active: =false;
Active: =true;
end;
close;
end;
end.
unit UnitEditTS;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TFormEditTS = class (TForm)
Label13: TLabel;
Label19: TLabel;
Label21: TLabel;
Label18: TLabel;
Label15: TLabel;
Label17: TLabel;
Label20: TLabel;
Label16: TLabel;
Label14: TLabel;
Label12: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
Button1: TButton;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormEditTS: TFormEditTS;
implementation
uses UnitDataModule;
{$R *. dfm}
procedure TFormEditTS. Button1Click (Sender: TObject);
begin
formdatamodule. ADOQueryTS. Edit;
formdatamodule. ADOQueryTS. post;
close;
end;
end.
unit UnitEditV;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TFormEditV = class (TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormEditV: TFormEditV;
implementation
uses UnitDataModule;
{$R *. dfm}
procedure TFormEditV. Button1Click (Sender: TObject);
begin
formdatamodule. ADOQueryV. Edit;
formdatamodule. ADOQueryV. post;
close;
end;
end.
Приложение Б
Модульная схема
Приложение В (Выходные документы)
Размещено на Allbest.ru
Подобные документы
Понятие и характеристика персонального компьютера, его основные части и их предназначение. Средства обучения информатики и особенности организации работы в кабинете вычислительной техники. Оборудование рабочих мест и применение программного обеспечения.
реферат [29,0 K], добавлен 09.07.2012Создание автоматизированной системы для упрощения работы с данными, расчётами и отчётами, анализа и хранения поступающих в лабораторию хроматографических исследований данных. Функциональные требования к системе. Проектирование программного обеспечения.
курсовая работа [1,9 M], добавлен 23.01.2013Виды и классификация программного обеспечения. Операционные системы. Виды прикладного программного обеспечения. Программные средства работы с текстом, для вычислительных работ, с графикой, со звуком. Базы данных. Языки и системы программирования.
реферат [87,7 K], добавлен 07.03.2009Обоснование необходимости систем управления базами данных на предприятиях. Особенности разработки программного обеспечения по управлению базой данных, обеспечивающего просмотр, редактирование, вставку записей базы данных, формирование запросов и отчетов.
курсовая работа [1,5 M], добавлен 23.01.2010Разработка базы данных для нужд предприятия ОАО "Металлист". Характеристика предприятия и его структурных подразделений. Отдел информационных технологий. Перечень и общая характеристика прикладного программного обеспечения, используемого в подразделениях.
отчет по практике [401,0 K], добавлен 17.01.2009Изучение существующих методов и программного обеспечения для извлечения числовых данных из графической информации. Программное обеспечение "graphtrace", его структура и методы обработки данных. Использование этой системы для данных различного типа.
дипломная работа [3,9 M], добавлен 06.03.2013Анализ локально-вычислительной сети компании. Выбор общего программного обеспечения, обеспечения для инженерного отдела, бухгалтерии, сервера. Состав программного обеспечения вычислительной системы и его конфигурация. Сетевые операционные системы.
курсовая работа [405,4 K], добавлен 08.02.2016Программные средства, которые помогают манипулировать и управлять данными. Приемы создания и редактирования баз данных в СУБД MySQL. Способы и средства доступа и манипулирования данными. Создание, удаление, редактирование таблиц данных и их элементов.
практическая работа [1,2 M], добавлен 14.03.2013Процесс поступления пациента в больницу. Программное обеспечение, используемое в разработке. Обзор Borland Delphi7, MS SQL Server 2008. Динамическое изменение и расширение структуры базы данных. Обоснование выбора СУБД и программного обеспечения.
курсовая работа [875,4 K], добавлен 21.04.2013Создание базы данных. Составление запросов, фильтров и форм. Назначение и возможности программного средства. Обеспечение безопасности доступа к данным. Использование вычислительной техники в учебном процессе. Расчет себестоимости и цены программы.
дипломная работа [834,4 K], добавлен 03.05.2015
