Системное и прикладное программное обеспечение, используемое в организации

 • Организует  работу по проведению выборов  и референдумов на территории  Волоколамского района;

 • Совместно  со структурными подразделениями администрации района занимается информатизацией их деятельности;

 • Обеспечивает  прием-передачу служебной информации  по каналам связи с использованием  программно-аппаратных средств абонентского  места электронной почты;

 • Оказывает  помощь в освоении нового программного обеспечения структурными подразделениями администрации Волоколамского района;

 • Оказывает  помощь в оформлении поздравительных  текстов;

 • Обеспечивает  ремонт и проводит модернизацию  компьютерной техники находящейся  в ведении отдела информационных систем;

 • Организует  совместно с отделом бухгалтерского  учета и отчетности учет используемой  в администрации Волоколамского  района вычислительной техники,  иного оборудования; осуществляет  программное обеспечение и соответствующее  обслуживание.

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

 • Производит  установку программного обеспечения  на ПК в структурных подразделениях администрации Волоколамского района;

    Оказывает  помощь в разработке и закупке  программного обеспечения необходимого  для эффективной работы в структурных  подразделениях администрации Волоколамского  района. 

Листинг программы

    unit Unit1; 

    interface 

    uses

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

      Dialogs, Menus, StdCtrls, DB, DBTables, ExtCtrls, ShellApi ; 

    type

      TForm1 = class(TForm)

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N7: TMenuItem;

        Button1: TButton;

        Label1: TLabel;

        DataSource1: TDataSource;

        Table1: TTable;

        N5: TMenuItem;

        N6: TMenuItem;

        N8: TMenuItem;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        procedure N7Click(Sender: TObject);

        procedure N2Click(Sender: TObject);

        procedure N4Click(Sender: TObject);

        procedure Button1Click(Sender: TObject);

        procedure N10Click(Sender: TObject);

        procedure N11Click(Sender: TObject);

        procedure N8Click(Sender: TObject); 

      private

        { Private declarations }

      public

        { Public declarations }

      end; 

    var

      Form1: TForm1;

      vremia:string;

    implementation 

    uses Unit2, Unit3, Unit4, Unit5, Unit6, FMPRINTU; 

    {$R *.dfm} 

    procedure TForm1.N7Click(Sender: TObject);

    begin

    close;

    end; 

    procedure TForm1.N2Click(Sender: TObject);

    begin

    form1.visible:=false;

    form2.Show;

    end; 

    procedure TForm1.N4Click(Sender: TObject);

    begin

    form1.visible:=false;

    form3.Show;

    end; 

    procedure TForm1.Button1Click(Sender: TObject);

    var

    a1,b:integer;

    count:integer;

    flag:boolean;

    begin

    flag:=false;

    count:=0;

    a1:=0;

    form1.Table1.Active:=true;

    vremia:=DateToStr(Now);

    label1.Caption:=vremia;

    b:=form2.Table1.FieldCount;

    form2.Table1.First;

    for a1:=0 to b do

    begin

    form2.Table1.next;

    if form2.Table1.FieldByName('Ispolnit_d').AsString=vremia then

    begin

    count:=count+1;

    flag:=true;

    end;

    end;

    if flag=true then

    begin

    count:=count-1;

    application.MessageBox('Найдены неисполненные документы','Предупреждение',MB_iconwarning);

    end;

    end; 

    procedure TForm1.N10Click(Sender: TObject);

    begin

    ShellExecute(Handle,Nil,'SYS.doc',nil,nil,sw_restore);

    end; 

    procedure TForm1.N11Click(Sender: TObject);

    begin

    AboutBox.show;

    end; 

    procedure TForm1.N8Click(Sender: TObject);

    begin 

    //form2.table1.indexname:='sostoyanie';

    form2.table1.filtered:=true;

    fmprint:=Tfmprint.Create(self);

    fmprint.QuickRep1.Preview;

    fmprint.Free;

    form2.table1.Filtered:=false;

    end; 

    end. 

    unit Unit2; 

    interface 

    uses

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

      Dialogs, DB, DBTables, StdCtrls, ExtCtrls, Grids, DBGrids, ComCtrls; 

    type

      TForm2 = class(TForm)

        DataSource1: TDataSource;

        Table1: TTable;

        ComboBox1: TComboBox;

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Edit2: TEdit;

        Label4: TLabel;

        Edit3: TEdit;

        Label5: TLabel;

        ComboBox2: TComboBox;

        Label6: TLabel;

        Label7: TLabel;

        ComboBox3: TComboBox;

        Bevel1: TBevel;

        Button1: TButton;

        Button2: TButton;

        DateTimePicker1: TDateTimePicker;

        DateTimePicker2: TDateTimePicker;

        Edit1: TEdit;

        Label9: TLabel;

        ComboBox4: TComboBox;

        Label10: TLabel;

        Label8: TLabel;

        Edit4: TEdit;

        procedure Button1Click(Sender: TObject);

        procedure FormCreate(Sender: TObject);

        procedure Button2Click(Sender: TObject);

        procedure FormClose(Sender: TObject; var Action: TCloseAction);

      private

        { Private declarations }

      public

        { Public declarations }

      end; 

    var

      Form2: TForm2; 

    implementation 

    uses Unit1; 

    {$R *.dfm} 

    procedure TForm2.Button1Click(Sender: TObject);

    begin

    form2.TABLE1.EDIT;

    form2.TABLE1.APPEND;

    form2.table1.FieldByName('Tip').asstring:=combobox1.Text;

    form2.table1.FieldByName('DATA_ROBSH').AsDateTime:=DateTimePicker1.date;

    form2.table1.FieldByName('Nomer').asstring:=edit2.text;

    form2.table1.FieldByName('Nomer_mash').asstring:=edit1.text;

    form2.table1.FieldByName('Soderg').asstring:=edit3.text;

    form2.table1.FieldByName('Kluch_slov').asstring:=edit4.text;

    form2.table1.FieldByName('ispolnitel').asstring:=combobox2.Text;

    form2.table1.FieldByName('Kontrol_F').asstring:=combobox4.Text;

    form2.table1.FieldByName('Ispolnit_d').AsDateTime:=DateTimePicker2.date;

    form2.table1.FieldByName('Sostoyanie').asstring:=combobox3.Text;

    form2.table1.post; 

     edit2.Text:='';

     edit3.Text:='';

     edit4.Text:=''; 

     combobox1.Text:='';

     combobox2.Text:='';

     combobox3.Text:='';

    end; 

    procedure TForm2.FormCreate(Sender: TObject);

    begin

    table1.Active:=true;

    end; 

    procedure TForm2.Button2Click(Sender: TObject);

    begin

    form2.visible:=false;

    form1.Show; 

    end; 

    procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

    form2.visible:=false;

    form1.Show; 

    end; 

    end. 

    unit Unit3; 

    interface 

    uses

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

      Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Mask, DBCtrls, ExtCtrls; 

    type

      TForm3 = class(TForm)

        Button1: TButton;

        Button2: TButton;

        Button3: TButton;

        Edit1: TEdit;

        Button4: TButton;

        Label1: TLabel;

        Label2: TLabel;

        DBEdit1: TDBEdit;

        Label3: TLabel;

        DBEdit2: TDBEdit;

        Label4: TLabel;

        DBEdit3: TDBEdit;

        Label5: TLabel;

        DBEdit4: TDBEdit;

        Label6: TLabel;

        DBEdit5: TDBEdit;

        Label7: TLabel;

        DBEdit6: TDBEdit;

        Label8: TLabel;

        DBEdit7: TDBEdit;

        Label9: TLabel;

        DBEdit8: TDBEdit;

        DBNavigator1: TDBNavigator;

        DataSource1: TDataSource;

        Label10: TLabel;

        Label11: TLabel;

        Bevel1: TBevel;

        Label13: TLabel;

        DBEdit9: TDBEdit;

        Label14: TLabel;

        DBEdit10: TDBEdit;

        Label15: TLabel;

        DBEdit11: TDBEdit;

        DBGrid1: TDBGrid;

        Query1: TQuery;

        Button7: TButton;

        Edit2: TEdit;

        DataSource2: TDataSource;

        Label12: TLabel;

        Button5: TButton;

        procedure Button1Click(Sender: TObject);

        procedure FormShow(Sender: TObject);