Диплом: Автоматизация рабочего места менеджера по связям с контрагентами ООО "ГЕОСЕРВИС"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
91
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField
*ADODataSetHistoryCodManager;
TDateTimeField
*ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall
DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall ButtonProdatClick(TObject
*Sender);
void __fastcall ButtonExitClick(TObject
*Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormProdazha
*FormProdazha;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef SpravkaH
#define SpravkaH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//-------------------------------------------------------
--------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed
Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject
*Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormSpravka
*FormSpravka;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef UnitReportH
#define UnitReportH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//-------------------------------------------------------
--------------------
class TFormReport : public TForm
{
__published: // IDE-managed
Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet
*ADODataSetComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField
*ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
void __fastcall
QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject
*Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent*
Owner);
92
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormReport
*FormReport;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef UnitReport2H
#define UnitReport2H
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//-------------------------------------------------------
--------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed
Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet
*ADODataSetComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField
*ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
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;
93
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
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
*ADODataSetComputerTehnikaCodVidTehni
ki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
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::TFormComputerTe
hnika(TComponent* Owner)
: TForm(Owner)
{
}
//-------------------------------------------------------
--------------------
void __fastcall
TFormComputerTehnika::ButtonFotoClick(T
Object *Sender)
{ char *s;
OpenDialogFoto->InitialDir=
ExtractFileDir(Application->ExeName);
if(OpenDialogFoto->Execute()==true) //вызов
диалога выбора файла
94
{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(TO
bject *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)==IDYES)
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(TO
bject *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);
void __fastcall ButtonAddClick(TObject
*Sender);
void __fastcall ButtonDeleteClick(TObject
*Sender);
void __fastcall ButtonChangeClick(TObject
*Sender);
void __fastcall ButtonExitClick(TObject
*Sender);
95
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);
void __fastcall ButtonExitClick(TObject
*Sender);
private: // User declarations
public: // User declarations
__fastcall
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
*ADODataSetComputerTehnikaCodVidTehni
ki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
TDBImage *DBImageFoto;
TDBMemo *DBMemoOpisanie;
TButton *ButtonExit;
TButton *ButtonPrint;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
TDataSource *DataSourceHistory;
TADODataSet *ADODataSetHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField
*ADODataSetHistoryCodManager;
TDateTimeField
*ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TDateField
*ADODataSetComputerTehnikaDataProdazhi;
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
96
__fastcall TFormProdano(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormProdano
*FormProdano;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef ProdazhaH
#define ProdazhaH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <Menus.hpp>
//-------------------------------------------------------
--------------------
class TFormProdazha : public TForm
{
__published: // IDE-managed
Components
TLabel *Label1;
TDateTimePicker
*DateTimePickerDataProdazhi;
TGroupBox *GroupBox1;
TDBGrid *DBGridComputerTehnika;
TADODataSet
*ADODataSetComputerTehnika;
TDataSource *DataSourceComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TButton *ButtonProdat;
TGroupBox *GroupBoxOpisanie;
TDBMemo *DBMemoOpisanie;
TDBImage *DBImageFoto;
TButton *ButtonExit;
TADODataSet *ADODataSetHistory;
TDataSource *DataSourceHistory;
TAutoIncField *ADODataSetHistoryCod;
TIntegerField
*ADODataSetHistoryCodComputerTehnika;
TIntegerField
*ADODataSetHistoryCodManager;
TDateTimeField
*ADODataSetHistoryDataProdazhi;
TBCDField *ADODataSetHistoryCena;
TPopupMenu *PopupMenu1;
TMenuItem *N1;
TMenuItem *N2;
void __fastcall FormShow(TObject *Sender);
void __fastcall
DBGridComputerTehnikaCellClick(TColumn
*Column);
void __fastcall ButtonProdatClick(TObject
*Sender);
void __fastcall ButtonExitClick(TObject
*Sender);
void __fastcall N1Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormProdazha(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormProdazha
*FormProdazha;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef SpravkaH
#define SpravkaH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//-------------------------------------------------------
--------------------
class TFormSpravka : public TForm
{
__published: // IDE-managed
Components
TMemo *MemoSpravka;
TMemo *Memo1;
TButton *ButtonExit;
void __fastcall ButtonExitClick(TObject
*Sender);
private: // User declarations
public: // User declarations
__fastcall TFormSpravka(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormSpravka
*FormSpravka;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef UnitReportH
#define UnitReportH
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
97
#include <ADODB.hpp>
//-------------------------------------------------------
--------------------
class TFormReport : public TForm
{
__published: // IDE-managed
Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet
*ADODataSetComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField
*ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
void __fastcall
QuickRep1AfterPreview(TObject *Sender);
void __fastcall FormActivate(TObject
*Sender);
void __fastcall FormShow(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TFormReport(TComponent*
Owner);
};
//-------------------------------------------------------
--------------------
extern PACKAGE TFormReport
*FormReport;
//-------------------------------------------------------
--------------------
#endif
//-------------------------------------------------------
--------------------
#ifndef UnitReport2H
#define UnitReport2H
//-------------------------------------------------------
--------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <QRCtrls.hpp>
#include <QuickRpt.hpp>
#include <ADODB.hpp>
//-------------------------------------------------------
--------------------
class TFormReport2 : public TForm
{
__published: // IDE-managed
Components
TQuickRep *QuickRep1;
TQRBand *QRBand1;
TQRLabel *QRLabel1;
TQRBand *QRBand2;
TQRBand *QRBand3;
TQRLabel *QRLabel2;
TQRLabel *QRLabel3;
TQRLabel *QRLabel4;
TDataSource *DataSourceComputerTehnika;
TQRLabel *QRLabel5;
TQRBand *QRBand4;
TQRDBText *QRDBText1;
TQRDBText *QRDBText2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText4;
TADODataSet
*ADODataSetComputerTehnika;
TAutoIncField
*ADODataSetComputerTehnikaCod;
TWideStringField
*ADODataSetComputerTehnikaName;
TBCDField
*ADODataSetComputerTehnikaCena;
TBooleanField
*ADODataSetComputerTehnikaProdan;
TDateTimeField
*ADODataSetComputerTehnikaDataPostup;
TMemoField
*ADODataSetComputerTehnikaOpisanie;
TBlobField
*ADODataSetComputerTehnikaPicture;
TIntegerField
*ADODataSetComputerTehnikaCodVidTehni
ki;
TADODataSet *ADODataSetVidTehniki;
TDataSource *DataSourceVidTehniki;
TAutoIncField *ADODataSetVidTehnikiCod;
TWideStringField
*ADODataSetVidTehnikiName;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
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);
98
};
//-------------------------------------------------------
--------------------
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
*ADODataSetComputerTehnikaCodVidTehni
ki;
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
*ADODataSetComputerTehnikaCodVidTehni
ki;
TDataSource *DataSourceVidTehniki;
TADODataSet *ADODataSetVidTehniki;
TStringField
*ADODataSetComputerTehnikaNameVidTeh
niki;
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::TFormComputerTe
hnika(TComponent* Owner)
: TForm(Owner)
{
}
//-------------------------------------------------------
--------------------
void __fastcall
TFormComputerTehnika::ButtonFotoClick(T
Object *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(TO
bject *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)==IDYES)
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(); //установить
фокус в поле для ввода
}
//-------------------------------------------------------
--------------------
100
//Выполняется при нажатии кнопки Выход
void __fastcall
TFormComputerTehnika::ButtonExitClick(TO
bject *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);
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);
void __fastcall ButtonExitClick(TObject
*Sender);
private: // User declarations
public: // User declarations
__fastcall
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;

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)