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

   DBGrid1.ReadOnly:=false;

   end;

end; 

procedure TKorr_rah.Button3Click(Sender: TObject);

begin

DBGrid1.ReadOnly:=false;

end; 

procedure TKorr_rah.Button4Click(Sender: TObject);

begin

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

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

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

ShowMessage('Введіть найменування  операції!') else

begin

IBDataSet1.ApplyUpdates;

DBGrid1.ReadOnly:=true;

end;

end; 

procedure TKorr_rah.Button5Click(Sender: TObject);

begin

if (IBDataSet1.RecordCount<>0) then

IBDataSet1.Locate('rah_po_kredity',edit1.Text,[locaseinsensitive,lopartialkey]);

Edit1.Text:='Введіть кореспондуючий  рахунок';

end; 

procedure TKorr_rah.Edit1Click(Sender: TObject);

begin

Edit1.Text:='';

end; 

procedure TKorr_rah.FormCreate(Sender: TObject);

begin

IBDataSet1.Close;

IBDataSet1.Open;

IBDataSet1.Active:=true;

end; 

end. 

unit Vupuska; 

interface 

uses

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

  Dialogs, DBGridEh, Grids, DBGrids, DB, IBCustomDataSet, StdCtrls,

  FR_DSet, FR_DBSet, FR_Class, ExtCtrls; 

type

  TVupiska = class(TForm)

    IBDataSet1: TIBDataSet;

    IBDataSet2: TIBDataSet;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DBGrid1: TDBGrid;

    DBGridEh1: TDBGridEh;

    IBDataSet2KOD: TIntegerField;

    IBDataSet2KOD_VUPISKI: TIntegerField;

    IBDataSet2DATA_PROVODKI: TDateField;

    IBDataSet2VO: TIntegerField;

    IBDataSet2NOMER_BANKA: TIntegerField;

    IBDataSet2NOMER_KLIENTA: TIntegerField;

    IBDataSet2SCHET_PLAT: TIBStringField;

    IBDataSet2BIK_BANKA: TIBStringField;

    IBDataSet2KORR_SCHET: TIBStringField;

    IBDataSet2KREDIT: TIBBCDField;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    IBDataSet1KOD: TIntegerField;

    IBDataSet1NOMER: TIntegerField;

    IBDataSet1DATA: TDateField;

    Button4: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button5: TButton;

    frReport1: TfrReport;

    frDBDataSet1: TfrDBDataSet;

    frDBDataSet2: TfrDBDataSet;

    Panel1: TPanel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    Edit1: TEdit;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure IBDataSet1FilterRecord(DataSet: TDataSet;

      var Accept: Boolean);

    procedure Button7Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Vupiska: TVupiska; 

implementation 

{$R *.dfm}

uses MainForm,Add_dvig; 

procedure TVupiska.Button1Click(Sender: TObject);

begin

add_vup.ShowModal;

end; 

procedure TVupiska.Button2Click(Sender: TObject);

begin

DBGridEh1.ReadOnly:=false;

end; 

procedure TVupiska.Button4Click(Sender: TObject);

begin

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

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

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

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

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

ShowMessage('Введіть №  док.банка!') else

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

ShowMessage('Введіть №  док.клієнта!') else

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

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

if(IBDataSet2.Fields[7].Value=null) then

ShowMessage('Введіть БІК  банка!') else

if(IBDataSet2.Fields[8].Value=null) then

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

if(IBDataSet2.Fields[9].Value=null) then

ShowMessage('Введіть кредит!') else

begin

IBDataSet2.ApplyUpdates;

DBGridEh1.ReadOnly:=true;

end;

end; 

procedure TVupiska.FormCreate(Sender: TObject);

begin

IBDataSet1.Close;

IBDataSet1.Open;

IBDataSet2.Close;

IBDataSet2.Open;

end; 

procedure TVupiska.Button3Click(Sender: TObject);

var

str:string;

begin

str:='Вы действительно  хотите удалить движение по  счету с № док.банка '+IBDataSet2NOMER_BANKA.AsString+' и № док. клиента '+IBDataSet2NOMER_KLIENTA.AsString+' ?';

if (application.MessageBox(pchar(str), 'Подтверждение удаления',mb_yesno)=mryes) then

   begin

   IBDataSet2.Delete;

   DBGridEh1.ReadOnly:=false;

   end;

end; 

procedure TVupiska.Button5Click(Sender: TObject);

begin

frReport1.ShowReport;

end; 

procedure TVupiska.IBDataSet1FilterRecord(DataSet: TDataSet;

  var Accept: Boolean);

begin

if RadioButton1.Checked then

begin

accept:=DataSet['VO']=Edit1.Text;

end;

if RadioButton2.Checked then

begin

accept:=DataSet['nomer_banka']=Edit1.Text;

end;

if RadioButton3.Checked then

begin

accept:=DataSet['nomer_klienta']=Edit1.Text;

end;

end; 

procedure TVupiska.Button7Click(Sender: TObject);

begin

IBDataSet2.Filtered:=False;

IBDataSet2.FilterOptions:=[foCaseInsensitive,foNoPartialCompare];

IBDataSet2.Filtered:=true;

end; 

procedure TVupiska.Button6Click(Sender: TObject);

begin

IBDataSet2.Active:=true;

IBDataSet2.Filtered:=false;

DataSource2.DataSet:=IBDataSet2;

Edit1.Clear;

end; 

procedure TVupiska.Button8Click(Sender: TObject);

var

str:string;

begin

str:='Вы действительно  хотите удалить выписку № '+IBDataSet1NOMER.AsString+'?';

if (application.MessageBox(pchar(str), 'Подтверждение удаления',mb_yesno)=mryes) then

   begin

   IBDataSet1.Delete;

   end;

end; 

end. 

unit Add_dvig; 

interface 

uses

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

  Dialogs, DB, IBCustomDataSet, ComCtrls, StdCtrls, Grids, DBGrids,

  DBGridEh, ExtCtrls; 

type

  Tadd_vup = class(TForm)

    IBDataSet1: TIBDataSet;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    IBDataSet1KOD: TIntegerField;

    IBDataSet1NAZVA: TIBStringField;

    IBDataSet1SCHET_PLAT: TIBStringField;

    IBDataSet1BIK_BANKA: TIBStringField;

    IBDataSet1KORR_SCHET: TIBStringField;

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    DateTimePicker1: TDateTimePicker;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    DBGridEh2: TDBGridEh;

    IBDataSet2: TIBDataSet;

    IBDataSet2KOD: TIntegerField;

    IBDataSet2NOMER: TIntegerField;

    IBDataSet2DATA: TDateField;

    DataSource2: TDataSource;

    IBDataSet3: TIBDataSet;

    IBDataSet3KOD_VUPISKI: TIntegerField;

    IBDataSet3DATA_PROVODKI: TDateField;

    IBDataSet3VO: TIntegerField;

    IBDataSet3NOMER_BANKA: TIntegerField;

    IBDataSet3NOMER_KLIENTA: TIntegerField;

    IBDataSet3SCHET_PLAT: TIBStringField;

    IBDataSet3BIK_BANKA: TIBStringField;

    IBDataSet3KORR_SCHET: TIBStringField;

    IBDataSet3KREDIT: TIBBCDField;

    IBDataSet3KOD: TIntegerField;

    DataSource3: TDataSource;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

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

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  add_vup: Tadd_vup; 

implementation 

uses MainForm,Vupuska;

{$R *.dfm} 

procedure Tadd_vup.Button1Click(Sender: TObject);

begin

IBDataSet2.Active:=true;

IBDataSet2.Insert;

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

IBDataSet2DATA.Value:=DateTimePicker1.Date;

IBDataSet2.Post;

Button2.Enabled:=true;

end; 

procedure Tadd_vup.FormClose(Sender: TObject;

  var Action: TCloseAction);

begin

Vupiska.IBDataSet1.Close;

Vupiska.IBDataSet1.Open;

Vupiska.IBDataSet2.Close;

Vupiska.IBDataSet2.Open;

Vupiska.DBGrid1.Refresh;

Vupiska.DBGridEh1.Refresh;

Edit1.Text:='';

Button2.Enabled:=false;

Button3.Enabled:=false;

IBDataSet3.Active:=False;

end; 

procedure Tadd_vup.Button2Click(Sender: TObject);

begin

IBDataSet3.Active:=true;

IBDataSet3.Insert;

IBDataSet3KOD_VUPISKI.Value:=IBDataSet2KOD.Value;

IBDataSet3DATA_PROVODKI.Value:=IBDataSet2DATA.Value;

IBDataSet3VO.Value:=0;

IBDataSet3NOMER_BANKA.Value:=0;

IBDataSet3NOMER_KLIENTA.Value:=0;

IBDataSet3SCHET_PLAT.Value:=IBDataSet1SCHET_PLAT.Value;

IBDataSet3BIK_BANKA.Value:=IBDataSet1BIK_BANKA.Value;

IBDataSet3KORR_SCHET.Value:=IBDataSet1KORR_SCHET.Value;

IBDataSet3KREDIT.Value:=0;

Button3.Enabled:=true;

end; 

procedure Tadd_vup.Button3Click(Sender: TObject);

begin

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

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

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

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

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

ShowMessage('Введіть №  док.банка!') else

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

ShowMessage('Введіть №  док.клієнта!') else

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

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

if(IBDataSet3.Fields[7].Value=null) then

ShowMessage('Введіть БІК  банка!') else