Облік прибутку на виробничому підприємстві

DataSource1.DataSet:=IBDataSet1;

end; 

procedure TPruh_order.DateTimePicker1Change(Sender: TObject);

begin

IBDataSet1.Filtered:=false;

IBDataSet1.Filtered:=True;

end; 

end. 

unit add_order; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DBGridEh, StdCtrls, ComCtrls, ExtCtrls, Grids, DBGrids, DB,

  IBCustomDataSet; 

type

  Tadd_pruh_order = class(TForm)

    IBDataSet1: TIBDataSet;

    DataSource1: TDataSource;

    IBDataSet2: TIBDataSet;

    IBDataSet3: TIBDataSet;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    Label1: TLabel;

    Panel1: TPanel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    DateTimePicker1: TDateTimePicker;

    Button2: TButton;

    Button3: TButton;

    DBGridEh1: TDBGridEh;

    Label5: TLabel;

    IBDataSet1KOD: TIntegerField;

    IBDataSet1NOMER_ORDERA: TIntegerField;

    IBDataSet1DATA_SOSTAV: TDateField;

    IBDataSet1KREDIT: TIntegerField;

    IBDataSet1SUMMA: TIBBCDField;

    IBDataSet1PRINATO_OT: TIBStringField;

    IBDataSet1OSNOVANIE: TIBStringField;

    IBDataSet3KOD: TIntegerField;

    IBDataSet3NAZVA: TIBStringField;

    IBDataSet3SCHET_PLAT: TIBStringField;

    IBDataSet3BIK_BANKA: TIBStringField;

    IBDataSet3KORR_SCHET: TIBStringField;

    IBDataSet2KOD_OP: TIntegerField;

    IBDataSet2RAH_PO_KREDITY: TIntegerField;

    IBDataSet2NAIMEN_OPERAC: TIBStringField;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  add_pruh_order: Tadd_pruh_order; 

implementation 

{$R *.dfm}

uses MainForm,Order; 

procedure Tadd_pruh_order.Button2Click(Sender: TObject);

begin

IBDataSet1.Active:=true;

IBDataSet1.Insert;

IBDataSet1NOMER_ORDERA.Value:=StrToInt(Edit1.Text);

IBDataSet1DATA_SOSTAV.Value:=DateTimePicker1.DateTime;

IBDataSet1KREDIT.Value:=IBDataSet2RAH_PO_KREDITY.Value;

IBDataSet1SUMMA.Value:=0;

IBDataSet1PRINATO_OT.Value:=IBDataSet3NAZVA.Value;

IBDataSet1OSNOVANIE.Value:='<null>';

end; 

procedure Tadd_pruh_order.Button3Click(Sender: TObject);

begin

IBDataSet1.Active:=True;

if(IBDataSet1.Fields[1].Value=null) then

ShowMessage('Введіть №  ордера!') else

if(IBDataSet1.Fields[2].Value=null) then

ShowMessage('Введіть дату!') else

if(IBDataSet1.Fields[3].Value=null) then

ShowMessage('Введіть корр.рахунок!') else

if(IBDataSet1.Fields[4].Value=null) then

ShowMessage('Введіть суму!') else

if(IBDataSet1.Fields[5].Value=null) then

ShowMessage('Заповніть  поле "Прийнято від"!') else

if(IBDataSet1.Fields[6].Value=null) then

ShowMessage('Введіть підставу!') else

begin

IBDataSet1.ApplyUpdates;

Edit1.Text:='0';

end;

end; 

procedure Tadd_pruh_order.FormCreate(Sender: TObject);

begin

IBDataSet1.Close;

IBDataSet1.Open;

IBDataSet2.Close;

IBDataSet2.Open;

IBDataSet3.Close;

IBDataSet3.Open;

DateTimePicker1.DateTime:=now;

end; 

procedure Tadd_pruh_order.FormClose(Sender: TObject;

  var Action: TCloseAction);

begin

Pruh_order.IBDataSet1.Close;

Pruh_order.IBDataSet1.Open;

Pruh_order.DBGridEh1.Refresh;

Edit1.Text:='';

end; 

end. 

unit Oblik; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, DB, IBCustomDataSet, IBQuery, Grids,

  DBGridEh, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart; 

type

  TOblik_prub = class(TForm)

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Button1: TButton;

    DBGridEh1: TDBGridEh;

    Label4: TLabel;

    IBQuery1: TIBQuery;

    DataSource1: TDataSource;

    DBGridEh2: TDBGridEh;

    Label5: TLabel;

    DataSource2: TDataSource;

    IBQuery2: TIBQuery;

    DBChart1: TDBChart;

    Series1: TPieSeries;

    DBChart2: TDBChart;

    Series2: TPieSeries;

    Label6: TLabel;

    Edit1: TEdit;

    Label7: TLabel;

    IBQuery1PLATNUK: TIBStringField;

    IBQuery1SUM: TIBBCDField;

    IBQuery3: TIBQuery;

    IBQuery3SUM: TIBBCDField;

    IBQuery4: TIBQuery;

    IBQuery4SUM: TIBBCDField;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Oblik_prub: TOblik_prub; 

implementation 

{$R *.dfm}

uses MainForm; 

procedure TOblik_prub.FormCreate(Sender: TObject);

begin

DateTimePicker1.DateTime:=now;

DateTimePicker2.DateTime:=now;

end; 

procedure TOblik_prub.Button1Click(Sender: TObject);

begin

ibquery1.SQL.Clear;

ibquery1.SQL.add('select platnuk,sum(kredit) from oblik_po_vup where (data>='''+datetostr(DateTimePicker1.date)+''')and(data <='''+datetostr(DateTimePicker2.date)+''')group by platnuk');

ibquery1.Open; 

IBQuery2.SQL.Clear;

IBQuery2.SQL.add('select platnuk,sum(summa) from oblik_po_ord where (data_sost>='''+datetostr(DateTimePicker1.date)+''')and(data_sost <='''+datetostr(DateTimePicker2.date)+''')group by platnuk');

IBQuery2.Open; 

ibquery3.SQL.Clear;

ibquery3.SQL.add('select sum(kredit) from oblik_po_vup where (data>='''+datetostr(DateTimePicker1.date)+''')and(data <='''+datetostr(DateTimePicker2.date)+''')');

ibquery3.Open; 

IBQuery4.SQL.Clear;

IBQuery4.SQL.add('select sum(summa) from oblik_po_ord where (data_sost>='''+datetostr(DateTimePicker1.date)+''')and(data_sost <='''+datetostr(DateTimePicker2.date)+''')');

IBQuery4.Open; 

if ((IBQuery1.RecordCount=0)and(IBQuery2.RecordCount=0))then

Edit1.Text:='0' else

if ((IBQuery1.RecordCount<>0)and(IBQuery2.RecordCount=0))then

Edit1.Text:=IBQuery3SUM.AsString else

if ((IBQuery1.RecordCount=0)and(IBQuery2.RecordCount<>0))then

Edit1.Text:=IBQuery4SUM.AsString else

Edit1.Text:=IntToStr((StrToInt(IBQuery3SUM.AsString))+(StrToInt(IBQuery4SUM.AsString)));

end; 

end.