Раздел 3. Описание кодов проектируемой системы автоматизированной обработки информации.
Для отображения данных мы используем компоненты 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.
Популярное: Почему стероиды повышают давление?: Основных причин три... Почему двоичная система счисления так распространена?: Каждая цифра должна быть как-то представлена на физическом носителе... Почему человек чувствует себя несчастным?: Для начала определим, что такое несчастье. Несчастьем мы будем считать психологическое состояние... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (164)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |