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

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

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

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

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

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

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

     end;

 

 

end;

 

end.

 

unit Sklad_Unit17;

 

interface

 

uses

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

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

 

type

  TForm17 = class(TForm)

    ADOTable2: TADOTable;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DBLookupComboBox1: TDBLookupComboBox;

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    ADOTable1: TADOTable;

    DBGrid1: TDBGrid;

    ADOTable3: TADOTable;

    DataSource3: TDataSource;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form17: TForm17;

 

implementation

 

uses Sklad_Unit19;

 

{$R *.dfm}

 

procedure TForm17.Button2Click(Sender: TObject);

begin

    Form19.DateTimePicker1.Date:=Date();

    Form19.Show;

end;

 

procedure TForm17.Button1Click(Sender: TObject);

begin

    ADOTable1.Active:=True;

    ADOTable1.Edit;

    ADOTable1.FieldByName('Выдан').AsInteger:=1;

    ADOTable1.Post;

end;

 

procedure TForm17.Button3Click(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:=ADOTable1.FieldByName('Номер счета').AsString;

 

     BeginCol := 4;

     BeginRow := 1;

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

     Cell2 := Cell1;

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

     Range.Value:=ADOTable1.FieldByName('Дата').AsString;

 

     BeginCol := 2;

     BeginRow := 5;

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

     Cell2 := Cell1;

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

     Range.Value:=DBLookupComboBox1.Text;

 

     ADOTable3.Active:=True;

     ADOTable3.Locate('ИД товара',ADOTable1.FieldByName('Товар_код').AsInteger,[]);

     BeginCol := 1;

     BeginRow := 9;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 2;

     BeginRow := 9;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 3;

     BeginRow := 9;

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

     Cell2 := Cell1;

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

     Range.Value:=ADOTable3.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:=ADOTable3.FieldByName('Цена').AsInteger*1.2*ADOTable1.FieldByName('Количество').AsInteger;

 

     BeginCol := 2;

     BeginRow := 12;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 4;

     BeginRow := 12;

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

     Cell2 := Cell1;

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

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

 

     ExcelApp.Visible := true;

 

end;

 

procedure TForm17.Button4Click(Sender: TObject);

Var R:Word;

begin

R:=MessageDLG('Оплата произведена?',mtConfirmation,[mbYes,mbNo,mbCancel],0);

if R=mrYes then

   begin

    ADOTable1.Active:=True;

    ADOTable1.Edit;

    ADOTable1.FieldByName('Оплачен').AsInteger:=1;

    ADOTable1.Post;

   end;

 

end;

 

procedure TForm17.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 := 1;

     BeginRow := 8;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 10;

     BeginRow := 9;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 6;

     BeginRow := 11;

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

     Cell2 := Cell1;

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

     Range.Value:=ADOTable1.FieldByName('Номер счета').AsString;

 

     BeginCol := 6;

     BeginRow := 12;

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

     Cell2 := Cell1;

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

     Range.Value:=ADOTable1.FieldByName('Дата').AsString;

 

     ADOTable3.Active:=True;

     ADOTable3.Locate('ИД товара',ADOTable1.FieldByName('Товар_код').AsInteger,[]);

 

     BeginCol := 3;

     BeginRow := 22;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 12;

     BeginRow := 14;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 3;

     BeginRow := 23;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 12;

     BeginRow := 15;

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

     Cell2 := Cell1;

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

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

 

     BeginCol := 5;

     BeginRow := 11;

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

     Cell2 := Cell1;

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

     Range.Value:=ADOTable1.FieldByName('ИД счета').AsInteger;

 

     BeginCol := 13;

     BeginRow := 6;

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

     Cell2 := Cell1;

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

     Range.Value:=ADOTable1.FieldByName('ИД счета').AsInteger;

 

    

     ExcelApp.Visible := true;

 

end;

 

end.

 

 

 

 


 



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