Разработка информационно-программного комплекса для использования на IBM-совместимых ПК в качестве автоматизированного рабочего места обработки информации
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ату по договору, тип integer.
Dogovor.id_shop - номер магазина, тип integer.
S4ETA - отчёт, формируемый по выбранному договору при помощи FastReport 4.0, содержащий информацию о поставщике, сумме к оплате, банковском счёте.
7. Используемое ПО
1.IBexpert - GUI-оболочка, предназначенная для разработки и администрирования баз данных Interbase и Firebird, а также для выбора и изменения данных, хранящихся в базах
2.FireBird 2.0 - Firebird является сервером баз данных. Один сервер Firebird может обрабатывать несколько сотен независимых баз данных, каждую с множеством пользовательских соединений. Он является полностью свободным от лицензионных отчислений даже для коммерческого использования.
3.Delphi 7 - структурированный, объектно-ориентированный язык программирования, диалект Object Pascal.
4.FastReport 4.0 - Fast Reports, Inc - российская компания по разработке программного обеспечения для формирования отчетов.
8. Хранимые процедуры, триггеры
CREATE PROCEDURE PROC_DISC (
fin_id integer,_nomer_karty integer,_vladelec char(30),_telefon char(15),_skidka char(11),_id_shop integer)(:fin_id < 0) theninto DISCONT (NOMER_KARTY, VLADELEC, TELEFON, SKIDKA, ID_SHOP)(:fin_nomer_karty, :fin_vladelec, :fin_telefon, :fin_skidka, :fin_id_shop);_KARTY = :fin_nomer_karty,= :fin_vladelec,= :fin_telefon,= :fin_skidka,_SHOP = :fin_id_shop= :fin_id;
end
CREATE PROCEDURE PROC_DOG (
fin_postavshik char(30),_datadogovora date,_prime4anie char(30),_summa integer,_id_shop integer)into DOGOVOR(POSTAVSHIK, DATADOGOVORA, PRIME4ANIE, SUMMA, ID_SHOP)(:fin_postavshik, :fin_datadogovora, :fin_prime4anie, :fin_summa, :fin_id_shop);
end
CREATE PROCEDURE PROC_NAL (
fin_id integer,_naimenovanie char(30),_razmer char(10),_cena integer,_upakovka char(1),_garantsrok char(20),_datapostupleni9 date,_id_otdel integer)(:fin_id < 0) theninto NALI4IE(NAIMENOVANIE, RAZMER, CENA, UPAKOVKA, GARANTSROK, DATAPOSTUPLENI9, ID_OTDEL)(:fin_naimenovanie, :fin_razmer, :fin_cena, :fin_upakovka, :fin_garantsrok, :fin_datapostupleni9, :fin_id_otdel);IE= :fin_naimenovanie,= :fin_razmer,= :fin_cena,= :fin_upakovka,= :fin_garantsrok,= :fin_datapostupleni9,_OTDEL = :fin_id_otdel= :fin_id;
end
CREATE PROCEDURE PROC_OTDELY (
fin_id_otdel integer,_otdel char(15),_prodavec char(30),_telefon char(15),_faks char(15),_skidki integer,_id_shop smallint)(:fin_id_otdel < 0) theninto OTDELY(OTDEL, PRODAVEC, TELEFON, FAKS, SKIDKI, ID_SHOP)(:fin_otdel, :fin_prodavec, :fin_telefon, :fin_faks, :fin_skidki, :fin_id_shop);= :fin_OTDEL,= :fin_PRODAVEC,= :fin_TELEFON,= :fin_FAKS,= :fin_SKIDKI,_SHOP = :fin_ID_SHOP_otdel = :fin_id_otdel;
end
CREATE PROCEDURE PROC_PROD (
fin_id integer,_naimenovanie char(30),_razmer char(10),_cena integer,_upakovka char(1),_dataprodaji date,_iste4eniegarantii date,_id_otdel integer)(:fin_id < 0) theninto PRODANNOE(NAIMENOVANIE, RAZMER, CENA, UPAKOVKA, DATAPRODAJI, ISTE4ENIEGARANTII , ID_OTDEL)(:fin_naimenovanie, :fin_razmer, :fin_cena, :fin_upakovka, :fin_dataprodaji, :fin_iste4eniegarantii, :fin_id_otdel);= :fin_naimenovanie,= :fin_razmer,= :fin_cena,= :fin_upakovka,= :fin_dataprodaji,ENIEGARANTII = :fin_iste4eniegarantii,_OTDEL = :fin_id_otdel= :fin_id;
end
CREATE PROCEDURE PROC_SHOP (
fin_id_shop integer,_nazvanie char(25),_adres char(40),_director char(30),_chasy char(11),_banks4et integer,_telefon char(15),_faks char(15))= :fin_nazvanie,= :fin_adres,= :fin_director,= :fin_chasy,_S4ET = :FIN_BANKS4ET,= :fin_telefon,= :fin_faks_shop = :fin_id_shop;
end
CREATE trigger discont_bi for discont
active before insert position 0(new.id is null) then.id = gen_id(gen_discont_id,1);
end
CREATE trigger dogovor_bi for dogovor
active before insert position 0(new.id is null) then.id = gen_id(gen_DOGOVOR_id,1);
end
CREATE trigger nali4ie_bi for nali4ie
active before insert position 0(new.id is null) then.id = gen_id(gen_nali4ie_id,1);
end
CREATE trigger otdely_bi for otdely
active before insert position 0(new.id_otdel is null) then.id_otdel = gen_id(gen_otdely_id,1);
end
CREATE trigger prodannoe_bi for prodannoe
active before insert position 0(new.id is null) then.id = gen_id(gen_prodannoe_id,1);
end
9. Код программы
unit Unit1;, Messages, ShellApi, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, ComCtrls,, IBDatabase, IBQuery, IBTable, frxClass;= class(TForm): TDataSource;: TDBGrid;: TMemo;: TGroupBox;: TProgressBar;: TTimer;: TButton;: TIBQuery;: TIBDatabase;: TIBDataSet;: TIBTransaction;: TComboBox;: TButton;: TButton;: TButton;: TLabel;: TComboBox;: TLabel;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TRadioGroup;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TGroupBox;: TButton;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TRadioGroup;: TEdit;: TEdit;: TEdit;: TGroupBox;: TLabel;: TLabel;: TEdit;: TButton;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TIBQuery;: TDataSource;: TIBDataSet;: TIBTransaction;: TIBDatabase;: TMemo;: TButton;: TLabel;: TLabel;: TGroupBox;: TButton;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TLabel;: TEdit;: TButton;Button1Click(Sender: TObject);Timer1Timer(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);ComboBox1Change(Sender: TObject);ComboBox2Change(Sender: TObject);Button6Click(Sender: TObject);Button7Click(Sender: TObject);Button8Click(Sender: TObject);RadioGroup1Click(Sender: TObject);Button9Click(Sender: TObject);Button10Click(Sender: TObject);Button11Click(Sender: TObject);Button12Click(Sender: TObject);RadioGroup2Click(Sender: TObject);Button13Click(Sender: TObject);RadioGroup3Click(Sender: TObject);Button14Click(Sender: TObject);Button19Click(Sender: TObject);Button20Click(Sender: TObject);Button21Click(Sender: TObject);Button18Click(Sender: TObject);Button17Click(Sender: TObject);Button16Click(Sender: TObject);Button22Click(Sender: TObject);Button15Click(Sender: TObject);Button23Click(Sender: TObject);Button24Click(Sender: TObject);Button25Click(Sender: TObject);Button26Click(Sender: TObject);Button27Click(Sender: TObject);Button28Click(Sender: TObject);
{ Private declarations };: TForm1;,Flag1: Boolean;:Boolean = false;:integer;Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}TForm1.Button1Click(Sender: TObject); // maini:integer;.MessageBox(Клиент по работе с БД. Евгений Лукин, И493, О программе);
end;TForm1.Timer1Timer(Sender: TObject); // filling progressbar.ProgressBar1.Position:=Form1.ProgressBar1.Position+Timer1.Interval;;TForm1.Button2Click(Sender: TObject); // help(Handle, open,
c:\windows\notepad.exe, help.txt, nil,_SHOWNORMAL);;TForm1.Button3Click(Sender: TObject);ComboBox1.Text = Данные: then
begin.MessageBox(Выберите данные для добавления,Добавление данных);
exit;ComboBox1.Text = Информация о магазине then
begin.MessageBox(В базе данных только один магазин,Магазин);
exit;ComboBox1.Text = Договоры then
begin.MessageBox(Вы можете заключить договор, выбрав товары, и добавив их в корзину,Договор);
exit;:= True;:= True;ComboBox1.Text = Товары в наличии then.Visible := False;.Visible := True;elseComboBox1.Text = Проданные товары then.Visible := False;.Visible := True;elseComboBox1.Text = Дисконтные карты then.Visible := False;.Visible := True;elseComboBox1.Text = Информация по отделам then.Visible := False;.Visible := True;;;TForm1.Button4Click(Sender: TObject);ComboBox1.Text = Данные: then begin
Application.MessageBox(Выберите данные для редактирования,Редактирование данных);
exit;;:= False;:= False;ComboBox1.Text = Проданные товары then.Visible:= False;.Visible:= True;ComboBox1.Text = Товары в наличии then.Visible := False;.Visible := True;ComboBox1.Text = Дисконтные карты then.Visible := False;.Visible := True;ComboBox1.Text = Информация о магазине then.Vi