Разработка базы данных для автоматизации работы директора продуктового магазина
Основные преимущества автоматизации складского учета, сокращение избыточности хранимых данных, сокращение затрат и устранение возникновения противоречивой информации. Моделирование проектируемой системы, создание алгоритма работы и интерфейса программы.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 18.12.2016 |
| Размер файла | 1,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
procedure TForm2.Button2Click(Sender: TObject);
begin
Form4.Caption := 'Изменение';
Form4.Show;
e1:=Form4.DBEdit1.Text;
e2:=Form4.DBEdit2.Text;
e3:=Form4.DBEdit3.Text;
e4:=Form4.DBEdit4.Text;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
DM.ADOTable2.Insert;
Form5.Show;
end;
procedure TForm2.Button6Click(Sender: TObject);
begin
DM.ADOTable2.Delete;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
if not DM.ADOTable1.Locate('Tovar',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('Запись не найдена') else DM.ADOTable1.Locate('Tovar',Edit1.Text,[loPartialKey]);
end;
procedure TForm2.Button7Click(Sender: TObject);
begin
Form2.Show;
Form6.Visible := false;
Form9.Visible := false;
end;
procedure TForm2.Button12Click(Sender: TObject);
begin
Form6.Show;
Form2.Enabled := false;
end;
procedure TForm2.DBGrid2CellClick(Column: TColumn);
begin
DM.ADOTable1.Active := false;
DM.ADOTable1.Active := true;
end;
procedure TForm2.N4Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project1.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
Form9.Show;
Form2.Enabled := false;
end;
procedure TForm2.Button10Click(Sender: TObject);
begin
DM.ADOTable5.Insert;
DM.ADOTable5.FieldByName('Kod_tovara').Value := DM.ADOTable1.FieldByName('Kod_tovara').Value;
DM.ADOTable5.FieldByName('Tovar').Value := DM.ADOTable1.FieldByName('Tovar').Value;
f := DM.ADOTable1.FieldByName('Kolichestvo').Value;
Form12.Show;
end;
procedure TForm2.Button11Click(Sender: TObject);
begin
Form11.Show;
Form2.Enabled := false;
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
Form13.Show;
Form2.Enabled := false;
DM.ADOTable7.Active := false;
end;
procedure TForm2.Button14Click(Sender: TObject);
begin
Form16.Show;
m:=Form16.DBEdit6.Text;
DM.ADOTable7.Insert;
Form16.DBEdit2.Text := Form16.DBEdit8.Text;
end;
procedure TForm2.Button15Click(Sender: TObject);
begin
Form15.Show;
DM.ADOTable7.Active := true;
end;
procedure TForm2.N5Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project2.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm2.N6Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project3.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm2.N7Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project5.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm2.N8Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project6.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm2.N14Click(Sender: TObject);
begin
Button11.Click;
end;
procedure TForm2.N15Click(Sender: TObject);
begin
Button12.Click;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Close;
end;
end.
unit Unit3;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable1Kod_tovara: TIntegerField;
ADOTable1Kod_group: TIntegerField;
ADOTable1Tovar: TWideStringField;
ADOTable1Harakteristika: TWideStringField;
ADOTable1kolichestvo: TIntegerField;
ADOTable1Cena: TIntegerField;
ADOTable1Nalichie: TBooleanField;
ADOTable2: TADOTable;
DataSource2: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
uses Unit1, Unit2, Unit4, Unit5, Unit6;
{$R *.dfm}
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask;
type
TForm4 = class(TForm)
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBCheckBox1: TDBCheckBox;
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
DM.ADOTable1.Post;
Form4.Close;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
if Form4.Caption = 'Добавление' then DM.ADOTable1.Delete;
if Form4.Caption = 'Изменение' then
begin
DBEdit1.Text := e1;
DBEdit2.Text := e2;
DBEdit3.Text := e3;
DBEdit4.Text := e4;
DBEdit5.Text := e5;
DBEdit6.Text := e6;
if e7 = True then DBCheckBox1.Checked := True else DBCheckBox1.Checked := False;
end;
Form4.Close;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TForm5 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
DM.ADOTable2.Post;
Form5.Close;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Menus, ExtCtrls, StdCtrls, DB;
type
TForm6 = class(TForm)
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel4: TPanel;
DBGrid2: TDBGrid;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit7, Unit9, Unit11, Unit13,
Unit8;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
begin
DM.ADOTable3.Insert;
Form7.Show;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
DM.ADOTable3.Delete;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
if not DM.ADOTable3.Locate('Tovar',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('Запись не найдена') else DM.ADOTable3.Locate('Tovar',Edit1.Text,[loPartialKey]);
end;
procedure TForm6.Button6Click(Sender: TObject);
begin
DM.ADOTable3.Sort := 'Tovar';
end;
end;
procedure TForm6.Button4Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm6.Button7Click(Sender: TObject);
begin
Form2.Show;
Form6.Visible := false;
Form9.Visible := false;
Form11.Visible := false;
Form13.Visible := false;
end;
procedure TForm6.Button12Click(Sender: TObject);
begin
Form6.Show;
Form2.Visible := false;
Form9.Visible := false;
Form11.Visible := false;
Form13.Visible := false;
end;
procedure TForm6.Button11Click(Sender: TObject);
begin
Form11.Show;
end;
procedure TForm6.Button9Click(Sender: TObject);
begin
Form13.Show;
end;
procedure TForm6.N4Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project1.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB;
type
TForm7 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
GroupBox6: TGroupBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
m:integer;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
begin
try
DM.ADOTable3.Post;
Form7.Close;
except
ShowMessage('Такой код товара используется!');
end;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
DM.ADOTable3.Delete;
Form7.Close;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frxClass, frxPreview, frxDBSet, RpRender, RpRenderCanvas,
RpRenderPreview, RpCon, RpConDS, RpDefine, RpRave, RpRenderText, RpBase,
RpFiler;
type
TForm8 = class(TForm)
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
RvRenderPreview1: TRvRenderPreview;
RvDataSetConnection2: TRvDataSetConnection;;
RvNDRWriter1: TRvNDRWriter;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, Menus, DB;
type
TForm9 = class(TForm)
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Edit1: TEdit;
Button4: TButton;
Button5: TButton;
DBGrid1: TDBGrid;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
a1,a2,a3,a4,a5:string;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10,
Unit11, Unit13;
{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
DM.ADOTable4.Insert;
Form10.Caption := 'Добавление';
Form10.Show;
end;
procedure TForm9.Button7Click(Sender: TObject);
begin
Form2.Show;
Form6.Visible := false;
Form9.Visible := false;
Form11.Visible := false;
Form13.Visible := false;
end;
end;
procedure TForm9.Button5Click(Sender: TObject);
begin
DM.ADOTable4.Sort := 'Postavchik';
end;
procedure TForm9.Button4Click(Sender: TObject);
begin
if not DM.ADOTable4.Locate('Postavchik',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('Запись не найдена') else DM.ADOTable4.Locate('Postavchik',Edit1.Text,[loPartialKey]);
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
Form10.Caption := 'Изменение';
a1:=Form10.DBEdit1.Text;
a2:=Form10.DBEdit2.Text;
a3:=Form10.DBEdit3.Text;
a4:=Form10.DBEdit4.Text;
a5:=Form10.DBEdit5.Text;
Form10.Show;
end;
procedure TForm9.Button3Click(Sender: TObject);
begin
DM.ADOTable4.Delete;
end;
procedure TForm9.Button11Click(Sender: TObject);
begin
Form11.Show;
end;
procedure TForm9.Button9Click(Sender: TObject);
begin
Form13.Show;
end;
procedure TForm9.N4Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project1.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm9.N5Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project2.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm9.N6Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project3.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask;
type
TForm10 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
DBEdit5: TDBEdit;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm10.Button1Click(Sender: TObject);
begin
try
DM.ADOTable4.Post;
Form10.Close;
Except
ShowMessage('Такой код поставщика используется');
end;
end;
procedure TForm10.Button2Click(Sender: TObject);
begin
if Form10.Caption = 'Добавление' then DM.ADOTable4.Delete;
if Form10.Caption = 'Изменение' then
begin
DBEdit1.Text:=a1;
DBEdit2.Text:=a2;
DBEdit3.Text:=a3;
DBEdit4.Text:=a4;
DBEdit5.Text:=a5;
end;
Form10.Close;
end;
procedure TForm10.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then else key :=#0;
end;
end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Menus, ExtCtrls, DB;
type
TForm11 = class(TForm)
Panel2: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N10: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses Unit1, Unit10, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9,
Unit13;
{$R *.dfm}
procedure TForm11.Button1Click(Sender: TObject);
begin
DM.ADOTable5.Delete;
end;
procedure TForm11.Button2Click(Sender: TObject);
begin
if not DM.ADOTable5.Locate('Tovar',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('Запись не найдена') else DM.ADOTable5.Locate('Tovar',Edit1.Text,[loPartialKey]);
end;
procedure TForm11.Button3Click(Sender: TObject);
begin
DM.ADOTable5.Sort := 'Tovar';
end;
procedure TForm11.Button7Click(Sender: TObject);
begin
Form2.Show;
Form6.Visible := false;
Form9.Visible := false;
Form11.Visible := false;
Form13.Visible := false;
end;
procedure TForm11.Button8Click(Sender: TObject);
begin
Form9.Show;
Form6.Visible := false;
Form2.Visible := false;
Form11.Visible := false;
Form13.Visible := false;
end;
procedure TForm11.Button12Click(Sender: TObject);
begin
Form6.Show;
Form9.Visible := false;
Form2.Visible := false;
Form11.Visible := false;
Form13.Visible := false;
end;
procedure TForm11.Button11Click(Sender: TObject);
begin
Form11.Show;
Form9.Visible := false;
Form2.Visible := false;
Form6.Visible := false;
end;
procedure TForm11.Button9Click(Sender: TObject);
begin
Form13.Show;
end;
procedure TForm11.N4Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project1.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N5Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project2.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N6Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project3.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N10Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project4.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N7Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project5.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N8Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project6.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N9Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project7.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm11.N2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Enabled := True;
end;
end.
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TForm12 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Button1: TButton;
Button2: TButton;
DBEdit4: TDBEdit;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses Unit1, Unit10, Unit11, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7,
Unit8, Unit9;
{$R *.dfm}
procedure TForm12.Button2Click(Sender: TObject);
begin
DM.ADOTable5.Delete;
end;
procedure TForm12.Button1Click(Sender: TObject);
begin
DM.ADOTable5.Post;
Form12.Close;
end;
end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, Grids, DBGrids, DB;
type
TForm13 = class(TForm)
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Edit1: TEdit;
Button5: TButton;
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
k1,k2,k3,k4:string;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit2, Unit3, Unit4, Unit5, Unit6,
Unit7, Unit8, Unit9, Unit14;
{$R *.dfm}
procedure TForm13.Button1Click(Sender: TObject);
begin
Form14.Caption := 'Добавление';
DM.ADOTable6.Insert;
Form14.Show;
end;
procedure TForm13.Button3Click(Sender: TObject);
begin
DM.ADOTable6.Delete;
end;
procedure TForm13.Button2Click(Sender: TObject);
begin
Form14.Caption := 'Изменение';
k1:=Form14.DBEdit1.Text;
k2:=Form14.DBEdit2.Text;
k3:=Form14.DBEdit3.Text;
k4:=Form14.DBEdit4.Text;
Form14.Show;
end;
procedure TForm13.Button4Click(Sender: TObject);
begin
if not DM.ADOTable6.Locate('Pokypatel',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('Запись не найдена') else DM.ADOTable6.Locate('Pokypatel',Edit1.Text,[loPartialKey]);
end;
procedure TForm13.Button5Click(Sender: TObject);
begin
DM.ADOTable6.Sort := 'Pokypatel';
end;
procedure TForm13.N5Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project2.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm13.N2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Enabled := True;
end;
end.
unit Unit14;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TForm14 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit2, Unit3, Unit4, Unit5,
Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm14.Button1Click(Sender: TObject);
begin
try
DM.ADOTable6.Post;
Form14.Close;
except
ShowMessage('Такой код покупателя используется');
end;
end;
procedure TForm14.Button2Click(Sender: TObject);
begin
if Form14.Caption = 'Добавление' then DM.ADOTable6.Delete;
if Form14.Caption = 'Изменение' then
begin
DBEdit1.Text := k1;
DBEdit2.Text := k2;
DBEdit3.Text := k3;
DBEdit4.Text := k4;
DM.ADOTable6.Active := false;
DM.ADOTable6.Active := True;
end;
Form14.Close;
end;
procedure TForm14.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then else key :=#0;
end;
procedure TForm14.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then else key :=#0;
end;
end.
unit Unit15;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, Menus, DB;
type
TForm15 = class(TForm)
Panel2: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Panel3: TPanel;
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
MainMenu1: TMainMenu;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N10: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form15: TForm15;
implementation
uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit2, Unit3, Unit4,
Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm15.Button1Click(Sender: TObject);
begin
DM.ADOTable7.Delete;
end;
procedure TForm15.Button2Click(Sender: TObject);
begin
if not DM.ADOTable7.Locate('Tovar',Edit1.Text,[loCaseInsensitive,loPartialKey]) then
ShowMessage('Запись не найдена') else DM.ADOTable7.Locate('Tovar',Edit1.Text,[loPartialKey]);
end;
procedure TForm15.Button3Click(Sender: TObject);
begin
DM.ADOTable7.Sort := 'Tovar';
end;
procedure TForm15.N4Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project1.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm15.N5Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project2.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm15.N6Click(Sender: TObject);
begin
Form8.RvProject1.ProjectFile := 'Project3.rav';
Form8.RvProject1.Execute;
Form8.RvProject1.ClearParams;
Form8.RvProject1.Close;
end;
procedure TForm15.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form2.Enabled := True;
end;
end.
Размещено на Allbest.ru
...Подобные документы
Анализ входной и выходной информации на предприятии. Осуществление функционального и информационного моделирования базы данных, создание ее структуры. Программная реализация системы автоматизации учета работы автотранспорта. Оценка трудоемкости проекта.
дипломная работа [1,2 M], добавлен 09.07.2012Проектирование и создание базы данных в СУБД Access для автоматизации работы магазина компьютерной техники. Режимы работы с базами данных, таблицы как основные объекты базы. Источники записей для форм, отчетов и страниц доступа, хранение структуры базы.
курсовая работа [249,8 K], добавлен 14.09.2011Типичные бизнес-процессы и способы ведения складского учета. Инвентаризация материально-производственных запасов. Разработка базы данных для хранения информации, необходимой для автоматизации работы оптового склада с использованием СУБД Interbase 7.5.
дипломная работа [3,1 M], добавлен 17.04.2015Разработка программы для автоматизации складского учета. Описание предметной области и технологии функционирования информационной системы. Физическое проектирование базы данных. Создание экранных форм ввода-вывода, отчетов, модулей для прикладных решений.
курсовая работа [3,6 M], добавлен 08.12.2013Выполнение операций, хранения, редактирования, систематизации данных. Рассмотрение подсистем разрабатываемой системы управления базами данных продуктового магазина. Разработка алгоритма функционирования системы и приложения для работы с базой данных.
курсовая работа [399,1 K], добавлен 26.08.2019Рассмотрение вопроса автоматизации работы служб гостиницы. Разработка базы данных для работы с клиентами. Характеристика языка структурированных запросов SQL и его разновидности. Описание таблицы программы, ключей и диаграммы составленной базы данных.
курсовая работа [1,6 M], добавлен 27.05.2014Создание программ, позволяющих создавать базы данных. Создание таблицы базы данных. Создание схемы данных. Создание форм, отчетов, запросов. Увеличение объема и структурной сложности хранимых данных. Характеристика системы управления базой данных Access.
курсовая работа [2,1 M], добавлен 17.06.2013Разработка программной системы автоматизации работы приемной комиссии. Выбор CASE-средства проектирования базы данных. Разграничение доступа к записям таблиц. Триггеры и функции БД. Выбор интерфейса программирования. Разработка классов и структур данных.
дипломная работа [1,9 M], добавлен 07.03.2012Создание базы данных для обеспечения автоматизации работы клуба собаководства. Определение информационных объектов и функциональных зависимостей. Информационно-логическая и даталогическая модели. Описание алгоритма работы БД. Отладка работы программы.
контрольная работа [1008,0 K], добавлен 08.06.2014Рассмотрение технологии создания базы данных с помощью программы MS Access. Описание структуры предприятия заказчика. Проведение автоматизации документооборота предприятия. Разработка интерфейса пользователя. Создание кнопочной формы, диаграмы, отчета.
курсовая работа [3,8 M], добавлен 12.04.2015Организация документооборота корпоративного отдела. Описание состава задач, подлежащих автоматизации, входной и выходной информации. Разработка состава и структуры базы данных, описание пользовательского интерфейса. Экономический эффект автоматизации.
дипломная работа [2,9 M], добавлен 05.12.2011Инфологическая модель задачи автоматизации и формирования заказов поставщикам, контроля состояния склада. Анализ ключей сущностей проектируемой базы данных, разработка и нормализация системы таблиц и форм. Механизм оформления заказов в базе данных.
курсовая работа [358,5 K], добавлен 26.11.2012Офисные программы, необходимые для автоматизации работы турфирмы. Описание входной и выходной информации, структуры базы данных. Аппаратное и программное средства для функционирования автоматизированной информационной системы, ее работоспособность.
курсовая работа [902,2 K], добавлен 02.05.2017Разбиение данных по таблицам и создание связей между таблицами. Нормализация и проектирование сценария работы базы данных. Выбор программного обеспечения. Требования к аппаратным и программным средствам для работы созданного программного продукта.
курсовая работа [30,2 K], добавлен 23.01.2011Разработка базы данных и приложения для автоматизации ведения кадрового учёта предприятия. Формирование таблицы анкетных данных. Разработка графического интерфейса пользователя клиентских приложений. Возможность подключения к удаленной базе данных.
дипломная работа [47,6 K], добавлен 17.02.2009Инструментальные средства для разработки структуры информационной базы данных "Программа автоматизации учета расчетов с поставщиками", пользовательский интерфейс СУБД Access. Разработка запросов отбора данных и вычислений, экранных форм коррекции данных.
лабораторная работа [2,4 M], добавлен 15.11.2010Построение концептуальной модели базы данных. Физическое проектирование программы для автоматизации работы пользователя в Microsoft Access. Разработка системы запросов информации на основе таблиц и получения необходимых отчетов в требуемых формах.
курсовая работа [2,9 M], добавлен 08.05.2015Среда программирования Delphi и баз данных Microsoft Access. Разработка проекта автоматизации складского учета. Качество работы финансового звена предприятия. Разработка системы автоматизации учета товаров в торговой организации складских операций.
дипломная работа [1,9 M], добавлен 03.07.2015Создание баз данных с использованием Database Desktop. Проведение автоматизации рабочего места кассира. Описание входной и выходной информации. Выбор среды реализации, состава и параметров технических средств. Проектирование интерфейса программы.
курсовая работа [1021,5 K], добавлен 22.01.2015Создание базы данных с помощью ACCESS для автоматизации работы базы отдыха. Оценка возможностей пользователей при работе с данной базой. Построение информационно-логической модели базы данных. Разработка запросов для корректировки и выборки данных.
курсовая работа [1,1 M], добавлен 19.10.2010
