144
result:='';exit;
end;
val(hi,pr,er);if er<>0 then begin
result:='';
exit;
end;
hi:=sumtostrin(inttostr(pr))+'руб. ';
if lo<>'00' then begin
val(lo,pr,er);
if er<>0 then begin
result:='';
exit;
end;
lo:=inttostr(pr);
end;
lo:=lo+' коп. ';
hi[1]:=AnsiUpperCase(hi[1])[1];
result:=hi+lo;
end;
end.
unit SupListUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons, ComCtrls;
type
TfmSupplierList = class(TForm)
Panel1: TPanel;
bbtPrint: TBitBtn;
GroupBox1: TGroupBox;
chbDate1: TCheckBox;
chbDate2: TCheckBox;
dtpDate1: TDateTimePicker;
dtpDate2: TDateTimePicker;
Panel2: TPanel;
DBGrid1: TDBGrid;
Splitter2: TSplitter;
DBGrid2: TDBGrid;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bbtPrintClick(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure chbDate1Click(Sender: TObject);
procedure DBGrid2Enter(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
145
{ Private declarations }
public
{ Public declarations }
end;
var
fmSupplierList: TfmSupplierList;
implementation
uses DMUnit, ReportsUnit, ADODB, MainUnit;
{$R *.dfm}
procedure TfmSupplierList.FormShow(Sender: TObject);
begin
DM.dstSupOrders.Open;
DM.dstSupCont.Open;
dtpDate1.Date := Date;
dtpDate2.Date := Date;
chbDate1Click(Self);
end;
procedure TfmSupplierList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstSupCont.Close;
DM.dstSupOrders.Close;
end;
procedure TfmSupplierList.bbtPrintClick(Sender: TObject);
begin
Rep_Any(DBGrid2, 3, Self.Caption);
end;
//Сортировка данных в таблице по выбранному столбцу:
procedure TfmSupplierList.DBGrid1TitleClick(Column: TColumn);
begin
try
(DBGrid1.DataSource.DataSet as TADODataset).Sort := Column.FieldName;
except
Application.MessageBox('Сортировка по данному полю невозможна',
'Информация', MB_OK+MB_ICONINFORMATION)
end;
end;
procedure TfmSupplierList.chbDate1Click(Sender: TObject);
var
Filter: string;
begin
Filter := '';
if chbDate1.Checked then
begin
146
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'Дата >= ' + QuotedStr(DateToStr(dtpDate1.Date));
end;
if chbDate2.Checked then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'Дата <= ' + QuotedStr(DateToStr(dtpDate2.Date));
end;
if Filter <> '' then
begin
DM.dstSupOrders.Filter := Filter;
DM.dstSupOrders.Filtered := True;
end
else
DM.dstSupOrders.Filtered := False;
end;
//Подключение Навигатора к источнику данных, с которым в текущий момент
работает
//пользователь:
procedure TfmSupplierList.DBGrid2Enter(Sender: TObject);
begin
DBNavigator1.DataSource := (Sender As TDBGrid).DataSource;
end;
procedure TfmSupplierList.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.