Санкт- Петербург
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. Санкт- Петербург
1.Состав бухгалтерской отчетности и общие требования к отчетной информации. Бухгалтерская (финансовая) отчетность является основным источником информации для проведения финансового анализа. Федеральный закон «О бухгалтерском учете» от 06.12.2011 г. № 402-ФЗ в ст. 13 установил общие требования к бухгалтерской (финансовой) отчетности: 1) Бухгалтерская (финансовая) отчетность должна давать достоверное представление о финансовом положении экономического субъекта на отчетную дату, финансовом результате его деятельности и движении денежных средств за отчетный период, необходимое пользователям этой отчетности для принятия экономических решений; 2) Экономический субъект составляет годовую бухгалтерскую (финансовую) отчетность, если иное не установлено идругими федеральными законами, нормативными правовыми актами органов государственного регулирования бухгалтерского учета; 3) Годовая бухгалтерская (финансовая) отчетность составляется за отчетный год; 4) Промежуточная бухгалтерская (финансовая) отчетность составляется экономическим субъектом в случаях, установленных законодательством РФ, нормативными правовыми актами органов государственного регулирования бухгалтерского учета; 5) Промежуточная бухгалтерская (финансовая) отчетность составляется за отчетный период меньше отчетного года; 6) Бухгалтерская (финансовая) отчетность должна включать показатели деятельности всех подразделений экономического субъекта, включая его филиалы и представительства, независимо от их места нахождения; 7) Бухгалтерская (финансовая) отчетность составляется в валюте РФ; 8) Бухгалтерская (финансовая) отчетность считается составленной после подписания ее экземпляра на бумажном носителе руководителем экономического субъекта; 9) Утверждение и опубликование бухгалтерской (финансовой) отчетности осуществляется в порядке и случаях, которые установлены федеральными законами; 10) В случае опубликования бухгалтерской (финансовой) отчетности, которая подлежит обязательному аудиту, такая бухгалтерская (финансовая) отчетность должна опубликовываться вместе с аудиторским заключением; 11) В отношении бухгалтерской (финансовой) отчетности экономическим субъектом не может быть установлен режим коммерческой тайны; 12) Правовое регулирование консолидированной финансовой отчетности осуществляется в соответствии с настоящим Федеральным законом, если иное не установлено другими федеральными законами. Наряду с вышеприведенными следует учитывать и установленные Положением по ведению бухгалтерского учета и бухгалтерской отчетности в Российской Федерации, а также ПБУ 4/99 «Бухгалтерская отчетность организации» такие общие требования к бухгалтерской (финансовой) отчетности, как: 1) Нейтральность информации, содержащейся в отчетности, т.е. в ней должно быть исключено одностороннее удовлетворение интересов одних групп пользователей бухгалтерской отчетности перед другими; 2) Последовательность отчетности, т.е. организация должна при составлении бухгалтерского баланса, отчета о прибылях и убытках и пояснений к ним придерживаться принятых ею их содержания и формы последовательно от одного отчетного периода к другому; 3) Приведение по каждому числовому показателю отчетности, кроме отчета, составленного за первый отчетный период, данных как минимум за 2 года – отчетный и предшествующий отчетному; 4) Сопоставимость показателей отчетности, которая обеспечивает возможность изучения их динамики. При этом, если приведенные в отчетности данные за предыдущий период несопоставимы с данными за отчетный период, первые из названных данных подлежат корректировке исходя из правил, установленных нормативными актами по бухгалтерскому учету. Каждая существенная корректировка должна быть раскрыта в пояснительной записке с указанием ее причин; 5) Изменения в отчетности, относящейся как к отчетному году, так и к предшествовавшим периодам (после ее утверждения), производятся в отчетности, составляемой за отчетный период, в котором были обнаружены искажения ее данных; 6) Существенность показателей отчетности, т.е. показатели об отдельных активах, обязательствах, доходах, расходах и хозяйственных операциях должны приводиться в отчетности обособленно в случае их существенности и если без знания о них заинтересованными пользователями невозможна оценка финансового положения организации и финансовых результатов ее деятельности; 7) В отчетности не допускается зачет между статьями активов и пассивов, статьями прибылей и убытков, кроме случаев, когда такой зачет предусмотрен правилами, установленными нормативными актами; 8) Бухгалтерская отчетность должна быть составлена на русском языке; 9) Бухгалтерская отчетность подписывается руководителем и главным бухгалтером организации. Если в организации бухгалтерский учет ведется на договорных началах специализированной организацией (централизованной бухгалтерией) или бухгалтером-специалистом, бухгалтерская отчетность подписывается руководителем организации и руководителем специализированной организации (централизованной бухгалтерии) либо специалистом, ведущим бухгалтерский учет. Ответственность лиц, подписывающих отчетность, определяется в соответствии с законодательством РФ. Состав, содержание и методические основы формирования бухгалтерской (финансовой) отчетности регулируются Федеральным законом №402-ФЗ (ст.14), Положением о бухгалтерском учете и бухгалтерской отчетности в Российской Федерации (раздел III) и ПБУ 4/99 «Бухгалтерская отчетность организации». Состав и формы бухгалтерской отчетности, действующие начиная с годовой бухгалтерской отчетности за 2011 год, утверждены приказом Минфина РФ от 2 июля 2010 г. №66н «О формах бухгалтерской отчетности организаций» (с учетом изменений, внесенных приказом Минфина РФ от 05.10.2011 г. №124н). В соответствии с этим приказом годовая бухгалтерская отчетность включает: 1) Бухгалтерский баланс; 2) Отчет о прибылях и убытках; 3) Приложения к бухгалтерскому балансу и отчету о прибылях и убытках: · Отчет об изменениях капитала; · Отчет о движении денежных средств; · Отчет о целевом использовании полученных средств; · Иные приложения к бухгалтерскому балансу и отчету о прибылях и убытках; · Аудиторское заключение, подтверждающее достоверность бухгалтерской отчетности организации, если она в соответствии с законом подлежит обязательному аудиту. 3. Характеристика аналитической информации, содержащейся в отчете о прибылях и убытках, ее взаимосвязь с другими формами бухгалтерской отчетности.
5. Характеристика аналитической информации, содержащейся в отчете о движении денежных средств, ее взаимосвязь с другими формами бухгалтерской отчетности.
7. По данным бухгалтерского баланса проанализируйте структуру и динамику активов организации (табл. 1). Дайте их оценку
Таблица 1
|
