Многопользовательская программа реализации ПК техники

 

 

 

 

 

 

 

 

 

 

 

 

3.Заключение

В разработке программного продукта «Многопользовательская программа реализации компьютерной техники » полностью выполнена поставленная задача. Программа имеет удобный для пользователя интерфейс, который позволяет легко работать с программой даже без специального обучения.

На будущее планируется дополнение и расширение данного программного продукта.

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

 

4.Литература

 

4.1.Книги

В.В. Фаронов "Программирование баз данных в Delphi 7”

Д. Осипов "Delphi и базы данных"

Фаронов, Шумаков - Delphi 5 руководство разработчика баз данных

Вячеслав Понамарев  “Базы данных в Delphi 7”

Шумаков П.В. - Delphi 5. Руководство разработчика баз данных

4.2 Интернет ресурсы

www.ibase.ru/devinfo/generator.htm    Генераторы и их использование

www.ishodniki.ru/art/art_db/interbase/interbase_art/       InterBase

delphi-lab.ucoz.ru/publ/92                      InterBase-Базы данных

 

 

Приложение А

6.1 Описание программы

 

Курсовой проект должен обеспечить автоматизацию  продаж в компьютерном

 магазине. Программа должна являться полностью завершенным программным продуктом, не требующим каких-либо дополнительных специальных компонентов. Программа должна функционировать без наличия привода CD/DVD-дисков, должна предъявлять минимальные требования к аппаратному обеспечению, требования к аппаратным ресурсам должны быть намного ниже, чем для самой ОС. Программа должна иметь интуитивно понятный пользовательский графический интерфейс. В программе реализованы такие функции как: регистрация продаж, регистрация заказов, поиск по проданным товарам, отчетность.

6.2 Интерфейс программы

 

1. Форма “Регистрация продаж” -главное окно приложения

 

unit Unit1;

interface

uses

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

  Dialogs, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, IBSQL, StdCtrls,

  Menus,ShellApi, Buttons;

type

  TForm1 = class(TForm)

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBNavigator2: TDBNavigator;

    Button1: TButton;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Button2: TButton;

    Label1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    PDF1: TMenuItem;

    RTF1: TMenuItem;

    JPG1: TMenuItem;

    XT1: TMenuItem;

    XML1: TMenuItem;

    Help1: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    Button3: TButton;

    N6: TMenuItem;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure PDF1Click(Sender: TObject);

    procedure RTF1Click(Sender: TObject);

    procedure JPG1Click(Sender: TObject);

    procedure XT1Click(Sender: TObject);

    procedure XML1Click(Sender: TObject);

    procedure Help1Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

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

    procedure Button4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

with Datamodule2 do

begin

IBSsotrud.ExecProc();

IBQ2.SQL.Clear;

IBQ2.SQL.Add('insert into SOTRUDNIKI(IDS,FIO,DOLZNOSTI,ADRES,DOMTEL,DR)' ) ;

IBQ2.SQL.Add('VALUES(:newIDS,:newFIO,:newDOLZNOSTI,:newADRES,:newDOMTEL,:newDR)');

IBQ2.ParamByName('newIDS').AsInteger:=IBSsotrud.ParamByName('NEW_VALUE').AsInteger;

IBQ2.ParamByName('newFIO').AsString:=Edit2.Text;

IBQ2.ParamByName('newDOLZNOSTI').AsString:=Edit3.Text;

IBQ2.ParamByName('newADRES').AsString:=Edit4.Text;

IBQ2.ParamByName('newDOMTEL').AsString:=Edit5.Text;

IBQ2.ParamByName('newDR').AsDate:=Strtodate(Edit6.Text);

try

ibq2.ExecSQL;

//ibQuery1.Active:=true;

//IBtabletovar.Active:=false;

//IBtableSotrud.Active:=false;

// IBtabletovar.Active:=true;

// IBtableSotrud.Active:=true;

DataModule2.IBTablesotrud.Refresh;

except

Showmessage ('Ошибка добавления');

end;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

with DataModule2 do

begin

IBQ2.SQL.Clear;

IBQ2.SqL.Add('delete from SOTRUDNIKI');

IBQ2.SQL.Add('WHERE (IDS=:IDS) and (FIO=:FIO) and (DOLZNOSTI=:DOLZNOSTI) and (ADRES=:ADRES)and(DOMTEL=:DOMTEL) and(DR=:DR');

IBQ2.ParamByName('IDS').AsInteger:=IBTablesotrud.FieldByName('IDS').Asinteger;

IBQ2.ParamByName('FIO').AsString:=IBTablesotrud.FieldByName('FIO').asstring;

IBQ2.ParamByName('DOLZNOSTI').AsString:=IBTablesotrud.FieldByName('DOLZNOSTI').asstring;

IBQ2.ParamByName('ADRES').AsString:=IBTablesotrud.FieldByName('ADRES').asstring;

IBQ2.ParamByName('DOMTEL').AsString:=IBTablesotrud.FieldByName('DOMTEL').asstring;

IBQ2.ParamByName('DR').AsDate:=IBTablesotrud.FieldByName('DR').AsDatetime;

IBQ2.ExecSQL;

      DataModule2.IBTablesotrud.Refresh;

      end;

      end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.Show;

Form3.frxReport1.ShowReport;

end;

procedure TForm1.PDF1Click(Sender: TObject);

begin

Form3.frxReport1.Export(Form3.frxPDFExport1) ;

end;

procedure TForm1.RTF1Click(Sender: TObject);

begin

Form3.frxReport1.Export(Form3.frxRTFExport1) ;

end;

procedure TForm1.JPG1Click(Sender: TObject);

begin

Form3.frxReport1.Export(form3.frxJPEGExport1);

end;

 

procedure TForm1.XT1Click(Sender: TObject);

begin

Form3.frxReport1.Export(Form3.frxTXTExport1) ;

end;

procedure TForm1.XML1Click(Sender: TObject);

begin

form3.frxReport1.Export(form3.frxXMLExport1);

end;

procedure TForm1.Help1Click(Sender: TObject);

var

s:string;

begin

s:='winrar.chm';

ShellExecute(handle,'open',PChar(s+#0),nil,nil,SW_SHOWNORMAL);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

SPproizv.showmodal;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form5.Showmodal;

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);

Var

s:string;

begin

if key='3Bh' then

s:='winrar.chm';

ShellExecute(handle,'open',PChar(s+#0),nil,nil,SW_SHOWNORMAL);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

formZakaz.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

formZakaz.showmodal;

end;

end.

2.Форма “Все проданные товары”

 

unit Unit5;

interface

uses

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

  Dialogs, DB, Grids, DBGrids, IBCustomDataSet, IBQuery, StdCtrls, ExtCtrls,

  Buttons, ComCtrls, DBCtrls;

type

  TForm5 = class(TForm)

    IBQuery1: TIBQuery;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Edit1: TEdit;

    SpeedButton1: TSpeedButton;

    StatusBar1: TStatusBar;

    SpeedButton2: TSpeedButton;

    Button1: TButton;

    Label1: TLabel;

    SpeedButton3: TSpeedButton;

    Label2: TLabel;

    SpeedButton4: TSpeedButton;

    Label3: TLabel;

    Label4: TLabel;

    SpeedButton5: TSpeedButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure Edit1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

  form6.show;

  form6.frxReport1.ShowReport();

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

IBQuery1.Close;

IBQuery1.SQL.Clear;

IBQuery1.SQL.Add('SELECT  FIO, DATA, NAIMENOVANIE, STOIM FROM SOTRUDNIKI,TOVAR ');

IBQuery1.SQL.Add('Where Upper (FIO) = Upper (:pFIO)');

IBQuery1.Prepare;

IBQuery1.ParamByName('pFIO').AsString:=Edit1.Text;

IBQuery1.Open;

end;

procedure TForm5.Edit1Click(Sender: TObject);

begin

Edit1.Text:='';

end;

 

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

Ibquery1.Close;

Ibquery1.SQL.Clear;

IBQuery1.SQL.Add('select FIO, DATA, NAIMENOVANIE, STOIM from SOTRUDNIKI,TOVAR ');

IBQuery1.Open;

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

Form6.frxReport1.Export(Form6.frxPDFExport1) ;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

Form6.frxReport1.Export(Form6.frxJPEGExport1);

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

Form6.frxReport1.Export(form6.frxSimpleTextExport1) ;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

IBQuery1.Close;

IBQuery1.SQL.Clear;

IBQuery1.SQL.Add('SELECT  FIO, DATA, NAIMENOVANIE, STOIM FROM SOTRUDNIKI,TOVAR ');