Исходный код

program Project1;
uses
 Forms,
 Unit1 in 'Unit1.pas' {Form1},
 Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
 Unit4 in 'Unit4.pas' {Form4},
 Unit5 in 'Unit5.pas' {Form5},
 Unit6 in 'Unit6.pas' {Form6},
 Unit7 in 'Unit7.pas' {Form7},
 Unit3 in 'Unit3.pas' {Form3},
 Unit8 in 'Unit8.pas' {Form8},
 Unit9 in 'Unit9.pas' {Form9},
 Unit10 in 'Unit10.pas' {Form10};
{$R *.res}
begin
 Application.Initialize;
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TDataModule2, DataModule2);
 Application.CreateForm(TForm4, Form4);
 Application.CreateForm(TForm5, Form5);
 Application.CreateForm(TForm6, Form6);
 Application.CreateForm(TForm7, Form7);
 Application.CreateForm(TForm3, Form3);
 Application.CreateForm(TForm8, Form8);
 Application.CreateForm(TForm9, Form9);
 Application.CreateForm(TForm10, Form10);
 Application.Run;
end.
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, DBCtrls;
type
 TForm1 = class(TForm)
 MainMenu1: TMainMenu;
 N1: TMenuItem;
 N3: TMenuItem;
 N7: TMenuItem;
 N8: TMenuItem;
 N9: TMenuItem;
 MonthCalendar1: TMonthCalendar;
 Label1: TLabel;
 Panel1: TPanel;
 Panel2: TPanel;
 Label2: TLabel;
 Label3: TLabel;
 N14: TMenuItem;
 DBGrid1: TDBGrid;
 DBNavigator1: TDBNavigator;
 DBGrid2: TDBGrid;
 DBNavigator2: TDBNavigator;
 N2: TMenuItem;
 N4: TMenuItem;
 procedure N1Click(Sender: TObject);
 procedure N4Click(Sender: TObject);
 procedure N3Click(Sender: TObject);
 procedure FormShow(Sender: TObject);
 procedure N7Click(Sender: TObject);
 procedure N8Click(Sender: TObject);
 procedure N9Click(Sender: TObject);
 procedure MonthCalendar1Click(Sender: TObject);
 procedure N2Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
implementation
uses Unit3, Unit4, Unit5, Unit2, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm1.N1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form9.DateTimePicker1.Date:=Date();
Form9.DateTimePicker2.Date:=Date();
Form9.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
If Form1.Label1.Caption='3'
 then DataModule2.DataSource_Customer.DataSet:=DataModule2.Table_Customer
 else begin
 DataModule2.Query_Customer.Active:=false;
 DataModule2.Query_Customer.SQL.Clear;
 DataModule2.Query_Customer.SQL.Add('SELECT Customer.*');
 DataModule2.Query_Customer.SQL.Add('FROM Customer');
 DataModule2.Query_Customer.SQL.Add('WHERE (((Customer.Id_manager)=' + Form1.Label1.Caption + '));');
 DataModule2.Query_Customer.Active:=true;
 DataModule2.DataSource_Customer.DataSet:=DataModule2.Query_Customer;
 end;
Form6.ShowModal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
If Form1.Label1.Caption='3'
 then DataModule2.DataSource_Customer.DataSet:=DataModule2.Table_Customer
 else begin
 DataModule2.Query_Customer.Active:=false;
 DataModule2.Query_Customer.SQL.Clear;
 DataModule2.Query_Customer.SQL.Add('SELECT Customer.*');
 DataModule2.Query_Customer.SQL.Add('FROM Customer');
 DataModule2.Query_Customer.SQL.Add('WHERE (((Customer.Id_manager)=' + Form1.Label1.Caption + '));');
 DataModule2.Query_Customer.Active:=true;
 DataModule2.DataSource_Customer.DataSet:=DataModule2.Query_Customer;
 end;
Form3.DateTimePicker1.Date:=Date();
Form3.DateTimePicker2.Time:=Time();
Form3.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
If Form1.Label1.Caption='3'
 then DataModule2.DataSource_Customer.DataSet:=DataModule2.Table_Customer
 else begin
 If DataModule2.Query_Customer.Active=true then DataModule2.Query_Customer.Active:=false;
 DataModule2.Query_Customer.SQL.Clear;
 DataModule2.Query_Customer.SQL.Add('SELECT Customer.*');
 DataModule2.Query_Customer.SQL.Add('FROM Customer');
 DataModule2.Query_Customer.SQL.Add('WHERE (((Customer.Id_manager)=' + Form1.Label1.Caption + '));');
 DataModule2.Query_Customer.Active:=true;
DataModule2.DataSource_Customer.DataSet:=DataModule2.Query_Customer;
 end;
Form7.DateTimePicker1.Date:=Date();
Form7.DateTimePicker2.Time:=Time();
Form7.ShowModal;
end;
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
DataModule2.Query_Call_Current.Active:=false;
DataModule2.Query_Call_Current.Active:=true;
DataModule2.Query_Meet_Current.Active:=false;
DataModule2.Query_Meet_Current.Active:=true;
 If Form1.Label1.Caption='3' then
 begin
 DataModule2.Query_Call_Current.Filtered:=true;
 DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);
 DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);
 end
 else begin
 DataModule2.Query_Call_Current.Filtered:=true;
 DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;
 DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;
 end;
 end;
procedure TForm1.N2Click(Sender: TObject);
begin
DataModule2.Query_Rep1.Active:=false;
DataModule2.Query_Rep1.Active:=true;
If Form1.Label1.Caption='3' then
 DataModule2.Query_Rep1.Filtered:=false else
 begin
 DataModule2.Query_Rep1.Filtered:=true;
 DataModule2.Query_Rep1.Filter:='Customer.Id_manager=' +Form1.Label1.Caption;
 end;
Form8.QuickRep1.PreviewModal;
end;
end.
unit Unit2;
interface
uses
 SysUtils, Classes, DB, ADODB;
type
 TDataModule2 = class(TDataModule)
 ADOConnection1: TADOConnection;
 Table_Manager: TADOTable;
 DataSource_Manager: TDataSource;
 Table_Customer: TADOTable;
 DataSource_Customer: TDataSource;
 Query_Customer: TADOQuery;
 DataSource_Call: TDataSource;
 Query_Call: TADOQuery;
 Query_Meet: TADOQuery;
 DataSource_Meet: TDataSource;
 Query_Call_Current: TADOQuery;
 Query_Meet_Current: TADOQuery;
 DataSource_Call_Current: TDataSource;
 DataSource_Meet_Current: TDataSource;
 Query_Rep1: TADOQuery;
 DataSource_Rep1: TDataSource;
 Query_Rep2: TADOQuery;
 DataSource_Rep2: TDataSource;
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
 TForm3 = class(TForm)
 DBGrid1: TDBGrid;
 DBNavigator1: TDBNavigator;
 DBGrid2: TDBGrid;
 DBNavigator2: TDBNavigator;
 DateTimePicker1: TDateTimePicker;
 DateTimePicker2: TDateTimePicker;
 CheckBox1: TCheckBox;
 Edit1: TEdit;
 BitBtn1: TBitBtn;
 BitBtn2: TBitBtn;
 Label1: TLabel;
 procedure BitBtn1Click(Sender: TObject);
 procedure DBGrid1CellClick(Column: TColumn);
 procedure BitBtn2Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form3: TForm3;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
DataModule2.Query_Call.Insert;
DataModule2.Query_Call.FieldByName('Time').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);
DataModule2.Query_Call.FieldByName('Date').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);
DataModule2.Query_Call.FieldByName('Comments').AsString:=Edit1.Text;
DataModule2.Query_Call.FieldByName('Id_customer').AsString:=DataModule2.Query_Customer.FieldByName('Id_customer').AsString;
DataModule2.Query_Call.FieldByName('Id_manager').AsString:=Form1.Label1.Caption;
DataModule2.Query_Call.FieldByName('First').AsBoolean:=CheckBox1.Checked;
DataModule2.Query_Call.Post;
Edit1.Text:='';
DateTimePicker1.Date:=Date();
DateTimePicker2.Time:=Time();
CheckBox1.Checked:=false;
end;
procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
If DataModule2.Query_Customer.RecordCount > 0 then
 begin
If DataModule2.Query_Call.Active=true then DataModule2.Query_Call.Active:=false;
DataModule2.Query_Call.SQL.Clear;
DataModule2.Query_Call.SQL.Add('SELECT Call.*');
DataModule2.Query_Call.SQL.Add('FROM Call');
DataModule2.Query_Call.SQL.Add('WHERE (((Call.Id_manager)=' + Form1.Label1.Caption + ') AND ((Call.Id_customer) =' + DataModule2.Query_Customer.FieldByName('Id_customer').AsString +'));');
DataModule2.Query_Call.Active:=true;
 end;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
DataModule2.Query_Call.Cancel;
Close;
end;
end.
unit Unit4;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Unit2, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons;
type
 TForm4 = class(TForm)
 DBGrid1: TDBGrid;
 DBNavigator1: TDBNavigator;
 BitBtn1: TBitBtn;
 procedure BitBtn1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
DataModule2.Table_Manager.Cancel;
Close;
end;
end.
unit Unit5;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, DBCtrls, Unit2;
type
 TForm5 = class(TForm)
 DBLookupComboBox1: TDBLookupComboBox;
 Edit1: TEdit;
 BitBtn1: TBitBtn;
 BitBtn2: TBitBtn;
 Label1: TLabel;
 Label2: TLabel;
 procedure BitBtn2Click(Sender: TObject);
 procedure BitBtn1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form5: TForm5;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
If DataModule2.Table_Manager.FieldByName('Pass').AsString = Edit1.Text then
 begin
 Form1.MonthCalendar1.Date:=Date();
 Form1.Caption:=Form1.Caption + ' ' + DataModule2.Table_Manager.FieldByName('FIO_manager').AsString;
 Form1.Label1.Caption:=DataModule2.Table_Manager.FieldByName('Id_manager').AsString;
 If Form1.Label1.Caption='3' then
 begin
 DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);
 DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39);
 end
 else begin
 DataModule2.Query_Call_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;
 DataModule2.Query_Meet_Current.Filter:='Date>='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(Form1.MonthCalendar1.Date+1)+Chr(39)+' And Id_manager=' +Form1.Label1.Caption;
 Form1.N3.Visible:=false;
 end;
 Close;
 end
else ShowMessage(‘Неправильный пароль’);
end;
end.
unit Unit6;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Unit2, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask,
 Buttons;
type
 TForm6 = class(TForm)
 DBNavigator1: TDBNavigator;
 DBGrid1: TDBGrid;
 DBEdit1: TDBEdit;
 DBEdit2: TDBEdit;
 DBEdit3: TDBEdit;
 DBEdit4: TDBEdit;
 DBEdit5: TDBEdit;
 DBEdit6: TDBEdit;
 DBEdit7: TDBEdit;
 DBEdit8: TDBEdit;
 BitBtn1: TBitBtn;
 BitBtn2: TBitBtn;
 Label1: TLabel;
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel;
 Label5: TLabel;
 Label6: TLabel;
 Label7: TLabel;
 Label8: TLabel;
 BitBtn3: TBitBtn;
 BitBtn4: TBitBtn;
 Label9: TLabel;
 Label10: TLabel;
 DBCheckBox1: TDBCheckBox;
 procedure BitBtn2Click(Sender: TObject);
 procedure BitBtn1Click(Sender: TObject);
 procedure BitBtn3Click(Sender: TObject);
 procedure BitBtn4Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form6: TForm6;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm6.BitBtn2Click(Sender: TObject);
begin
DataModule2.Query_Customer.Edit;
DataModule2.Query_Customer.FieldByName('Id_manager').AsString:=Form1.Label1.Caption;
DataModule2.Query_Customer.Post;
end;
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
DataModule2.Query_Customer.Insert;
end;
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
DataModule2.Query_Customer.Cancel;
Close;
end;
procedure TForm6.BitBtn4Click(Sender: TObject);
begin
DataModule2.Query_Customer.Edit;
end;
end.
unit Unit7;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, Unit2, ComCtrls, StdCtrls,
 Buttons;
type
 TForm7 = class(TForm)
 DBGrid1: TDBGrid;
 DBNavigator1: TDBNavigator;
 DBGrid2: TDBGrid;
 DBNavigator2: TDBNavigator;
 DateTimePicker1: TDateTimePicker;
 DateTimePicker2: TDateTimePicker;
 Edit1: TEdit;
 BitBtn1: TBitBtn;
 BitBtn2: TBitBtn;
 Edit2: TEdit;
 Label1: TLabel;
 Label2: TLabel;
 procedure BitBtn2Click(Sender: TObject);
 procedure BitBtn1Click(Sender: TObject);
 procedure DBGrid1CellClick(Column: TColumn);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form7: TForm7;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
DataModule2.Query_Meet.Cancel;
Close;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
DataModule2.Query_Meet.Insert;
DataModule2.Query_Meet.FieldByName('Time').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);
DataModule2.Query_Meet.FieldByName('Date').AsString:=DateToStr(DateTimePicker1.Date) +' ' + TimeToStr(DateTimePicker2.Time);
DataModule2.Query_Meet.FieldByName('Comments').AsString:=Edit1.Text;
DataModule2.Query_Meet.FieldByName('Id_customer').AsString:=DataModule2.Query_Customer.FieldByName('Id_customer').AsString;
DataModule2.Query_Meet.FieldByName('Id_manager').AsString:=Form1.Label1.Caption;
DataModule2.Query_Meet.FieldByName('Place').AsString:=Edit2.Text;
DataModule2.Query_Meet.Post;
Edit1.Text:='';
Edit2.Text:='';
DateTimePicker1.Date:=Date();
DateTimePicker2.Time:=Time();
end;
procedure TForm7.DBGrid1CellClick(Column: TColumn);
begin
If DataModule2.Query_Customer.RecordCount > 0 then
 begin
If DataModule2.Query_Meet.Active=true then DataModule2.Query_Call.Active:=false;
DataModule2.Query_Meet.SQL.Clear;
DataModule2.Query_Meet.SQL.Add('SELECT Meeting.*');
DataModule2.Query_Meet.SQL.Add('FROM Meeting');
DataModule2.Query_Meet.SQL.Add('WHERE (((Meeting.Id_manager)=' + Form1.Label1.Caption + ') AND ((Meeting.Id_customer) =' + DataModule2.Query_Customer.FieldByName('Id_customer').AsString +'));');
DataModule2.Query_Meet.Active:=true;
 end;
end;
end.
unit Unit8;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, QuickRpt, Unit2, QRCtrls;
type
 TForm8 = class(TForm)
 QuickRep1: TQuickRep;
 DetailBand1: TQRBand;
 QRGroup1: TQRGroup;
 QRDBText2: TQRDBText;
 TitleBand1: TQRBand;
 PageHeaderBand1: TQRBand;
 PageFooterBand1: TQRBand;
 QRExpr1: TQRExpr;
 PageFooterBand2: TQRBand;
 QRSysData1: TQRSysData;
 QRSysData2: TQRSysData;
 QRLabel2: TQRLabel;
 QRLabel3: TQRLabel;
 QRDBText3: TQRDBText;
 QRLabel4: TQRLabel;
 QRDBText1: TQRDBText;
 QRExpr2: TQRExpr;
 QRExpr3: TQRExpr;
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form8: TForm8;
implementation
{$R *.dfm}
end.
unit Unit9;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons, ComCtrls;
type
 TForm9 = class(TForm)
 DateTimePicker1: TDateTimePicker;
 DateTimePicker2: TDateTimePicker;
 BitBtn1: TBitBtn;
 procedure BitBtn1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form9: TForm9;
implementation
uses Unit2, Unit1, Unit8, Unit10;
{$R *.dfm}
procedure TForm9.BitBtn1Click(Sender: TObject);
begin
DataModule2.Query_Rep1.Active:=false;
DataModule2.Query_Rep1.Active:=true;
 If Form1.Label1.Caption='3' then
 begin
 DataModule2.Query_Rep1.Filtered:=true;
 DataModule2.Query_Rep1.Filter:='Date>='+Chr(39)+DateToStr(DateTimePicker1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(DateTimePicker2.Date+1)+Chr(39);
 end
 else begin
 DataModule2.Query_Rep1.Filtered:=true;
 DataModule2.Query_Rep1.Filter:='Date>='+Chr(39)+DateToStr(DateTimePicker1.Date)+Chr(39)+ ' And Date<='+Chr(39)+DateToStr(DateTimePicker2.Date+1)+Chr(39)+' And Customer.Id_manager=' +Form1.Label1.Caption;
 end;
Form10.QuickRep1.PreviewModal;
end;
end.
unit Unit10;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, QRCtrls, QuickRpt, ExtCtrls;
type
 TForm10 = class(TForm)
 QuickRep1: TQuickRep;
 DetailBand1: TQRBand;
 QRExpr1: TQRExpr;
 QRDBText1: TQRDBText;
 QRGroup1: TQRGroup;
 TitleBand1: TQRBand;
 QRLabel2: TQRLabel;
 PageHeaderBand1: TQRBand;
 PageFooterBand2: TQRBand;
 QRSysData1: TQRSysData;
 QRSysData2: TQRSysData;
 QRLabel4: TQRLabel;
 QRDBText4: TQRDBText;
 Q3: TQRExpr;
 QRLabel1: TQRLabel;
 QRLabel3: TQRLabel;
 QRExpr2: TQRExpr;
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form10: TForm10;
implementation
{$R *.dfm}
end.