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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
96
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
97
{
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;
98
//---------------------------------------------------------------------------
#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;
99
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(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void fastcall TFormComputerTehnika::ButtonFotoClick(TObject *Sender)
{ char *s;
OpenDialogFoto->InitialDir= ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов диалога выбора файла
{DBImageFoto->Visible=true;
100
s= OpenDialogFoto->FileName.c_str(); //получить наименование выбранного
файла с полным путем
DBImageFoto->Picture->LoadFromFile(s);
}
else
{if(ADODataSetComputerTehnikaPicture->Value=="") DBImageFoto-
>Visible=false;
}
}
Источник: https://baza.diplomsite.ru/previewfile/2405

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

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