Отчет по практике в ООО «Тоникс»

Автор работы: Пользователь скрыл имя, 13 Июня 2015 в 15:03, отчет по практике

Описание работы

Цель коммерческой деятельности — получение максимальной прибыли. Основной целью деятельности коммерческой организации является обеспечение ее устойчивого финансового положения, и получение максимальной прибыли является основой для достижения этой цели.
Главной задаче современных информационных технологий логистического управления является своевременное предоставление достоверной, в необходимом количестве информации специалистам и руководителям для принятия обоснованных управленческих решений.

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

Диплом алкоголь.doc

— 4.30 Мб (Скачать файл)

type

  TForm14 = class(TForm)

    ADOTable2: TADOTable;

    ADOTable3: TADOTable;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    ADOTable1: TADOTable;

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Button3: TButton;

    DBNavigator1: TDBNavigator;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form14: TForm14;

 

implementation

 

uses Sklad_Unit15, Sklad_Unit16;

 

{$R *.dfm}

 

procedure TForm14.Button1Click(Sender: TObject);

begin

    Form15.Show;

end;

 

procedure TForm14.Button3Click(Sender: TObject);

var

    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;

    TemplateFile : String;

    sum: Double;

    BeginCol, BeginRow, tov_Row, j, MenNumRow, DogNumberRow: integer;

    RowCount, ColCount : integer;

    VExcel: Variant;

 

begin

    // Координаты левого  верхнего угла области, в которую  будем выводить данные

     BeginCol := 2;

     BeginRow := 3;

 

  // Размеры выводимого массива  данных

     RowCount := 100;

     ColCount := 50;

 

     ExcelApp := CreateOleObject('Excel.Application');

     ExcelApp.Application.EnableEvents := false;

     Workbook := ExcelApp.WorkBooks.Open(GetCurrentDir+'\Шаблоны\Опись.xls');

 

     BeginCol := 3;

     BeginRow := 1;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Date();

 

     tov_Row:=4;

 

     ADOTable3.Active:=true;

     ADOTable2.Active:=true;

 

     ADOTable3.First;

 

     while not ADOTable3.Eof do

     begin

     ADOTable2.First;

     BeginCol := 1;

     BeginRow := tov_Row;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable3.FieldByName('Группа').AsString;

 

     While not ADOTable2.Eof do

      begin

        if  ADOTable3.FieldByName('ИД_группы').AsInteger=ADOTable2.FieldByName('Группа').AsInteger then

         begin

           BeginCol := 2;

           BeginRow := tov_Row;

           Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

           Cell2 := Cell1;

           Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

           Range.Value:=ADOTable2.FieldByName('Наименование товара').AsString;

 

           BeginCol := 3;

           BeginRow := tov_Row;

           Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

           Cell2 := Cell1;

           Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

           Range.Value:=ADOTable2.FieldByName('Цена').AsFloat;

 

           if ADOTable1.Locate('Товар',ADOTable2.FieldByName('ИД товара').AsInteger,[]) then

            begin

               BeginCol := 4;

               BeginRow := tov_Row;

               Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

               Cell2 := Cell1;

               Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

               Range.Value:=ADOTable1.FieldByName('Количество').AsInteger;

 

               BeginCol := 5;

               BeginRow := tov_Row;

               Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

               Cell2 := Cell1;

               Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

               Range.Value:=ADOTable1.FieldByName('Количество').AsInteger*ADOTable2.FieldByName('Цена').AsInteger ;

 

            end

           else

            begin

              BeginCol := 4;

              BeginRow := tov_Row;

              Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

              Cell2 := Cell1;

              Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

              Range.Value:=0;

 

              BeginCol := 5;

              BeginRow := tov_Row;

              Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

              Cell2 := Cell1;

              Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

              Range.Value:=0;

            end;

           ADOTable2.Next;

           tov_Row:=tov_Row+1;

         end

        else

         begin

           ADOTable2.Next;

         end;

      end;

      ADOTable3.Next;

     end;

 

     BeginCol := 1;

     BeginRow := tov_Row+5;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:='Зав. склада';

 

     BeginCol := 1;

     BeginRow := tov_Row+6;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:='Кладовщик';

 

     ExcelApp.Visible := true;

    end;

 

procedure TForm14.Button2Click(Sender: TObject);

begin

    Form16.Show;

end;

 

procedure TForm14.FormCreate(Sender: TObject);

begin

   ADOTable1.Active:=False;

   ADOTable1.Active:=True;

   ADOTable2.Active:=False;

   ADOTable2.Active:=True;

   ADOTable3.Active:=False;

   ADOTable3.Active:=True;

end;

 

procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);

begin

   ADOTable1.Active:=False;

   ADOTable1.Active:=True;

end;

 

end.

 

unit Sklad_Unit15;

 

interface

 

uses

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

  Dialogs, StdCtrls, DBCtrls, DB, ADODB, ComObj, ExtCtrls, Grids, DBGrids;

 

type

  TForm15 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button3: TButton;

    Button4: TButton;

    Edit3: TEdit;

    Button5: TButton;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOTable2: TADOTable;

    DataSource2: TDataSource;

    ADOTable3: TADOTable;

    DataSource3: TDataSource;

    DataSource4: TDataSource;

    ADOTable4: TADOTable;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBNavigator2: TDBNavigator;

    ADOTable5: TADOTable;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure ADOTable1AfterInsert(DataSet: TDataSet);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form15: TForm15;

 

implementation

 

uses Sklad_Unit2, Sklad_Unit11;

 

{$R *.dfm}

 

procedure TForm15.Button1Click(Sender: TObject);

begin

    Form2.Show;

end;

 

procedure TForm15.Button2Click(Sender: TObject);

begin

    Form11.Show;

end;

 

procedure TForm15.Button4Click(Sender: TObject);

begin

     Form15.Close;

end;

 

procedure TForm15.Button3Click(Sender: TObject);

begin

    ADOTable1.Active:=True;

    ADOTable2.Active:=True;

    ADOTable3.Active:=True;

    ADOTable3.Edit;

    ADOTable3.FieldByName('Количество').AsInteger:=ADOTable3.FieldByName('Количество').AsInteger+StrToInt(Edit2.Text);

    ADOTable3.Post;

    ADOTable5.Active:=True;

    ADOTable5.Insert;

    ADOTable5.FieldByName('Номер накладной').AsString:=Edit1.Text;

    ADOTable5.FieldByName('Код поставщика').AsInteger:=ADOTable1.FieldByName('ИД_поставщика').AsInteger;

    ADOTable5.FieldByName('Код товара').AsInteger:=ADOTable2.FieldByName('ИД товара').AsInteger;

   ADOTable5.FieldByName('Количество').AsInteger:=StrToInt(Edit2.Text);

    ADOTable5.FieldByName('Дата').AsDateTime:=Date();

    ADOTable5.FieldByName('Основание').AsString:=Edit3.Text;

    Form15.Close;

 

end;

 

procedure TForm15.Button5Click(Sender: TObject);

var

    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;

    TemplateFile : String;

    sum: Double;

    BeginCol, BeginRow, i, j, MenNumRow, DogNumberRow: integer;

    RowCount, ColCount : integer;

    VExcel: Variant;

begin

    // Координаты левого  верхнего угла области, в которую  будем выводить данные

     BeginCol := 2;

     BeginRow := 3;

 

  // Размеры выводимого массива  данных

     RowCount := 100;

     ColCount := 50;

 

ExcelApp := CreateOleObject('Excel.Application');

     ExcelApp.Application.EnableEvents := false;

     Workbook := ExcelApp.WorkBooks.Open(GetCurrentDir+'\Шаблоны\Приходная накладная.xls');

 

     BeginCol := 2;

     BeginRow := 1;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Edit1.Text;

 

     BeginCol := 4;

     BeginRow := 1;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Date();

 

     BeginCol := 2;

     BeginRow := 4;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable1.FieldByName('Название').AsString;

 

     BeginCol := 2;

     BeginRow := 6;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Edit3.Text;

 

     BeginCol := 1;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Наименование товара').AsString;

 

     BeginCol := 2;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Edit2.Text;

 

     BeginCol := 3;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*1.2;

 

     BeginCol := 4;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*1.2*StrToInt(Edit2.Text);

 

     BeginCol := 2;

     BeginRow := 12;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*1.2*StrToInt(Edit2.Text);

 

     BeginCol := 4;

     BeginRow := 12;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*0.2*StrToInt(Edit2.Text);

 

     ExcelApp.Visible := true;

 

end;

 

 

procedure TForm15.ADOTable1AfterInsert(DataSet: TDataSet);

begin

ADOTable1.Active:=False;

ADOTable1.Refresh;

ADOTable1.Active:=True;

end;

 

end.

 

unit Sklad_Unit16;

 

interface

 

uses

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

  Dialogs, DB, ADODB, DBCtrls, StdCtrls, ComObj, ExtCtrls, Grids, DBGrids;

 

type

  TForm16 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button3: TButton;

    Button4: TButton;

    Edit3: TEdit;

    Button5: TButton;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOTable2: TADOTable;

    DataSource2: TDataSource;

    ADOTable3: TADOTable;

    DataSource3: TDataSource;

    DataSource4: TDataSource;

    ADOTable4: TADOTable;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBNavigator2: TDBNavigator;

    procedure Button5Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form16: TForm16;

 

implementation

 

uses Sklad_Unit15;

 

{$R *.dfm}

 

procedure TForm16.Button5Click(Sender: TObject);

var

    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;

    TemplateFile : String;

    sum: Double;

    BeginCol, BeginRow, i, j, MenNumRow, DogNumberRow: integer;

    RowCount, ColCount : integer;

    VExcel: Variant;

begin

    // Координаты левого  верхнего угла области, в которую  будем выводить данные

     BeginCol := 2;

     BeginRow := 3;

 

  // Размеры выводимого массива  данных

     RowCount := 100;

     ColCount := 50;

 

     ExcelApp := CreateOleObject('Excel.Application');

     ExcelApp.Application.EnableEvents := false;

     Workbook := ExcelApp.WorkBooks.Open(GetCurrentDir+'\Шаблоны\Расходная накладная.xls');

 

     BeginCol := 2;

     BeginRow := 1;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Edit1.Text;

 

     BeginCol := 4;

     BeginRow := 1;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Date();

 

     BeginCol := 2;

     BeginRow := 5;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable1.FieldByName('Название').AsString;

 

     BeginCol := 2;

     BeginRow := 6;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Edit3.Text;

 

     BeginCol := 1;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Наименование товара').AsString;

 

     BeginCol := 2;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=Edit2.Text;

 

     BeginCol := 3;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*1.2;

 

     BeginCol := 4;

     BeginRow := 9;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*1.2*StrToInt(Edit2.Text);

 

     BeginCol := 2;

     BeginRow := 12;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*1.2*StrToInt(Edit2.Text);

 

     BeginCol := 4;

     BeginRow := 12;

     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

     Cell2 := Cell1;

     Range:=Workbook.WorkSheets[1].Range[Cell1,Cell2];

     Range.Value:=ADOTable2.FieldByName('Цена').AsInteger*0.2*StrToInt(Edit2.Text);

 

     ExcelApp.Visible := true;

 

end;

 

procedure TForm16.Button3Click(Sender: TObject);

begin

 

     if  ADOTable3.FieldByName('Количество').AsInteger>=StrToInt(Edit2.Text) then

      begin

      ADOTable3.Edit;

      ADOTable3.FieldByName('Количество').AsInteger:=ADOTable3.FieldByName('Количество').AsInteger-StrToInt(Edit2.Text);

      ADOTable3.Post;

      ADOTable4.Active:=True;

      ADOTable4.Insert;

      ADOTable4.FieldByName('Номер накладной').AsString:=Edit1.Text;

      ADOTable4.FieldByName('Покупатель').AsInteger:=ADOTable1.FieldByName('ИД_покупателя').AsInteger;

      ADOTable4.FieldByName('Товар').AsInteger:=ADOTable2.FieldByName('ИД товара').AsInteger;

      ADOTable4.FieldByName('Количество').AsInteger:=StrToInt(Edit2.Text);

      ADOTable4.FieldByName('Дата').AsDateTime:=Date();

      ADOTable4.FieldByName('Основание').AsString:=Edit3.Text;

      MessageDLG('Операция "Расход" выполнена успешно',mtError,[mbOK],0);

      Form16.Close;

      end

     else

     begin

        MessageDLG('Недостаточно товара на складе. Операция не может быть выполнена',mtError,[mbOK],0);

Информация о работе Отчет по практике в ООО «Тоникс»