131
end;
tbContracts.Filtered := False;
if Dolg > 0 then
begin
'', MB_OK+MB_ICONINFORMATION);
DataSet.Locate('ID', OrgID, []);
Abort;
end;
DataSet.Locate('ID', OrgID, []);
end
else
Abort;
end;
end.
// :
procedure TfmMain.acOperNewContrExecute(Sender: TObject);
begin
DM.ADOConnection1.BeginTrans;
DM.tbContracts.Insert;
DM.tbContracts.FieldByName('').AsCurrency := 0;
DM.tbContracts.FieldByName('').AsBoolean := True;
DM.tbContracts.Post;
fmNewContract.ShowModal;
end;
132
procedure TfmMain.acOperPayExecute(Sender: TObject);
begin
fmNewPay.ShowModal;
end;
procedure TfmMain.acOperCloseContrExecute(Sender: TObject);
begin
fmContract.ShowModal
end;
// :
procedure TfmMain.acAnalyseByTypesExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
begin
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM, fmDiagram do begin
qrSquareByTypes.Close;
qrSquareByTypes.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrSquareByTypes.Parameters.ParamByName('pDateTo').DataType := ftDate;
qrSquareByTypes.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrSquareByTypes.Parameters.ParamByName('pDateTo').Value := DateTo;
qrSquareByTypes.Open;
-
133
Chart1.Series[0].Clear;
qrSquareByTypes.First;
while not qrSquareByTypes.Eof do begin
Chart1.Series[0].Add(qrSquareByTypes.FieldByName('Sum').AsCurrency,
qrSquareByTypes.FieldByName('').AsString);
qrSquareByTypes.Next;
end;
Chart1.Title.Text[0] :
DateToStr(DateFrom) + ' ' + DateToStr(DateTo) + ', 2';
ShowModal;
end;
end;
-
procedure TfmMain.acAnalyseTop5OrgExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
i: Byte;
begin
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM, fmDiagram do begin
qrTop5Org.Close;
qrTop5Org.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrTop5Org.Parameters.ParamByName('pDateTo').DataType := ftDate;
qrTop5Org.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrTop5Org.Parameters.ParamByName('pDateTo').Value := DateTo;
qrTop5Org.Open;
134
-
Chart1.Series[0].Clear;
qrTop5Org.First;
for i:=1 to 5 do begin
Chart1.Series[0].Add(qrTop5Org.FieldByName('CountContr').AsCurrency,
qrTop5Org.FieldByName('').AsString);
qrTop5Org.Next;
if qrTop5Org.Eof then Break;
end;
-
DateToStr(DateFrom) + ' ' + DateToStr(DateTo);
ShowModal;
end;
end;
-
procedure TfmMain.acAnalyseTop5ContrExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
i: Byte;
begin
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM, fmDiagram do begin
qrTop5Contr.Close;
qrTop5Contr.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrTop5Contr.Parameters.ParamByName('pDateTo').DataType := ftDate;
135
qrTop5Contr.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrTop5Contr.Parameters.ParamByName('pDateTo').Value := DateTo;
qrTop5Contr.Open;
-
Chart1.Series[0].Clear;
qrTop5Contr.First;
for i:=1 to 5 do begin
Chart1.Series[0].Add(qrTop5Contr.FieldByName('').AsCurrency,
FormatFloat('00000', qrTop5Contr.FieldByName('ID').AsFloat) +
' - ' + qrTop5Contr.FieldByName('').AsString);
qrTop5Contr.Next;
if qrTop5Contr.Eof then Break;
end;
Chart1.T-
DateToStr(DateFrom) + ' ' + DateToStr(DateTo);
ShowModal;
end;
end;
procedure TfmMain.acAnalyseYieldExecute(Sender: TObject);
var DateFrom, DateTo: TDateTime;
Excel: Variant;
WorkbookName: string;
i, PosInc: Integer;
Sum: Currency;
begin
136
if fmDiapason.GetDiapason(DateFrom, DateTo) then
with DM do begin
qrYield.Close;
qrYield.Parameters.ParamByName('pDateFrom').DataType := ftDate;
qrYield.Parameters.ParamByName('pDateTo').DataType := ftDate;
qrYield.Parameters.ParamByName('pDateFrom').Value := DateFrom;
qrYield.Parameters.ParamByName('pDateTo').Value := DateTo;
qrYield.Open;
WorkbookName := GetCurrentDir + '\\
Excel := CreateOleObject('Excel.Application');
try
Excel.Workbooks.Open(WorkbookName);
Excel.Cells[3,6] := DateFrom;
Excel.Cells[3,9] := DateTo;
with DM do begin
qrYield.First;
PosInc := 6;
Sum := 0;
for i:=PosInc to qrYield.RecordCount+PosInc-1 do begin
// :
if i < qrYield.RecordCount+PosInc-1 then begin
Excel.Rows.Item[i+1].Select;
Excel.Selection.Insert;
137
Excel.Rows.Item[i].Select;
Excel.Selection.Copy;
Excel.Rows.Item[i+1].Select;
Excel.ActiveSheet.Paste;
Excel.Application.CutCopyMode := False;
end;
// :
Excel.Cells[i,1] := qrYield.FieldByName('').AsString;
Excel.Cells[i,5] := FormatFloat('00000', qrYield.FieldByName('ID').AsFloat);
Excel.Cells[i,6] := qrYield.FieldByName('').AsString;
Excel.Cells[i,10] := qrYield.FieldByName('').AsString;
Sum := Sum + qrYield.FieldByName('').AsCurrency;
qrYield.Next;
end; //for
if i>0 then
Excel.Cells[i,10] := Sum;
end; //with
Excel.Visible := True;
except
Excel.Quit;
end;
end;
end;
procedure TfmMain.acSpravOurOrgExecute(Sender: TObject);
begin
fmOurOrg.ShowModal;
end;
138
end.