Автоматизированная система учета расчетов с покупателями и поставщиками на предприятии на основе данных ООО "Дагестан-Парус"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ext;->FieldByName("Vse")->AsFloat = StrToFloat(Label16->Caption);->FieldByName("Nds")->AsFloat = StrToFloat(Label17->Caption);->FieldByName("Komm")->AsString = Edit1->Text;->Post();
}
//---------------------------------------------------------------------------__fastcall TForm7::Button8Click(TObject *Sender)
{->Append();->Edit();Nom->AsString = Edit5->Text;Nds->AsInteger = 18;
//Table2->Post();->Edit();
}
//---------------------------------------------------------------------------__fastcall TForm7::FormShow(TObject *Sender)
{->Active=true;->Active=true;ss;->Date=Table1Dt1->AsDateTime;->Text=Table1Nom->AsString;->Text=Table1Platel->AsString;->Text=Table1Dogov->AsString;->Text=Table1Sklad->AsString;->Text=Table1Vid_otg->AsString;->Text=Table1Zac_av->AsString;->Text=Table1Nalogy->AsString;->Text=Table1Typ_cen->AsString;->Active= true;->Filter = "Nom="+Edit5->Text+"";->Filtered =true;->First();
// Table2->First();=0;(!Table2->Eof)
{=ss+Table2Sum->AsFloat;->Next();
}->First();->Caption=FloatToStr(ceil(ss*118)/100);->Caption=FloatToStr(ceil(ss*18)/100);
}
//---------------------------------------------------------------------------__fastcall TForm7::Table2CalcFields(TDataSet *DataSet)
{Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat
*Table2Nds->AsInteger)/100;Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;
}
//---------------------------------------------------------------------------__fastcall TForm7::Table1AfterScroll(TDataSet *DataSet)
{ss;->Date=Table1Dt1->AsDateTime;->Text=Table1Nom->AsString;->Text=Table1Platel->AsString;->Text=Table1Dogov->AsString;->Text=Table1Sklad->AsString;->Text=Table1Vid_otg->AsString;->Text=Table1Zac_av->AsString;->Text=Table1Nalogy->AsString;->Text=Table1Typ_cen->AsString;->Active= true;->Filter = "Nom="+Edit5->Text+"";->Filtered =true;->First();
// Table2->First();=0;(!Table2->Eof)
{=ss+Table2Sum->AsFloat;->Next();
}->First();->Caption=FloatToStr(ceil(ss*118)/100);->Caption=FloatToStr(ceil(ss*18)/100);
}
//---------------------------------------------------------------------------__fastcall TForm7::Button6Click(TObject *Sender)
{->Close();
}
//---------------------------------------------------------------------------__fastcall TForm7::Button2Click(TObject *Sender)
{(!Form5->Visible) Form5->Show();
}
//---------------------------------------------------------------------------__fastcall TForm7::Button5Click(TObject *Sender)
{->Filter = "Nom="+Edit5->Text+"";->Filtered=true;->Filter = "Nom="+Edit5->Text+"";->Filtered=true;->QuickRep1->Preview();->Filtered=false;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit8.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit9.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm9::FormShow(TObject *Sender)
{->Active=true;->Active=true;->Filter="Nom ="+DBEdit1->Text+"";->Filtered=true;
}
//---------------------------------------------------------------------------__fastcall TForm9::Table1AfterScroll(TDataSet *DataSet)
{->Active=true;->Active=true;->Filter="Nom ="+DBEdit1->Text+"";->Filtered=true;
}
//---------------------------------------------------------------------------__fastcall TForm9::Table2CalcFields(TDataSet *DataSet)
{->Active= true;
//Table2->Edit();Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat
*Table2Nds->AsInteger)/100;Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
">#include
#include
#include
#pragma hdrstop
#include "Unit10.h"
#include "Unit1.h"
#include "Unit14.h"
#include "Unit15.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form10;
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm10::Button4Click(TObject *Sender)
{->Append();->Date = Date();nom=0;=Table1->RecordCount;->Text =IntToStr(nom+1);
}
//---------------------------------------------------------------------------__fastcall TForm10::FormShow(TObject *Sender)
{->Active=true;->Active=true;
}
//---------------------------------------------------------------------------__fastcall TForm10::Button1Click(TObject *Sender)
{->Filter = "Nom="+Edit10->Text+"";->Filtered =true;->First();
// Table2->First();ss=0;(!Table2->Eof)
{=ss+Table2Sum->AsFloat;->Next();
}->First();->Text = ceil(ss*118)/100;->Text = ceil(ss*18)/100;->Edit();Nom->AsString= Edit10->Text;Dt->AsDateTime=DTsc1->Date;->FieldByName("Prod")->AsString = Edit1->Text;->FieldByName("Adr")->AsString = Edit2->Text;->FieldByName("Inn")->AsString = MaskEdit1->Text;->FieldByName("Grotp")->AsString = Edit4->Text;->FieldByName("Grpol")->AsString = Edit5->Text;->FieldByName("Prsc")->AsString = Edit6->Text;->FieldByName("Pok")->AsString = Edit7->Text;->FieldByName("Adr2")->AsString = Edit8->Text;->FieldByName("Inn1")->AsString = MaskEdit2->Text;->FieldByName("Ruk")->AsString = Edit13->Text;->FieldByName("Glbuch")->AsString = Edit14->Text;->FieldByName("Snal")->AsFloat = StrToFloat(Edit11->Text);->FieldByName("Sum")->AsFloat = StrToFloat(Edit12->Text);->Post();
}
//---------------------------------------------------------------------------__fastcall TForm10::Button5Click(TObject *Sender)
{->Append();->Edit();Nom->AsString = Edit10->Text;Nal->AsInteger = 18;->Edit();->Filter = "Nom="+Edit10->Text+"";->Filtered =true;
}
//---------------------------------------------------------------------------__fastcall TForm10::Table2CalcFields(TDataSet *DataSet)
{->Active= true;Sum->AsFloat = Table2Kol->AsInteger*Table2Cen->AsFloat;Snds->AsFloat = (Table2Kol->AsInteger*Table2Cen->AsFloat
*Table2Nal->AsInteger)/100;Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;
}
//---------------------------------------------------------------------------__fastcall TForm10::Table1AfterScroll(TDataSet *DataSet)
{->Text = Table1Nom->AsString;->Date = Table1Dt->AsDateTime;->Text = Table1->FieldByName("Grotp")->AsString;->Text = Table1->FieldByName("Grpol")->AsString;->Text = Table1->FieldByName("Prsc")->AsString;->Text = Table1->FieldByName("Pok")->AsString;->Text = Table1->FieldByName("Adr2")->AsString;->Text = Table1->FieldByName("Inn1")->AsString;->Active= true;->Filter = "Nom="+Edit10->Text+"";->Filtered =true;->First();
// Table2->First();ss=0;(!Table2->Eof)
{=ss+Table2Sum->AsFloat;->Next();
}->Text = ceil(ss*118)/100;->Text = ceil(ss*18)/100;
}
//-------------------------------------------------------------