Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Приложение 2. Описание форм ввода первичной информации

Читайте также:
  1. amp;&&Приложение 22
  2. Amp;Приложение 19
  3. amp;Приложение 20
  4. I. ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ - ОТ ТЕХНОЛОГИЙ К ИНФОРМАЦИИ
  5. MTV как международное (местное) средство информации
  6. А. Сбор информации
  7. Анализ системы обеспечения информационной безопасности и защиты информации

1) Форма «Приемка по количеству»

В форме ввода «Приемка по количеству» кладовщик вводит для каждого артикула поступившего товара информацию о проверке количества. При этом в верхней части окна отображается вспомогательная информация из приходной накладной. Вручную вводится параметр «Фактическое количество», и заполняется таблица «Повреждения». Параметры «Расхождение» и «Расхождение в %» вычисляются автоматически при изменении значения «Фактическое количество».

 

Рисунок П2.1. Форма ввода «Приемка по количеству»

2) Форма «Приемка по качеству»

В этой форме вводятся данные приемки по качеству.

Рисунок П2.2. Форма ввода «Приемка по качеству»

3) Форма ввода «Инвентаризация»

Форма ввода «Инвентаризация» заполняется каждый раз при проведении плановой или внеплановой инвентаризации. При этом необходимо заполнить таблицу «Состав комиссии» (добавление записи осуществляется при помощи кнопки «Добавить», вызывающей справочник «Сотрудники») и таблицу «Номенклатура» (добавление записи из справочника «Номенклатура» при помощи кнопки «Добавить», ручной ввод фактического количества и примечания). После редактирования столбца «Факт.кол-во», автоматически вычисляется значение расхождения. Если расхождение больше 0, то оно выделяется красным цветом

При обнаружении несоответствия фактического количества учетному, активируется кнопка «Корректировка», открывающая форму «Корректировка».

 

 

 

Рисунок П2.3. Форма ввода «Инвентаризация»

В диалоговом окне «Корректировка» указывается новое значение учетного количества (рисунок П2.4). По умолчанию в поле ввода подставляется значение фактического количества по результатам инвентаризации.

Рисунок П2.4 Форма ввода «Инвентаризация»


 

4) Форма ввода «Управление резервами»

Форма позволяет просматривать список зарезервированных товаров и изменять его при помощи кнопок «Изменить», «Добавить», «Удалить».

 

 

Рисунок П2.5.Форма ввода «Управление резервами»


Приложение 3. Исходный текст программного модуля «Приемка товаров»

 

unit Priemka;

interface

uses

SysUtils, Windows, Classes, Graphics, Controls,

Forms, Dialogs, DB, DBTables,Math;

type

TDataModule2 = class(TDataModule)

TovarTableID_TOVAR: TAutoIncField;

TovarTableNAME_TOVAR: TStringField;

TovarSr: TDataSource;

TovarTable: TTable;

PrihodSr: TDataSource;

DocTable: TTable;

SaleTable: TTable;

DocSr: TDataSource;

SaleSr: TDataSource;

SaleTableID_TOVAR_SALE: TAutoIncField;

SaleTableNAME_TOVAR: TStringField;

SaleTableID_TOVAR: TIntegerField;

SaleTablePRICE: TCurrencyField;

SaleTableID_SALE: TIntegerField;

SaleTableSUMMA: TCurrencyField;

SaleTableNDS: TFloatField;

SaleTableSUMMA_NDS: TCurrencyField;

SaleTableALL_SUMMA: TCurrencyField;

SummaQry: TQuery;

SummaQrySUMMA: TCurrencyField;

SummaQrySUMMA_NDS: TCurrencyField;

SummaQryALL_SUMMA: TCurrencyField;

ClientSr: TDataSource;

ClientTable: TTable;

ClientTableID_CLIENT: TAutoIncField;

ClientTableCLIENT: TStringField;

ClientTableADRESS: TStringField;

ClientTableTELEPHONE: TStringField;

ClientTableFAX: TStringField;

ClientTableREKVEZIT: TStringField;

ClientTableBIK: TStringField;

ClientTableINN: TStringField;

ClientTableKOD_OKPO: TStringField;

ClientTableKOD_OKONH: TStringField;

ClientTableMAN: TStringField;

ClientTableDOCUMENT: TStringField;

FirmaTable: TTable;

FirmaSr: TDataSource;

FirmaTableFIRMA: TStringField;

FirmaTableADRESS: TStringField;

FirmaTableTELEPHON: TStringField;

FirmaTableFAX: TStringField;

FirmaTableREKVEZIT: TStringField;

FirmaTableBIK: TStringField;

FirmaTableINN: TStringField;

FirmaTableKOD_OKPO: TStringField;

FirmaTableKOD_OKONH: TStringField;

FirmaTableDIREKTOR: TStringField;

FirmaTableBUHGALTER: TStringField;

UpdateTovQry1: TQuery;

UpdateTovQry2: TQuery;

RashodQry: TQuery;

RashodSr: TDataSource;

RashodQryDATA_SALE: TDateField;

RashodQryID_TOVAR: TIntegerField;

RashodQryPRICE: TCurrencyField;

UpTovQry1: TQuery;

UpTovQry2: TQuery;

SaleTableNALOG: TFloatField;

SaleTableSUMMA_NALOG: TCurrencyField;

SummaQrySUMMA_NALOG: TCurrencyField;

TovarTableSELECT: TStringField;

KategTable: TTable;

KategSr: TDataSource;

KategTableID_KATEG: TAutoIncField;

KategTableNAME_KATEG: TStringField;

TovarTableID_KATEG: TIntegerField;

SumRashQry: TQuery;

ReportQry: TQuery;

SumRashQryID_TOVAR: TIntegerField;

SumRashQryNAME_TOVAR: TStringField;

SumRashQrySUMOFKOLVO_TOVAR: TFloatField;

SumRashQrySUMOFKOLVO_PRIHOD: TFloatField;

SelectQry: TQuery;

SaleTableCOUNTRY: TStringField;

SaleTableN_DECLAR: TStringField;

SumRashQry2: TQuery;

SumRashQry2ID_TOVAR: TIntegerField;

SumRashQry2NAME_TOVAR: TStringField;

SumRashQry2KOLVO_TOVAR: TIntegerField;

SumRashQry2KOLVO_PRIHOD: TSmallintField;

DeclTable: TTable;

DeclSr: TDataSource;

SelectDeclQry: TQuery;

SelectDeclSr: TDataSource;

SelectDeclQryN_DECLAR: TStringField;

SelectDeclQryID_DECLAR: TIntegerField;

SelectDeclQryID_TOVAR: TIntegerField;

DocTableID_SALE: TAutoIncField;

DocTableDATA_SALE: TDateField;

DocTableN_FAKTURA: TStringField;

DocTableN_NAKLAD: TStringField;

DocTableN_ORDER: TStringField;

DocTableCLIENT: TStringField;

DocTableDOC_SUMMA: TCurrencyField;

DocTableDOC_NDS: TCurrencyField;

DocTableDOC_ALL_SUMMA: TCurrencyField;

DocTableSUMMA_STRING: TStringField;

DocTableID_CLIENT: TIntegerField;

DocTableDOC_NALOG: TCurrencyField;

InsPlusQry: TQuery;

FirmaTableSEL: TStringField;

KategTableSEL: TStringField;

Query2: TQuery;

IntegerField1: TIntegerField;

StringField1: TStringField;

IntegerField2: TIntegerField;

SmallintField1: TSmallintField;

IntegerField3: TIntegerField;

SaleTableOSTATOK: TIntegerField;

UpPrihodQry: TQuery;

SumRashQry2OSTATOK: TIntegerField;

InsPrihodQry: TQuery;

SkaldTable: TTable;

SkladSr: TDataSource;

SkaldTableID_SKLAD: TAutoIncField;

SkaldTableNAME_SKALD: TStringField;

KategTableID_SKLAD: TIntegerField;

RashodQryN_NAKLAD: TStringField;

RashodQryCLIENT: TStringField;

PrihodQry: TQuery;

PrihodQryN_NAKLAD_PRIHOD: TStringField;

PrihodQryDATE_PRIHOD: TDateField;

PrihodQryPOSTAVSHIK: TStringField;

PrihodQryKOLVO_TOVAR: TFloatField;

PrihodQryPRICE_TOVAR: TCurrencyField;

PrihodQrySUMMA: TCurrencyField;

RashodQryDOC_SUMMA: TCurrencyField;

TovarTableSHIFR: TStringField;

TovarTablePRICE_PRIH: TCurrencyField;

TovarTablePRICE_RASH: TCurrencyField;

PrMoneyTable: TTable;

RasMoneyTable: TTable;

PrMoneySr: TDataSource;

RasMoneySr: TDataSource;

PrMoneyTableID_MONEY_PRIH: TAutoIncField;

PrMoneyTableID_SKLAD: TIntegerField;

PrMoneyTableDATA_MONEY_PRIH: TDateField;

PrMoneyTablePRIH_MONEY_RUB: TCurrencyField;

PrMoneyTablePRIH_MONEY_USD: TCurrencyField;

PrMoneyTablePRIH_KURS: TCurrencyField;

PrMoneyTableZA_CHTO_MONEY_PRIH: TStringField;

PrMoneyTableCOMMENT_MONEY_PRIH: TStringField;

RasMoneyTableID_RASHOD_MONEY: TAutoIncField;

RasMoneyTableID_SKLAD: TIntegerField;

RasMoneyTableDATA_RASH_MONEY: TDateField;

RasMoneyTableRASH_MONEY_RUB: TCurrencyField;

RasMoneyTableRASH_MONEY_USD: TCurrencyField;

RasMoneyTableRASH_KURS: TCurrencyField;

RasMoneyTableZA_CHTO_MONEY_RASH: TStringField;

RasMoneyTableCOMMENT_MONEY_RASH: TStringField;

SkladTableSELECT: TStringField;

ClientTableSEL: TStringField;

TovarTableED_IZM: TStringField;

TovarTableCOMMENT: TBlobField;

SaleTableKOLVO_TOVAR: TFloatField;

TovarTableOSTATOK: TFloatField;

ReportQryCLIENT: TStringField;

ReportQryADRESS: TStringField;

ReportQryTELEPHONE: TStringField;

ReportQryMAN: TStringField;

ReportQryDOCUMENT: TStringField;

ReportQryDATA_SALE: TDateField;

ReportQryN_NAKLAD: TStringField;

ReportQryN_ORDER: TStringField;

ReportQryDOC_SUMMA: TCurrencyField;

ReportQryDOC_NDS: TCurrencyField;

ReportQryDOC_ALL_SUMMA: TCurrencyField;

ReportQryDOC_NALOG: TCurrencyField;

ReportQrySUMMA_STRING: TStringField;

ReportQryNAME_TOVAR: TStringField;

ReportQryKOLVO_TOVAR: TFloatField;

ReportQryPRICE: TCurrencyField;

ReportQrySUMMA: TCurrencyField;

ReportQryNDS: TFloatField;

ReportQrySUMMA_NDS: TCurrencyField;

ReportQryALL_SUMMA: TCurrencyField;

ReportQryNALOG: TFloatField;

ReportQrySUMMA_NALOG: TCurrencyField;

ReportQryFIRMA: TStringField;

ReportQryADRESS_1: TStringField;

ReportQryTELEPHON: TStringField;

RashodQrySUMMA: TCurrencyField;

procedure DataModuleCreate(Sender: TObject);

procedure PrihodTableAfterPost(DataSet: TDataSet);

procedure RashodTableAfterPost(DataSet: TDataSet);

procedure SaleTableBeforePost(DataSet: TDataSet);

procedure SaleTableAfterPost(DataSet: TDataSet);

procedure SaleTableAfterDelete(DataSet: TDataSet);

procedure SaleTableBeforeEdit(DataSet: TDataSet);

procedure SaleTableBeforeDelete(DataSet: TDataSet);

procedure PrihodTableBeforeEdit(DataSet: TDataSet);

procedure PrihodTableBeforeDelete(DataSet: TDataSet);

procedure PrihodTableAfterDelete(DataSet: TDataSet);

 

 

private

{ private declarations }

public

{ public declarations }

end;

 

var

DataModule2: TDataModule2;

Id_tovar: integer;

 

implementation

function SummaString(m: real): string;

Var

por: array[0..4,0..2] of string;

por1: array[0..0,0..2] of string;

a: array[0..19] of string;

a1: array[0..19] of string;

b1: array[0..9] of string;

c: array[0..9] of string;

s: string;

p: integer;

mul: real;

l1: integer;

 

pos_rub: integer;

 

begin

por[0,0]:='рубль '; por[0,1]:='рубля '; por[0,2]:='рублей ';

por[1,0]:='тысяча '; por[1,1]:='тысячи '; por[1,2]:='тысяч ';

por[2,0]:='миллион '; por[2,1]:='миллиона '; por[2,2]:='миллионов ';

por[3,0]:='миллиард '; por[3,1]:='миллиарда '; por[3,2]:='миллиардов ';

por[4,0]:='триллион '; por[4,1]:='триллиона '; por[4,2]:='триллионов ';

 

por1[0,0]:='копейка '; por1[0,1]:='копейки '; por1[0,2]:='копеек ';

 

a[0]:=' '; a[1]:='один '; a[2]:='два '; a[3]:='три '; a[4]:='четыре ';

a[5]:='пять '; a[6]:='шесть '; a[7]:='семь '; a[8]:='восемь ';

a[9]:='девять '; a[10]:='десять '; a[11]:='одиннадцать ';

a[12]:='двенадцать '; a[13]:='тринадцать '; a[14]:='четырнадцать ';

a[15]:='пятнадцать '; a[16]:='шестнадцать '; a[17]:='семнадцать ';

a[18]:='восемнадцать '; a[19]:='девятнадцать ';

 

a1[0]:=' '; a1[1]:='одна '; a1[2]:='две '; a1[3]:='три ';

a1[4]:='четыре '; a1[5]:='пять '; a1[6]:='шесть '; a1[7]:='семь ';

a1[8]:='восемь '; a1[9]:='девять '; a1[10]:='десять ';

a1[11]:='одиннадцать '; a1[12]:='двенадцать ';a1[13]:='тринадцать ';

a1[14]:='четырнадцать '; a1[15]:='пятнадцать '; a1[16]:='шестнадцать ';

a1[17]:='семнадцать '; a1[18]:='восемнадцать '; a1[19]:='девятнадцать ';

 

b1[0]:=' '; b1[1]:='десять '; b1[2]:='двадцать '; b1[3]:='тридцать ';

b1[4]:='сорок '; b1[5]:='пятьдесят '; b1[6]:='шестьдесят ';

b1[7]:='семьдесят '; b1[8]:='восемьдесят '; b1[9]:='девяносто ';

 

c[0]:=' '; c[1]:='сто '; c[2]:='двести '; c[3]:='триста ';

c[4]:='четыреста '; c[5]:='пятьсот '; c[6]:='шестьсот ';

c[7]:='семьсот '; c[8]:='восемьсот '; c[9]:='девятьсот ';

s:=' ';

For p:=4 downto 0 do begin

mul:=power(10,p*3);

l1:=Round(Int(m/mul));

m:=m-l1*mul;

if (l1>0) then begin

if (Round(Int(l1/100))>0) then begin

s:=s+c[Round(Int(l1/100))];

l1:=l1-Round(Int(l1/100))*100;

end;

if (l1>=20) then begin

s:=s+b1[Round(Int(l1/10))];

l1:=l1-Round(Int(l1/10))*10;

end;

 

if(p<>1) then s:=s+a[l1]

else s:=s+a1[l1];

if (l1=1)then s:=s+por[p,0];

if (l1>1) and (l1<5) then

s:=s+por[p,1];

if (l1<1) or (l1>4) then

s:=s+por[p,2];

end;{if}

end;{for}

 

pos_rub:=pos('рублей',s);

if (l1=0) and (pos_rub=0)

then s:=s+por[0,2];

l1:=Round(m*100);

If (l1>0) then begin

if (l1>=20) then begin

s:=s+b1[Round(Int(l1/10))];

l1:=l1-Round(Int(l1/10))*10;

end;

s:=s+a1[l1];

if (l1=1) then s:=s+por1[0,0];

if (l1>1) and (l1<5) then s:=s+por1[0,1];

if (l1<1) or (l1>4) then s:=s+por1[0,2];

end;{if}

SummaString:=s;

end;

 

procedure TDataModule2.DataModuleCreate(Sender: TObject);

begin

{TovarTable.Open;

PrihodTable.Open;

RashodTable.Open;

DocTable.Open;

SaleTable.Open;}

end;

 

procedure TDataModule2.PrihodTableAfterPost(DataSet: TDataSet);

begin

{If TovarTable.State<>dsEdit then

TovarTable.Edit;

 

TovarTable.FieldByName('OSTATOK').Value:=

TovarTable.FieldByName('OSTATOK').Value+PrihodTable.FieldByName('KOLVO_PRIHOD').Value;

TovarTable.Post;

}

{UpTovQry1.ParamByName('KOLVO').AsInteger:=

PrihodTable.FieldByName('KOLVO_PRIHOD').AsInteger;

UpTovQry1.ParamByName('ID_TOVAR').AsInteger:=

PrihodTable.FieldByName('ID_TOVAR').AsInteger;

UpTovQry1.ExecSQL;

TovarTable.Active:=False;

TovarTable.Active:=True;;}

end;

 

procedure TDataModule2.RashodTableAfterPost(DataSet: TDataSet);

begin

{ If TovarTable.State<>dsEdit then

TovarTable.Edit;

 

TovarTable.FieldByName('OSTATOK').Value:=

TovarTable.FieldByName('OSTATOK').Value-RashodTable.FieldByName('KOLVO_RASHOD').Value;

TovarTable.Post;

 

}

end;

 

procedure TDataModule2.SaleTableBeforePost(DataSet: TDataSet);

begin

Id_tovar:=SaleTable.FieldByName('ID_TOVAR').Value;

 

With SaleTable do begin

FieldByName('SUMMA').Value:=

FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value;

 

FieldByName('SUMMA_NALOG').Value:=

((FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value)/

(100+FieldByName('NALOG').Value))*

FieldByName('NALOG').Value;

 

FieldByName('SUMMA_NDS').Value:=

(FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value-

FieldByName('SUMMA_NALOG').Value)/

(100+FieldByName('NDS').Value)*FieldByName('NDS').Value;

 

FieldByName('ALL_SUMMA').Value:=

FieldByName('SUMMA').Value-FieldByName('SUMMA_NALOG').Value-

FieldByName('SUMMA_NDS').Value;

end;

 

 

{ With SaleTable do begin

FieldByName('ALL_SUMMA').Value:=

FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value;

 

 

FieldByName('SUMMA_NDS').Value:=

(FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value)*

FieldByName('NDS').Value/100;

 

FieldByName('SUMMA_NALOG').Value:=

((FieldByName('KOLVO_TOVAR').Value*FieldByName('PRICE').Value)*

FieldByName('NDS').Value/100)*

FieldByName('NALOG').Value/100;

 

 

FieldByName('SUMMA').Value:=

FieldByName('ALL_SUMMA').Value+FieldByName('SUMMA_NALOG').Value+

FieldByName('SUMMA_NDS').Value;

end;

}

end;

 

procedure TDataModule2.SaleTableAfterPost(DataSet: TDataSet);

Var i:integer;

begin

If DocTable.State<>dsEdit then

DocTable.Edit;

 

SummaQry.Open;

DocTable.FieldByName('DOC_SUMMA').Value:=SummaQry.FieldByName('SUMMA').Value;

DocTable.FieldByName('DOC_NDS').Value:=SummaQry.FieldByName('SUMMA_NDS').Value;

DocTable.FieldByName('DOC_NALOG').Value:=SummaQry.FieldByName('SUMMA_NALOG').Value;

DocTable.FieldByName('DOC_ALL_SUMMA').Value:=SummaQry.FieldByName('ALL_SUMMA').Value;

DocTable.FieldByName('SUMMA_STRING').AsString:=

SummaString(SummaQry.FieldByName('SUMMA').AsFloat);

SummaQry.Close;

DocTable.Post;

 

UpdateTovQry1.ParamByName('KOLVO').AsInteger:=

SaleTable.FieldByName('KOLVO_TOVAR').AsInteger;

UpdateTovQry1.ParamByName('ID_TOVAR').AsInteger:=

SaleTable.FieldByName('ID_TOVAR').AsInteger;

 

UpdateTovQry1.ExecSQL;

 

TovarTable.Active:=False;

TovarTable.Active:=True;;

 

UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=ID_TOVAR;

{

UpPrihodQry.ParamByName('OSTATOK').AsInteger:=

TovarTable.FieldByName('OSTATOK').AsInteger;

 

UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=ID_TOVAR;

SaleTable.FieldByName('ID_TOVAR').AsInteger;

UpPrihodQry.ExecSQL;

}

{If PrihodTable.State<>dsEdit then

PrihodTable.Edit;

PrihodTable.FieldByName('OSTATOK').Value:=

TovarTable.FieldByName('OSTATOK').Value;

PrihodTable.Post;}

end;

 

procedure TDataModule2.SaleTableAfterDelete(DataSet: TDataSet);

begin

If DocTable.State<>dsEdit then

DocTable.Edit;

 

SummaQry.Open;

DocTable.FieldByName('DOC_SUMMA').Value:=SummaQry.FieldByName('SUMMA').Value;

DocTable.FieldByName('DOC_NDS').Value:=SummaQry.FieldByName('SUMMA_NDS').Value;

DocTable.FieldByName('DOC_ALL_SUMMA').Value:=SummaQry.FieldByName('ALL_SUMMA').Value;

DocTable.FieldByName('SUMMA_STRING').AsString:=

SummaString(SummaQry.FieldByName('SUMMA').AsFloat);

 

 

SummaQry.Close;

DocTable.Post;

 

{ UpPrihodQry.ParamByName('OSTATOK').AsInteger:=

TovarTable.FieldByName('OSTATOK').AsInteger;

UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=

TovarTable.FieldByName('ID_TOVAR').AsInteger;

UpPrihodQry.ExecSQL;

}

 

end;

 

procedure TDataModule2.SaleTableBeforeEdit(DataSet: TDataSet);

begin

UpdateTovQry2.ParamByName('KOLVO').AsInteger:=

SaleTable.FieldByName('KOLVO_TOVAR').AsInteger;

UpdateTovQry2.ParamByName('ID_TOVAR').AsInteger:=

SaleTable.FieldByName('ID_TOVAR').AsInteger;

UpdateTovQry2.ExecSQL;

TovarTable.Active:=False;

TovarTable.Active:=True;;

end;

 

procedure TDataModule2.SaleTableBeforeDelete(DataSet: TDataSet);

begin

UpdateTovQry2.ParamByName('KOLVO').AsInteger:=

SaleTable.FieldByName('KOLVO_TOVAR').AsInteger;

UpdateTovQry2.ParamByName('ID_TOVAR').AsInteger:=

SaleTable.FieldByName('ID_TOVAR').AsInteger;

UpdateTovQry2.ExecSQL;

TovarTable.Active:=False;

TovarTable.Active:=True;;

 

UpPrihodQry.ParamByName('OSTATOK').AsInteger:=

TovarTable.FieldByName('OSTATOK').AsInteger;

 

UpPrihodQry.ParamByName('ID_TOVAR').AsInteger:=ID_TOVAR;

SaleTable.FieldByName('ID_TOVAR').AsInteger;

UpPrihodQry.ExecSQL;

end;

 

procedure TDataModule2.PrihodTableBeforeEdit(DataSet: TDataSet);

begin

{UpTovQry2.ParamByName('KOLVO').AsInteger:=

PrihodTable.FieldByName('KOLVO_PRIHOD').AsInteger;

UpTovQry2.ParamByName('ID_TOVAR').AsInteger:=

PrihodTable.FieldByName('ID_TOVAR').AsInteger;

UpTovQry2.ExecSQL;

{ TovarTable.Active:=False;

TovarTable.Active:=True;;}

end;

 

procedure TDataModule2.PrihodTableBeforeDelete(DataSet: TDataSet);

begin

{UpTovQry2.ParamByName('KOLVO').AsInteger:=

PrihodTable.FieldByName('KOLVO_PRIHOD').AsInteger;

UpTovQry2.ParamByName('ID_TOVAR').AsInteger:=

PrihodTable.FieldByName('ID_TOVAR').AsInteger;

UpTovQry2.ExecSQL;

{ TovarTable.Active:=False;

TovarTable.Active:=True;; }

end;

 

procedure TDataModule2.PrihodTableAfterDelete(DataSet: TDataSet);

begin

TovarTable.Active:=False;

TovarTable.Active:=True;;

end;

 

end.

 

 

Дипломный проект выполнен мной совершенно самостоятельно. Все использованные в работе материалы и концепции из опубликованной научной литературы и других источников имеют ссылки на них.

«__30__»____декабря____ 2010 г.

_______________ ______Чаплик_Д. В.______

(подпись) (Ф.И.О.)

 

Дата добавления: 2015-09-06; просмотров: 139 | Нарушение авторских прав

Читайте в этой же книге: Используемые классификаторы и системы кодирования | Справочники системы | Характеристика результатной информации | Программное обеспечение задачи | Характеристика базы данных | Структурная схема пакета (дерево вызова программных модулей) | Описание программных модулей | Контрольный пример реализации проекта и его описание | III Обоснование экономической эффективности проекта | Список сокращений |
<== предыдущая страница | следующая страница ==>
Приложение 1. Описание форм ввода входных документов| ЗАЧЕТНЫЕ МАНИПУЛЯЦИИ ДЛЯ ДИФФЕРЕНЦИРОВАННОГО ЗАЧЕТА ПО ПРОИЗВОДСТВЕННОЙ ПРАКТИКЕ
mybiblioteka.su - 2015-2024 год. (0.078 сек.)