Отчет по практике в ЦСПД ОАО Междугородной и Международной Связи «Ростелеком»

Выходная информация

В качестве выходных данных формируется диалоговый  интерфейс, который позволяет выполнять запросы по сотрудникам и запускает на выполнение расчетные функции (модули).

Структура таблиц базы данных

Наименование поля	Тип поля	Кол-во символов
ID	N	5
FIO	A	30
GodR	D	10
Ctag	N	5
Podr	A	20
Dol	A	20
Oklad	N	5
Adres	A	30
Tel	N	10
Obraz	A	15
Data_ras	A	10
Kol_shas	N	5
Norma_shas_stoit	N	5
Vrem_rabot	N	5
Obed	N	5
Vx	A	25
Nashisl	A	10
Uderg	A	10
Itog	A	10
Premiikol	A	10

 

Алгоритм работы проекта

Модуль программы

program Project1;

 

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {DataModule2: TDataModule},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {Form5},

  Unit6 in 'Unit6.pas' {Form6},

  Unit7 in 'Unit7.pas' {Form7},

  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(TForm3, Form3);

  Application.CreateForm(TForm4, Form4);

  Application.CreateForm(TForm5, Form5);

  Application.CreateForm(TForm6, Form6);

  Application.CreateForm(TForm7, Form7);

  Application.CreateForm(TForm8, Form8);

  Application.CreateForm(TForm9, Form9);

  Application.CreateForm(TForm10, Form10);

  Application.Run;

end.

 

 

 

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  Grids, DBGrids, ImgList, ComCtrls, ToolWin, ExtCtrls, DBCtrls, Menus;

 

type

  TForm1 = class(TForm)

    ImageList1: TImageList;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    Panel1: TPanel;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    ToolButton7: TToolButton;

    ToolButton8: TToolButton;

    procedure ToolButton1Click(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure ToolButton8Click(Sender: TObject);

      private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit3, Unit4, Unit5, Unit7, Unit8, Unit9, Unit10;

 

{$R *.DFM}

 

procedure TForm1.ToolButton1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

 

procedure TForm1.ToolButton2Click(Sender: TObject);

begin

Form4.ShowModal;

end;

 

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

Form5.ShowModal;

end;

 

procedure TForm1.ToolButton4Click(Sender: TObject);

begin

Form7.ShowModal;

end;

 

procedure TForm1.ToolButton5Click(Sender: TObject);

begin

Form8.ShowModal;

end;

 

 

procedure TForm1.ToolButton6Click(Sender: TObject);

begin

Form9.RichEdit1.Lines.Clear;

Try

form9.RichEdit1.Lines.LoadFromFile('Общие данные.rtf');

Form9.ShowModal;

Except

ShowMessage('Отсутствует файл данных');

End;

end;

 

procedure TForm1.ToolButton7Click(Sender: TObject);

begin

DataModule2.Table1.Close;

Close;

end;

 

procedure TForm1.ToolButton8Click(Sender: TObject);

begin

Form10.ShowModal;

 

end;

 

end.

 

 

 

unit Unit2;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Db, DBTables;

 

type

  TDataModule2 = class(TDataModule)

    Table1: TTable;

    DataSource1: TDataSource;

    Table1Id: TAutoIncField;

    Table1Cod: TFloatField;

    Table1Fio: TStringField;

    Table1Godr: TStringField;

    Table1Stag: TFloatField;

    Table1Podr: TStringField;

    Table1Dol: TStringField;

    Table1Oklad: TFloatField;

    Table1Adres: TStringField;

    Table1Tel: TStringField;

    Table1Obraz: TStringField;

    Table1Dataras: TStringField;

    Table1Kolchas: TFloatField;

    Table1Normachasctoit: TFloatField;

    Table1Premii: TFloatField;

    Table1Vremrabot: TFloatField;

    Table1Obed: TFloatField;

    Table1Vx: TStringField;

    Table1Nachisl: TStringField;

    Table1Udergi: TStringField;

    Table1Itog: TStringField;

    Table1Premiikol: TStringField;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  DataModule2: TDataModule2;

 

implementation

 

{$R *.DFM}

 

end.

 

 

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  StdCtrls;

 

type

  TForm3 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Label5: TLabel;

    Edit5: TEdit;

    Label6: TLabel;

    Edit6: TEdit;

    Label7: TLabel;

    Edit7: TEdit;

    Label8: TLabel;

    Edit8: TEdit;

    Label9: TLabel;

    Edit9: TEdit;

    Label10: TLabel;

    Edit10: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.DFM}

 

procedure TForm3.Button1Click(Sender: TObject);

begin

DataModule2.Table1.Insert;

DataModule2.Table1.Fields[1].AsInteger:=strtoint(Edit1.Text);

DataModule2.Table1.Fields[2].AsString:=Edit2.Text;

DataModule2.Table1.Fields[3].AsString:=Edit3.Text;

DataModule2.Table1.Fields[4].AsInteger:=strtoint(Edit4.Text);

DataModule2.Table1.Fields[5].AsString:=Edit5.Text;

DataModule2.Table1.Fields[6].AsString:=Edit6.Text;

DataModule2.Table1.Fields[7].AsInteger:=strtoint(Edit7.Text);

DataModule2.Table1.Fields[8].AsString:=Edit9.Text;

DataModule2.Table1.Fields[10].AsString:=Edit8.Text;

DataModule2.Table1.Fields[9].AsString:=Edit10.Text;

DataModule2.Table1.Post;

end;

 

end.

 

 

 

unit Unit4;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  ExtCtrls, DBCtrls, Grids, DBGrids;

 

type

  TForm4 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Panel1: TPanel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

{$R *.DFM}

 

end.

 

 

unit Unit5;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  StdCtrls, ExtCtrls, DBCtrls, Mask, ToolWin, ComCtrls;

 

type

  TForm5 = class(TForm)

    Panel1: TPanel;

    Button2: TButton;

    Button3: TButton;

    GroupBox1: TGroupBox;

    Label6: TLabel;

    Label5: TLabel;

    Label4: TLabel;

    Label3: TLabel;

    Label2: TLabel;

    Edit6: TEdit;

    Edit5: TEdit;

    Edit4: TEdit;

    Edit3: TEdit;

    GroupBox2: TGroupBox;

    Label9: TLabel;

    Label8: TLabel;

    Label7: TLabel;

    Edit9: TEdit;

    Edit8: TEdit;

    Edit7: TEdit;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    Edit1: TEdit;

    Label10: TLabel;

    ToolBar1: TToolBar;

    Panel2: TPanel;

    ToolButton1: TToolButton;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    Label11: TLabel;

    Label12: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure Edit5KeyPress(Sender: TObject; var Key: Char);

    procedure Edit6KeyPress(Sender: TObject; var Key: Char);

    procedure FormActivate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button3KeyPress(Sender: TObject; var Key: Char);

    procedure ToolButton1Click(Sender: TObject);

      private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

  Zarp,Prem,Resume,Kol_Cl,N_Cl,P_Prem,NALOG,zero,Kol_Cl1:real;

  BLCH,BL,PR,PRCH:REAL;

  implementation

 

uses Unit3, Unit1, Unit6;

 

{$R *.DFM}

 

 

procedure TForm5.Button2Click(Sender: TObject);

begin

  BL:=strtoint(DBEdit3.Text);

  BLCH:=BL*8;

  PR:=strtoint(DBEdit4.Text);

  PRCH:=PR*8;

  Kol_Cl:=StrToFloat(Edit4.Text);

  N_Cl:=StrToFloat(Edit5.Text);

    Kol_Cl1:=Kol_Cl-PRCH-BLCH;

 

  Zarp:=Kol_Cl1*N_Cl+BLCH*(N_Cl/2);

  If Edit6.Text='' then

     begin

     NALOG:=(Zarp*13)/100;

     Resume:=Zarp-NALOG;

     zero:=0;

     Edit9.Text:=FloatToStr(zero);

     Edit1.Text:=FloatToStr(NALOG);

     end

  else

     begin

     P_Prem:=StrToFloat(Edit6.Text);

     Prem:=(P_Prem*Zarp)/100;

     NALOG:=((Zarp+Prem)*13)/100;

     Resume:=Zarp+Prem-NALOG;

     Edit9.Text:=FloatToStr(Prem);

     end;

  Edit1.Text:=FloatToStr(NALOG);

  Edit7.Text:=FloatToStr(Zarp);

  Edit8.Text:=FloatToStr(Resume);

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[18].AsString:=Edit7.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[21].AsString:=Edit9.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[19].AsString:=Edit1.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[20].AsString:=Edit8.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[11].AsString:=Edit3.Text;

DataModule2.Table1.Post;

end;

 

end;

 

 

 

procedure TForm5.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

     if Edit3.Text<>'' then

        Edit4.SetFocus

     else

        begin

        ShowMessage('Введите дату расчета!!!');

        Edit3.SetFocus;

        end;

 

end;

 

procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

     if Edit4.Text<>'' then

        Edit5.SetFocus

     else

        begin

        ShowMessage('Введите коллтчество отработанных часов!!!');

        Edit4.SetFocus;

        end;

 

end;

 

procedure TForm5.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

     if Edit5.Text<>'' then

        Edit6.SetFocus

     else

        begin

        ShowMessage('Введите норму!!!');

        Edit5.SetFocus;

        end;

 

end;

 

procedure TForm5.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

  if key=#13 then

     if Edit6.Text<>'' then

     begin

     BL:=strtoint(DBEdit3.Text);

  BLCH:=BL*8;

  PR:=strtoint(DBEdit4.Text);

  PRCH:=PR*8;

  Kol_Cl:=StrToFloat(Edit4.Text);

  N_Cl:=StrToFloat(Edit5.Text);

    Kol_Cl1:=Kol_Cl-PRCH-BLCH;

  Zarp:=Kol_Cl1*N_Cl+BLCH*(N_Cl/2);

 

  If Edit6.Text='' then

     begin

     NALOG:=(Zarp*13)/100;

     Resume:=Zarp-NALOG;

     zero:=0;

     Edit9.Text:=FloatToStr(zero);

     Edit1.Text:=FloatToStr(NALOG);

     end

     else

     begin

     P_Prem:=StrToFloat(Edit6.Text);

     Prem:=(P_Prem*Zarp)/100;

     NALOG:=((Zarp+Prem)*13)/100;

     Resume:=Zarp+Prem-NALOG;

     Edit9.Text:=FloatToStr(Prem);

     end;

  Edit1.Text:=FloatToStr(NALOG);

  Edit7.Text:=FloatToStr(Zarp);

  Edit8.Text:=FloatToStr(Resume);

  end

     else

        begin

        ShowMessage('Премия не начислена?');

        BL:=strtoint(DBEdit3.Text);

  BLCH:=BL*8;

  PR:=strtoint(DBEdit4.Text);

  PRCH:=PR*8;

  Kol_Cl:=StrToFloat(Edit4.Text);

  N_Cl:=StrToFloat(Edit5.Text);

    Kol_Cl1:=Kol_Cl-PRCH-BLCH;

 

  Zarp:=Kol_Cl1*N_Cl+BLCH*(N_Cl/2);

 

  If Edit6.Text='' then

     begin

     NALOG:=(Zarp*13)/100;

     Resume:=Zarp-NALOG;

     zero:=0;

     Edit9.Text:=FloatToStr(zero);

     Edit1.Text:=FloatToStr(NALOG);

     end

  else

  begin

     P_Prem:=StrToFloat(Edit6.Text);

     Prem:=(P_Prem*Zarp)/100;

     NALOG:=((Zarp+Prem)*13)/100;

     Resume:=Zarp+Prem-NALOG;

     Edit9.Text:=FloatToStr(Prem);

     end;

  Edit1.Text:=FloatToStr(NALOG);

  Edit7.Text:=FloatToStr(Zarp);

  Edit8.Text:=FloatToStr(Resume);

    end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[18].AsString:=Edit7.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[21].AsString:=Edit9.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[19].AsString:=Edit1.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[20].AsString:=Edit8.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[11].AsString:=Edit3.Text;

DataModule2.Table1.Post;

end;

 

end;

 

procedure TForm5.FormActivate(Sender: TObject);

begin

   Edit3.SetFocus;

end;

 

procedure TForm5.Button3Click(Sender: TObject);

begin

   Edit1.Text:='';

   Edit3.Text:='';

   Edit4.Text:='';

   Edit5.Text:='';

   Edit6.Text:='';

   Edit7.Text:='';

   Edit8.Text:='';

   Edit9.Text:='';

 

end;

 

 

procedure TForm5.Button3KeyPress(Sender: TObject; var Key: Char);

begin

   Edit3.Text:='';

   Edit4.Text:='';

   Edit5.Text:='';

   Edit6.Text:='';

   Edit7.Text:='';

   Edit8.Text:='';

   Edit9.Text:='';

end;

 

 

 

procedure TForm5.ToolButton1Click(Sender: TObject);

begin

Form6.ShowModal;

end;

 

end.

 

 

unit Unit6;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  StdCtrls, Qrctrls, QuickRpt, ExtCtrls, DBCtrls;

 

type

  TForm6 = class(TForm)

    QuickRep1: TQuickRep;

    QRBand1: TQRBand;

    QRLabel1: TQRLabel;

    QRDBText1: TQRDBText;

    QRLabel2: TQRLabel;

    QRDBText2: TQRDBText;

    QRLabel3: TQRLabel;

    QRDBText3: TQRDBText;

    QRLabel4: TQRLabel;

    QRDBText4: TQRDBText;

    Button1: TButton;

    QRShape1: TQRShape;

    QRShape2: TQRShape;

    QRShape3: TQRShape;

    QRShape4: TQRShape;

    QRShape5: TQRShape;

    QRShape6: TQRShape;

    QRShape7: TQRShape;

    QRShape8: TQRShape;

    Panel1: TPanel;

    QRLabel5: TQRLabel;

    QRShape9: TQRShape;

    QRDBText5: TQRDBText;

    procedure Button1Click(Sender: TObject);

     private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form6: TForm6;

 

implementation

 

uses Unit5;

 

{$R *.DFM}

 

procedure TForm6.Button1Click(Sender: TObject);

begin

QuickRep1.Preview;

QuickRep1.Print;

end;

 

 

 

end.

 

 

unit Unit7;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, QuickRpt, Qrctrls, Db, DBTables, ExtCtrls;

 

type

  TForm7 = class(TForm)

    QuickRep1: TQuickRep;

    Table1: TTable;

    Button1: TButton;

    QRSubDetail1: TQRSubDetail;

    QRShape1: TQRShape;

    QRBand1: TQRBand;

    QRDBText1: TQRDBText;

    QRShape2: TQRShape;

    QRDBText2: TQRDBText;

    QRShape3: TQRShape;

    QRDBText3: TQRDBText;

    QRShape4: TQRShape;

    QRDBText4: TQRDBText;

    QRShape5: TQRShape;

    QRDBText5: TQRDBText;

    QRShape6: TQRShape;

    QRShape7: TQRShape;

    QRShape8: TQRShape;

    QRLabel1: TQRLabel;