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;
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);
112
end;
procedure TForm8.N2Click(Sender: TObject);
begin
Form8.frxReport1.ShowReport();
Form8.frxReport1.Print;
end;
end.
Приложение 3: Форма справочника «номенклатура» (представлен как
пример работы справочников в системе):
unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.Menus, Vcl.StdCtrls, Vcl.Imaging.jpeg, Vcl.ExtCtrls,
Vcl.Mask, Vcl.DBCtrls, Vcl.Imaging.pngimage;
type
TForm2 = class(TForm)
MainMenu1: TMainMenu;
N2: TMenuItem;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
113
Panel1: TPanel;
Image1: TImage;
Button2: TButton;
Button3: TButton;
Panel3: TPanel;
Button1: TButton;
N8: TMenuItem;
Panel2: TPanel;
Label1: TLabel;
Edit1: TEdit;
Button4: TButton;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
ADOTable1id: TIntegerField;
ADOTable1name: TStringField;
ADOTable1kolvo: TIntegerField;
ADOTable1summ1: TBCDField;
ADOTable1date_sklad: TWideStringField;
procedure N3Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ДобавитьClick(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
114
procedure N13Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
uses Unit1, Unit4, Unit3, Unit8, Unit9, Unit12, Unit5, Unit6, Unit25, Unit7,
Unit26, Unit27;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form12.Show;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.ADOTable1.Append;
Form4.Show;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if ADOTable1.IsEmpty then
begin
ShowMessage('Таблица пустая')
end
115
else if
MessageBox(Handle, 'Вы действительно хотите удалить запись?', 'Запрос на
удаление',(MB_YESNO+MB_ICONQUESTION))=idYes then
begin
ADOTable1.Delete;
end;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
if not ADOTable1.Locate('Наименование', Edit1.Text, []) then
ShowMessage('Запись не найдена');
end;
procedure TForm2.N10Click(Sender: TObject);
begin
Form8.Show;
end;
procedure TForm2.N12Click(Sender: TObject);
begin
Form25.Show;
Form2.Close;
end;
procedure TForm2.N13Click(Sender: TObject);
begin
end;
procedure TForm2.N1Click(Sender: TObject);
begin
if Form1.CloseQuery then Form1.Close;
end;
procedure TForm2.N3Click(Sender: TObject);
begin
116
Form1.Show;
Form2.Close;
end;
procedure TForm2.N6Click(Sender: TObject);
begin
Form3.Show;
Form2.Close;
end;
procedure TForm2.N7Click(Sender: TObject);
begin
Form5.Show;
Form2.Close;
end;
procedure TForm2.N8Click(Sender: TObject);
begin
Form6.Show;
Form2.Close;
end;
procedure TForm2.N9Click(Sender: TObject);
begin
end;
procedure TForm2.ДобавитьClick(Sender: TObject);
begin
Form4.Show;
Form2.Hide;
end;
end.
Приложение 4: исходный код «Списание готовой продукции»:
unit Unit7;
interface