Предыдущая страница реферата | 19  20  21  22  23  24  25  26  27  28  29 | Следующая страница реферата

1 Листинг основного файла-проекта

program deports;

uses
Forms, sysutils, mainform in 'mainform.pas' {form1},
PasswordsDB in '..libraryPasswordsDB.pas' {Passwords_: TDataModule},
PasswordChange in '..libraryPasswordChange.pas' {PasswordChange_},
Login in '..libraryLogin.pas' {Login_},
NEUser in '..libraryNEUser.pas' {NEUser_},
Variables in '..libraryVariables.pas', utils in '..libraryutils.pas', keygenDB in '..librarykeygenDB.pas' {keygen_: TDataModule},
JornalDB in '..libraryJornalDB.pas' {Jornal_: TDataModule},
ViewJornal in '..libraryViewJornal.pas' {ViewJornal_},
BureausDB in '..libraryBureausDB.pas' {Bureaus_: TDataModule}, viewBureaus in '..libraryviewBureaus.pas' {ViewBureaus_},
NewBureau in '..libraryNewBureau.pas' {NewBureau_},
MainBD in '..libraryMainBD.pas' {MainDB: TDataModule}, mailer in '..librarymailer.pas' {Mailer_},
UsersMonitor in '..libraryUsersMonitor.pas' {UsersMonitor_}, educationDB in '..libraryeducationDB.pas' {edu_: TDataModule},
ViewEdu in '..libraryviewedu.pas' {ViewEdu_},
NewEdu in '..libraryNewedu.pas' {Newedu_},
InstitutesDB in '..libraryInstitutesDB.pas' {Institutes_: TDataModule},
ViewInstitutes in '..libraryviewInstitutes.pas' {ViewInstitutes_},
NewInstitute in '..libraryNewInstitute.pas' {NewInstitute_},
DipSpcDB in '..libraryDipSpcDB.pas' {DipSpc_: TDataModule},
ViewDipSpc in '..libraryviewDipSpc.pas' {ViewDipSpc_},
NewDipSpc in '..libraryNewDipSpc.pas' {NewDipSpc_}, qualifDB in '..libraryQualifDB.pas' {qualif_: TDataModule},
Viewqualif in '..libraryviewQualif.pas' {Viewqualif_},
Newqualif in '..libraryNewQualif.pas' {Newqualif_},
WkSpcDB in '..librarywkSpcDB.pas' {WkSpc_: TDataModule},
ViewWkSpc in '..libraryviewwkSpc.pas' {ViewWkSpc_},
NewWkSpc in '..libraryNewwkSpc.pas' {NewWkSpc_},
ITRSpcDB in '..libraryITRSpcDB.pas' {ITRSpc_: TDataModule},
ViewITRSpc in '..libraryviewITRSpc.pas' {ViewITRSpc_},
NewITRSpc in '..libraryNewITRSpc.pas' {NewITRSpc_},
AroundsDB in '..libraryAroundsDB.pas' {Arounds_: TDataModule},
ViewArounds in '..libraryviewArounds.pas' {ViewArounds_},
NewAround in '..libraryNewAround.pas' {NewAround_},
NewStreet in '..libraryNewstreet.pas' {NewStreet_},
WarBursDB in '..libraryWarBursDB.pas' {WarBurs_: TDataModule},
ViewWarBurs in '..libraryviewWarBurs.pas' {ViewWarBurs_},
NewWarBur in '..libraryNewWarBur.pas' {NewWarBur_},
WarGrpsDB in '..libraryWarGrpsDB.pas' {WarGrps_: TDataModule},
ViewWarGrps in '..libraryviewWarGrps.pas' {ViewWarGrps_},
NewWarGrp in '..librarynewWarGrp.pas' {NewWarGrp_},
ContsDB in '..libraryContsDB.pas' {Conts_: TDataModule},
ViewConts in '..libraryviewConts.pas' {ViewConts_},
NewCont in '..libraryNewCont.pas' {NewCont_},
NewWarName in '..libraryNewWarName.pas' {NewWarName_},
NeedDB in '..libraryNeedDB.pas' {Needs_: TDataModule},
ViewQuestions in '..libraryviewQuestions.pas' {ViewQuestions_},
NewQuestion in '..libraryNewQuestion.pas' {NewQuestion_},
Answer in '..libraryAnswer.pas' {Answer_},
NationsDB in '..libraryNationsDB.pas' {Nations_: TDataModule},
ViewNations in '..libraryviewNations.pas' {ViewNations_},
NewNation in '..libraryNewNation.pas' {NewNation_},
CountrysDB in '..libraryCountrysDB.pas' {Countrys_: TDataModule}, viewCountrys in '..libraryviewCountrys.pas' {ViewCountrys_},
NewCountry in '..libraryNewCountry.pas' {NewCountry_},
FamalysDB in '..libraryFamalysDB.pas' {Famalys_: TDataModule},
ViewFamalys in '..libraryviewFamalys.pas' {ViewFamalys_},
NewFamaly in '..libraryNewFamaly.pas' {NewFamaly_},
ViewExcesses in '..libraryviewExcesses.pas' {ViewExcesses_},
ExcessesDB in '..libraryExcessesDB.pas' {Excesses_: TDataModule},
NewExcess in '..libraryNewExcess.pas' {NewExcess_},
MeedsDB in '..libraryMeedsDB.pas' {Meeds_: TDataModule},
ViewMeeds in '..libraryviewMeeds.pas' {ViewMeeds_},
NewMeed in '..libraryNewMeed.pas' {NewMeed_}, emeritusDB in '..libraryemeritusDB.pas' {emeritus_: TDataModule}, viewemeritus in '..libraryviewemeritus.pas' {Viewemeritus_},
Newemeritus in '..libraryNewemeritus.pas' {Newemeritus_},
CardsDB in 'CardsDB.pas' {Cards_: TDataModule},
LoadLed in '..libraryLoadLed.pas' {LoadLed_},
ViewCards in 'viewcards.pas' {ViewCards_},
ViewCard in 'viewcard.pas' {ViewCard_},
NewChild in 'Newchild.pas' {NewChild_},
NewCardsEdu in 'newcardsedu.pas' {NewCardsEdu_},
NewWorkMove in 'Newworkmove.pas' {NewWorkMove_},
NewcommonWork in 'Newcommonwork.pas' {NewcommonWork_}, lockScreen_ in 'lockScreen_.pas' {lockScreen__},
Newleaf in 'Newleaf.pas' {Newleaf_},
NewPunishment in 'Newpunishment.pas' {NewPunishment_},
DisPunishment in 'Dispunishment.pas' {DisPunishment_},
NewOutCountry in 'NewOutCountry.pas' {NewOutCountry_},
Newplantmeed in 'Newplantmeed.pas' {Newplantmeed_},
Newcardmeed in 'Newcardmeed.pas' {Newcardmeed_}, search in 'search.pas' {Search_},
Newcardemeritus in 'Newcardemeritus.pas' {Newcardemeritus_},
MainTable in 'MainTable.pas' {MainTable_: TQuickRep},
PRNTitle in 'PRNTitle.pas' {PRNTitle_}, cards_Main in 'cards_Main.pas' {cards_main_: TQuickRep},
MainPFTable in 'MainPFTable.pas' {MainPFTable_: TQuickRep}, viewcdpf in 'viewcdpf.pas' {viewcdpf_}, viewcdedu in 'viewcdedu.pas' {viewcdedu_},
Statedu in 'Statedu.pas' {StatEdu_},
MaineduTable in 'MaineduTable.pas' {MaineduTable_: TQuickRep},
Statqual in 'Statqual.pas' {Statqual_}, viewcdqual in 'viewcdqual.pas' {viewcdqual_},
MainqualTable in 'MainqualTable.pas' {MainqualTable_: TQuickRep},
StatAround in 'Stataround.pas' {StatAround_},
Statbur in 'Statbur.pas' {Statbur_}, s13_thpayment in 's13_thpayment.pas' {s13_thpayment_: TQuickRep},
PRNSTG13 in 'PRNSTG13.pas' {PRNSTG13_}, viewWarNames in '..libraryviewWarNames.pas' {ViewWarNames_}, megastat in 'megastat.pas' {megaStat_},
MaininvalTable in 'MaininvalTable.pas' {MaininvalTable_: TQuickRep}, viewcdinval in 'viewcdinval.pas' {viewcdinval_}, viewarchive in 'viewarchive.pas' {viewarchive_}, wait in 'wait.pas' {Wait_}, setingsdb in '..librarysetingsdb.pas' {Setings_: TDataModule}, s14_thpayment in 's14_thpayment.pas' {s14_thpayment_: TQuickRep},
Warreport in 'Warreport.pas' {WarReport_: TQuickRep},
MedTable in 'MedTable.pas' {MedTable_: TQuickRep}, helper in '..libraryhelper.pas' {Form2};

{$R *.RES} begin
Application.Initialize;
Application.CreateForm(Tform1, form1);
Application.Run; end.

2 Листинг созданного VCL-компонента.

unit DBSearchEdit; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables,

DB,stdctrls; type
TDBSearchEdit = class(TEdit) procedure onchange_ (sender : TObject); procedure onkeypress_ (Sender: TObject; var Key: Char); private needsearch_ : boolean; table1_ : Ttable; keyFieldName_,textFieldName_ : TField; indexname_ : string; onchange2 : tnotifyevent; srch,ch : integer; onkeypress2 : TKeyPressEvent;

{ Private declarations } protected

{ Protected declarations } public constructor Loaded; constructor Create(aOwner: TComponent); override; destructor destroy;

{ Public declarations } published property needsearch : boolean read needsearch_ write needsearch_; property Dataset : Ttable read table1_ write table1_; property KeyFieldName : TField read keyfieldname_ write keyfieldname_; property TextFieldName : TField read textfieldname_ write textfieldname_; property indexname : string read indexname_ write indexname_; property newonkeypress : TKeyPressEvent read onkeypress2 write onkeypress2; property newonchange : TNotifyEvent read onchange2 write onchange2;

{ Published declarations } end;

procedure Register;

implementation function compress(s : shortstring):shortstring; var s2 : shortstring; x : integer; begin s2 :=''; for x:=1 to length(s) do if s[x]' ' then s2:=s2+s[x]; s2:=s2+#0; s2:=ansistrupper(@s2[1]); compress:=s2; end;

constructor TDBSearchEdit.Loaded; begin inherited loaded; end;

procedure TDBSearchEdit.onchange_(sender : tobject); var s1,s : shortstring; poz : integer; begin if srch=0 then exit; srch:=0; if ch=1 then exit; ch:=1; if assigned(onchange2) then onchange2(sender); if not TDBSearchEdit(sender).needsearch_ then exit; try s1:=table1_.Indexname; table1_.indexname:=indexname_; s:=compress(TDBSearchEdit(sender).text); table1_.findnearest([s]); if pos(s,table1_.fieldbyname(keyfieldname_.fieldname).asstring)=1 then begin poz:=length(TDBSearchEdit(sender).text);

TDBSearchEdit(sender).text:=Table1_.fieldbyname(textfieldname_.fieldname).as string;

TDBSearchEdit(sender).perform(em_setsel,poz,length(TDBSearchEdit(sender).tex t)); end else begin beep; beep; beep; beep; beep; beep; end; finally try ch:=0; table1_.indexname:=s1 except end; end; end;

procedure TDBSearchEdit.onkeypress_(Sender: TObject; var Key: Char); begin if assigned(onkeypress2) then onkeypress2(sender,key); if key#8 then srch:=1; end;

constructor TDBSearchEdit.Create(aOwner: TComponent); begin inherited create(aOwner); needsearch:=true; onchange:=onchange_; onkeypress:=onkeypress_; end;

destructor TDBSearchEdit.destroy; begin inherited destroy; end;

procedure Register; begin
RegisterComponents('Diplom',[TDBSearchEdit]); end;

end.

3 Модуль блокировки программы от несанкционированного доступа

unit lockScreen_;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls,variables;

type
TlockScreen__ = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit; procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure FormResize(Sender: TObject); procedure WNDPROC(var m : tmessage); override; private canclose : integer;

{ Private declarations } public

{ Public declarations } end;

var lockScreen__: TlockScreen__;

implementation

{$R *.DFM}

procedure TlockScreen__.WNDPROC(var m : tmessage); begin inherited wndproc(m); end;

procedure TlockScreen__.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then begin if edit1.text=password__ then begin canclose:=1; close; end else edit1.text:=''; end; end;

procedure TlockScreen__.FormClose(Sender: TObject; var Action: TCloseAction); begin if canclose=1 then action:=cafree else action:=canone; end;

procedure TlockScreen__.FormCreate(Sender: TObject); begin canclose:=0; end;

procedure TlockScreen__.FormResize(Sender: TObject); begin panel1.left:=(clientwidth-panel1.width) div 2; panel1.top:=(clientheight-panel1.height) div 2; end;

end.

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

1. Дж.Ульман, "Основы систем баз данных", М.:Финансы и статистика,1983г.
2. Дейт К., "Введение в системы баз данных", М.: Hаука, 1980 г.
3. Корячко В.П., Курейчик В.М., Hоренков И.П. "Теоретические основы САПР",

М.: Энергоатомиздат, 1987г.
4. Когаловский М.Р., "Технология баз данных на персональных ЭВМ",

М.:Финансы и статистика, 1992 г.
5. А.H.Hаумов, А.М.Вендров и др., "Системы управления базами данных и знаний", М.:Финансы и статистика, 1991г.
6. Брябрин В.М., "Программное обеспечение персональных ЭВМ", М.:Hаука, 1989 г.
7. Аппак М.А., "Автоматизированные рабочие места на основе персональных

ЭВМ", М.:'Радио и связь', 1989 г.
8. Крайзмер Л.П., Кулик Б.А., "Персональный компьютер на вашем рабочем месте", 'Лениздат', 1991 г.
9. Шумаков П. В. “Delphi 3.0 и создание баз данных”. Москва 1997г.
10. Дж. Мартин., "Организация баз данных в вычислительных системах" М: Мир

1978г.
11. С.М.Диго "Проектирование и использования баз данных". Москва: Финансы и статистика 1995.
12. A.M.Епанешников., "Программирование в среде Delphi 2.0"
13. Д.Веттинг Nowell NetWare для пользователя М.:Радио и связь, 1997
14. С.И.Казаков Основы сетевых технологий М.:Радио и связь, 1999
15. Nowell NetWare 4.02 for Lan Managers” Nowell Corp. Документация к продукту.
16. Кириллов В.В. Структуризованный язык запросов (SQL). – СПб.: ИТМО,

1994. – 80 с.
17. Б.Г. Голованов “ Введение в программирование в сетях Nowell NetWare

С-П.: Питер, 2000.
3.1 ГОСТ 12.0.003-74. ССБТ Опасные и вредные факторы.Классификация.

3.2 Шумилин В.К., Гетия И.Г. Охрана труда при работе на ПЭВМ и ЭВМ. Учебное пособие (часть 1).- М.: МИП, 1994г.

Рекомендуем скачать другие рефераты по теме: сочинение базаров, заключение реферата.



Предыдущая страница реферата | 19  20  21  22  23  24  25  26  27  28  29 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки