Студопедия — Текст программы. Glavnaya in 'Glavnaya.pas' {Form1},
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Текст программы. Glavnaya in 'Glavnaya.pas' {Form1},


⇐ Предыдущая12345678




 

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;

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;

 

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;

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;

end;

 

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

begin

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

begin

key:=#0;

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

end;

end;

 

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

begin

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

begin

key:=#0;

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

end;

end;

 

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

begin

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

begin

key:=#0;

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

end;

end;

 

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

begin

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

begin

key:=#0;

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

end;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

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;

 

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

begin

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

else

begin

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

Application.Terminate;

end;

end;

end

end.




⇐ Предыдущая12345678


Дата добавления: 2015-06-15; просмотров: 550. Нарушение авторских прав; Мы поможем в написании вашей работы!

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Теория усилителей. Схема Основная масса современных аналоговых и аналого-цифровых электронных устройств выполняется на специализированных микросхемах...

Словарная работа в детском саду Словарная работа в детском саду — это планомерное расширение активного словаря детей за счет незнакомых или трудных слов, которое идет одновременно с ознакомлением с окружающей действительностью, воспитанием правильного отношения к окружающему...

Правила наложения мягкой бинтовой повязки 1. Во время наложения повязки больному (раненому) следует придать удобное положение: он должен удобно сидеть или лежать...

ТЕХНИКА ПОСЕВА, МЕТОДЫ ВЫДЕЛЕНИЯ ЧИСТЫХ КУЛЬТУР И КУЛЬТУРАЛЬНЫЕ СВОЙСТВА МИКРООРГАНИЗМОВ. ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА БАКТЕРИЙ Цель занятия. Освоить технику посева микроорганизмов на плотные и жидкие питательные среды и методы выделения чис­тых бактериальных культур. Ознакомить студентов с основными культуральными характеристиками микроорганизмов и методами определения...

Функциональные обязанности медсестры отделения реанимации · Медсестра отделения реанимации обязана осуществлять лечебно-профилактический и гигиенический уход за пациентами...

Определение трудоемкости работ и затрат машинного времени На основании ведомости объемов работ по объекту и норм времени ГЭСН составляется ведомость подсчёта трудоёмкости, затрат машинного времени, потребности в конструкциях, изделиях и материалах (табл...

Гидравлический расчёт трубопроводов Пример 3.4. Вентиляционная труба d=0,1м (100 мм) имеет длину l=100 м. Определить давление, которое должен развивать вентилятор, если расход воздуха, подаваемый по трубе, . Давление на выходе . Местных сопротивлений по пути не имеется. Температура...

Studopedia.info - Студопедия - 2014-2024 год . (0.011 сек.) русская версия | украинская версия