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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

4. Екранні форми  АІС

Головна форма: 

 

Довідник  платника:

 
 
 
 
 

Кореспондуючий  рахунок(субрахунок):

 

Виписка з лицьового рахунку:

 
 
 
 
 
 

Додати  виписку з лицьового  рахунку: 

 
 
 
 
 
 
 
 
 
 
 
 
 

Прибутковий касовий ордер:

 
 
 
 
 
 

Додати  прибутковий ордер:

Облік прибутку:

 
 
 
 
 

5. Лістинг створення  бази даних

Довідник платника:

CREATE TABLE SCHET_PLAT (

    KOD         INTEGER NOT NULL,

    NAZVA       VARCHAR(25),

    SCHET_PLAT  VARCHAR(20),

    BIK_BANKA   VARCHAR(20),

    KORR_SCHET  VARCHAR(20)

);

Довідник кореспондуючого  рахунку 

CREATE TABLE OPERACII_PO_KREDITU (

    KOD_OP          INTEGER NOT NULL,

    RAH_PO_KREDITY  INTEGER,

    NAIMEN_OPERAC   VARCHAR(100)

);

Виписка 

CREATE TABLE VUPISKA (

    KOD    INTEGER NOT NULL,

    NOMER  INTEGER,

    DATA   DATE

);

Рух по рахунку 

CREATE TABLE DVIG_PO_SCHETU (

    KOD            INTEGER NOT NULL,

    KOD_VUPISKI    INTEGER,

    DATA_PROVODKI  DATE,

    VO             INTEGER,

    NOMER_BANKA    INTEGER,

    NOMER_KLIENTA  INTEGER,

    SCHET_PLAT     VARCHAR(20),

    BIK_BANKA      VARCHAR(20),

    KORR_SCHET     VARCHAR(20),

    KREDIT         NUMERIC(15,2)

);

Прибутковий ордер 

CREATE TABLE PRIH_ORDER (

    KOD           INTEGER NOT NULL,

    NOMER_ORDERA  INTEGER,

    DATA_SOSTAV   DATE,

    KREDIT        INTEGER,

    SUMMA         NUMERIC(15,2),

    PRINATO_OT    VARCHAR(20),

    OSNOVANIE     VARCHAR(100)

); 

Представлення обліку прибутку по ордерам: 

CREATE OR ALTER VIEW OBLIK_PO_ORD(

    NOMER,

    DATA_SOST,

    PLATNUK,

    SUMMA)

AS

select prih_order.nomer_ordera,prih_order.data_sostav,prih_order.prinato_ot,prih_order.summa from prih_order

; 

Представлення обліку прибутку по випискам: 

CREATE OR ALTER VIEW OBLIK_PO_VUP(

    NOMER,

    DATA,

    PLATNUK,

    KREDIT)

AS

select vupiska.nomer,vupiska.data,schet_plat.nazva,dvig_po_schetu.kredit from vupiska,dvig_po_schetu,schet_plat

where (dvig_po_schetu.kod_vupiski=vupiska.kod)and(dvig_po_schetu.bik_banka=schet_plat.bik_banka)

; 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

6. Лістинг створення  пакету прикладних  програм

unit MainForm; 

interface 

uses

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

  Dialogs, Menus, IBDatabase, DB; 

type

  TMain = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    IBDatabase1: TIBDatabase;

    IBTransaction1: TIBTransaction;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Main: TMain; 

implementation 

uses NDI_Platnuk,Vupuska,Order,Oblik,NDI_Kor_rah;

{$R *.dfm} 
 

procedure TMain.N4Click(Sender: TObject);

begin

Close;

end; 

procedure TMain.N5Click(Sender: TObject);

begin

Platnuk.ShowModal;

end; 

procedure TMain.N6Click(Sender: TObject);

begin

Vupiska.ShowModal;

end; 

procedure TMain.N7Click(Sender: TObject);

begin

pruh_order.ShowModal;

end; 

procedure TMain.N8Click(Sender: TObject);

begin

Oblik_prub.ShowModal;

end; 

procedure TMain.N9Click(Sender: TObject);

begin

Korr_rah.ShowModal;

end; 

end. 

unit NDI_Platnuk; 

interface 

uses

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

  Dialogs, DB, IBCustomDataSet, Grids, DBGrids, StdCtrls; 

type

  TPlatnuk = class(TForm)

    IBDataSet1: TIBDataSet;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Edit1: TEdit;

    IBDataSet1KOD: TIntegerField;

    IBDataSet1NAZVA: TIBStringField;

    IBDataSet1SCHET_PLAT: TIBStringField;

    IBDataSet1BIK_BANKA: TIBStringField;

    IBDataSet1KORR_SCHET: TIBStringField;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Edit1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Platnuk: TPlatnuk; 

implementation 
 

{$R *.dfm}

uses MainForm; 
 

procedure TPlatnuk.Button1Click(Sender: TObject);

begin

IBDataSet1.Active:=true;

IBDataSet1.insert;

IBDataSet1NAZVA.Value:='<null>';

IBDataSet1SCHET_PLAT.Value:='0';

IBDataSet1BIK_BANKA.Value:='0';

IBDataSet1KORR_SCHET.Value:='0';

DBGrid1.ReadOnly:=false;

end; 

procedure TPlatnuk.Button4Click(Sender: TObject);

begin

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

begin

IBDataSet1.ApplyUpdates;

DBGrid1.ReadOnly:=true;

end;

end; 

procedure TPlatnuk.Button2Click(Sender: TObject);

var

str:string;

begin

str:='Вы действительно  хотите удалить плательщика <'+IBDataSet1.FieldValues['nazva']+'>?';

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

   begin

   IBDataSet1.Delete;

   DBGrid1.ReadOnly:=false;

   end;

end; 

procedure TPlatnuk.Button3Click(Sender: TObject);

begin

DBGrid1.ReadOnly:=false;

end; 

procedure TPlatnuk.Button5Click(Sender: TObject);

begin

if (IBDataSet1.RecordCount<>0) then

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

Edit1.Text:='Введіть юридичну  назву платника';

end; 

procedure TPlatnuk.Edit1Click(Sender: TObject);

begin

Edit1.Text:='';

end; 
 
 

procedure TPlatnuk.FormCreate(Sender: TObject);

begin

IBDataSet1.Close;

IBDataSet1.Open;

IBDataSet1.Active:=true;

end; 

end. 

unit NDI_Kor_rah; 

interface 

uses

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

  Dialogs, StdCtrls, DB, IBCustomDataSet, Grids, DBGrids; 

type

  TKorr_rah = class(TForm)

    DBGrid1: TDBGrid;

    Label5: TLabel;

    IBDataSet1: TIBDataSet;

    IBDataSet1KOD_OP: TIntegerField;

    IBDataSet1RAH_PO_KREDITY: TIntegerField;

    IBDataSet1NAIMEN_OPERAC: TIBStringField;

    DataSource2: TDataSource;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Edit1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Korr_rah: TKorr_rah; 

implementation 
 

{$R *.dfm}

uses MainForm; 

procedure TKorr_rah.Button1Click(Sender: TObject);

begin

IBDataSet1.Active:=true;

IBDataSet1.insert;

IBDataSet1RAH_PO_KREDITY.Value:=0;

IBDataSet1NAIMEN_OPERAC.Value:='<null>';

DBGrid1.ReadOnly:=false;

end; 

procedure TKorr_rah.Button2Click(Sender: TObject);

var

str:string;

begin

str:='Вы действительно  хотите удалить счет <'+IBDataSet1.FieldValues['naimen_operac']+'>?';

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

   begin

   IBDataSet1.Delete;