Для отображения данных мы используем компоненты Table, DataSource, DBGrid. Для связи его с таблицей в свойстве DataBaseName указываем путь к базе данных, а в свойстве TableName имя базы данных. Для связи компонента DataSource с компонентом Table мы в свойстве DataSet компонента DataSource указываем соответствующий Table. Для связи компонента DBGrid с базой данных мы в свойстве DataSource компонента DBGrid указываем соответствующий DataSource.
Для ввода данных используются компоненты DBEdit и DBComboBox, которые связываются подобным образом с компонентом DataSource.
Для навигации по базе данных мы используем компоненты Button. Для передвижения назад:
procedure TForm1.Button6Click(Sender: TObject);
begin
Table2.Prior;
end;
Для передвижения вперед:
procedure TForm1.Button7Click(Sender: TObject);
begin
Table2.Next;
end;
Для передвижения в начало:
procedure TForm1.Button8Click(Sender: TObject);
begin
Table2.First;
end;
Для передвижения в конец:
procedure TForm1.Button9Click(Sender: TObject);
begin
Table2.Last;
end;
Для управления базой данных компонент Button прописывается следующим образом:
Для добавления новой записи:
procedure TForm1.Button10Click(Sender: TObject);
begin
Table2.Insert;
end;
Для сохранения новой записи:
procedure TForm1.Button11Click(Sender: TObject);
begin
Table2.Refresh;
end;
Для редактирования записи:
procedure TForm1.Button12Click(Sender: TObject);
begin
Table2.Edit;
end;
Для сохранения изменений в записи:
procedure TForm1.Button13Click(Sender: TObject);
begin
Table2.Post;
end;
Для отмены изменений:
procedure TForm1.Button14Click(Sender: TObject);
begin
Table2.Cancel;
end;
Для удаления записи:
procedure TForm1.Button15Click(Sender: TObject);
begin
Table2.Delete;
end;
В нашей базе данных при внесении новой записи в таблицу «Накладная»
компонент Button мы прописываем следующим образом:
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Insert;
Table2.Insert;
Table3.Insert;
end;
Мы прописываем внесение новой записи несколько раз потому что данные добавляются сразу в три таблицы.
Аналогично сохранение новой записи:
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Refresh;
Table2.Refresh;
Table3.Refresh;
end;
Для вывода отчета мы используем компоненты RvProject и RvDataSetConnection. А компонент Button мы прописываем следующим образом:
procedure TForm1.Button16Click(Sender: TObject);
begin
RvProject1.Execute;
end;
Раздел 4. Листинг программы.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ComCtrls,
StdCtrls, Mask, RpCon, RpConDS, RpDefine, RpRave, XPMan, jpeg;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
Table1: TTable;
Table2: TTable;
Table3: TTable;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBComboBox1: TDBComboBox;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBComboBox2: TDBComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
XPManifest1: TXPManifest;
Bevel1: TBevel;
RvProject2: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
RvProject1: TRvProject;
RvDataSetConnection2: TRvDataSetConnection;
RvProject3: TRvProject;
RvDataSetConnection3: TRvDataSetConnection;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;;
Table2.Append;
Table3.Append;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Refresh;
Table2.Refresh;
Table3.Refresh;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Table2.Delete;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Table1.Delete;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Table3.Delete;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Table2.Prior;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Table2.Next;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Table2.Edit;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
Table2.Post;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
RvProject1.Execute;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
RvProject2.Execute;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
Table1.Prior;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
Table1.Next;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
Table1.Edit;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
Table1.Post;
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
RvProject3.Execute;
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
Table3.Prior;
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
Table3.Next;
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
Table3.Edit;
end;
procedure TForm1.Button20Click(Sender: TObject);
begin
Table3.Post;
end;
end.
Заключение
В данном курсовом проекте мы реализовали систему, которая позволяет учитывать отгрузку и реализацию продукции на складе, в том числе и поступление новой продукции.
Система дает возможность просматривать накладные реализаций, поступлений. Программа выполнена в виде исполняемого файла, а соответственно не требует дополнительного программного обеспечения.
Список использованной литературы.
1. Информационные технологии и системы в экономике\ Лахно В.А., Кукса И.Н., Пилипенко А.Н.\ Л-2004.
2. Проектирование программного обеспечение экономических информационных систем\ Вендров А.М.\ М-2002.
3. Проектирование баз данных\ Диго С.М. \М-1999.
4. Автоматизированные информационные технологии в экономике\ Титоренко Г. А. \ М-1998.
5. Компьютерные системы и сети\ Косарев В. П.\М-1998.