Автоматизированное рабочее место производственно-технического отдела

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

-----------------------------------------------------------__fastcall TForm3:: Timer2Timer (TObject *Sender)

{(sEdit4->Text! ="" && sEdit5->Text! ="" && sEdit6->Text! ="") {sButton4->Enabled=true; }{sButton4->Enabled=false; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton4Click (TObject *Sender)

{a;->QRLabel2->Caption=sEdit4->Text;->QRLabel5->Caption=sEdit5->Text+" "+sEdit6->Text;(int i=0; DataModule4->ADOQuery14->RecordCount>i; i++) {=a+ (DataModule4->ADOQuery14->FieldValues ["Stoimoct"]);->ADOQuery14->Next (); }->QRLabel21->Caption=IntToStr (a) +" руб. ";->QuickRep1->Preview ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sEdit7Change (TObject *Sender)

{(int i=0; iVisible=true; }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton7Click (TObject *Sender)

{->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton5Click (TObject *Sender)

{(DataModule4->ADOQuery16Name->Text==DataModule4->ADOQuery14Name->Text) {Application->MessageBoxA ("Запись существует, добавление не возможно!","Ошибка. ",16); }{->ADOQuery16->Append ();->ADOQuery16Name->Text=DataModule4->ADOQuery14Name->Text;->ADOQuery16cena_city_otp->Text=DataModule4->ADOQuery14cena_city_otp->Text;->ADOQuery16cena_selo_otp->Text=DataModule4->ADOQuery14cena_selo_otp->Text;->ADOQuery16cena_city_smet->Text=DataModule4->ADOQuery14cena_city_smet->Text;->ADOQuery16cena_selo_smet->Text=DataModule4->ADOQuery14cena_selo_smet->Text;->ADOQuery16->Post (); }

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton11Click (TObject *Sender)

{->Visible=true;

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton6Click (TObject *Sender)

{i;a1,a2,a3,a4;(i=0; DataModule4->ADOQuery16->RecordCount>i; i++) {=a1+ (DataModule4->ADOQuery16->FieldValues ["cena_city_otp"]);=a2+ (DataModule4->ADOQuery16->FieldValues ["cena_selo_otp"]);=a3+ (DataModule4->ADOQuery16->FieldValues ["cena_city_smet"]);=a4+ (DataModule4->ADOQuery16->FieldValues ["cena_selo_smet"]);->ADOQuery16->Next (); }->QRLabel9->Caption=FormatFloat ("0.00",a1) +" руб. ";->QRLabel10->Caption=FormatFloat ("0.00",a2) +" руб. ";->QRLabel11->Caption=FormatFloat ("0.00",a3) +" руб. ";->QRLabel12->Caption=FormatFloat ("0.00",a4) +" руб. ";->QuickRep1->Preview ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton8Click (TObject *Sender)

{->ADOQuery16->Delete ();

}

// ---------------------------------------------------------------------------__fastcall TForm3:: sButton2Click (TObject *Sender) {->Close ();->Show (); }

// ---------------------------------------------------------------------------

Добавление/Редактирование

// ---------------------------------------------------------------------------

#include

#pragma hdrstop

#include "Unit1. h"

#include "Unit2. h"

#include "Unit3. h"

#include "Unit4. h"

#include "Unit5. h"

// ---------------------------------------------------------------------------

#pragma package (smart_init)

#pragma link "acDBGrid"

#pragma link "sButton"

#pragma link "sDBEdit"

#pragma link "sDBLookupComboBox"

#pragma link "sGroupBox"

#pragma link "sLabel"

#pragma link "sPanel"

#pragma link "sStatusBar"

#pragma link "sCustomComboEdit"

#pragma link "sMaskEdit"

#pragma link "sTooledit"

#pragma link "sDBLookupListBox"

#pragma link "sCurrEdit"

#pragma link "sDBListBox"

#pragma link "sPageControl"

#pragma link "sSpeedButton"

#pragma link "sCheckListBox"

#pragma link "sListBox"

#pragma link "sBevel"

#pragma link "sCheckBox"

#pragma link "sEdit"

#pragma link "sRadioButton"

#pragma link "sMemo"

#pragma resource "*. dfm"*Form5;

// ---------------------------------------------------------------------------

__fastcall TForm5:: TForm5 (TComponent* Owner)

: TForm (Owner)

{

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton4Click (TObject *Sender)

{->Close ();->Show ();

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton3Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton2Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton1Click (TObject *Sender)

{->Visible=false;->Visible=true;->Visible=false;->Visible=false;

}

// ---------------------------------------------------------------------------__fastcall TForm5:: sButton8Click (TObject *Sender)