Автоматизированная система учета расчетов с покупателями и поставщиками на предприятии на основе данных ООО "Дагестан-Парус"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
p", Form6);("Unit10.cpp", Form10);("Unit8.cpp", Form8);("Unit9.cpp", Form9);("Unit11.cpp", Form11);("Unit12.cpp", Form12);("Unit13.cpp", Form13);("Unit17.cpp", Form27);("Unit18.cpp", Form18);("Unit14.cpp", Form14);("Unit15.cpp", Form15);("Unit16.cpp", Form16);
//---------------------------------------------------------------------------WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
{>Initialize();>CreateForm(__classid(TForm1), &Form1);>CreateForm(__classid(TForm2), &Form2);>CreateForm(__classid(TForm3), &Form3);>CreateForm(__classid(TForm4), &Form4);>CreateForm(__classid(TForm5), &Form5);>CreateForm(__classid(TForm7), &Form7);>CreateForm(__classid(TForm6), &Form6);>CreateForm(__classid(TForm10), &Form10);>CreateForm(__classid(TForm8), &Form8);>CreateForm(__classid(TForm9), &Form9);>CreateForm(__classid(TForm11), &Form11);>CreateForm(__classid(TForm12), &Form12);>CreateForm(__classid(TForm13), &Form13);>CreateForm(__classid(TForm27), &Form27);>CreateForm(__classid(TForm18), &Form18);>CreateForm(__classid(TForm14), &Form14);>CreateForm(__classid(TForm15), &Form15);>CreateForm(__classid(TForm16), &Form16);>Run();
}(Exception &exception)
{>ShowException(&exception);
}(...)
{
{Exception("");
}(Exception &exception)
{>ShowException(&exception);
}
}0;
}
//-------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit3.h"
#include "Unit2.h"
#include "Unit1.h"
#include "Unit7.h"
//#include "Unit14.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{(Form2->Visible)
{->Edit3->Text = Table1Name->AsString;
}(Form7->Visible)
{->Edit3->Text = Table1Name->AsString;
}
//if (Form14->Visible)
//{
//Form14->Edit7->Text = Table1Name->AsString;
//}
//
}
//---------------------------------------------------------------------------__fastcall TForm3::FormCreate(TObject *Sender)
{->Active = true;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit3.h"
#include "Unit2.h"
#include "Unit1.h"
#include "Unit7.h"
//#include "Unit14.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{(Form2->Visible)
{->Edit3->Text = Table1Name->AsString;
}(Form7->Visible)
{->Edit3->Text = Table1Name->AsString;
}
//if (Form14->Visible)
//{
//Form14->Edit7->Text = Table1Name->AsString;
//}
//
}
//---------------------------------------------------------------------------__fastcall TForm3::FormCreate(TObject *Sender)
{->Active = true;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit5.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm5::FormCreate(TObject *Sender)
{->Active = true;
}
//---------------------------------------------------------------------------__fastcall TForm5::FormDeactivate(TObject *Sender)
{(Form2->Visible)
{->Edit6->Text = Table1->FieldByName("Nom_d")->AsString+ " от "+->FieldByName("Dt")->AsString;
}(Form7->Visible)
{->Edit4->Text = Table1->FieldByName("Nom_d")->AsString+ " от "+->FieldByName("Dt")->AsString;
}
}
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit6.h"
#include "Unit1.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm6::Edit1Change(TObject *Sender)
{SearchOptions;Text,SearchOptions);
}
//---------------------------------------------------------------------------__fastcall TForm6::Table1AfterScroll(TDataSet *DataSet)
{
//Label1->Caption= "Поиск";
}
//---------------------------------------------------------------------------__fastcall TForm6::FormDeactivate(TObject *Sender)
{
// if (Form12->Visible)
//{
//Form12->Edit1->Text = Table1->FieldByName("Name")->AsString;
//Form12->Edit2->Text = Table1->FieldByName("Kod")->AsString;
//Form7->Edit11->Text = Table1->FieldByName("Kod")->AsString;
//}
//if (Form10->Visible)
//{
//Form10->Edit4->Text = Table1->FieldByName("Nomen")->AsString;
//Form10->Edit8->Text = Table1->FieldByName("Cena")->AsString;
//Form10->Edit7->Text = Table1->FieldByName("Kod")->AsString;
//}
}
//---------------------------------------------------------------------------
#include
#include
#include
#pragma hdrstop
#include "Unit7.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit18.h"
//#include "Unit18.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm7::Button1Click(TObject *Sender)
{(!Form3->Visible) Form3->Show();
}
//---------------------------------------------------------------------------__fastcall TForm7::Button4Click(TObject *Sender)
{->Date = Date();->Append();
}
//---------------------------------------------------------------------------__fastcall TForm7::Button3Click(TObject *Sender)
{(!Form4->Visible) Form4->Show();
}
//---------------------------------------------------------------------------__fastcall TForm7::Button7Click(TObject *Sender)
{->Active= true;->Filter = "Nom="+Edit5->Text+"";->Filtered =true;->First();
// Table2->First();ss=0;(!Table2->Eof)
{=ss+Table2Sum->AsFloat;->Next();
}->First();->Caption=FloatToStr(ceil(ss*118)/100);->Caption=FloatToStr(ceil(ss*18)/100);->Edit();Nom->AsString = Edit5->Text;Dt1->AsDateTime=DateTimePicker1->Date;Platel->AsString = Edit3->Text;Dogov->AsString=Edit4->Text;Sklad->AsString=Edit6->Text;Vid_otg->AsString=ComboBox1->Text;Zac_av->AsString=ComboBox2->Text;Nalogy->AsString=ComboBox3->Text;Typ_cen->AsString=ComboBox4->T