1. Бройдо В. Л., Крылова В.С. «Научные основы организации управления и построения АСУ», Высшая школа, Москва, 1990 г.
2. Вендров А.М. CASE-технологии. Современные методы и средства проектирования информационных систем. М., Финансы и статистика, 1998.
3. Вендров А.М. Проектирование программного обеспечения экономических информационных систем. М., Финансы и статистика, 2000.
4. Дейт К. «Введение в системы управления базами данных», БИНОМ, Москва, 1999 г.
5. Иоффе А. Ф. «Персональные ЭВМ в организационном управлении», Наука, Москва, 1988 г.
6. Информатика и вычислительная техника: пособие для студ. Вузов инж. - педагогич. спец. В. В. Вьюгин, С. В. Кудимов, В. Г. Накрохин и др.; под ред. В. Н. Ларионова. – М.: Высш. Шк. 1992. – 287 с.: ил.
7. Интернет-сайты: http://ibphoenix.com/main.nfs?a=ibphoenix&s=1132891400: 150223&page=ibp_config, www.ais.khstu.ru, www.libertarium.ru.
8. Ковязин А.Н., С.М. Востриков "Мир InterBase. Архитектура, администрирование и разработка приложений баз данных в InterBase/Firebird/Yaffil (3-е издание)" - М.: Кудиц-образ, 2005
9. Марин Дж. «Организация баз данных в вычислительных системах», Мир, Москва, 1990г.
10. Немнюгин С.А.– «Delphi»- СПб, Питер – 2000 г.
11. Оптимизация приложений С++Builder в архитектуре клиент/сервер, Наталия Елманова, Центр информационных технологий
(http://www.citforum.ru/programming/cpp/cb_498.shtml
12. Фаронов В.В.– «Delphi 7.0» – изд. «Нолидж» - 2001 г.
13. Фаронов В. В. – «Delphi 7.0» – изд. «Нолидж» - 1999г;
14. Фигурнов В.Э.– «IBM PC для пользователя. Краткий курс» – изд. «ИНФРА-М» - 2000г
15. Чен П.П. Модель “сущность-связь” – шаг к единому представлению данных. СУБД, N3, 1995 г
16. Чертовской В.Д. Базы и банки данных. СПб, БХВ-Петербург – 2005 г.
ПРИЛОЖЕНИЕ 1
Листинг основной программы
unit Umain;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ImgList;
type
TFmain = class(TForm)
MainMenu1: TMainMenu;
ImageList1: TImageList;
N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem;
N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem;
N9: TMenuItem; N11: TMenuItem; N12: TMenuItem;
N14: TMenuItem; N15: TMenuItem; N13: TMenuItem;
N16: TMenuItem;
procedure N5Click(Sender: TObject); procedure N12Click(Sender: TObject);
procedure N8Click(Sender: TObject); procedure N7Click(Sender: TObject);
procedure N15Click(Sender: TObject); procedure N6Click(Sender: TObject);
procedure N14Click(Sender: TObject); procedure N13Click(Sender: TObject);
procedure N9Click(Sender: TObject); procedure N16Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var
Fmain: TFmain;
implementation
uses UDM, UDobTovar, UTovar, UDobFirm, UFirm, UZakaz, UDobZakaz, UInvVed1, URepIVed, UKlad, Upass, UDogf, UTPoisk, UAbout, USPoisk, UZapr;
Продолжение приложения 1
{$R *.dfm}
procedure TFmain.N5Click(Sender: TObject);
begin FTovar.Show; end;
procedure TFmain.N12Click(Sender: TObject);
begin FPass.Close; close; end;
procedure TFmain.N8Click(Sender: TObject);
begin FFirm.Show; end;
procedure TFmain.N7Click(Sender: TObject);
begin FZakaz.Show; end;
procedure TFmain.N15Click(Sender: TObject);
begin FInvVed.Show; end;
procedure TFmain.N6Click(Sender: TObject);
begin FKlad.Show; end;
procedure TFmain.N14Click(Sender: TObject);
begin fdog.Show; end;
procedure TFmain.N13Click(Sender: TObject);
begin FTPoisk.Show; end;
procedure TFmain.N9Click(Sender: TObject);
begin AboutBox.Show; end;
procedure TFmain.N16Click(Sender: TObject);
begin FSPoisk.Show; end;
procedure TFmain.N3Click(Sender: TObject);
begin Form1.Show; end;
end.
unit UNewPass;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Продолжение приложения 1
Dialogs, StdCtrls, Buttons, Registry;
type
TFNewPass = class(TForm)
Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; SpeedButton1: TSpeedButton; Label1: TLabel; Label2: TLabel; Label3: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private { Private declarations }
public { Public declarations }
end;
var FNewPass: TFNewPass;
implementation
uses Upass;
{$R *.dfm}
procedure TFNewPass.SpeedButton1Click(Sender: TObject);
begin close; end;
procedure TFNewPass.FormActivate(Sender: TObject);
begin Edit1.Text := ''; Edit2.Text := ''; Edit3.Text := ''; Edit1.Enabled := true;
Edit1.SetFocus; Edit2.Enabled := false; Edit3.Enabled := false; end;
procedure TFNewPass.Edit1KeyPress(Sender: TObject; var Key: Char);
begin if (key = #13) and (Edit1.Text = Fpass.LabeledEdit1.Text) then
begin Edit2.Enabled := true; Edit1.Enabled := false; Edit2.SetFocus;
end; end;
procedure TFNewPass.Edit2KeyPress(Sender: TObject; var Key: Char);
begin if key = #13 then begin Edit3.Enabled := true; Edit3.SetFocus;
Продолжение приложения 1
Edit2.Enabled := false; end; end;
procedure TFNewPass.Edit3KeyPress(Sender: TObject; var Key: Char);
var Reg:TRegistry;
begin if (key = #13) and (Edit2.Text = Edit3.Text) then begin
Reg := TRegistry.Create; with Reg do begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software', True); if not KeyExists('Cardi') then CreateKey('Cardi');
OpenKey('Cardi', True); WriteString('Log', Edit3.Text); end; close; end;
end; end.
unit Upass;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, Registry;
type
TFPass = class(TForm)
LabeledEdit1: TLabeledEdit; SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var FPass: TFPass; pass, newpass:string; x:byte;
implementation
uses UZast, UNewPass;
{$R *.dfm}
Продолжение приложения 1
procedure TFPass.SpeedButton1Click(Sender: TObject);
begin x:= x+1; if x<3 then Begin if LabeledEdit1.Text = pass then
begin FZast.Show; Visible:=false; end else begin
LabeledEdit1.SetFocus; MessageDlg('Пароль не верен!!! Повторите ввод', mtInformation,[mbOk],0); end end else
begin MessageDlg('Пароль не верен!!! Доступ запрещен!!!', mtInformation,
[mbOk], 0); Close; end; end;
procedure TFPass.FormCreate(Sender: TObject);
var reg:Tregistry;
begin x:=0; LabeledEdit1.Text := ''; Reg := TRegistry.Create; with Reg do
begin RootKey := HKEY_LOCAL_MACHINE; OpenKey('Software', True);
if not KeyExists('Cardi') then CreateKey('Cardi');
OpenKey('Cardi', True); if not ValueExists('Log') then begin
newpass := ''; WriteString('Log', newpass); end else pass := ReadString('Log'); end; end;
procedure TFPass.SpeedButton2Click(Sender: TObject);
begin close; end;
procedure TFPass.SpeedButton3Click(Sender: TObject);
begin FNewPass.Show; end;
end.
unit URepIVed;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls;
Type TFRepIVed = class(TForm)
QuickRep1: TQuickRep; DetailBand1: TQRBand;
ColumnHeaderBand1: TQRBand; TitleBand1: TQRBand;
QRLabel1: TQRLabel; QRLabel2: TQRLabel;
Продолжение приложения 1
QRLabel3: TQRLabel; QRLabel4: TQRLabel;
QRLabel5: TQRLabel; QRLabel6: TQRLabel;
QRLabel7: TQRLabel; QRLabel8: TQRLabel;
QRLabel9: TQRLabel; QRLabel10: TQRLabel;
QRDBText1: TQRDBText; QRDBText2: TQRDBText;
QRDBText3: TQRDBText; QRDBText4: TQRDBText;
QRDBText5: TQRDBText; QRDBText6: TQRDBText;
QRDBText7: TQRDBText; QRDBText8: TQRDBText;
QRDBText9: TQRDBText; SummaryBand1: TQRBand;
QRLabel11: TQRLabel; QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
Private { Private declarations }
Public { Public declarations }
end;
var FRepIVed: TFRepIVed;
implementation
uses UDM;
{$R *.dfm}
end.
unit USPoisk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask,db, DBCtrls, StdCtrls, ExtCtrls, Buttons, ComCtrls;
type
TFSPoisk = class(TForm)
PageControl1: TPageControl; TabSheet1: TTabSheet;
Label1: TLabel; Label2: TLabel; Label3: TLabel;
Label4: TLabel; Label5: TLabel; Label6: TLabel;
Продолжение приложения 1
Label7: TLabel; Label8: TLabel; SpeedButton2: TSpeedButton;
SpeedButton4: TSpeedButton; LabeledEdit1: TLabeledEdit;
DBEdit1: TDBEdit; DBEdit2: TDBEdit;
DBEdit3: TDBEdit; DBEdit4: TDBEdit;
DBEdit5: TDBEdit; DBEdit6: TDBEdit;
DBEdit7: TDBEdit; DBEdit8: TDBEdit;
TabSheet2: TTabSheet; SpeedButton1: TSpeedButton;
SpeedButton3: TSpeedButton; Label12: TLabel;
Label13: TLabel; Label14: TLabel;
Label15: TLabel; Label16: TLabel;
DBEdit12: TDBEdit; DBEdit13: TDBEdit;
DBEdit14: TDBEdit; DBEdit15: TDBEdit;
DBEdit16: TDBEdit; LabeledEdit2: TLabeledEdit;
TabSheet3: TTabSheet; SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton; Label9: TLabel;
DBEdit9: TDBEdit; Label10: TLabel;
DBEdit10: TDBEdit; Label11: TLabel;
DBEdit11: TDBEdit; LabeledEdit3: TLabeledEdit;
Label17: TLabel; DBEdit17: TDBEdit;
Label18: TLabel; DBEdit18: TDBEdit;
Label19: TLabel; DBEdit19: TDBEdit;
Label20: TLabel; DBEdit20: TDBEdit;
Label21: TLabel; DBEdit21: TDBEdit;
Label22: TLabel; DBEdit22: TDBEdit;
Label23: TLabel; DBEdit23: TDBEdit;
Label24: TLabel; DBEdit24: TDBEdit;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
Продолжение приложения 1
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var FSPoisk: TFSPoisk;
implementation
uses UDM;
{$R *.dfm}
procedure TFSPoisk.SpeedButton2Click(Sender: TObject);
begin DM.Tklad.Locate('fio',LabeledEdit1.Text,[lopartialkey]); end;
procedure TFSPoisk.SpeedButton6Click(Sender: TObject);
begin DM.Tklad.Locate('stag',strtoint(LabeledEdit3.Text),[lopartialkey]); end;
procedure TFSPoisk.SpeedButton3Click(Sender: TObject);
begin DM.Tklad.Locate('dolj',LabeledEdit2.Text,[lopartialkey]); end;
procedure TFSPoisk.SpeedButton5Click(Sender: TObject);
begin close; end;
procedure TFSPoisk.SpeedButton1Click(Sender: TObject);
begin close; end;
procedure TFSPoisk.SpeedButton4Click(Sender: TObject);
begin close; end;
end.
unit UTovar;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ImgList, ComCtrls, ToolWin;
Продолжение приложения 1
Type TFTovar = class(TForm)
ToolBar1: TToolBar; TBFirst: TToolButton;
ToolButton2: TToolButton; ToolButton3: TToolButton;
ToolButton4: TToolButton; ToolButton5: TToolButton;
ToolButton6: TToolButton; ToolButton7: TToolButton;
ImageList1: TImageList; DBGrid1: TDBGrid;
ToolButton1: TToolButton;
procedure TBFirstClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;
var
FTovar: TFTovar;
implementation
uses UDM, UDobTovar, Umain;
{$R *.dfm}
procedure TFTovar.TBFirstClick(Sender: TObject);
begin DM.Ttov.First; end;
procedure TFTovar.ToolButton2Click(Sender: TObject);
begin DM.Ttov.Prior; end;
procedure TFTovar.ToolButton3Click(Sender: TObject);
begin DM.Ttov.Next; end;
Продолжение приложения 1
procedure TFTovar.ToolButton4Click(Sender: TObject);
begin DM.Ttov.Last; end;
procedure TFTovar.ToolButton5Click(Sender: TObject);
begin DM.Ttov.Post; end;
procedure TFTovar.ToolButton6Click(Sender: TObject);
begin DM.Ttov.Delete; end;
procedure TFTovar.ToolButton7Click(Sender: TObject);
var n:integer; begin DM.Ttov.Last; n:=DM.Ttov.FieldByName('idn').Value;
DM.Ttov.Append; DM.Ttov.FieldByName('idn').Value:=n+1;