Главная: Рефераты

Рефераты. Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия

   begin

    DateTimePicker1.Date := Date;

    DateTimePicker2.Date := StrToDate('01.01.1950');   

    Edit2.Text := '';

    Edit3.Text := '';

    Edit5.Text := '';

    Edit8.Text := '';

    Edit9.Text := '';

    Edit9.Tag := 0;

    Edit10.Text := '';

    Edit10.Tag := 0;

    DBGrid1.Visible := false;

   end;

    TBL:='Vagon';

end;


procedure TForm6.Edit9Enter(Sender: TObject);

begin

  Form3.Caption := 'Род вагона';

  Form3.Label1.Caption:=  Form3.Caption;

  Tbl := 'Rod_vagona';

  pole1 := 'id';

  pole2 := 'Rod_vagona';

  pole3 := '';

  pole4 := '';

  pole5 := '';

  pole6 := '';

  pole7 := '';

  pole8 := '';

  pole9 := '';

  pole10 := '';

  pole11 := '';

  pole12 := '';

  pole13 := '';

  ShowZapros;

  Form3.ShowModal;

  Tbl := 'Vagon';

  Edit10.SetFocus;

end;


procedure TForm6.Edit10Enter(Sender: TObject);

begin

  Form3.Caption := 'Район движения';

  Form3.Label1.Caption:=  Form3.Caption;

  Tbl := 'Raion_dvizheniya';

  pole1 := 'id';

  pole2 := 'Raion_dvizh';

  pole3 := '';

  pole4 := '';

  pole5 := '';

  pole6 := '';

  pole7 := '';

  pole8 := '';

  pole9 := '';

  pole10 := '';

  pole11 := '';

  pole12 := '';

  pole13 := '';

  ShowZapros;

  Form3.ShowModal;

  Tbl := 'Vagon';

  Button1.SetFocus;

end;


procedure TForm6.addExecute(Sender: TObject);

begin

  Form7.Caption := 'Информация по вагону';

  Tbl := 'Operations_s_vagonom';

  pole1 := 'id';

  pole2 := 'key_station_otpr';

  pole3 := 'key_front_otpr';

  pole4 := 'key_sttion_naznach';

  pole5 := 'key_front_naznach';

  pole6 := 'date';

  pole7 := 'time';

  pole8 := 'key_operation';

  pole9 := 'key_gruz';

  pole10 := 'weight';

  pole11 := 'n_dor_ved';

  pole12 := 'n_ved';

  pole13 := 'key_vagon';

  Form7.ShowModal;

  if ((EditMode2=false)and(EditIns2)) then

        begin

        EditMode2:=true;

        Form7.ShowModal;

        end;

end;


procedure TForm6.editExecute(Sender: TObject);

begin

if (DataModule2.QOSV['OSV.id']=Null) then

  begin

   ShowMessage('Нечего редактировать');

   EditMode2 := false;

  end

 else

  begin

   EditMode2 := True;

   Form7.ShowModal;

  end;

end;


procedure TForm6.delExecute(Sender: TObject);

begin

if (DataModule2.QOSV['OSV.id']=Null) then

  begin

   ShowMessage('Нечего удалять');

   EditMode2 := false;

  end

 else

  begin

    Tbl := 'Operations_s_vagonom';

    pole1 := 'id';

    pole2 := 'key_station_otpr';

    pole3 := 'key_front_otpr';

    pole4 := 'key_station_naznach';

    pole5 := 'key_front_naznach';

    pole6 := 'mydate';

    pole7 := 'mytime';

    pole8 := 'key_operation';

    pole9 := 'key_gruz';

    pole10 := 'weight';

    pole11 := 'n_dor_ved';

    pole12 := 'n_ved';

    pole13 := 'key_vagon';

    ForDel := DataModule2.QOSV['OSV.id'];

    DelZapros;

    ShowZapros();

    TBL:='Vagon';

  end; 

end;


procedure TForm6.Edit2Exit(Sender: TObject);

begin

try

strtoint(Edit2.Text);

except

ShowMessage('Здесь должно быть число!!');

Edit2.SetFocus;

end;

end;


procedure TForm6.Edit3Exit(Sender: TObject);

begin

try

strtoint(Edit3.Text);

except

ShowMessage('Здесь должно быть число!!');

Edit3.SetFocus;

end;

end;


procedure TForm6.Edit5Exit(Sender: TObject);

begin

try

strtoint(Edit5.Text);

except

ShowMessage('Здесь должно быть число!!');

Edit5.SetFocus;

end;

end;


procedure TForm6.Edit8Exit(Sender: TObject);

begin

try

strtoint(Edit8.Text);

//----далее команды если введённая вещь - число

except

ShowMessage('Здесь должно быть число!!');

Edit8.SetFocus;

end;

end;


end.

unit Unit7;


interface


uses

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

  Dialogs, StdCtrls, ComCtrls, TabNotBk, Grids, DBGrids, Menus, ActnList;


type

  TForm7 = class(TForm)

    GroupBox1: TGroupBox;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Edit6: TEdit;

    Edit4: TEdit;

    Edit3: TEdit;

    Button1: TButton;

    GroupBox2: TGroupBox;

    DBGrid1: TDBGrid;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    ActionList1: TActionList;

    PopupMenu1: TPopupMenu;

    add: TAction;

    edit: TAction;

    del: TAction;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    procedure FormShow(Sender: TObject);

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

    procedure Button1Click(Sender: TObject);

    procedure Edit1Enter(Sender: TObject);

    procedure Edit2Enter(Sender: TObject);

    procedure Edit9Enter(Sender: TObject);

    procedure Edit10Enter(Sender: TObject);

    procedure Edit7Enter(Sender: TObject);

    procedure Edit8Enter(Sender: TObject);

    procedure addExecute(Sender: TObject);

    procedure editExecute(Sender: TObject);

    procedure delExecute(Sender: TObject);

    procedure Edit6Exit(Sender: TObject);

    procedure Edit4Exit(Sender: TObject);

    procedure Edit3Exit(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;


var

  Form7: TForm7;


implementation

Uses Unit2, Unit4, Unit3, Unit8, DateUtils;


{$R *.dfm}


procedure TForm7.FormShow(Sender: TObject);

begin

if EditMode2 then

   begin

    DBGrid1.Visible := true;

    Edit6.Text := DataModule2.QOSV['n_ved'];

    Edit4.Text := DataModule2.QOSV['n_dor_ved'];

    DateTimePicker1.Date := StrToDate(DataModule2.QOSV['mydate']);

    DateTimePicker2.DateTime := StrToTime(DataModule2.QOSV['mytime']);

    Edit1.Text := DataModule2.QOSV['SNACH.station'];

    Edit1.Tag := StrToInt(DataModule2.QOSV['key_station_otpr']);

    Edit2.Text := DataModule2.QOSV['FNACH.front'];

    Edit2.Tag := StrToInt(DataModule2.QOSV['key_front_otpr']);

    Edit7.Text := DataModule2.QOSV['SKON.station'];

    Edit7.Tag := StrToInt(DataModule2.QOSV['key_station_naznach']);

    Edit8.Text := DataModule2.QOSV['FKON.front'];

    Edit8.Tag := StrToInt(DataModule2.QOSV['key_front_naznach']);

    Edit9.Text := DataModule2.QOSV['operation'];

    Edit9.Tag := StrToInt(DataModule2.QOSV['key_operation']);

    Edit10.Text := DataModule2.QOSV['gruz'];

    Edit10.Tag := StrToInt(DataModule2.QOSV['key_gruz']);

    Edit3.Text := DataModule2.QOSV['weight'];

    Tbl:='Uslugi_sv';

    ShowZapros();

   end

  else

   begin

    Edit6.Text := '';

    Edit4.Text := '';

    Edit1.Text := '';

    Edit1.Tag := 0;

    Edit2.Text := '';

    Edit2.Tag := 0;

    Edit7.Text := '';

    Edit7.Tag := 0;

    Edit8.Text := '';

    Edit8.Tag := 0;

    Edit9.Text := '';

    Edit9.Tag := 0;

    Edit10.Text := '';

    Edit10.Tag := 0;

    Edit3.Text := '';

    DBGrid1.Visible := false;

    DateTimePicker1.Date := Date;

    DateTimePicker2.Time := Time;

   end;

 TBL:='Operations_s_vagonom';

end;


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

begin

if EditMode2 then

        begin

        EditMode2:=false;

        end;

 TBL:='Vagon';

end;


procedure TForm7.Button1Click(Sender: TObject);

var qtmp : string;

begin

  ToIns := IntToStr(Edit1.Tag);

  ToIns2 := IntToStr(Edit2.Tag);

  ToIns3 := IntToStr(Edit7.Tag);

  ToIns4 := IntToStr(Edit8.Tag);

  ToIns5 := DateToStr(DateTimePicker1.Date);

  ToIns6 := TimeToStr(DateTimePicker2.Time);

  ToIns7 := IntToStr(Edit9.Tag);

  ToIns8 := IntToStr(Edit10.Tag);

  ToIns9 := Edit3.Text;

  ToIns10 := Edit6.Text;

  ToIns11 := Edit4.Text;

  ToIns12 := DataModule2.QShow['V.id'];

if ((Edit6.Text<>'')and(Edit4.Text<>'')and(Edit3.Text<>'')and

    (Edit1.Text<>'')and(Edit2.Text<>'')and(Edit7.Text<>'')and

    (Edit8.Text<>'')and(Edit9.Text<>'')and(Edit10.Text<>'')) then

begin

  if EditMode2 then

     begin

       ForEdit := DataModule2.QOSV['OSV.id'];

       InsEdit4 := true;

       InsertZapros();

       ShowZapros();

     end

    else

     begin

       EditIns2 := true;

       InsertZapros();

       QueryString:='SELECT top 1 id from '+ TBL+' order by id desc';

       with DataModule2.Qtmp do

         begin

            Close;

            SQL.Clear;

            SQL.Add(QueryString);

            Open;

         end;

       qtmp := DataModule2.Qtmp['id'];

       Form7.Close;

       ShowZapros();

       DataModule2.QShow.Locate('v.id',qtmp,[]);

       ForEdit := '-1';      

     end;

    Form7.Close;

  end

 else

 ShowMessage('Все поля обязательны к заполнению!');    

end;


procedure TForm7.Edit1Enter(Sender: TObject);

begin

  Form3.Caption := 'Станция отправитель';

  Form3.Label1.Caption:=  Form3.Caption;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29
2012 © Все права защищены
При использовании материалов активная ссылка на источник обязательна.