117
Label7: TLabel;
dbedSum: TDBEdit;
Label8: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label9: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label10: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton3: TRadioButton;
RadioButton2: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
bbtGo: TBitBtn;
bbtCalc: TBitBtn;
DBNavigator2: TDBNavigator;
BitBtn1: TBitBtn;
Label4: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
bbtSelectClient: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bbtCalcClick(Sender: TObject);
procedure DBGrid2Enter(Sender: TObject);
procedure bbtGoClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure bbtSelectClientClick(Sender: TObject);
118
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmOrder: TfmOrder;
implementation
uses DMUnit, ReportsUnit, DB, ClientUnit;
{$R *.dfm}
procedure TfmOrder.FormShow(Sender: TObject);
begin
DM.dstJobs.Open;
DM.dstMat.Open;
DM.tbPrice.Sort := 'Работа';
DM.tbStore.Sort := 'Наименование';
end;
procedure TfmOrder.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstJobs.Close;
DM.dstMat.Close;
end;
//Пересчет итоговой суммы по заказу с учетом скидки:
procedure TfmOrder.bbtCalcClick(Sender: TObject);
var
Sum1, Sum2: Currency;
begin
DM.dstOrderJobSum.Parameters.ParamByName('pOrderNum').Value :=
DM.dstOrders.FieldByName('NЗаказа').Value;
DM.dstOrderMatSum.Parameters.ParamByName('pOrderNum').Value :=
DM.dstOrders.FieldByName('NЗаказа').Value;
119
DM.dstOrderJobSum.Open; //Запрос суммы работ
DM.dstOrderMatSum.Open; //Запрос суммы материалов
try
if not DM.dstOrderJobSum.FieldByName('Sum1').IsNull then
Sum1 := DM.dstOrderJobSum.FieldByName('Sum1').Value
else
Sum1 := 0;
if not DM.dstOrderMatSum.FieldByName('Sum1').IsNull then
Sum2 := DM.dstOrderMatSum.FieldByName('Sum1').Value
else
Sum2 := 0;
DM.dstOrders.Edit;
DM.dstOrders.FieldByName('Сумма').Value := Sum1 + Sum2;
DM.dstOrders.Post;
finally
DM.dstOrderJobSum.Close;
DM.dstOrderMatSum.Close;
end;
end;
//Подключение Навигатора к источнику данных, с которым в текущий
момент работает
//пользователь:
procedure TfmOrder.DBGrid2Enter(Sender: TObject);
begin
DBNavigator2.DataSource := (Sender As TDBGrid).DataSource;
//Сохранение нового заказа перед добавлением работ или запчастей по
нему:
if DM.dstOrders.State = dsInsert then
DM.dstOrders.Post;
end;
//Печать выбранного документа:
120
procedure TfmOrder.bbtGoClick(Sender: TObject);
begin
if RadioButton1.Checked then
begin
Rep_Contract;
Rep_Order;
end
else if RadioButton2.Checked then
Rep_Bill
else if RadioButton3.Checked then
Rep_Act
else if RadioButton4.Checked then
Rep_Fact
else
begin
Rep_Contract;
Rep_Order;
Rep_Act;
Rep_Bill;
Rep_Fact;
end;
end;
procedure TfmOrder.BitBtn1Click(Sender: TObject);
begin
Close;
end;
//При нажатии кнопки «...» на экран выводится справочник клиентов для
выбора и добавления из списка:
procedure TfmOrder.bbtSelectClientClick(Sender: TObject);
begin
fmClients.bbtGo.Visible := True;
121
if fmClients.ShowModal = mrOK then
begin
if not (DM.dstOrders.State in [dsEdit, dsInsert]) then
DM.dstOrders.Edit;
DM.dstOrders.FieldByName('КлиентID').AsInteger :=
DM.tbClients.FieldByName('ID').AsInteger;
end;
fmClients.bbtGo.Visible := False;
end;
end.
Программный модуль PostUnit.pas
unit PostUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;
type
TfmPost = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
122
end;
var
fmPost: TfmPost;
implementation
uses DMUnit;
{$R *.dfm}
procedure TfmPost.FormShow(Sender: TObject);
begin
DM.tbSpec.Open;
end;
procedure TfmPost.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.tbSpec.Close;
end;
procedure TfmPost.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.
