Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Поволжский государственный университет телекоммуникаций и информатики

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Отчёт по курсовой работе..docx

Скачиваний:

Добавлен:

01.05.2025

Размер:

2.43 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 78 / 88

4 .2 Сообщение оператору

Рисунок 17 – сообщение при добавлении информации в базу данных

Рисунок 18 – подтверждение или отказ от удаления информации

Рисунок 19 – сообщение об удалении информации из базы данных

Рисунок 20 – подтверждение или отказ на выход из программы

З аключение

В ходе разработки курсового проекта были закреплены теоретические и практические знания по работе в среде программирования Delphi. Была освоена техника разработки программных продуктов.

Разработанный программный продукт предназначен для облегчения работы сотрудников ТСЖ «Искра». Программа имеет большое количество функций, которое позволят заметно сэкономить время работы и повысить точность расчетов. Программный продукт имеет простой и понятный интерфейс.

С писок использованных источников

Культин, Н.Б. Delphi 6.0. Программирование на Object Pascal / Н. Культин. – М.: БХВ – Санкт - Петербург, 2000 г. – 245 с.
Культин, Н.Б. Delphi 6.0. Руководство программиста / Н. Культин. - М.: издательство Нолидж, 2001 г.- 298 с.
Культин, Н.Б. Delphi в задачах и примерах/ – Н. Культин. – М.: БХВ – Санкт - Петербург, 2006 г. – 221 с.
Хомоненко, А.П. «Delphi 7 в подлиннике» под общей редакцией А. Хомоненко. – СПб.: БХВ-Петербург, 2003 г. – 216 с.
Епанешников, А.М. Delphi 6.0 / А.М. Епанешников, В.А. Епанешников. – М.: «Диалог - Мифи», 2000 г.–260с.
Рудаков, А.И. Технология разработки программного продукта /А.Рудаков. – М.: БХВ – Санкт - Петербург, 2007 г. – 184 с.

Приложение б Входные документы

1) справка о жилом фонде ТСЖ «Искра»;

2) справка о сотрудниках ТСЖ «Искра».

Приложение в Текст программы

program START;

uses

Forms,

Glavnaya in 'Glavnaya.pas' {Form1},

Adresa in 'Adresa.pas' {Form2},

Sotrudniki in 'Sotrudniki.pas' {Form3},

Pokazaniya in 'Pokazaniya.pas' {Form4},

Kvitanciya in 'Kvitanciya.pas' {Form5},

Pomosh in 'Pomosh.pas' {Form6},

Parol in 'Parol.pas' {PasswordDlg};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(Tglavn, glavn);

Application.CreateForm(Tadres, adres);

Application.CreateForm(Tsotrudn, sotrudn);

Application.CreateForm(Tpokazan, pokazan);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(Thelp, help);

Application.CreateForm(TPasswordDlg, PasswordDlg);

Application.Run;

end.

unit Glavnaya;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, OleServer, comobj,

XPMan, ExtCtrls, Menus, jpeg;

type

TGlavn = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

Button4: TButton;

Button5: TButton;

Image1: TImage;

N3: TMenuItem;

Timer1: TTimer;

StatusBar1: TStatusBar;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure Button6Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Glavn: TGlavn;

implementation

uses Adresa, Sotrudniki, Pokazaniya, Kvitanciya, Pomosh, Parol;

{$R *.dfm}

procedure TGlavn.Button1Click(Sender: TObject);

begin

adres.show;

end;

procedure TGlavn.Button2Click(Sender: TObject);

begin

sotrudn.show;

end;

procedure TGlavn.Button3Click(Sender: TObject);

begin

pokazan.show;

end;

procedure TGlavn.Button4Click(Sender: TObject);

begin

Form5.show;

end;

procedure TGlavn.Button5Click(Sender: TObject);

begin

close;

end;

procedure TGlavn.N3Click(Sender: TObject);

begin

help.show;

end;

procedure TGlavn.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Время: '+TimeToStr(Time);

StatusBar1.Panels[1].Text:='Дата: '+DateToStr(Date);

end;

procedure TGlavn.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose := MessageBox(Application.Handle,'Закрыть программу?','Предупреждение',MB_YESNO)=ID_YES;

end;

procedure TGlavn.Button6Click(Sender: TObject);

begin

form5.Print;

end;

procedure TGlavn.FormShow(Sender: TObject);

begin

PasswordDlg.ShowModal;

end;

end.

unit Adresa;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, ImgList, StdCtrls, Buttons, Grids, DBGrids, ComCtrls,

Mask, DBCtrls;

type

Tadres = class(TForm)

PageControl1: TPageControl;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Edit1: TEdit;

ComboBox1: TComboBox;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

BitBtn3: TBitBtn;

DataSource1: TDataSource;

ImageList1: TImageList;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOTable1: TADOTable;

BitBtn1: TBitBtn;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

adres: Tadres;

implementation

{uses Adresa; }

{$R *.dfm}

procedure Tadres.RadioButton1Click(Sender: TObject);

begin

AdoTable1.Sort:='[Nazvanie_ulicy] ASC';

end;

procedure Tadres.RadioButton2Click(Sender: TObject);

begin

AdoTable1.Sort:='[Nomer_doma] ASC';

end;

procedure Tadres.Edit1Change(Sender: TObject);

begin

ADOTable1.Locate(combobox1.text,Edit1.Text,

[loPartialKey,loCaseInsensitive]);

end;

procedure Tadres.FormCreate(Sender: TObject);

var i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

end;

procedure Tadres.BitBtn2Click(Sender: TObject);

begin

groupbox4.Visible:=not(groupbox4.Visible);

if bitbtn2.caption='Добавить' then

bitbtn2.caption:='Закрыть добавление' else

bitbtn2.caption:='Добавить';

end;

procedure Tadres.BitBtn3Click(Sender: TObject);

begin

adres.ADOTable1.Post;

Close;

showmessage( 'Запись добавлена!')

end;

procedure Tadres.BitBtn1Click(Sender: TObject);

begin

if ADOTable1.State = dsBrowse

then

if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0) = mrYes

then

ADOTable1.Delete;

ShowMessage ('Запись удалена!')

end;

procedure Tadres.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

begin

key :=#0;

showmessage ('Попытка ввода цифр!!!')

end;

procedure Tadres.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

end.

unit Sotrudniki;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, ImgList, StdCtrls, Buttons, Grids, DBGrids, ComCtrls,

Mask, DBCtrls;

type

Tsotrudn = class(TForm)

PageControl1: TPageControl;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Edit1: TEdit;

ComboBox1: TComboBox;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

DataSource1: TDataSource;

ImageList1: TImageList;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

ADOTable1: TADOTable;

Button1: TButton;

BitBtn1: TBitBtn;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

sotrudn: Tsotrudn;

implementation

{$R *.dfm}

procedure Tsotrudn.RadioButton1Click(Sender: TObject);

begin

AdoTable1.Sort:='[Kod] ASC';

end;

procedure Tsotrudn.RadioButton2Click(Sender: TObject);

begin

AdoTable1.Sort:='[Familiya] ASC';

end;

procedure Tsotrudn.Edit1Change(Sender: TObject);

begin

ADOTable1.Locate(combobox1.text,Edit1.Text,

[loPartialKey,loCaseInsensitive]);

end;

procedure Tsotrudn.FormCreate(Sender: TObject);

var i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

end;

procedure Tsotrudn.BitBtn2Click(Sender: TObject);

begin

groupbox4.Visible:=not(groupbox4.Visible);

if bitbtn2.caption='Добавить' then

bitbtn2.caption:='Закрыть добавление' else

bitbtn2.caption:='Добавить';

end;

procedure Tsotrudn.Button1Click(Sender: TObject);

begin

Dbgrid1.DataSource.DataSet.close;

dbgrid1.DataSource.DataSet.Open;

end;

procedure Tsotrudn.BitBtn1Click(Sender: TObject);

begin

if ADOTable1.State = dsBrowse

then

if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0) = mrYes

then

ADOTable1.Delete;

ShowMessage ('Запись удалена!')

end;

procedure Tsotrudn.Button2Click(Sender: TObject);

begin

sotrudn.ADOTable1.Post;

Close;

ShowMessage ('Запись добавлена!')

end;

procedure Tsotrudn.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tsotrudn.DBEdit5KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tsotrudn.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

begin

key :=#0;

showmessage ('Попытка ввода цифр!!!')

end;

procedure Tsotrudn.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

begin

key :=#0;

showmessage ('Попытка ввода цифр!!!')

end;

procedure Tsotrudn.DBEdit4KeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

begin

key :=#0;

showmessage ('Попытка ввода цифр!!!')

end;

procedure Tsotrudn.DBEdit6KeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

begin

key :=#0;

showmessage ('Попытка ввода цифр!!!')

end;

procedure Tsotrudn.RadioButton3Click(Sender: TObject);

begin

AdoTable1.Sort:='[Data_rozhdeniya] ASC';

end;

procedure Tsotrudn.RadioButton4Click(Sender: TObject);

begin

AdoTable1.Sort:='[Dolzhnost] ASC';

end;

end.

unit Pokazaniya;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ADODB, DB, Grids, DBGrids, ExtCtrls, Buttons, ComCtrls,

Mask, DBCtrls;

type

Tpokazan = class(TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

ComboBox1: TComboBox;

Edit1: TEdit;

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;

Button3: TButton;

BitBtn1: TBitBtn;

PageControl1: TPageControl;

PageControl2: TPageControl;

BitBtn2: TBitBtn;

Button1: TButton;

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;

DBEdit16: TDBEdit;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure RadioButton4Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

pokazan: Tpokazan;

implementation

{$R *.dfm}

procedure Tpokazan.RadioButton1Click(Sender: TObject);

begin

AdoTable1.Sort:='[Nazvanie_ulicy] ASC';

end;

procedure Tpokazan.RadioButton2Click(Sender: TObject);

begin

AdoTable1.Sort:='[Nomer_doma] ASC';

end;

procedure Tpokazan.Edit1Change(Sender: TObject);

begin

ADOTable1.Locate(combobox1.text,Edit1.Text,

[loPartialKey,loCaseInsensitive]);

end;

procedure Tpokazan.FormCreate(Sender: TObject);

var i:integer;

begin

for i := 0 to DBGrid1.Columns.Count - 1 do

DBGrid1.Columns.Items[i].Width := 100;

end;

procedure Tpokazan.BitBtn1Click(Sender: TObject);

begin

if ADOTable1.State = dsBrowse

then

if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbYes, mbNo],0) = mrYes

then

ADOTable1.Delete;

ShowMessage ('Запись удалена!')

end;

procedure Tpokazan.BitBtn2Click(Sender: TObject);

begin

groupbox4.Visible:=not(groupbox4.Visible);

if bitbtn2.caption='Добавить' then

bitbtn2.caption:='Закрыть добавление' else

bitbtn2.caption:='Добавить';

end;

procedure Tpokazan.Button3Click(Sender: TObject);

begin

pokazan.ADOTABLE1.Post;

Close;

ShowMessage ('Запись добавлена!')

end;

procedure Tpokazan.Button1Click(Sender: TObject);

begin

Dbgrid1.DataSource.DataSet.close;

dbgrid1.DataSource.DataSet.Open;

end;

procedure Tpokazan.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if Key in ['0'..'9'] then

begin

key :=#0;

showmessage ('Попытка ввода цифр!!!')

end;

procedure Tpokazan.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit4KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit5KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit6KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit7KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit8KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit9KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit10KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit11KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit12KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit13KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit14KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit15KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.DBEdit16KeyPress(Sender: TObject; var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) or (Key in ['А'..'Я']) or (Key in ['а'..'я']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв!!!')

end;

procedure Tpokazan.RadioButton3Click(Sender: TObject);

begin

AdoTable1.Sort:='[№_schetchika] ASC';

end;

procedure Tpokazan.RadioButton4Click(Sender: TObject);

begin

AdoTable1.Sort:='[Data_ustanovki] ASC';

end;

end.

unit Kvitanciya;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, OleServer, comobj,

XPMan, ExtCtrls, Menus, jpeg, ADODB, DB, Mask, DBCtrls;

type

TForm5 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label1: TLabel;

Edit13: TEdit;

Edit16: TEdit;

Edit17: TEdit;

Edit34: TEdit;

Edit35: TEdit;

Edit39: TEdit;

Edit42: TEdit;

Edit43: TEdit;

Edit45: TEdit;

Edit61: TEdit;

Edit62: TEdit;

Label2: TLabel;

Edit9: TEdit;

Edit10: TEdit;

Edit18: TEdit;

Edit19: TEdit;

Edit20: TEdit;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit7: TDBEdit;

ADOTable2: TADOTable;

DataSource2: TDataSource;

DBEdit6: TDBEdit;

Edit11: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

DBEdit1: TDBEdit;

procedure Edit20KeyPress(Sender: TObject; var Key: Char);

procedure Edit45KeyPress(Sender: TObject; var Key: Char);

procedure Edit9KeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Edit45KeyPress(Sender: TObject;var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв английского алфавита!!!')

end;

procedure TForm5.Edit20KeyPress(Sender: TObject;var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв английского алфавита!!!')

end;

procedure TForm5.Edit9KeyPress(Sender: TObject;var Key: Char);

begin

If (Key in ['a'..'z']) or (Key in ['A'..'Z']) then

begin

Key:=#0;

showmessage ('Попытка ввода букв английского алфавита!!!')

end;

procedure TForm5.Button1Click(Sender: TObject);

var a,b:integer;

begin

a:=StrToInt(DBEdit7.Text);

b:=StrToInt(DBEdit6.Text);

Form5.Edit11.text:=IntToStr(a-b);

Form5.Edit19.text:=IntToStr(a-b);

Form5.Edit62.text:=FloatToStr((a-b)*19.54);

Form5.Edit18.text:=FloatToStr((a-b)*19.54);

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Form5.Print;

end;

procedure TForm5.Button3Click(Sender: TObject);

var

docum,wd,vend,vstart,a,b,filename,shablon:OleVariant;

j,ilengy,z,len, n, o:integer;

s: extended;

s1,s2,s3:string;

begin

shablon:= 'J:\ИСПРАВЛЕННЫЙ ПРОЕКТ!!!\Shablon.docx';

wd:=createOleObject('Word.application');

if fileExists('J:\ИСПРАВЛЕННЫЙ ПРОЕКТ!!!\Shablon.docx') then

begin

docum:=wd.Documents.Open('J:\ИСПРАВЛЕННЫЙ ПРОЕКТ!!!\Shablon.docx');

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Извещение за:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit9.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Оплатить до' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit10.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Адрес:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit1.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Адрес:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit2.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Адрес:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit3.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Л/С:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit4.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='ФИО:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit5.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Начислено за:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit45.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='К оплате:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit18.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='ХВС 1:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit6.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='ХВС 1:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+DBEdit7.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='ХВС 1:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit11.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Объем ОДПУ коммунальных услуг:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit19.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Оплата за:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit20.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Тариф:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit61.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

ilengy:=Length(docum.range.text);

for j:=0 to ilengy-48 do begin

a:=j;

b:=j+7;

if docum.Range(a,b).text='Итого начислено:' then begin

vstart:=j;

vend:=j+7;

end;

docum.Range(vstart,vend).Select;

wd.Selection.InsertAfter(': '+Edit62.Text);

docum.Range(vstart,vend).Select;

Wd.Selection.Font.Bold:=1;

Wd.Selection.Font.Size:=16;

wd.Selection.Font.color:=clblack;

wd.visible:=true;

end;

end.

unit Pomosh;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, OleCtrls, SHDocVw;

type

Thelp = class(TForm)

WebBrowser1: TWebBrowser;

TreeView1: TTreeView;

procedure TreeView1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

help: Thelp;

implementation

{$R *.dfm}

procedure Thelp.TreeView1Click(Sender: TObject);

begin

if TreeView1.Items.Item[0].Selected then WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'spravka/O programme.htm');

if TreeView1.Items.Item[1].Selected then WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'spravka/Pristupayakrabote.htm');

if TreeView1.Items.Item[2].Selected then WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'spravka/Razrabotchik.htm');

end;

end.

unit Parol;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons;

type

TPasswordDlg = class(TForm)

Label1: TLabel;

Password: TEdit;

OKBtn: TButton;

CancelBtn: TButton;

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

PasswordDlg: TPasswordDlg;

implementation

{$R *.dfm}

procedure TPasswordDlg.FormCloseQuery(Sender: TObject;

var CanClose: Boolean);

begin

if Password.Text = 'kebosu' then CanClose:=true

else

begin

Application.MessageBox(Pchar('Неверный пароль!'), 'Ошибка' );

Application.Terminate;

end;

end

end.

<<< < Предыдущая 1 2 3 4 5 6 78 / 88

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
29.03.2016879.37 Кб197ответы.docx
#
10.06.20153.07 Mб131Ответы_ОТУ_неполные.doc
#
01.03.2025160.97 Кб11Отражение и преломление света (26).docx
#
01.05.20252.03 Mб7ОТС.doc
#
18.12.201838.68 Кб21отчёт 11.docx
#
01.05.20252.43 Mб9Отчёт по курсовой работе..docx
#
10.06.2015186.37 Кб341Отчет по практике.doc
#
10.06.2015116.5 Кб107отчет практика.docx
#
10.06.20151.26 Mб36ОТчет.doc
#
26.04.20191.05 Mб28Отчет1 - Пример отчета.doc
#
01.03.2025510.98 Кб12Отчет2 оту.doc