Разработка базы данных "Магазин Компьютерных игры"

DBNavigator1.DataSource:=DataModule1.DataSourceGames;

Label3.Caption := 'Поискигры';

end;

if ComboBox1.Text = 'Продажи' then

begin

Edit2.Visible:=false;

Label3.Visible:= false;

DBNavigator1.VisibleButtons:= DBNavigator1.VisibleButtons - [nbInsert,nbPost];

DBGrid2.DataSource:=DataModule1.DataSourceSales;

DBNavigator1.DataSource:=DataModule1.DataSourceSales;

Label3.Caption:= 'Поиск по дате';

end;

if ComboBox1.Text = 'Работники' then

begin

Edit2.Visible:=True;

Label3.Visible:= True;

DBNavigator1.VisibleButtons:= DBNavigator1.VisibleButtons - [nbInsert,nbPost];

DBGrid2.DataSource:=DataModule1.DataSourceWorkers;

DBNavigator1.DataSource:=DataModule1.DataSourceWorkers;

Label3.Caption := 'Поиск по фамилии';

end;

if ComboBox1.Text = 'Видыработ' then

begin

Edit2.Visible:=false;

Label3.Visible:= false;

DBGrid2.DataSource:=DataModule1.DataSourceJobs;

DBNavigator1.DataSource:=DataModule1.DataSourceJobs;

DBNavigator1.VisibleButtons:= DBNavigator1.VisibleButtons + [nbInsert,nbPost];

end;

if ComboBox1.Text = 'Магазин' then

begin

Edit2.Visible:=false;

Label3.Visible:= false;

DBNavigator1.VisibleButtons:= DBNavigator1.VisibleButtons + [nbInsert, nbPost];

DBGrid2.DataSource:=DataModule1.DataSourceStore;

DBNavigator1.DataSource:=DataModule1.DataSourceStore;

end;

end;

procedure TGameShopForm.Edit2Change(Sender: TObject);

begin

if Edit2.Text ='' then

begin

DataModule1.ADOTableGames.Filtered:=False;

DataModule1.ADOTableSales.Filtered:= False;

DataModule1.ADOTableWorkers.Filtered:=False;

end;

if Edit2.Text <> '' then

begin

if ComboBox1.Text = 'Игры' then

begin

DataModule1.ADOTableGames.Filtered:=True;

DataModule1.ADOTableGames.Filter:='GameName>='''+Edit2.Text+'''';

end;

if ComboBox1.Text = 'Продажи' then

begin

DataModule1.ADOTableSales.Filtered:= true;

DataModule1.ADOTableSales.Filter:='Date_>'''+Edit2.Text+'''';

end;

if (ComboBox1.Text = 'Видыработ') or (ComboBox1.Text= 'Магазин') then

begin

Label3.Visible:= false;

Edit2.Visible:=false;

end;

if ComboBox1.Text = 'Работники' then

begin

DataModule1.ADOTableWorkers.Filtered:=True;

DataModule1.ADOTableWorkers.Filter:='LastName>='''+Edit2.Text+'''';

end;

end;

end;

procedure TGameShopForm.FileExit1Execute(Sender: TObject);

begin

Close;

end;

procedure TGameShopForm.HelpAbout1Execute(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TGameShopForm.NewGame1Click(Sender: TObject);

begin

NewGameForm.ShowModal;

end;

procedure TGameShopForm.NewSale1Click(Sender: TObject);

begin

NewSaleForm.ShowModal;

end;

procedure TGameShopForm.NewWorker1Click(Sender: TObject);

begin

NewWorkerForm.ShowModal;

end;

end.

МодульNewGameShop.pas

unitNewGameInShop;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls,

Vcl.Mask;

type

TNewGameForm = class(TForm)

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

DBText1: TDBText;

DBNavigator1: TDBNavigator;

Label5: TLabel;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

procedure DBEdit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

NewGameForm: TNewGameForm;

implementation

{$R *.dfm}

uses DM1;

procedure TNewGameForm.DBEdit1Change(Sender: TObject);

var

cost,count:real;

begin

end;

end.

МодульnewSaleInShop.pas

unitNewSaleInShop;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ExtCtrls,

Vcl.Grids, Vcl.DBGrids, Vcl.Mask, Data.DB, Data.Win.ADODB;

type

TNewSaleForm = class(TForm)

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox2: TGroupBox;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

NDS_chkBox: TCheckBox;

DBEdit5: TDBEdit;

DBNavigator2: TDBNavigator;

GroupBox3: TGroupBox;

DBText1: TDBText;

ADOQuery1: TADOQuery;

Label7: TLabel;

DBEdit1: TDBEdit;

DBEdit6: TDBEdit;

Button1: TButton;

procedureFormCreate(Sender: TObject);

procedure DBGrid1MouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

procedure DBEdit4Exit(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

NewSaleForm: TNewSaleForm;

implementation

{$R *.dfm}

uses DM1;

procedure TNewSaleForm.DBGrid1MouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

var

count:integer;

cost:real;

begin

count:=0;

cost:=0;

if DBEdit3.Text = '' then

MessageBox(Self.Handle,'Введите количество копий','Предупреждение',MB_OK);

if DBEdit3.Text <> '' then

begin

ifNDS_chkBox.Checked = true then

count:=StrToInt(DBEdit3.Text);

cost:=StrToFloat(DBEdit2.Text);

DBEdit5.Text:=FloatToStr(Round(cost*count + (((Cost*Count)/100)*18)));

DBEdit4.Text:=DBGrid1.Fields[0].CurValue;

end;

if DBEdit6.Text = '' then

DBEdit6.Text := Label3.Caption;

//DBEdit1.Text := DBGrid1.Fields[0].CurValue;

end;

procedureTNewSaleForm.FormCreate(Sender: TObject);

var

today:TDate;

begin

//DataModule1.ADOTableSales.Open;

//DataModule1.ADOTableSales.Open;

// DataModule1.ADOTableSales.Edit;

//DataModule1.ADOTableGames.Open;

//DataModule1.ADOTableGames.Edit;

today:=Now;

Label3.Caption:=DateToStr(today);

DBGrid1.Columns[0].Visible:=False;

DBGrid1.Columns[2].Visible:=False;

DBGrid1.Columns[3].Visible:=False;

DBGrid1.Columns[4].Visible:=False;

end;

procedure TNewSaleForm.Button1Click(Sender: TObject);

var

index:Integer;

count:integer;

begin

count:=0;

index:=0;

DataModule1.ADOTableGames.Open;

DataModule1.ADOTableGames.Edit;

//DataModule1.ADOTableSales.Open;

//DataModule1.ADOTableSales.Edit;

index:= StrToInt(DBEdit4.Text);

count:= StrToInt(DBEdit1.Text)- StrToInt(DBEdit3.Text);

DBEdit1.Text:= IntToStr(StrToInt(DBEdit1.Text)- StrToInt(DBEdit3.Text));

ADOQuery1.SQL.Add('UPDATE ADOTableGames SET count ='+ IntToStr(count) +'WHERE GAME_ID = '+ IntToStr(index));

DataModule1.ADOTableGames.Post;

end;

procedure TNewSaleForm.DBEdit4Exit(Sender: TObject);

begin

// DataModule1.ADOTableGames.Close;

DataModule1.ADOTableSales.Post;

DataModule1.ADOTableSales.Close;

end;

end.

МодульNewWorkerInShop.pas

unitNewWorkerInShop;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask,

Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.Menus;

type

TNewWorkerForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBText1: TDBText;

GroupBox3: TGroupBox;

DBGrid3: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox4: TGroupBox;

MainMenu1: TMainMenu;

mFile: TMenuItem;

Exit1: TMenuItem;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

Label3: TLabel;

Label4: TLabel;

procedure Exit1Click(Sender: TObject);

procedure DBGrid2MouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

procedure DBGrid1MouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

NewWorkerForm: TNewWorkerForm;

implementation

{$R *.dfm}

uses DM1;

procedure TNewWorkerForm.DBGrid1CellClick(Column: TColumn);

begin

DBEdit4.Text:=DBGrid2.Fields[0].CurValue;

end;

procedure TNewWorkerForm.DBGrid1MouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

begin

DBEdit4.Text:=DBGrid1.Fields[0].CurValue;

end;

procedure TNewWorkerForm.DBGrid2MouseWheel(Sender: TObject; Shift: TShiftState;

WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

begin

DBEdit3.Text:=DBGrid2.Fields[0].CurValue;

end;

procedure TNewWorkerForm.Exit1Click(Sender: TObject);

begin

NewWorkerForm.Close;

end;

end.



Схема 2: Базовая схема работы программы



Схема 3: Развернутая схема работы программы



Схема 4: Схема работы главного меню в программе



Схема 5: Схема работы формы добавления игры в базу данных



Схема : Алгоритм Формы создания новой продажи.



Схема 7: Алгоритм работы формы “Работники”

Размещено на Allbest.ru

...