Информационные системы учета

Дипломная работа - Бухгалтерский учет и аудит

Другие дипломы по предмету Бухгалтерский учет и аудит

p>

Рис.

 

Рис.

 

 

Рис.

 

Рис.

 

 

Приложение Д

 

Реализация программных модулей на ПЭВМ

unit Unit2;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, Grids, DBGrids, Menus, Mask, DBCtrls, Qrctrls,, ExtCtrls;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TDBGrid;: TDBGrid;: TDataSource;: TTable;: TDataSource;: TQuery;Numer1: TIntegerField;Data1: TDateField;Platelschik: TStringField;Schet1: TIntegerField;Osnovanie1: TStringField;Summa1: TIntegerField;: TButton;: TButton;: TGroupBox;: TDBGrid;: TDBGrid;: TDataSource;: TTable;: TDataSource;: TQuery;Numer2: TIntegerField;Data2: TIntegerField;Poluchatel: TStringField;Schet2: TIntegerField;Osnovanie2: TStringField;Summa2: TIntegerField;: TButton;: TButton;: TGroupBox;: TDBGrid;: TDataSource;: TTable;: TButton;: TButton;: TGroupBox;: TGroupBox;: TDBGrid;: TDataSource;: TDBGrid;: TDBGrid;: TDataSource;: TQuery;: TDataSource;: TQuery;: TMenuItem;: TMenuItem;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TDataSource;: TQuery;: TDataSource;: TQuery;: TDataSource;: TTable;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPrintDialog;: TQuery;SUMOFOstatoknanachalo: TFloatField;SUMOFSumma1: TFloatField;SUMOFSumma2: TFloatField;Ostatoknakonez: TCurrencyField;: TGroupBox;: TQuickRep;: TQRSubDetail;: TQRSysData;: TQRSubDetail;: TQRLabel;: TQRLabel;: TQRLabel;: TQRLabel;: TQRSubDetail;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRSubDetail;: TQRDBText;: TQRDBText;: TQRDBText;: TQRDBText;: TQRSubDetail;: TQRLabel;: TQRDBText;: TQRDBText;: TQRSubDetail;: TQRLabel;: TQRDBText;: TQRSubDetail;: TQRLabel;: TQRDBText;: TQRLabel;: TQRLabel;N2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);N3Click(Sender: TObject);Button5Click(Sender: TObject);Button6Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);N8Click(Sender: TObject);N12Click(Sender: TObject);N11Click(Sender: TObject);N10Click(Sender: TObject);Query8CalcFields(DataSet: TDataSet);

{ Private declarations }

{ Public declarations };: TForm1;

{$R *.DFM}TForm1.N2Click(Sender: TObject);.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.Button3Click(Sender: TObject);.Append;;TForm1.Button4Click(Sender: TObject);.Delete;;TForm1.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;.Visible:=False;;TForm1.Button5Click(Sender: TObject);.Append;;TForm1.Button6Click(Sender: TObject);.Delete;;TForm1.N5Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;.Visible:=False;;TForm1.N6Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;.Visible:=False;;TForm1.Button1Click(Sender: TObject);.Append;;TForm1.Button2Click(Sender: TObject);.Delete;;TForm1.N8Click(Sender: TObject);.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=False;.Visible:=True;;TForm1.N12Click(Sender: TObject);MessageDlg ('Вы действительно хотите выйти из программы ?', mtConfirmation, [mbYes, mbNo], 0)=mrYesClose;TForm1.N11Click(Sender: TObject);.Visible:= False;.Visible:= False;.Visible:= False;.Visible:= False;.Visible:= False;('Автор: Золтоева Е. Г., Специальность: 0716, Гр. ИС-41, Факультет: УФФ', mtInformation, [mbOk], 0);TForm1.N10Click(Sender: TObject);.Preview;;TForm1.Query8CalcFields(DataSet: TDataSet);Ostatoknakonez.Value:=Query8SUMOFOstatoknanachalo.Value+Query8SUMOFSumma1.Value-Query8SUMOFSumma2.Value;

end;.