117
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
Data.Win.ADODB, Vcl.Menus, Vcl.StdCtrls, Vcl.Imaging.pngimage,
Vcl.ExtCtrls,
Vcl.DBCtrls, Vcl.Mask, Vcl.ComCtrls, ComObj;
Var xl,Data,WorkSheets,sheet,Colum: Variant;
index,i, j,k: integer;
type
TForm7 = class(TForm)
MainMenu1: TMainMenu;
N3: TMenuItem;
N2: TMenuItem;
N1: TMenuItem;
ADOQuery1: TADOQuery;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
DBComboBox1: TDBComboBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DateTimePicker1: TDateTimePicker;
Button1: TButton;
Button2: TButton;
ADOTable1: TADOTable;
118
DataSource1: TDataSource;
ADOTable1name_spic: TStringField;
ADOTable1prich_spic: TStringField;
ADOTable1date_spic: TWideStringField;
ADOTable1id_spic2: TIntegerField;
N4: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
uses Unit1, Unit17, Unit18, Unit2, Unit9;
procedure TForm7.Button1Click(Sender: TObject);
begin
if Form7.ADOTable1.Modified then Form7.AdoTable1.Post;
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
119
Form7.ADOTable1.Cancel;
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
Form1.Show;
Form7.Close;
end;
procedure TForm7.FormShow (Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT DISTINCT Name FROM Form.2');
ADOQuery1.Open;
dbComboBox1.Items.Clear;
While not ADOQuery1.Eof do
begin
dbComboBox1.Items.Add(ADOQuery1.Fields[0].AsString);
ADOQuery1.Next;
end;
end;
procedure TForm7.N1Click(Sender: TObject);
begin
if Form7.CloseQuery then Form7.Close;
end;
procedure TForm7.N2Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm7.N3Click(Sender: TObject);
begin
120
Form1.Show;
Form7.Hide;
end;
procedure TForm7.N4Click(Sender: TObject);
begin
xl:=CreateOLEObject('Excel.Application');
xl.Visible:=true;
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;
Sheet:=xl.Workbooks[1].WorkSheets['Списанная продукция'];
Sheet.Cells[1,2]:='Списанная продукция';
Sheet.Cells[2,1]:='Наименование';
Sheet.Cells[2,2]:='Причина';
Sheet.Cells[2,3]:='Дата списания';
Form7.ADOTable1.First;
index:=3;
for i:=0 to Form7.ADOTable1.RecordCount do begin
sheet.Cells[index,1]:=Form7.ADOTable1.Fields.Fields[1].AsString;sheet.Cells[ind
ex,2]:=Form7.ADOTable1.Fields.Fields[2].AsString;
121
sheet.Cells[index,3]:=Form7.ADOTable1.Fields.Fields[3].AsString;
Inc(index);
Form7.ADOTable1.Next; //Переход на следующую строку
end;
end;
end.