Автоматизированный учет компьютерной техники ООО "СибирьЭнергоАвтоТранс"

datamodule2.Cartg_history.Next;

end

else

break;

end;

datamodule2.Cartg_history.Append;

datamodule2.Cartg_history.FieldValues['id_cartg_history']:=i;

datamodule2.Cartg_history.FieldValues['id_cartg']:=datamodule2.Cartg.FieldValues['id_cartg'];

decodedate(date(), year, month, day);

decodetime(time(),hour,minute,second,msec);

datamodule2.Cartg_history.FieldValues['date_zap']:=encodedatetime(year, month, day, hour,minute,second,msec);

datamodule2.Cartg_history.FieldValues['opis']:='Добавлен картридж '+datamodule2.Cartg.fieldvalues['name_cartg'];

main.memo1.lines.add(datetostr(datamodule2.Cartg_history.FieldValues['date_zap'])+' '+timetostr(datamodule2.Cartg_history.FieldValues['date_zap'])+' '+datamodule2.Cartg_history.Fieldbyname('opis').AsString);

datamodule2.Cartg_history.Post;

datamodule2.Cartg_history.ApplyUpdates(-1);

end

else application.MessageBox(pchar('Данные ведены некоректно'), 'Ошибка', mb_OK);

end;

end.

unit Ecartg; - модуль формы «Редактирование картриджа»

interface

uses

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

Dialogs, StdCtrls, DMGL, Mask, DBCtrls, dateutils;

type

TEditCartg = class(TForm)

ComboBox1: TComboBox;

Label1: TLabel;

Label3: TLabel;

ComboBox2: TComboBox;

DBEdit1: TDBEdit;

Label2: TLabel;

Button1: TButton;

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

EditCartg: TEditCartg;

implementation

uses MM;

{$R *.dfm}

procedure TEditCartg.Button1Click(Sender: TObject);

var

i: integer;

year, month, day, hour, minute, second, msec: word;

begin

datamodule2.Cartg.Edit;

datamodule2.Cartg.FieldValues['vrab_cartg']:=Combobox1.Text;

datamodule2.Cartg.FieldValues['name_cartg']:=DBedit1.Text;

datamodule2.Cartg.FieldValues['sost_cartg']:=Combobox2.Text;

i:=0;

datamodule2.Cartg_history.Refresh;

datamodule2.Cartg_history.First;

while datamodule2.Cartg_history.eof=false do

begin

if i=datamodule2.Cartg_history.FieldByName('id_cartg_history').AsInteger then

begin

i:=i+1;

datamodule2.Cartg_history.Next;

end

else

break;

end;

datamodule2.Cartg.Post;

datamodule2.Cartg.ApplyUpdates(-1);

datamodule2.Cartg_history.Append;

datamodule2.Cartg_history.FieldValues['id_Cartg_history']:=i;

datamodule2.Cartg_history.FieldValues['id_cartg']:=datamodule2.Cartg_history.FieldValues['id_cartg'];

decodedate(date(), year, month, day);

decodetime(time(),hour,minute,second,msec);

datamodule2.Cartg_history.FieldValues['date_zap']:=encodedatetime(year, month, day, hour,minute,second,msec);

datamodule2.Cartg_history.FieldValues['opis']:='Изменен компьютер номер '+datamodule2.Cartg.fieldbyname('name_cartg').AsString;

main.memo1.lines.add(datetostr(datamodule2.Cartg_history.FieldValues['date_zap'])+' '+timetostr(datamodule2.Cartg_history.FieldValues['date_zap'])+' '+datamodule2.Cartg_history.Fieldbyname('opis').AsString);

datamodule2.Cartg_history.Post;

datamodule2.Cartg_history.ApplyUpdates(-1);

end;

procedure TEditCartg.FormShow(Sender: TObject);

begin

combobox1.Text:=datamodule2.Cartg.FieldByName('vrab_cartg').AsString;

combobox2.Text:=datamodule2.Cartg.FieldByName('sost_cartg').AsString;

end;

end.

unit Eprint; - модуль формы «Изминение принтеров»

interface

uses

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

Dialogs, DMGL, StdCtrls, Mask, DBCtrls, DateUtils;

type

TForm2 = class(TForm)

Статус: TLabel;

Название: TLabel;

Button1: TButton;

Edit2: TEdit;

ComboBox1: TComboBox;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses MM;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var i, temp: integer;

year, month, day, hour, minute, second, msec: word;

begin

datamodule2.Print.Filtered:=false;

datamodule2.Print.Edit;

datamodule2.Print.FieldValues['name_print']:=edit2.Text;

datamodule2.Print.FieldValues['vrab_print']:=combobox1.Text;

datamodule2.Print.Post;

datamodule2.Print.ApplyUpdates(-1);

i:=0;

datamodule2.Print_history.Refresh;

datamodule2.Print_history.First;

while datamodule2.Print_history.eof=false do

begin

if i=datamodule2.Print_history.FieldByName('id_print_history').AsInteger then

begin

i:=i+1;

datamodule2.Print_history.Next;

end

else

break;

end;

datamodule2.Print_history.Append;

datamodule2.Print_history.FieldValues['id_print_history']:=i;

datamodule2.Print_history.FieldValues['id_print']:=datamodule2.Print.FieldValues['id_print'];

decodedate(date(), year, month, day);

decodetime(time(),hour,minute,second,msec);

datamodule2.Print_history.FieldValues['data_zap']:=encodedatetime(year, month, day, hour,minute,second,msec);

datamodule2.Print_history.FieldValues['opis']:='Изменён принтер '+inttostr(datamodule2.Print.FieldValues['id_print']);

main.memo1.lines.add(datetostr(datamodule2.Print_history.FieldValues['data_zap'])+' '+timetostr(datamodule2.Print_history.FieldValues['data_zap'])+' '+datamodule2.Print_history.Fieldbyname('opis').AsString);

datamodule2.Print_history.Post;

datamodule2.Print_history.ApplyUpdates(-1);

end;

procedure TForm2.FormShow(Sender: TObject);

begin

edit2.Text:=datamodule2.Print.FieldByName('name_print').AsString;

combobox1.Text:=datamodule2.Print.FieldByName('vrab_print').AsString;

end;

end.

unit Uchastok; - модуль формы «Участки»

interface

uses

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

Dialogs, DMGL, Grids, DBGrids, StdCtrls;

type

Tfuchast = class(TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fuchast: Tfuchast;

implementation

{$R *.dfm}

procedure Tfuchast.Button1Click(Sender: TObject);

var i: integer;

begin

if edit1.Text<>'' then

begin

i:=0;

datamodule2.Uchastok.Refresh;

datamodule2.Uchastok.First;

while datamodule2.Uchastok.eof=false do

begin

if i=datamodule2.Uchastok.FieldByName('id_uch').AsInteger then

begin

i:=i+1;

datamodule2.Uchastok.Next;

end

else

break;

end;

datamodule2.Uchastok.append;

datamodule2.Uchastok.FieldValues['id_uch']:=i;

datamodule2.Uchastok.FieldValues['id_user']:=datamodule2.Users.FieldValues['id_user'];

datamodule2.Uchastok.FieldValues['Name_uch']:=edit1.Text;

datamodule2.Uchastok.Post;

datamodule2.Uchastok.ApplyUpdates(-1);

end;

end;

end.

unit ListUser; - модуль формы «Пользователи»

interface

uses

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

Dialogs, DBCtrls, DMGL, StdCtrls;

type

TListusers = class(TForm)

DBLookupListBox1: TDBLookupListBox;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Listusers: TListusers;

implementation

{$R *.dfm}

procedure TListusers.Button1Click(Sender: TObject);

var

user,password1,password2: string;

i: integer;

begin

user:=inputbox('Имя пользователя', '', '');

password1:=inputbox('Пароль', '', '');

password2:=inputbox('Повторите пароль', '', '');

if (password1=password2)or((password1<>'')and(password2<>'')) then

begin

i:=0;

datamodule2.Users.Refresh;

datamodule2.Users.First;

while datamodule2.Users.eof=false do

begin

if i=datamodule2.Users.FieldByName('id_user').AsInteger then

begin

i:=i+1;

datamodule2.Users.Next;

end

else

break;

end;

datamodule2.Users.append;

datamodule2.Users.FieldValues['id_user']:=i;

datamodule2.Users.FieldValues['Login_users']:=password1;

datamodule2.Users.FieldValues['Password_users']:=password2;

datamodule2.Users.Post;

datamodule2.Users.ApplyUpdates(-1);

end

else application.MessageBox(pchar('Пароль веден некоректно'), 'Ошибка', mb_OK);

end;

procedure TListusers.Button2Click(Sender: TObject);

begin

if messagedlg('При удалении пользователя произойдет удаление участков. Выполнить удаление?',mtWarning,

[mbYES,mbNO], 0)=idYES then

datamodule2.Users.Delete;

datamodule2.Users.ApplyUpdates(-1);

end;

end.

unit ListOtMale; - модуль формы «Ответственные лица»

interface

uses

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

Dialogs, DMGL, DBCtrls, StdCtrls, Grids, DBGrids;

type

TOtMale = class(TForm)

Button1: TButton;

Button2: TButton;

DBLookupComboBox1: TDBLookupComboBox;

Label1: TLabel;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

OtMale: TOtMale;

implementation

{$R *.dfm}

procedure TOtMale.Button1Click(Sender: TObject);

var

name,dolg: string;

i: integer;

begin

if dblookupcombobox1.KeyValue<>0 then

begin

name:=inputbox('Имя ответственного', '', '');

dolg:=inputbox('Должность', '', '');

if (name<>'') or (dolg<>'') then

begin

i:=0;

datamodule2.Ot_male.Refresh;

datamodule2.Ot_male.First;

while datamodule2.Ot_male.eof=false do

begin

if i=datamodule2.Ot_male.FieldByName('id_Ot_male').AsInteger then

begin

i:=i+1;

datamodule2.Ot_male.Next;

end

else

break;

end;

datamodule2.Ot_male.append;

datamodule2.Ot_male.FieldValues['id_ot_male']:=i;

datamodule2.Ot_male.FieldValues['id_uchastok']:=datamodule2.Uchastok.FieldValues['id_uch'];

datamodule2.Ot_male.FieldValues['name_otmale']:=name;

datamodule2.Ot_male.FieldValues['dolg_otmale']:=dolg;

datamodule2.Ot_male.Post;

datamodule2.Ot_male.ApplyUpdates(-1);

end

else application.MessageBox(pchar('Данные ведены некоректно'), 'Ошибка', mb_OK);

end

else

showmessage('Выберите участок!');

end;

procedure TOtMale.Button2Click(Sender: TObject);

begin

if messagedlg('Выполнить удаление?',mtWarning,

[mbYES,mbNO], 0)=idYES then

datamodule2.Ot_male.Delete;

end;

end.

unit VivObor; - модуль формы «Вывод оборудования на участке»

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExcelXP, ComObj;

type

TVivOb = class(TForm)

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

VivOb: TVivOb;

implementation

uses DMGL;

{$R *.dfm}

procedure TVivOb.Button1Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

Numer,index,d,d1,m,m1,y,y1:Integer;

year, month, day: word;

begin

XLApp:=CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=40;

Colum.Columns[3].ColumnWidth:=40;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum.Columns[10].ColumnWidth:=20;

Colum.Columns[11].ColumnWidth:=20;

Colum.Columns[12].ColumnWidth:=20;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет'];

Sheet.Cells[1,1]:='ООО "СибирьЭнергоАвтоТранс"';

Sheet.Cells[2,1]:='Название участка';

Sheet.Cells[2,2]:=datamodule2.Uchastok.Fieldbyname('name_uch').asstring;

Sheet.Cells[3,1]:='Компьютеры';

Sheet.Cells[4,1]:='№';

Sheet.Cells[4,2]:='Материнская плата';

Sheet.Cells[4,3]:='Процессор';

Sheet.Cells[4,4]:='ОЗУ';

Sheet.Cells[4,5]:='Видеосистема';

Sheet.Cells[4,6]:='Жесткй диск';

Sheet.Cells[4,7]:='ВЗУ';

Sheet.Cells[4,8]:='Статус';

Sheet.Cells[4,9]:='Аренда';

Sheet.Cells[4,10]:='Инвентарный номер';

Sheet.Cells[4,11]:='Дата ввода';

Sheet.Cells[4,12]:='Дата вывода';

index:=5; Numer:=1;

decodedate(datetimepicker1.date, year, month, day);

d:=day; m:=month; y:=year;

decodedate(datetimepicker2.date, year, month, day);

d1:=day; m1:=month; y1:=year;

{datamodule2.Comp_info.Filtered:=false;

datamodule2.Comp_info.Filter:='id_uchastok='+inttostr(datamodule2.Uchastok.FieldByName('id_uch').AsInteger);

datamodule2.Comp_info.Filtered:=true; }

datamodule2.Comp_info.First;

while DataModule2.Comp_info.Eof=false do

begin

if (radiobutton1.Checked=true) or (datamodule2.Comp_info.FieldValues['Date_in']>=strtodatetime(inttostr(d)+'.'+inttostr(m)+'.'+inttostr(y))) and (datamodule2.Comp_info.FieldValues['Date_in']<=strtodatetime(inttostr(d1)+'.'+inttostr(m1)+'.'+inttostr(y1))) then

begin

Sheet.Cells[index,1]:=Numer;

Sheet.Cells[index,2]:=DataModule2.Comp_info.FieldByName('Mother_card').AsString;

Sheet.Cells[index,3]:=DataModule2.Comp_info.FieldByName('Processor').AsString;

Sheet.Cells[index,4]:=DataModule2.Comp_info.FieldByName('Op_memory').AsString;

Sheet.Cells[index,5]:=DataModule2.Comp_info.FieldByName('Video').AsString;

Sheet.Cells[index,6]:=DataModule2.Comp_info.FieldByName('HDD').AsString;

Sheet.Cells[index,7]:=DataModule2.Comp_info.FieldByName('Drive_disk').AsString;

Sheet.Cells[index,8]:=DataModule2.Comp_info.FieldByName('Status').AsString;

Sheet.Cells[index,9]:=DataModule2.Comp_info.FieldByName('Arenda').AsString;

Sheet.Cells[index,10]:=DataModule2.Comp_info.FieldByName('Inv_nom').AsString;

Sheet.Cells[index,11]:=DataModule2.Comp_info.FieldByName('Date_in').AsDateTime;

Sheet.Cells[index,12]:=DataModule2.Comp_info.FieldByName('Date_out').AsDateTime;

Inc(index); Inc(Numer);

end;

DataModule2.Comp_info.Next;

end;

inc(index); Numer:=1;

Sheet.Cells[index,1]:='Картриджи';

inc(index);

Sheet.Cells[index,1]:='№';

Sheet.Cells[index,2]:='Статус';

Sheet.Cells[index,3]:='Наименование картриджа';

Sheet.Cells[index,4]:='Состояние картриджа';

inc(index); Numer:=1;

datamodule2.Cartg.Filtered:=false;

datamodule2.Cartg.Filter:='uch_cartg='+inttostr(datamodule2.Uchastok.FieldByName('id_uch').AsInteger);

datamodule2.Cartg.Filtered:=true;

datamodule2.Cartg.First;

while DataModule2.Cartg.Eof=false do

begin

Sheet.Cells[index,1]:=Numer;

Sheet.Cells[index,2]:=DataModule2.Cartg.FieldByName('Vrab_cartg').AsString;

Sheet.Cells[index,3]:=DataModule2.Cartg.FieldByName('name_cartg').AsString;

Sheet.Cells[index,4]:=DataModule2.Cartg.FieldByName('sost_cartg').AsString;

Inc(index); Inc(Numer);

Datamodule2.Cartg.Next

end;

inc(index); Numer:=1;

Sheet.Cells[index,1]:='Принтеры';

inc(index);

Sheet.Cells[index,1]:='№';

Sheet.Cells[index,2]:='Название принтера';

Sheet.Cells[index,3]:='Статус';

inc(index); Numer:=1;

datamodule2.Print.Filtered:=false;

datamodule2.Print.Filter:='uch_print='+inttostr(datamodule2.Uchastok.FieldByName('id_uch').AsInteger);

datamodule2.Print.Filtered:=true;

datamodule2.Print.First;

while DataModule2.Print.Eof=false do

begin

Sheet.Cells[index,1]:=Numer;

Sheet.Cells[index,2]:=DataModule2.Print.FieldByName('name_print').AsString;

Sheet.Cells[index,3]:=DataModule2.Print.FieldByName('vrab_print').AsString;

Inc(index); Inc(Numer);

Datamodule2.Print.Next

end;

end;

procedure TVivOb.RadioButton2Click(Sender: TObject);

begin

datetimepicker1.Enabled:=true;

datetimepicker2.Enabled:=true;

end; end.



ПРИЛОЖЕНИЕ 2

Распечатка результатов работы программы

Рис. 1 - Окно авторизации пользователя

Рис. 2 - Главное меню



Рис. 3 - Участки

Рис. 4 - Ответственные лица

Рис. 5 - Пользователи



Рис. 6 - Информация о компьютере

Рис. 7 - Изменение информации о компьютере



Рис 8 - Ввод картриджа

Рис 9 - Редактирование картриджа

Рис. 10 - Добавление принтера

Рис. 11 - Изменение принтеров



Рис. 12 - Вывод оборудования на участке

Рис. 13 - Отчет об оборудовании на участке

Рис. 14 - Отчет об оборудовании на участке за определенный период

Размещено на Allbest.ru