Меню
Главная
Авторизация/Регистрация
 
Главная arrow Информатика arrow Автоматизация работы складских помещений

ЗАКЛЮЧЕНИЕ

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

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Калянов Г.Н. Case-средства. Структурный и системный анализ (автоматизация и применение). - М.: “ЛОРИ”, 1999. - 249 с., ил.

2. Гоффман В.Э., Хомоненко А.Д. - Работа с базами данных в Delphi 2-е издание - Мастер 2002г, 614 с.

3. Дейт К. Дж. Введение в системы баз данных: Пер. с англ. - 6-е изд. - К.: Диалектика, 1998. - 784с., ил.

ПРИЛОЖЕНИЕ 1

unit Unit1;

interface

uses

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

StdCtrls, QuickRpt, Qrctrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

procedure Button7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.DFM}

procedure TForm1.Button7Click(Sender: TObject);

begin

CLOSE;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form7.show;

end;

end.

unit Unit2;

interface

uses

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

Db, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Table1Kod_tovara: TFloatField;

Table1Name_tovara: TStringField;

Table1Data_izg: TDateField;

Table1Cena: TCurrencyField;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Button3: TButton;

RadioGroup1: TRadioGroup;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);

begin

CLOSE;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

WITH TABLE1 DO BEGIN

FIRST;

WHILE locate('Data_izg',strtodate(edit1.text),[loCaseInsensitive])do

delete;

end;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

if edit2.text<>'' then begin

case Radiogroup1.ItemIndex of

0:Table1.Locate('Name_tovara',edit2.text,[LoCaseInsensitive,Lopartialkey]);

1:Table1.Locate('cena',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);

end;

end;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

table1.Filtered:=false;

case RadioGroup1.ItemIndex of

0:pole:='Name_tovara';

1:pole:='cena';

end;

table1.Filtered:=true;

end.

unit Unit3;

interface

uses

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

Db, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type

TForm3 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Table1Kod_post: TFloatField;

Table1Name_post: TStringField;

Table1Adres_post: TStringField;

Table1Telefon_post: TFloatField;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Button3: TButton;

RadioGroup1: TRadioGroup;

Edit2: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

WITH TABLE1 DO BEGIN

FIRST;

WHILE locate('Name_post',(edit1.text),[loCaseInsensitive])do

delete;

end;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

if edit2.text<>'' then begin

case Radiogroup1.ItemIndex of

0:Table1.Locate('Name_post',edit2.text,[LoCaseInsensitive,Lopartialkey]);

1:Table1.Locate('telefon_post',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);

end;

end;

end;

end.

unit Unit4;

interface

uses

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

Db, Grids, DBGrids, DBTables, ExtCtrls, DBCtrls, StdCtrls;

type

TForm4 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Table1N_cheka: TFloatField;

Table1Kod_tovara: TFloatField;

Table1Kod_klienta: TFloatField;

Table1Data_prod: TDateField;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Button3: TButton;

Edit2: TEdit;

RadioGroup1: TRadioGroup;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

WITH TABLE1 DO BEGIN

FIRST;

WHILE locate('Data_prod',strtodate(edit1.text),[loCaseInsensitive])do

delete;

end;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

if edit2.text<>'' then begin

case Radiogroup1.ItemIndex of

0:Table1.Locate('N_cheka',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);

1:Table1.Locate('Data_prod',strtodate(edit2.text),[LoCaseInsensitive,Lopartialkey]);

end;

end;

end;

end.

unit Unit5;

interface

uses

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

Db, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;

type

TForm5 = class(TForm)

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

RadioGroup1: TRadioGroup;

Edit2: TEdit;

Button3: TButton;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

Table1N_nakl: TFloatField;

Table1Kod_tovara: TFloatField;

Table1Kod_post: TFloatField;

Table1Kolvo_tovara: TFloatField;

Table1Data_pokup: TDateField;

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.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

WITH TABLE1 DO BEGIN

FIRST;

WHILE locate('Data_pokup',StrTodate(edit1.text),[loCaseInsensitive])do

delete;

end;

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

if edit2.text<>'' then begin

case Radiogroup1.ItemIndex of

0:Table1.Locate('N_nakl',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);

1:Table1.Locate('kol-vo_tovara',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);

end;

end;

end;

end.

unit Unit6;

interface

uses

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

Grids, DBGrids, Db, DBTables, ExtCtrls, DBCtrls, StdCtrls;

type

TForm6 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

Table1Kod_klienta: TFloatField;

Table1Name_klienta: TStringField;

Table1Adres_klienta: TStringField;

Table1Telefon_klienta: TFloatField;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Button3: TButton;

Edit2: TEdit;

RadioGroup1: TRadioGroup;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.DFM}

procedure TForm6.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

WITH TABLE1 DO BEGIN

FIRST;

WHILE locate('Name_klienta',(edit1.text),[loCaseInsensitive])do

delete;

end;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

if edit2.text<>'' then begin

case Radiogroup1.ItemIndex of

0:Table1.Locate('Name_klienta',edit2.text,[LoCaseInsensitive,Lopartialkey]);

1:Table1.Locate('telefon_klienta',strtoint(edit2.text),[LoCaseInsensitive,Lopartialkey]);

end;

end;

end;

end.

unit Unit7;

interface

uses

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

Grids, DBGrids, Db, DBTables, StdCtrls;

type

TForm7 = class(TForm)

Button1: TButton;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Query1: TQuery;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

{$R *.DFM}

procedure TForm7.Button1Click(Sender: TObject);

begin

CLOSE;

end;

end;

end.

 
Если Вы заметили ошибку в тексте выделите слово и нажмите Shift + Enter
< Предыдущая   СОДЕРЖАНИЕ
 
Предметы
Банковское дело
Бухучет и аудит
География
Журналистика
Информатика
История
Культурология
Литература
Маркетинг
Математика, химия, физика
Медицина
Менеджмент
Недвижимость
Охрана труда
Педагогика
Политология
Право
Психология
Религиоведение
Сельское хозяйство
Социология
Спорт
Техника
Товароведение
Философия
Финансы
Экология
Экономика
Этика и эстетика
Прочее