Автоматизация учета продаж в ООО «Интеллект, Техника, Строительство» (ИТС)

Автор: Пользователь скрыл имя, 19 Октября 2012 в 23:30, дипломная работа

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

Цель работы – на основе изучения экономической деятельности ООО «ИТС» создать программное обеспечение автоматизированной системы учета продаж в компании.
Поставленная цель определяет задачи исследования:
1. Рассмотреть теоретические подходы к исследованию методов проектирования и этапов разработки автоматизированных систем;
2. Выявить основные требования, предъявляемые к автоматизированной системе учета продаж;
3. Разработать программное обеспечение автоматизированной системы, удовлетворяющей основным требованиям;
4. Рассчитать экономическую эффективность внедряемой системы.

Скачать в ZIP (2.03 Мб) Сколько стоит заказать работу?
Файлы: 1 файл

дипломная работа.doc

— 2.73 Мб (Скачать)

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button6: TButton;

    Button7: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  add: boolean;

implementation

  uses Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form4.Caption:='Заявка';

add:=true;

Form4.ShowModal;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.Caption:='СМР и клиенты';

add:=true;

Form2.ShowModal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form3.Caption:='Продажи';

add:=true;

Form3.ShowModal;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Form6.Caption:='Продажи';

add:=true;

 Form6.ShowModal;

end;

end.

 

unit Unit2;

interface

uses

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

  Dialogs, DB, ADODB, RpCon, RpConDS, RpDefine, RpRave, StdCtrls, Grids,

  DBGrids;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    DBGrid1: TDBGrid;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    DBGrid2: TDBGrid;

    RvProject1: TRvProject;

    RvDataSetConnection1: TRvDataSetConnection;

    DataSource1: TDataSource;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    ADOTable2: TADOTable;

    DataSource2: TDataSource;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

  rvProject1.Execute;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

if Not ADOTable1.Active then Exit;

if Not ADOTable1.Locate('Наименование строительно-монтажной работы', Edit1.Text, [loPartialKey, loCaseInsensitive])

then Application.MessageBox('Заданная строка не найдена', 'Поиск', MB_OK);

end;

procedure TForm2.Edit2Change(Sender: TObject);

begin

if Not ADOTable2.Active then Exit;

if Not ADOTable2.Locate('Цена работ', Edit2.Text, [loPartialKey, loCaseInsensitive])

then Application.MessageBox('Заданная строка не найдена', 'Поиск', MB_OK);

end;

end.

 

unit Unit3;

interface

uses

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

  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;

type

  TForm3 = class(TForm)

    Label1: TLabel;

    DBGrid1: TDBGrid;

    Button1: TButton;

    Edit1: TEdit;

    DataSource1: TDataSource;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    procedure Button1Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.Edit1Change(Sender: TObject);

begin

if Not ADOTable1.Active then Exit;

if Not ADOTable1.Locate('Наименование проданного товара (услуги)', Edit1.Text, [loPartialKey, loCaseInsensitive])

then Application.MessageBox('Заданная строка не найдена', 'Поиск', MB_OK);

end;

end.

 

unit Unit4;

interface

uses

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

  Dialogs, StdCtrls, Grids;

type

Zap = Record

Nomer: Cardinal;

FIO_kl: String[50];

Passport: String[50];

SMR: String[50];

FIO_z: String[50];

FIO_d: String[50];

end;

  TForm4 = class(TForm)

    StringGrid1: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button7: TButton;

    SaveDialog1: TSaveDialog;

    OpenDialog1: TOpenDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

  F: File of Zap;

  Rec: Zap;

  Nomer: Integer;

  Kol: integer;

  i: integer;

  add: boolean;

  sum: integer;

implementation

  Uses Unit5;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

begin

  StringGrid1.Cells[0,0]:='Номер заявки';

  StringGrid1.Cells[1,0]:='ФИО клиента';

  StringGrid1.Cells[2,0]:='Паспортные данные клиента';

  StringGrid1.Cells[3,0]:='Наименование СМР';

  StringGrid1.Cells[4,0]:='ФИО сотрудника  сметно-договорного отдела';

  StringGrid1.Cells[5,0]:='ФИО сотрудника  финансового отдела';

  Kol:=0;

  Nomer:=1;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

 if Kol<>0 then

BEGIN

for  i:=Nomer to StringGrid1.RowCount-1 do

with StringGrid1 do begin

  cells[0,i]:= cells[0,i+1];

  cells[1,i]:= cells[1,i+1];

  cells[2,i]:= cells[2,i+1];

  cells[3,i]:= cells[3,i+1];

  cells[4,i]:= cells[4,i+1];

  cells[5,i]:= cells[5,i+1];

end;

  Kol:=Kol-1;

  if Kol<>0 then StringGrid1.RowCount:= Kol+1 else

   begin

    Button1.Enabled:=False;

   end;

end;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form5.Caption:='Добавление записи';

add:=true;

Form5.ShowModal;

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form5.Caption:='Изменение записи';

add:=true;

Form5.ShowModal;

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

      begin

        assignfile(f,savedialog1.FileName);

        if FileExists(SaveDialog1.FileName) then

         begin

          if MessageDlg('Файл  с таким именем уже существует. Перезаписать?', mtConfirmation,[mbYes,mbNo],0)=mrNo then exit;

         end;

          rewrite(f,savedialog1.FileName);

          i:=0;

          while i<>StringGrid1.rowCount-1 do begin

            inc(i);

            Rec.Nomer := StrToInt(stringgrid1.cells[0,i]);

            Rec.FIO_kl:= stringgrid1.cells[1,i];

            Rec.Passport:= stringgrid1.cells[2,i];

            Rec.SMR:=stringgrid1.cells[3,i];

            Rec.FIO_z:=stringgrid1.cells[4,i];

            Rec.FIO_d:=stringgrid1.cells[5,i];

            write(f,Rec);   //запись данных в файл

          end;

        closefile(f);

end;

end;

procedure TForm4.Button5Click(Sender: TObject);

begin

if Opendialog1.Execute

    and FileExists(OpenDialog1.FileName) then

  begin

    AssignFile(f,OpenDialog1.FileName);

    Reset(f);

    i:=0;

    while not eof(f) do begin

      read(f,Rec);   //чтение данных из файла

      inc(i);

      stringgrid1.cells[0,i]:=IntToStr(Rec.Nomer);

      stringgrid1.cells[1,i]:=Rec.FIO_kl;

      stringgrid1.cells[2,i]:=Rec.Passport;

      stringgrid1.cells[3,i]:=Rec.SMR;

      stringgrid1.cells[4,i]:=Rec.FIO_z;

      stringgrid1.cells[5,i]:=Rec.FIO_d;

      stringgrid1.RowCount:=i+1;

    end;

    kol:=i;

    closefile(f);

  end else ShowMessage('Файл не существует!')

end;

procedure TForm4.Button7Click(Sender: TObject);

begin

Close;

end;

end.

 

unit Unit5;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

   Uses Unit4;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);

begin

if Unit4.add=true then

begin

  Form5.Edit1.Text:='';

  Form5.Edit2.Text:='';

  Form5.Edit4.Text:='';

  Form5.Edit5.Text:='';

  Form5.Edit6.Text:='';

  Form5.Edit7.Text:='';

end else

begin

Form5.Edit1.Text:=Form4.StringGrid1.Cells[0,Nomer];

Form5.Edit2.Text:=Form4.StringGrid1.Cells[1,Nomer];

Form5.Edit4.Text:=Form4.StringGrid1.Cells[2,Nomer];

Form5.Edit5.Text:=Form4.StringGrid1.Cells[3,Nomer];

Form5.Edit6.Text:=Form4.StringGrid1.Cells[4,Nomer];

Form5.Edit7.Text:=Form4.StringGrid1.Cells[5,Nomer];

end;

end;

procedure TForm5.Button1Click(Sender: TObject);

var d:integer;

begin

if Unit4.add then

begin

    Unit4.Kol:=Unit4.Kol+1;

    Form4.StringGrid1.RowCount:= Unit4.Kol+1;

  d:=Unit4.Kol;

  if Unit4.kol>0 then begin

                  Form4.Button1.Enabled:=True;

                end;

end else d:=Unit4.Nomer;

Form4.StringGrid1.Cells[0,d]:=Edit1.Text;

Form4.StringGrid1.Cells[1,d]:=Edit2.Text;

Form4.StringGrid1.Cells[2,d]:=Edit4.Text;

Form4.StringGrid1.Cells[3,d]:=Edit5.Text;

Form4.StringGrid1.Cells[4,d]:=Edit6.Text;

Form4.StringGrid1.Cells[5,d]:=Edit7.Text;

Close;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

    Close;

end;

end.

 

unit Unit6;

interface

uses

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

  Dialogs, StdCtrls, Grids;

type

Zap = Record

Nomer: Cardinal;

FIO_kl: String[50];

Passport: String[50];

SMR: String[50];

Stoim: Cardinal;

FIO_d: String[50];

End;

  TForm6 = class(TForm)

    StringGrid1: TStringGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button7: TButton;

    SaveDialog1: TSaveDialog;

    OpenDialog1: TOpenDialog;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form6: TForm6;

  F: File of Zap;

  Rec: Zap;

  Nomer: Integer;

  Kol: integer;

  i: integer;

  add: boolean;

  sum: integer;

implementation

  Uses Unit7;

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);

begin

  StringGrid1.Cells[0,0]:='Номер договора';

  StringGrid1.Cells[1,0]:='ФИО клиента';

  StringGrid1.Cells[2,0]:='Паспортные данные клиента';

  StringGrid1.Cells[3,0]:='Наименование СМР';

  StringGrid1.Cells[4,0]:='Стоимость СМР';

  StringGrid1.Cells[5,0]:='ФИО сотрудника финансового отдела';

  Kol:=0;

  Nomer:=1;

end;

procedure TForm6.Button1Click(Sender: TObject);

begin

if Kol<>0 then

BEGIN

for  i:=Nomer to StringGrid1.RowCount-1 do

with StringGrid1 do begin

  cells[0,i]:= cells[0,i+1];

  cells[1,i]:= cells[1,i+1];

  cells[2,i]:= cells[2,i+1];

  cells[3,i]:= cells[3,i+1];

  cells[4,i]:= cells[4,i+1];

  cells[5,i]:= cells[5,i+1];

end;

  Kol:=Kol-1;

  if Kol<>0 then StringGrid1.RowCount:= Kol+1 else

   begin

    Button1.Enabled:=False;

   end;

end;

end;

procedure TForm6.Button2Click(Sender: TObject);

begin

Form7.Caption:='Добавление записи';

add:=true;

Form7.ShowModal;

end;

procedure TForm6.Button3Click(Sender: TObject);

begin

Form7.Caption:='Изменение записи';

add:=true;

Form7.ShowModal;

end;

procedure TForm6.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

      begin

        assignfile(f,savedialog1.FileName);

        if FileExists(SaveDialog1.FileName) then

         begin

          if MessageDlg('Файл  с таким именем уже существует. Перезаписать?', mtConfirmation,[mbYes,mbNo],0)=mrNo then exit;

         end;

          rewrite(f,savedialog1.FileName);

          i:=0;

          while i<>StringGrid1.rowCount-1 do begin

            inc(i);

            Rec.Nomer := StrToInt(stringgrid1.cells[0,i]);

            Rec.FIO_kl:= stringgrid1.cells[1,i];

            Rec.Passport:= stringgrid1.cells[2,i];

            Rec.SMR:=stringgrid1.cells[3,i];

            Rec.Stoim:=StrToInt(stringgrid1.cells[4,i]);

            Rec.FIO_d:=stringgrid1.cells[5,i];

            write(f,Rec);   //запись данных в файл

          end;

        closefile(f);

end;

end;

procedure TForm6.Button5Click(Sender: TObject);

begin

if Opendialog1.Execute

    and FileExists(OpenDialog1.FileName) then

  begin

    AssignFile(f,OpenDialog1.FileName);

    Reset(f);

    i:=0;

    while not eof(f) do begin

      read(f,Rec);   //чтение данных из файла

      inc(i);

      stringgrid1.cells[0,i]:=IntToStr(Rec.Nomer);

      stringgrid1.cells[1,i]:=Rec.FIO_kl;

      stringgrid1.cells[2,i]:=Rec.Passport;

      stringgrid1.cells[3,i]:=Rec.SMR;

      stringgrid1.cells[4,i]:=IntToStr(Rec.Stoim);

      stringgrid1.cells[5,i]:=Rec.FIO_d;

      stringgrid1.RowCount:=i+1;

    end;

    kol:=i;

    closefile(f);

  end else ShowMessage('Файл не существует!')

end;

procedure TForm6.Button7Click(Sender: TObject);

begin

Close;

end;

end.

unit Unit7;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm7 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    Edit7: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

     uses Unit6, Unit4;

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);

begin

if Unit6.add=true then

begin

  Form7.Edit1.Text:='';

  Form7.Edit2.Text:='';

  Form7.Edit4.Text:='';

  Form7.Edit5.Text:='';

  Form7.Edit6.Text:='';

  Form7.Edit7.Text:='';

end else

begin

Form7.Edit1.Text:=Form6.StringGrid1.Cells[0,Nomer];

Form7.Edit2.Text:=Form6.StringGrid1.Cells[1,Nomer];

Form7.Edit4.Text:=Form6.StringGrid1.Cells[2,Nomer];

Form7.Edit5.Text:=Form6.StringGrid1.Cells[3,Nomer];

Form7.Edit6.Text:=Form6.StringGrid1.Cells[4,Nomer];

Form7.Edit7.Text:=Form6.StringGrid1.Cells[5,Nomer];

end;

end;

procedure TForm7.Button1Click(Sender: TObject);

var d:integer;

begin

if Unit6.add then

begin

    Unit6.Kol:=Unit6.Kol+1;

    Form6.StringGrid1.RowCount:= Unit6.Kol+1;

  d:=Unit6.Kol;

  if Unit6.kol>0 then begin

                  Form6.Button1.Enabled:=True;

                end;

end else d:=Unit4.Nomer;

Form6.StringGrid1.Cells[0,d]:=Edit1.Text;

Form6.StringGrid1.Cells[1,d]:=Edit2.Text;

Form6.StringGrid1.Cells[2,d]:=Edit4.Text;

Form6.StringGrid1.Cells[3,d]:=Edit5.Text;

Form6.StringGrid1.Cells[4,d]:=Edit6.Text;

Form6.StringGrid1.Cells[5,d]:=Edit7.Text;

Close;

end;

procedure TForm7.Button2Click(Sender: TObject);

begin

Close;

end;

end.

Приложение 2

Скриншоты форм программы

 

 

 

 

 

 

 


Информация о работе Автоматизация учета продаж в ООО «Интеллект, Техника, Строительство» (ИТС)