АИС Управления персоналом. Технологий и автоматизированных систем Расчетнопояснительная записка к курсовой работе по курсу Проектирование автоматизированных систем на тему аис для управления персоналом Руководитель работы

Название	Технологий и автоматизированных систем Расчетнопояснительная записка к курсовой работе по курсу Проектирование автоматизированных систем на тему аис для управления персоналом Руководитель работы
Дата	22.02.2023
Размер	1.51 Mb.
Формат файла
Имя файла	АИС Управления персоналом.docx
Тип	Документы #950402
страница	11 из 11

1 2 3 4 5 6 7 8 9 10 11

ПРИЛОЖЕНИЕ В

Текст программы

unit Unit2;
interface
uses

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

Dialogs, StdCtrls, Buttons, Mask, ExtCtrls, jpeg;
type

TForm2 = class(TForm)

Panel1: TPanel;

MaskEdit1: TMaskEdit;

Label2: TLabel;

Label1: TLabel;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Image1: TImage;

Image2: TImage;

Label3: TLabel;

Label7: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form2: TForm2;
implementation

uses unit1, unit3, unit4, unit5, unit6, unit7,unit9, unit10;

{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);

begin

If (ComboBox1.ItemIndex=0) and (MaskEdit1.Text='1234') then

begin

Application.CreateForm(TFOrm1,Form1);

Form1.Show;

form2.Hide;

end

else

Application.MessageBox('Неверный пароль','Внимание!',MB_ICONEXCLAMATION);

end;
procedure TForm2.BitBtn2Click(Sender: TObject);

begin

close;

end;
end.
unit Unit1;
interface
uses

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

Dialogs, StdCtrls, ExtCtrls;
type

TForm1 = class(TForm)

RadioGroup1: TRadioGroup;

Button1: TButton;

procedure Button1Click(Sender: TObject);
private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;
implementation
uses Unit3, Unit2, Unit4, unit5, unit6, unit7, Unit9, Unit10;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex=4 then

begin

Form1.Hide;

Form4.Show;

end;
if RadioGroup1.ItemIndex=1 then

begin

Form1.Hide;

Form10.Show;

end;

end;
end.
unit Unit8;
interface
uses

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

Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls,

DBTables;
type

TForm8 = class(TForm)

Panel2: TPanel;

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

PereTable: TADOTable;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

Button2: TButton;

BookTable_: TAutoIncField;

BookTable_2: TDateTimeField;

BookTableDSDesigner: TWideStringField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TDateTimeField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TIntegerField;

BookTableDSDesigner10: TWideStringField;

BookTableDSDesigner11: TWideStringField;

BookTable_3: TWideStringField;

PereTable_: TAutoIncField;

PereTable_2: TDateTimeField;

PereTableDSDesigner: TWideStringField;

PereTableDSDesigner2: TWideStringField;

PereTableDSDesigner3: TWideStringField;

PereTableDSDesigner4: TDateTimeField;

PereTableDSDesigner5: TWideStringField;

PereTableDSDesigner6: TWideStringField;

PereTableDSDesigner7: TWideStringField;

PereTableDSDesigner8: TWideStringField;

PereTableDSDesigner9: TIntegerField;

PereTableDSDesigner10: TWideStringField;

PereTableDSDesigner11: TWideStringField;

PereTable_3: TWideStringField;

Query2: TQuery;

ADOQuery1: TADOQuery;

Edit1: TEdit;

Button1: TButton;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner4: TDateTimeField;

ADOQuery1_: TWideStringField;

ADOQuery1DSDesigner5: TWideStringField;

ADOQuery1DSDesigner6: TWideStringField;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var
Form8: TForm8;
implementation
uses Unit9, Unit10;
{$R *.dfm}
procedure TForm8.Button2Click(Sender: TObject);

begin

Form10.Show;

Form8.Hide;

end;
procedure TForm8.Button1Click(Sender: TObject);

begin

Adoquery1.Parameters.ParamByName('par1').Value:=Edit1.text;

Adoquery1.Open;

dbgrid1.DataSource.DataSet.Active:=true;

end;
end.
unit Unit9;
interface
uses

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls;
type

TForm9 = class(TForm)

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

Panel2: TPanel;

ADOConnection2: TADOConnection;

PereTable: TADOTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

FindSource: TDataSource;

FindQuery: TADOQuery;

FindQueryID_: TIntegerField;

FindQueryDSDesigner: TDateTimeField;

FindQueryDSDesigner2: TDateTimeField;

FindQueryDSDesigner3: TWideStringField;

FindQueryID_2: TIntegerField;

FindQueryID_3: TIntegerField;

Button1: TButton;

Button2: TButton;

BookTable_: TAutoIncField;

BookTable_2: TDateTimeField;

BookTableDSDesigner: TWideStringField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TDateTimeField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TIntegerField;

BookTableDSDesigner10: TWideStringField;

BookTableDSDesigner11: TWideStringField;

BookTable_3: TWideStringField;

PereTable_: TAutoIncField;

PereTable_2: TDateTimeField;

PereTableDSDesigner: TWideStringField;

PereTableDSDesigner2: TWideStringField;

PereTableDSDesigner3: TWideStringField;

PereTableDSDesigner4: TDateTimeField;

PereTableDSDesigner5: TWideStringField;

PereTableDSDesigner6: TWideStringField;

PereTableDSDesigner7: TWideStringField;

PereTableDSDesigner8: TWideStringField;

PereTableDSDesigner9: TIntegerField;

PereTableDSDesigner10: TWideStringField;

PereTableDSDesigner11: TWideStringField;

PereTable_3: TWideStringField;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form9: TForm9;
implementation
uses Unit1, Unit2,unit3, Unit4, unit5,unit6, unit7, unit10, Unit12, Unit8;

{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);

begin

if PereTable.Modified then

PereTable.Post;
end;
procedure TForm9.Button2Click(Sender: TObject);

begin

Form10.Show;

Form9.Hide;

end;
procedure TForm9.Button3Click(Sender: TObject);

begin

if Application.MessageBox(Pchar('Действительно хотите удалить ?'),'Внимание!',MB_OKCANCEL)=id_Ok then

PereTable.Delete;

end;
end.
unit Unit10;
interface
uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls;
type

TForm10 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Button1: TButton;

Label4: TLabel;

Button2: TButton;

Button3: TButton;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form10: TForm10;
implementation

uses Unit1, Unit2,unit3, Unit4, unit5,unit6, unit7, unit9, Unit8, Unit12;
{$R *.dfm}
procedure TForm10.Button2Click(Sender: TObject);

begin

Form9.Show;

Form10.Hide;

end;
procedure TForm10.Button3Click(Sender: TObject);

begin

Form8.Show;

Form10.Hide;

end;
procedure TForm10.Button1Click(Sender: TObject);

begin

Form12.Show;

Form10.Hide;

end;
end.
unit Unit12;
interface
uses

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

Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls;
type

TForm12 = class(TForm)

Panel2: TPanel;

DBGrid2: TDBGrid;

Button1: TButton;

Button2: TButton;

ADOConnection1: TADOConnection;

BookTable: TADOTable;

DataSource1: TDataSource;

ADOConnection2: TADOConnection;

PereTable: TADOTable;

DataSource2: TDataSource;

FindSource: TDataSource;

Button3: TButton;

BookTable_: TAutoIncField;

BookTable_2: TDateTimeField;

BookTableDSDesigner: TWideStringField;

BookTableDSDesigner2: TWideStringField;

BookTableDSDesigner3: TWideStringField;

BookTableDSDesigner4: TDateTimeField;

BookTableDSDesigner5: TWideStringField;

BookTableDSDesigner6: TWideStringField;

BookTableDSDesigner7: TWideStringField;

BookTableDSDesigner8: TWideStringField;

BookTableDSDesigner9: TIntegerField;

BookTableDSDesigner10: TWideStringField;

BookTableDSDesigner11: TWideStringField;

BookTable_3: TWideStringField;

PereTable_: TAutoIncField;

PereTable_2: TDateTimeField;

PereTableDSDesigner: TWideStringField;

PereTableDSDesigner2: TWideStringField;

PereTableDSDesigner3: TWideStringField;

PereTableDSDesigner4: TDateTimeField;

PereTableDSDesigner5: TWideStringField;

PereTableDSDesigner6: TWideStringField;

PereTableDSDesigner7: TWideStringField;

PereTableDSDesigner8: TWideStringField;

PereTableDSDesigner9: TIntegerField;

PereTableDSDesigner10: TWideStringField;

PereTableDSDesigner11: TWideStringField;

PereTable_3: TWideStringField;

BookTable_4: TIntegerField;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form12: TForm12;
implementation
uses Unit10;
{$R *.dfm}
procedure TForm12.Button2Click(Sender: TObject);

begin

Form10.Show;

Form12.Hide;

end;
procedure TForm12.Button1Click(Sender: TObject);

begin

PereTable.Insert;

DBGrid2.SetFocus;

end;
procedure TForm12.Button3Click(Sender: TObject);

begin

if PereTable.Modified then

if dbgrid2.Columns.Items[5]=nil then showmessage('Введите данные');

PereTable.Post;
end;
end.

1 2 3 4 5 6 7 8 9 10 11