Разработка информационной системы учёта отказов на железнодорожном транспорте

    ComDel: TADOCommand;

    PopupMenu1: TPopupMenu;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    ComDEL2: TADOCommand;

    N10: TMenuItem;

    Splitter1: TSplitter;

    SobNew: TADOCommand;

    Udal: TADOCommand;

    procedure CloseBDClick(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure pathDBClick(Sender: TObject);

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

    //procedure EditTableTypeRefusalClick(Sender: TObject);

    procedure SortDateClick(Sender: TObject);

   procedure SortTypeRefusalClick(Sender: TObject);

    procedure SortMoneyClick(Sender: TObject);

    procedure FormResize(Sender: TObject);

    procedure DBGridMainTitleClick(Column: TColumn);

    procedure DelEventClick(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure EditEventClick(Sender: TObject);

    procedure NewEventClick(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

   procedure ReportClick(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure DBGridMainCellClick(Column: TColumn);

    procedure DBGridMain2CellClick(Column: TColumn);

    procedure N10Click(Sender: TObject);

    procedure EditTableTypeRefusalClick(Sender: TObject);

  private

    { Private declarations }

  public

    Procedure Connect;

    { Public declarations }

  end; 

var

  MainForm: TMainForm;

  wCol: array [0..6] of word;

  wCol2: array [0..2] of word; 

implementation 

uses DMunit, PassUnit, EditOtkazyUnit, MainRecordUnit, OtchetUnit,

  StructureEventUnit, MemoUnit; 

{$R *.dfm}

Procedure TMainForm.Connect;

var

strCon :WideString;

begin

DM.ADOConnection1.Connected:=false; 

strCon:=

'Provider=Microsoft.Jet.OLEDB.4.0;User ID='+userID+';'+

'Data Source='+pathID+';'+

'Mode=ReadWrite;Extended Properties="";Persist Security Info=False;Jet OLEDB:System database="";'+

'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="'+passID+'";'+

'Jet OLEDB:Engine Type=5;'+

'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'+

'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+

'Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'; 
 

DM.ADOConnection1.ConnectionString:=strCon;

DM.ADOConnection1.LoginPrompt:=false;

DM.ADOConnection1.Connected:=true; 

DM.DS_main.DataSet:=DM.DataSetMain;

DM.DataSetMain.Connection:=DM.ADOConnection1;

DM.DataSetMain.Active:=true;

DBGridMain.DataSource:=DM.DS_main; 
 
 

end; 

procedure TMainForm.CloseBDClick(Sender: TObject);

begin

Close;

end; 

procedure TMainForm.FormShow(Sender: TObject);

var i: byte;

begin

PasswordDLG.ShowModal; 

for i:=0 to DBGridMain.Columns.Count-1 do wCol[i]:=DBGridMain.Columns.Items[i].Width;

end; 

procedure TMainForm.pathDBClick(Sender: TObject);

begin

PasswordDLG.ShowModal;

end; 

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

var

FIniFile: TRegIniFile;

s:string;

begin

FIniFile := TRegIniFile.Create('Software');

FIniFile.OpenKey('dror',true);

s:=DM.ADOConnection1.ConnectionString;

delete(s,1,pos('Data Source=',DM.ADOConnection1.ConnectionString)+length('Data Source=')-1);

s:=copy(S, 0, pos(';',S)-1); 

FIniFile.WriteString('Appearance', 'Dir', s);

end; 
 

procedure TMainForm.SortDateClick(Sender: TObject);

begin

DM.DataSetMain.Sort:='Data_Otkaza';

end; 

procedure TMainForm.SortTypeRefusalClick(Sender: TObject);

begin

DM.DataSetMain.Sort:='ID_Sob';

end; 

procedure TMainForm.SortMoneyClick(Sender: TObject);

begin

DM.DataSetMain.Sort:='Finansy';

end; 

procedure TMainForm.FormResize(Sender: TObject);

var i: word;

    p:real;

begin

p:=MainForm.Width/745;

For i:=0 to DBGridMain.Columns.Count-1 do

DBGridMain.Columns.Items[i].Width:=round(p*wCol[i]);

end; 

procedure TMainForm.DBGridMainTitleClick(Column: TColumn);

begin

if Column.FieldName<>'DescCalc' then

DM.DataSetMain.Sort:=Column.FieldName;

end; 

procedure TMainForm.DelEventClick(Sender: TObject);

begin

If Application.MessageBox('Удалить  запись?','Внимание!',MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then  exit; 

ComDel.Parameters.ParamByName('KE').Value:=DM.DataSetMain.FieldValues['ID_Sob'];

ComDel2.Parameters.ParamByName('KE').Value:=DM.DataSetMain.FieldValues['ID_Sob'];

ComDel.Execute;

ComDel2.Execute;

MainForm.N6Click(self);

end; 

procedure TMainForm.N5Click(Sender: TObject);

begin

DelEventClick(Self);

end; 

procedure TMainForm.EditEventClick(Sender: TObject);

begin 

MainRecordForm.DEdate.DateTime:=DM.DataSetMainData_Otkaza.AsDateTime;

MainRecordForm.DEtime.DateTime:=DM.DataSetMainData_Otkaza.AsDateTime;

MainRecordForm.DRdate.DateTime:=DM.DataSetMainData_Vosstanov.AsDateTime;

MainRecordForm.DRtime.DateTime:=DM.DataSetMainData_Vosstanov.AsDateTime; 

MainRecordForm.RanEdit.Text:=DM.DataSetMainRaneno.AsString;

MainRecordForm.PogEdit.Text:=DM.DataSetMainPogiblo.AsString;

MainRecordForm.FinEdit.Text:=DM.DataSetMainFinansy.AsString;

if DM.DataSetMainOpisanie_Sobitia.AsVariant<>NULL then

  MainRecordForm.DescEdit.Text:=DM.DataSetMainOpisanie_Sobitia.AsString

else

  MainRecordForm.DescEdit.Text:='';

DM.DataSetOtkazy.Active:=true;

MainRecordForm.Tag:=1;

MainRecordForm.Caption:='Редактировать  событие';

MainRecordForm.ShowModal;

end; 

procedure TMainForm.NewEventClick(Sender: TObject);

var i:word;

begin

DM.DataSetOtkazy.Active:=true; 

MainRecordForm.DEdate.DateTime:=now;

MainRecordForm.DEtime.DateTime:=now;

MainRecordForm.DRdate.DateTime:=now;

MainRecordForm.DRtime.DateTime:=now;

MainRecordForm.RanEdit.Text:='0';

MainRecordForm.PogEdit.Text:='0';

MainRecordForm.FinEdit.Text:='0';

MainRecordForm.DescEdit.Text:='';

MainRecordForm.Tag:=0;

MainRecordForm.Caption:='Новое событие'; 

DM.DataSetOtkazy.Active:=true; 

DM.DataSetOtkazy.Sort:='ID_Otkaz';

DM.DataSetOtkazy.First;

MainRecordForm.VidEdit1.Items.Clear;

For i:=0 to DM.DataSetOtkazy.RecordCount-1 do

Begin

  MainRecordForm.VidEdit1.Items.Insert(i,DM.DataSetOtkazy.FieldValues['Vid_Otkaza']);

  DM.DataSetOtkazy.Next;

end;

MainRecordForm.ShowModal; 

end; 

procedure TMainForm.N4Click(Sender: TObject);

begin

EditEventClick(Self);

end; 

procedure TMainForm.N3Click(Sender: TObject);

begin

NewEventClick(self);

end; 

procedure TMainForm.ReportClick(Sender: TObject);

var i:word;

begin

DM.DataSetOtkazy.Active:=true; 

DM.DataSetOtkazy.Sort:='ID_Otkaz';

DM.DataSetOtkazy.First;

Udal.Execute;

SobNew.Execute;

ReportForm.ShowModal;

end; 

procedure TMainForm.N6Click(Sender: TObject);

begin

DM.DataSetMain.Close;

DM.DataSetMain.Open;

end; 
 
 
 

procedure TMainForm.N7Click(Sender: TObject);

begin

FormStrucEvent.ShowModal; 

end; 

procedure TMainForm.N9Click(Sender: TObject);

begin

MainForm.N7Click(self);

end; 

procedure TMainForm.DBGridMainCellClick(Column: TColumn);

begin

If Column.FieldName<>'DescCalc' then Exit;

If DM.DataSetMainOpisanie_Sobitia.AsString='' then Exit;

with MemoForm do

Begin

  Memo1.Text:=DM.DataSetMainOpisanie_Sobitia.AsString;

  Top:=Mouse.CursorPos.Y+20;

  Left:=Mouse.CursorPos.X;

  Show;

end; 

end; 

procedure TMainForm.DBGridMain2CellClick(Column: TColumn);

begin

If Column.FieldName<>'DescCalc' then Exit;

If DM.DataSetOtkazyOpisanie_Otkaza.AsString='' then Exit;

with MemoForm do

Begin

  Memo1.Text:=DM.DataSetOtkazyOpisanie_Otkaza.AsString;

  Top:=Mouse.CursorPos.Y+20;

  Left:=Mouse.CursorPos.X;

  Show;

end;

end; 

procedure TMainForm.N10Click(Sender: TObject);

var i,k:word;

begin 

MainRecordForm.DEdate.DateTime:=DM.DataSetMainData_Otkaza.AsDateTime;

MainRecordForm.DEtime.DateTime:=DM.DataSetMainData_Otkaza.AsDateTime;

MainRecordForm.DRdate.DateTime:=DM.DataSetMainData_Vosstanov.AsDateTime;

MainRecordForm.DRtime.DateTime:=DM.DataSetMainData_Vosstanov.AsDateTime; 

MainRecordForm.RanEdit.Text:=DM.DataSetMainRaneno.AsString;

MainRecordForm.PogEdit.Text:=DM.DataSetMainPogiblo.AsString;

MainRecordForm.FinEdit.Text:=DM.DataSetMainFinansy.AsString;

if DM.DataSetMainOpisanie_Sobitia.AsVariant<>NULL then

  MainRecordForm.DescEdit.Text:=DM.DataSetMainOpisanie_Sobitia.AsString

else

  MainRecordForm.DescEdit.Text:='';

DM.DataSetOtkazy.Active:=true;

MainRecordForm.Tag:=1;

MainRecordForm.Caption:='Редактировать  событие'; 

DM.DataSetOtkazy.Active:=true; 

DM.DataSetOtkazy.Sort:='ID_Otkaz';

DM.DataSetOtkazy.First;

MainRecordForm.VidEdit1.Items.Clear;

For i:=0 to DM.DataSetOtkazy.RecordCount-1 do

Begin

  MainRecordForm.VidEdit1.Items.Insert(i,DM.DataSetOtkazy.FieldValues['Vid_Otkaza']);

  DM.DataSetOtkazy.Next;