Программа ведения базы данных торговой фирмы

Разрабатывая данный курсовой проект, я набрал навыки построения БД в ИСР Borland Delphi 7.

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

1. Богумирский Б. Эффективная работа на IBM PC в среде Windows 95 -СПб - «Питер» - 1997, 1000с.

2. Архангельский А.Я. Программирование Delphi 7 - Москва - «Бином» - 2004, 1152 с.

ПРИЛОЖЕНИЕ А

Программный продукт

Рис. 1 Создание таблицы Data в режиме конструктора

Рис.2 Создание таблицы Prod в режиме конструктора

Рис. 3 Создание нового источника данных

Рис. 4 Выбор базы данных для источника данных

Рис. 5 Установка драйверов

Рис. 6 Результат создания источника данных

Рис.7 Форма FMain

Рис.8 Форма компонентов источников данных

Рис. 9 Создание SQL запроса

Рис.10 Диаграмма модуля данных



Рис. 11 Форма ввода данных о продавце

Рис. 12 Форма вывода суммы выручки и комиссионного просчета

ПРИЛОЖЕНИЕ Б

Листинг программ

Листинг 1. Листинг формы заставки FLog

1) unit Ulog;

2) interface

3) uses

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

5) Dialogs, StdCtrls, jpeg, ExtCtrls;

6) type

7) TFlog = class(TForm)

8) Image_citycenter: TImage;

9) Label_titul: TLabel;

10) Label_titul2: TLabel;

11) Label_loading: TLabel;

12) Timer_log: TTimer;

13) procedure FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);

14) procedure FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);

15) procedure Timer_logTimer(Sender: TObject);

16) procedure FormClose(Sender: TObject; var Action: TCloseAction);

17)private

18) { Private declarations }

19)public

20) { Public declarations }

21) end;

22) var

23) Flog: TFlog;

24) implementation

25) uses Umain;

26) {$R *.dfm}

27) procedure TFlog.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);

28) begin

29) close;

30) end;

31) procedure TFlog.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

32) begin

33) close;

34) end;

35) procedure TFlog.Timer_logTimer(Sender: TObject);

36) begin

37) close;

38) end;

39) procedure TFlog.FormClose(Sender: TObject; var Action: TCloseAction);

40) begin

41) action:=caFree;

42) end;

43) end.

Листинг 2. Листинг главной формы приложения Fmain

1) unit Umain;

2) interface

3) uses

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

5) Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls, Buttons;

6) type

7) TFmain = class(TForm)

8) Image_natitul: TImage;

9) Button_new: TButton;

10) Button_preview: TButton;

11) Button_help: TButton;

12) Button_exit: TButton;

13) procedure FormShow(Sender: TObject);

14) procedure Button_exitClick(Sender: TObject);

15) procedure Button_newClick(Sender: TObject);

16) procedure Button_previewClick(Sender: TObject);

17) procedure Button_helpClick(Sender: TObject);

18) procedure FormDestroy(Sender: TObject);

19) private

20) { Private declarations }

21) public

22) { Public declarations }

23) end;

24) var

25) Fmain: TFmain;

26) implementation

27) uses Ulog, Ucomponent, Udannieprod, Uprodaja;

28) {$R *.dfm}

29) procedure TFmain.FormShow(Sender: TObject);

30) begin

31) flog.ShowModal;

32) end;

33) procedure TFmain.Button_exitClick(Sender: TObject);

34) begin

35) close;

36) end;

37) procedure TFmain.Button_newClick(Sender: TObject);

38) begin

39) form_danieprod.Show;

40) end;

41) procedure TFmain.Button_previewClick(Sender: TObject);

42) begin

43) form_prodaja.show;

44) end;

45) procedure TFmain.Button_helpClick(Sender: TObject);

46) begin

47) Application.HelpCommand(HELP_CONTENTS, 0);

48) end;

49) procedure TFmain.FormDestroy(Sender: TObject);

50) begin

51) Application.HelpCommand(HELP_QUIT,0);

52) end;

53) end.

Листинг 3. Листинг форм компонентов Fcomponent

1) unit Ucomponent;

2) interface

3) uses

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

5) Dialogs, DB, DBTables;

6) type

7) TForm_component = class(TForm)

8) Table_saler: TTable;

9) saler: TDataSource;

10) dannie: TDataSource;

11) query: TDataSource;

12) Table_salerFio: TStringField;

13) Query_data: TQuery;

14) Table_salerTabel_no: TIntegerField;

15) Table_salerStazh: TIntegerField;

16) Table_salerid_saler: TAutoIncField;

17) Table_dannie: TTable;

18) Table_danniePaida: TCurrencyField;

19) Query_dataFIO: TStringField;

20) Query_dataTabel_no: TIntegerField;

21) Query_dataStazh: TIntegerField;

22) Query_dataDate: TDateTimeField;

23) Query_dataPaida: TFloatField;

24) Query_dataKomisson_voznagr: TFloatField;

25) Table_dannieid_dannie: TAutoIncField;

26) Table_dannieDate: TDateTimeField;

27) Table_dannieid_saler: TIntegerField;

28) Query1: TQuery;

29) private

30) { Private declarations }

31) public

32) { Public declarations }

33) end;

34) var

35) Form_component: TForm_component;

36) implementation

37) uses Umain, Uprodaja, Udannieprod;

38) {$R *.dfm}

39) end.

40) end.

Листинг 4. Листинг формы ввода информации о продавце Fdannieprod

1) unit Udannieprod;

2) interface

3) uses

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

5) Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, Buttons, jpeg;

6) type

7) Tform_danieprod = class(Tform)

8) Label_fio: Tlabel;

9) DBEdit_fio: TDBEdit;

10) Label_idsaler: Tlabel;

11) DBEdit_idsaler: TDBEdit;

12) Label__tash: Tlabel;

13) DBEdit__tash: TDBEdit;

14) Label__tash: Tlabel;

15) DBEdit__tash: TDBEdit;

16) DBNavigator_saler: TDBNavigator;

17) DBGrid1: TDBGrid;

18) Image1: Timage;

19) Image2: Timage;

20) Label_titul: Tlabel;

21) BitBtn_obnovit: TbitBtn;

22) procedure FormActivate(Sender: Tobject);

23) procedure BitBtn_obnovitClick(Sender: Tobject);

24) private

25) { Private declarations }

26) public

27) { Public declarations }

28) end;

29) var

30) Form_danieprod: Tform_danieprod;

31) I:integer;

32) implementation

33) uses Umain, Ucomponent, Uprodaja;

34) {$R *.dfm}

35) procedure Tform_danieprod.BitBtn_obnovitClick(Sender: Tobject);

36) begin

37) form_component.Table_saler.Close;

38) form_component.Table_saler.Open;

39) end;

40) procedure Tform_danieprod.FormActivate(Sender: Tobject);

41) begin

42) I:=0;

43) end;

44) end.

Листинг 5. Листинг формы FProdaja

1) unit Uprodaja;

2) interface

3) uses

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

5) Dialogs, StdCtrls, ComCtrls, DBCtrls, Mask, Grids, DBGrids, ExtCtrls,

6) Buttons, DB, jpeg;

7) type

8) TForm_prodaja = class(TForm)

9) Label_datasaler: TLabel;

10) Label_surnamesaler: TLabel;

11) Label_paida: TLabel;

12) DBGrid1: TDBGrid;

13) DBNavigator1: TDBNavigator;

14) DBEdit_date: TDBEdit;

15) DBEdit2: TDBEdit;

16) DateTimePicker1: TDateTimePicker;

17) Timer1: TTimer;

18) DBLookupComboBox1: TDBLookupComboBox;

19) Button1: TButton;

20) Button2: TButton;

21) Edit_jalpi: TEdit;

22) Edit_komis: TEdit;

23) Image1: TImage;

24) Label_titul: TLabel;

25) Label1: TLabel;

26) Label2: TLabel;

27) BitBtn_close: TBitBtn;

28) BitBtn_forward: TBitBtn;

29) procedure Timer1Timer(Sender: TObject);

30) procedure FormActivate(Sender: TObject);

31) procedure Button1Click(Sender: TObject);

32) procedure Button2Click(Sender: TObject);

33) procedure BitBtn_closeClick(Sender: TObject);

34) procedure BitBtn_forwardClick(Sender: TObject)

35) private

36) { Private declarations }

37) public

38) { Public declarations }

39) end;

40) var

41) Form_prodaja: TForm_prodaja;

42) i:integer;

43) sum_paida, sum_komis:real;

44) implementation

45) uses Ucomponent, Umain, Udannieprod;

46) {$R *.dfm}

47) procedure TForm_prodaja.Timer1Timer(Sender: TObject);

48) begin

49) inc(i);

50) if i=3 then i:=1;

51) if i=1 then

52) begin

53) form_prodaja.DBEdit_date.Text:=datetostr(DateTimePicker1.Date);

54) end;

55) end;

56) procedure TForm_prodaja.FormActivate(Sender: TObject);

57) begin

58) i:=0;

59) end;

60) procedure TForm_prodaja.Button1Click(Sender: TObject);

61) begin

62) form_component.Query_data.close;

63) form_component.Query_data.Open;

64) end;

65) procedure TForm_prodaja.Button2Click(Sender: TObject);

66) begin

67) sum_paida:=0;

68) sum_komis:=0;

69) while not form_component.Query_data.Eof do

70) begin

71) sum_paida:=sum_paida+form_component.Query_data.fieldbyname('paida').AsFloat;

72)sum_komis:=sum_komis+form_component.Query_data.fieldbyname('komisson_voznagr').AsFloat;

73) form_component.Query_data.Next;

74) end;

75) form_prodaja.Edit_jalpi.Text:=floattostr(sum_paida);

76) form_prodaja.Edit_komis.Text:=floattostr(sum_komis);

77) end;

78) procedure TForm_prodaja.BitBtn_closeClick(Sender: TObject);

79) begin

80) close;

81) end;

82) procedure TForm_prodaja.BitBtn_forwardClick(Sender: TObject);

83) begin

84) fmain.Visible:=true;

85) form_prodaja.Visible:=false;

86) end;

87) end.