ЗАКЛЮЧЕНИЕ

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

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

  • 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.
 
< Пред   СОДЕРЖАНИЕ   Загрузить