Материал: Автоматизация учёта выпуска готовой продукции ООО «КорпусМастер»

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

107

ADOQuery1: TADOQuery;

DBEdit1: TDBEdit;

DBComboBox1: TDBComboBox;

DBComboBox2: TDBComboBox;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DataSource1: TDataSource;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

ADOTable1id_cart: TIntegerField;

ADOTable1cex_cart: TStringField;

ADOTable1sklad_cart: TStringField;

ADOTable1kolvo_cart: TIntegerField;

ADOTable1edizmer_cart: TStringField;

ADOTable1name_cart: TStringField;

ADOTable1idn_cart: TIntegerField;

ADOTable1summ_cart: TBCDField;

Button1: TButton;

Button3: TButton;

Button2: TButton;

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

108

{ Private declarations }

public

{ Public declarations }

end;

var

Form27: TForm27;

implementation

{$R *.dfm}

uses Unit2, Unit1, Unit9;

procedure TForm27.Button1Click(Sender: TObject);

begin

if Form27.ADOTable1.Modified then Form27.AdoTable1.Post;

end;

procedure TForm27.Button2Click(Sender: TObject);

begin

Form27.ADOTable1.Cancel;

end;

procedure TForm27.Button3Click(Sender: TObject);

begin

if ADOTable1.IsEmpty then

begin

ShowMessage('Таблица пустая')

end

else if

MessageBox(Handle, 'Вы действительно хотите удалить запись?', 'Запрос на

удаление',(MB_YESNO+MB_ICONQUESTION))=idYes then

begin

ADOTable1.Delete;

end;

109

procedure TForm27.N1Click(Sender: TObject);

begin

if Form27.CloseQuery then Form27.Close;

end;

procedure TForm27.N2Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm27.N3Click(Sender: TObject);

begin

Form27.Close;

Form1.Show;

end;

procedure TForm27.N4Click(Sender: TObject);

begin

xl:=CreateOLEObject('Excel.Application'); xl.Visible:=true; //объект видимый

EXcel

xl.Workbooks.Add;

xl.Workbooks[1].WorkSheets[1].Name:='Карточка учета';

Colum:=xl.Workbooks[1].WorkSheets['Карточка учета'].Columns;

Colum.Columns[2].ColumnWidth:=30;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum:=xl.Workbooks[1].WorkSheets['Карточка учета'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlack

Colum.Rows[1].Font.Size:=14;

110

Sheet:=xl.Workbooks[1].WorkSheets['Карточка учета'];

Sheet.Cells[1,2]:='Карточка учета ГП';

Sheet.Cells[2,1]:='Код';

Sheet.Cells[2,2]:='Цех';

Sheet.Cells[2,3]:='Склад';

Sheet.Cells[2,4]:='Наименование';

Sheet.Cells[2,5]:='Количество';

Sheet.Cells[2,6]:='Единица измерения';

Sheet.Cells[2,7]:='Себестоимость';

Adotable1.First;

index:=3;

for i:=0 to Adotable1.RecordCount do begin

sheet.Cells[index,1]:=Adotable1.Fields.Fields[1].AsString;

sheet.Cells[index,2]:=Adotable1.Fields.Fields[2].AsString;

sheet.Cells[index,3]:=Adotable1.Fields.Fields[3].AsString;

sheet.Cells[index,4]:=Adotable1.Fields.Fields[4].AsString;

sheet.Cells[index,5]:=Adotable1.Fields.Fields[5].AsString;

sheet.Cells[index,6]:=Adotable1.Fields.Fields[6].AsString;

sheet.Cells[index,7]:=Adotable1.Fields.Fields[7].AsString;

Inc(index);

Adotable1.Next; end;

end;

end.

Приложение 2: исходный код «Отчет производства за смену»:

unit Unit8;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, frxClass, frxPreview, frxDBSet, Data.DB,

111

Data.Win.ADODB, frxExportPDF, Vcl.Menus;

type

TForm8 = class(TForm)

frxDBDataset1: TfrxDBDataset;

frxReport1: TfrxReport;

frxPreview1: TfrxPreview;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

Otchetproizvodctva: TDataSource;

frxDBDataset2: TfrxDBDataset;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

frxPDFExport1: TfrxPDFExport;

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

{$R *.dfm}

uses Unit1, Unit2, Unit3, Unit5, Unit6, Unit7;

procedure TForm8.N1Click(Sender: TObject);

begin

Form8.frxReport1.ShowReport();

Form8.frxReport1.Export(Form8.frxPDFExport1);

Источник: https://baza.diplomsite.ru/previewfile/733

Смотрите также:




17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы