Дипломная работа: Автоматизация учета посещений клиентов в ООО "Палестра"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
86
}
//---------------------------------------------------------------------------
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;
87
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)==IDYES)
ADODataSetComputerTehnika->Delete();//удалить запись из таблицы БД
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Изменить
void fastcall TFormComputerTehnika::ButtonChangeClick(TObject *Sender)
{
if(ADODataSetComputerTehnika->RecordCount==0) //есть ли данные в БД - кол-
во записей в таблице БД
{ShowMessage("Данные отсутствуют в БД!");//вывести сообщение в виде
окошка return;//выход из формы
}
if(ADODataSetComputerTehnika->State==dsBrowse)
88
ADODataSetComputerTehnika->Edit();//перевести таблицу БД в режим
редактирования
Panel1->Visible=false;//сделать панель невидимой Panel2->Visible=true;//сделать
панель видимой GroupBox1->Visible=true;//сделать панель видимой
DateTimePickerDataPostup->Date= ADODataSetComputerTehnikaDataPostup-
>Value;
DBEditName->SetFocus(); //установить фокус в поле для ввода
}
//---------------------------------------------------------------------------
//Выполняется при нажатии кнопки Выход
void fastcall TFormComputerTehnika::ButtonExitClick(TObject *Sender)
{
Close();
TWideStringField *ADODataSetManagerPassword; TIntegerField
*ADODataSetManagerCodDolgnost; TADODataSet *ADODataSetDolgnost;
TAutoIncField *ADODataSetDolgnostCod; TWideStringField
*ADODataSetDolgnostName; TStringField *ADODataSetManagerNameDolgnost;
TGroupBox *GroupBox1;
TLabel *Label1; TDBEdit *DBEditFIO; TLabel *Label2;
TDBLookupComboBox *DBLookupComboBoxDolgnost; TDataSource
*DataSourceDolgnost;
TLabel *Label3; TDBEdit *DBEditOklad; TLabel *Label4;
TDBEdit *DBEditPasport; TLabel *Label5;
TDBEdit *DBEditPassword;
TLabel *Label6;
TDateTimePicker *DateTimePicker1; TPanel *Panel1;
TButton *ButtonAdd; TButton *ButtonDelete; TButton *ButtonChange; TButton
*ButtonExit; TPanel *Panel2; TButton *ButtonPost; TButton *ButtonOtmen;
TPopupMenu *PopupMenu1; TMenuItem *N1;
void fastcall FormShow(TObject *Sender);
89
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 N1Click(TObject *Sender);
private: // User declarations public: // User declarations
fastcall TFormManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormManager *FormManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef OtchetManagerH #define OtchetManagerH
//---------------------------------------------------------------------------
#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 <Menus.hpp>
//---------------------------------------------------------------------------
class TFormOtchetManager : public TForm
{
published: // IDE-managed Components TDBGrid *DBGridManager; TADODataSet
*ADODataSetManager; TDataSource *DataSourceManager; TADODataSet
*ADODataSetDolgnost; TDataSource *DataSourceDolgnost;
TADODataSet *ADODataSetComputerTehnika; TDataSource
*DataSourceComputerTehnika; TADODataSet *ADODataSetHistory; TDataSource
*DataSourceHistory; TPopupMenu *PopupMenu1;
TMenuItem *N1;
TButton *ButtonExit;
void fastcall FormShow(TObject *Sender); void fastcall N1Click(TObject *Sender);
90
void fastcall ButtonExitClick(TObject *Sender); private: // User declarations
public: // User declarations
astcall TFormOtchetManager(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFormOtchetManager *FormOtchetManager;
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#ifndef ProdanoH #define ProdanoH
//---------------------------------------------------------------------------
#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 TFormProdano : 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;
Источник: https://baza.diplomsite.ru/previewfile/2405

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009