TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField *ADODataSetHistoryCodComputerTehnika;
TIntegerField *ADODataSetHistoryCodManager;
TDateTimeField *ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField *ADODataSetComputerTehnikaDataProdazhi;
void __fastcall QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport2(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TFormReport2 *FormReport2;
//--------------------------------------------------------------------------
-
#endif
//--------------------------------------------------------------------------
-
#ifndef VidTehnikiH
#define VidTehnikiH
//--------------------------------------------------------------------------
-
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
//--------------------------------------------------------------------------
-
class TFormVidTehniki : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TDataSource *DataSourceManager;
TADODataSet *ADODataSetComputerTehnika;
TGroupBox *GroupBox1;
TDBEdit *DBEditName;
TPanel *Panel1;
TButton *ButtonAdd;
TButton *ButtonDelete;
TButton *ButtonChange;
TButton *ButtonExit;
TPanel *Panel2;
TButton *ButtonPost;
TButton *ButtonOtmen;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField *ADODataSetVidTehnikiName;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TBooleanField *ADODataSetComputerTehnikaProdan;
void __fastcall ButtonAddClick(TObject *Sender);
void __fastcall ButtonDeleteClick(TObject *Sender);
void __fastcall ButtonChangeClick(TObject *Sender);
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall ButtonPostClick(TObject *Sender);
void __fastcall ButtonOtmenClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DBEditNameKeyPress(TObject *Sender, char
&Key);
private: // User declarations
public: // User declarations
__fastcall TFormVidTehniki(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TFormVidTehniki *FormVidTehniki;
//--------------------------------------------------------------------------
-
#endif
//--------------------------------------------------------------------------
-
#ifndef VnalichiiH
#define VnalichiiH
//--------------------------------------------------------------------------
-
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Menus.hpp>
//--------------------------------------------------------------------------
-
class TFormVnalichii : public TForm
{
__published: // IDE-managed Components
TDBGrid *DBGridComputerTehnika;
TADODataSet *ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField *ADODataSetComputerTehnikaCod;
TWideStringField *ADODataSetComputerTehnikaName;
TBCDField *ADODataSetComputerTehnikaCena;
TBooleanField *ADODataSetComputerTehnikaProdan;
TDateTimeField *ADODataSetComputerTehnikaDataPostup;
TMemoField *ADODataSetComputerTehnikaOpisanie;
TBlobField *ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehniki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTehniki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall ButtonExitClick(TObject *Sender);
void __fastcall DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall FormShow(TObject *Sender);
void __fastcall ButtonPrintClick(TObject *Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormVnalichii(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TFormVnalichii *FormVnalichii;
//--------------------------------------------------------------------------
-
#endif
//--------------------------------------------------------------------------
-
#include <vcl.h>
#pragma hdrstop
#include "ComputerTehnika.h"
#include "DM.h"
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormComputerTehnika *FormComputerTehnika;
//--------------------------------------------------------------------------
-
__fastcall
TFormComputerTehnika::TFormComputerTehnika(TCompon
ent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------
-
void __fastcall
TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application-
>ExeName);
if(OpenDialogFoto->Execute()==true) //вызов диалога
выбора файла
{DBImageFoto->Visible=true;
s= OpenDialogFoto->FileName.c_str(); //получить
наименование выбранного файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="")
DBImageFoto->Visible=false;
}
}
//--------------------------------------------------------------------------
-
void __fastcall TFormComputerTehnika::FormShow(TObject
*Sender)
{
ADODataSetComputerTehnika->Close();
ADODataSetComputerTehnika->Open();
ADODataSetVidTehniki->Close();
ADODataSetVidTehniki->Open();
}
//--------------------------------------------------------------------------
-
//Выполняется при нажатии кнопки Добавить
void __fastcall
TFormComputerTehnika::ButtonAddClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->State==dsBrowse)
{ADODataSetComputerTehnika->Insert();
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;
DateTimePickerDataPostup->Date= Date();
DBEditName->SetFocus();
}
}
//--------------------------------------------------------------------------
-
//Выполняется при нажатии кнопки Удалить
void __fastcall
TFormComputerTehnika::ButtonDeleteClick(TObject
*Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть
ли данные в БД
{ButtonChange->Enabled=false;//сделать кнопку Изменить
недоступной
ButtonDelete->Enabled=false;//сделать кнопку Удалить
недоступной
ShowMessage("Данные отсутствуют в БД!"); //вывести
сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
if(Application->MessageBoxA("Подтвердите удаление
записи
!","Внимание",MB_ICONWARNING+MB_YESNO)==IDY
ES)
ADODataSetComputerTehnika->Delete();//удалить запись из
таблицы БД
}
//--------------------------------------------------------------------------
-
//Выполняется при нажатии кнопки Изменить
void __fastcall
TFormComputerTehnika::ButtonChangeClick(TObject
*Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть
ли данные в БД - кол-во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести
сообщение в виде окошка
return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
ADODataSetComputerTehnika->Edit();//перевести таблицу
БД в режим редактирования
Panel1->Visible=false;//сделать панель невидимой
Panel2->Visible=true;//сделать панель видимой
GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date=
ADODataSetComputerTehnikaDataPostup->Value;
DBEditName->SetFocus(); //установить фокус в поле для
ввода
}
//--------------------------------------------------------------------------
-
//Выполняется при нажатии кнопки Выход
void __fastcall
TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
}
//--------------------------------------------------------------------------
-
//------Выполняется при нажатии кнопки Запомнить
void __fastcall
TFormComputerTehnika::ButtonPostClick(TObject *Sender)
{
//------проверка всех введенных данных
if(DBEditName->Text=="" )//проверка введенных данных
{ShowMessage("Введите название !");//вывод диалогового
окна с сообщением
return;//выход из процедуры
}
if(DBEditCena->Text=="" )//проверка введенных данных
{ShowMessage("Введите цену !");//вывод диалогового
окна с сообщением
return;//выход из процедуры
}
if(DBMemoOpisanie->Text=="" )//проверка введенных
данных
{ShowMessage("Введите описание !");//вывод диалогового
окна с сообщением
return;//выход из процедуры
}
if(ADODataSetComputerTehnikaCodVidTehniki->Value==0
)//проверка введенных данных
{ShowMessage("Введите вид товара!");//вывод
диалогового окна с сообщением
return;//выход из процедуры
}