Автосалон

Автор работы: Пользователь скрыл имя, 15 Апреля 2014 в 22:16, курсовая работа

Краткое описание

Әртүрлі ұйымдардың табысты жұмыс жасауы үшін ақпаратты жүйенің дамығанын талап етеді. Сонда сол деректермен автоматтандырылған жинауды, өңдеуді және монипуляциялауды іске асырады.
Мәліметтер базасы деп, деректердің электрондық сақтаушысын айтады. Оларға қатынас, бір немесе бірнеше компьютерлер көмегімен іске асады. Әдетте деректер базасы деректерді сақтау үшін жасалады.
Мәліметтер базасы – ақпаратты сақтауды және де мәліметтерге ыңғайлы, тез кіруді қамтамасыз етеді.

Содержание

КІРІСПЕ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ....3
1 Есептің қойылымы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...4
2 Есептің алгоритмі . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...5
3 Теориялық бөлім . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .....6
3.1 Мәліметтер базасын ұйымдастыру . . . . . . . . . . . . . . . . . . . . .. ..6
3.2 BDE Administrator . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...6
3.3 Мәліметтер базасының кестесін құру . . . . . . . . . . . . . . . . . . . ...7
3.4 Кестенің қасиетін беру . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...9
3.5 Paradox форматының кестелері . . . . . ……………. . . . . . . . . ..11
3.6 Компоненттер парағы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ....13
4 Программаның баяндалуы . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..15
4.1 Жалпы мағлұматтар . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...15
4.2 Функционалдық тағайындалуы . . . . . . . . . . . . . . . . . . . . . . . . ..15
4.3 Логикалық құрылымның баяндалуы . . . . . . . . . . . . . . . . . . . . .15
4.4 Шақыру және жүктеу . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..18
4.5 Қажетті техникалық жабдықтар . . . . . . . . . . . . . . . . . . . . . . .. ..18
4.6 Кіріс мәліметтер. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...18
4.7 Шығыс мәліметтер . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ...19
5 Бақылау мысалдарын баяндау . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 19
Қорытынды . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . 20 Қолданылған әдебиеттер . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 21
Қосымша А . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .. . . . . . . . .22
Қосымша Б . . . . . . . . . . . . . . . . . . . .. . . . . . . . . . . . . . . . . . . . . . . . . . .29

Прикрепленные файлы: 1 файл

Автосалон.doc

— 562.50 Кб (Скачать документ)

 

2)unit Unit3;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, Grids, DBGrids, StdCtrls;
  5. type
  6. TForm3 = class(TForm)
  7. DBGrid1: TDBGrid;
  8. Button1: TButton;
  9. Button2: TButton;
  10. Button3: TButton;
  11. procedure Button1Click(Sender: TObject);
  12. procedure Button2Click(Sender: TObject);
  13. procedure Button3Click(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19. var
  20. Form3: TForm3;
  21. implementation
  22. uses Unit1, Unit2;
  23. {$R *.dfm}
  24. procedure TForm3.Button1Click(Sender: TObject);
  25. begin
  26. DataModule2.Table1.Insert;
  27. end;
  28. procedure TForm3.Button2Click(Sender: TObject);
  29. begin
  30. DataModule2.Table1.cancel;
  31. end;
  32. procedure TForm3.Button3Click(Sender: TObject);
  33. begin
  34. form3.Close;
  35. end;
  36. end.

 

3) unit Unit4;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, Grids, DBGrids, StdCtrls;
  5. type
  6. TForm4 = class(TForm)
  7. DBGrid1: TDBGrid;
  8. Button1: TButton;
  9. Button2: TButton;
  10. Button3: TButton;
  11. procedure Button1Click(Sender: TObject);
  12. procedure Button2Click(Sender: TObject);
  13. procedure Button3Click(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19. var
  20. Form4: TForm4;
  21. implementation
  22. uses Unit1, Unit2;
  23. {$R *.dfm}
  24. procedure TForm4.Button1Click(Sender: TObject);
  25. begin
  26. DataModule2.Table2.Insert;
  27. end;
  28. procedure TForm4.Button2Click(Sender: TObject);
  29. begin
  30. DataModule2.Table2.cancel;
  31. end;
  32. procedure TForm4.Button3Click(Sender: TObject);
  33. begin
  34. form4.Close;
  35. end;
  36. end.

 

4) unit Unit5;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, Grids, DBGrids, StdCtrls;
  5. type
  6. TForm5 = class(TForm)
  7. DBGrid1: TDBGrid;
  8. Button1: TButton;
  9. Button2: TButton;
  10. Button3: TButton;
  11. procedure Button1Click(Sender: TObject);
  12. procedure Button2Click(Sender: TObject);
  13. procedure Button3Click(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19. var
  20. Form5: TForm5;
  21. implementation
  22. uses Unit1, Unit2;
  23. {$R *.dfm}
  24. procedure TForm5.Button1Click(Sender: TObject);
  25. begin
  26. DataModule2.Table3.Insert;
  27. end;
  28. procedure TForm5.Button2Click(Sender: TObject);
  29. begin
  30. DataModule2.Table3.cancel;
  31. end;
  32. procedure TForm5.Button3Click(Sender: TObject);
  33. begin
  34. form5.Close;
  35. end;
  36. end.

 

5) unit Unit6;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, StdCtrls;
  5. type
  6. TForm6 = class(TForm)
  7. Label1: TLabel;
  8. Label2: TLabel;
  9. Label3: TLabel;
  10. Label4: TLabel;
  11. Label5: TLabel;
  12. Label6: TLabel;
  13. Button1: TButton;
  14. procedure Button1Click(Sender: TObject);
  15. private
  16. { Private declarations }
  17. public
  18. { Public declarations }
  19. end;
  20. var
  21. Form6: TForm6;
  22. implementation
  23. uses unit1;
  24. {$R *.dfm}
  25. procedure TForm6.Button1Click(Sender: TObject);
  26. begin
  27. form1.Show;
  28. form6.Close;
  29. end;
  30. end.

 

6) unit Unit7;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, StdCtrls;
  5. type
  6. TForm7 = class(TForm)
  7. Label2: TLabel;
  8. Label3: TLabel;
  9. Label4: TLabel;
  10. Label5: TLabel;
  11. Label6: TLabel;
  12. Label7: TLabel;
  13. Label8: TLabel;
  14. Label9: TLabel;
  15. Label10: TLabel;
  16. Button1: TButton;
  17. procedure Button1Click(Sender: TObject);
  18. private
  19. { Private declarations }
  20. public
  21. { Public declarations }
  22. end;
  23. var
  24. Foкm7: TForm7;
  25. implementation
  26. uses Unit1;
  27. {$R *.dfm}
  28. procedure TForm7.Button1Click(Sender: TObject);
  29. begin
  30. form1.show;
  31. form7.Close;
  32. end;
  33. end.

 

7) unit Unit8;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, DB, QRCtrls, QuickRpt, DBTables, ExtCtrls;
  5. type
  6. TForm8 = class(TForm)
  7. QuickRep1: TQuickRep;
  8. QRBand1: TQRBand;
  9. QRBand3: TQRBand;
  10. QRBand4: TQRBand;
  11. Table1: TTable;
  12. QRLabel1: TQRLabel;
  13. QRDBText1: TQRDBText;
  14. QRDBText2: TQRDBText;
  15. QRDBText3: TQRDBText;
  16. QRDBText4: TQRDBText;
  17. QRDBText5: TQRDBText;
  18. DataSource1: TDataSource;
  19. QRLabel2: TQRLabel;
  20. QRLabel3: TQRLabel;
  21. QRLabel4: TQRLabel;
  22. QRLabel5: TQRLabel;
  23. QRLabel6: TQRLabel;
  24. QRSysData1: TQRSysData;
  25. QRSysData2: TQRSysData;
  26. private
  27. { Private declarations }
  28. public
  29. { Public declarations }
  30. end;
  31. var
  32. Form8: TForm8;
  33. implementation
  34. uses Unit1, Unit2;
  35. {$R *.dfm}
  36. end.

 

8) unit Unit9;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
  5. type
  6. TForm9 = class(TForm)
  7. DBEdit1: TDBEdit;
  8. DBEdit2: TDBEdit;
  9. Table1: TTable;
  10. DataSource1: TDataSource;
  11. DBEdit3: TDBEdit;
  12. DBEdit4: TDBEdit;
  13. DBEdit5: TDBEdit;
  14. Label1: TLabel;
  15. Label2: TLabel;
  16. Label3: TLabel;
  17. Label4: TLabel;
  18. Label5: TLabel;
  19. Button1: TButton;
  20. Button2: TButton;
  21. Button3: TButton;
  22. procedure Button1Click(Sender: TObject);
  23. procedure Button2Click(Sender: TObject);
  24. procedure Button3Click(Sender: TObject);
  25. private
  26. { Private declarations }
  27. public
  28. { Public declarations }
  29. end;
  30. var
  31. Form9: TForm9;
  32. implementation
  33. uses unit1,unit2;
  34. {$R *.dfm}
  35. procedure TForm9.Button1Click(Sender: TObject);
  36. begin
  37. table1.Next;
  38. end;
  39. procedure TForm9.Button2Click(Sender: TObject);
  40. begin
  41. table1.prior;
  42. end;
  43. procedure TForm9.Button3Click(Sender: TObject);
  44. begin
  45. form9.hide;
  46. end;
  47. end.

9) unit Unit10;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, QRCtrls, DB, QuickRpt, DBTables, ExtCtrls;
  5. type
  6. TForm10 = class(TForm)
  7. QuickRep1: TQuickRep;
  8. Table1: TTable;
  9. Table2: TTable;
  10. QRBand1: TQRBand;
  11. QRBand2: TQRBand;
  12. QRBand3: TQRBand;
  13. QRLabel1: TQRLabel;
  14. QRLabel2: TQRLabel;
  15. QRLabel3: TQRLabel;
  16. QRLabel4: TQRLabel;
  17. QRLabel5: TQRLabel;
  18. QRLabel6: TQRLabel;
  19. QRBand4: TQRBand;
  20. QRDBText1: TQRDBText;
  21. QRDBText2: TQRDBText;
  22. QRDBText3: TQRDBText;
  23. QRDBText4: TQRDBText;
  24. QRDBText5: TQRDBText;
  25. QRDBText6: TQRDBText;
  26. QRLabel7: TQRLabel;
  27. QRSysData1: TQRSysData;
  28. QRSysData2: TQRSysData;
  29. DataSource1: TDataSource;
  30. DataSource2: TDataSource;
  31. QRExpr1: TQRExpr;
  32. QRLabel8: TQRLabel;
  33. QRExpr2: TQRExpr;
  34. QRExpr3: TQRExpr;
  35. private
  36. { Private declarations }
  37. public
  38. { Public declarations }
  39. end;
  40. var
  41. Form10: TForm10;
  42. implementation
  43. uses unit1;
  44. {$R *.dfm}
  45. end.

 

11) unit Unit11;

  1. interface
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, StdCtrls, DB, DBTables, Mask, DBCtrls;
  5. type
  6. TForm11 = class(TForm)
  7. DBEdit1: TDBEdit;
  8. DBEdit3: TDBEdit;
  9. DBEdit4: TDBEdit;
  10. DBEdit5: TDBEdit;
  11. Table2: TTable;
  12. DBEdit6: TDBEdit;
  13. Label1: TLabel;
  14. Label3: TLabel;
  15. Label4: TLabel;
  16. Label5: TLabel;
  17. Label6: TLabel;
  18. DBEdit7: TDBEdit;
  19. Label7: TLabel;
  20. Button1: TButton;
  21. Button3: TButton;
  22. DataSource1: TDataSource;
  23. Button2: TButton;
  24. procedure Button1Click(Sender: TObject);
  25. procedure Button3Click(Sender: TObject);
  26. procedure Button2Click(Sender: TObject);
  27. private
  28. { Private declarations }
  29. public
  30. { Public declarations }
  31. end;
  32. var
  33. Form11: TForm11;
  34. implementation
  35. uses unit1;
  36. {$R *.dfm}
  37. procedure TForm11.Button1Click(Sender: TObject);
  38. begin
  39. table2.next;
  40. end;
  41. procedure TForm11.Button2Click(Sender: TObject);
  42. begin
  43. table2.Prior;
  44. end;
  45. procedure TForm11.Button3Click(Sender: TObject);
  46. begin
  47. form11.hide;
  48. end;
  49. end.

 


Информация о работе Автосалон