Geum.ru


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

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



+ and + Svyaz2 + order by + ForOrder;

end;

if ForFiltr then

begin

QueryString := select +Polya+ from +Tabli+ , + Tabli2 + where +Svyaz + and + Svyaz2 + and + TmpFiltr;

end;

if ((ForSort=false)and(ForFiltr=False)) then

begin

QueryString := select +Polya+ from +Tabli+ , + Tabli2 + where +Svyaz + and + Svyaz2 + order by invent_nomer desc;

end;

with DataModule2.QueryRep do

begin

Close;

SQL.Clear;

SQL.Add(QueryString);

if ForFiltr then

begin

Parameters.ParamByName(Par1).Value := Form10.Edit1.Text;

Parameters.ParamByName(Par2).Value := Form10.Edit2.Text;

end;

Open;

end;

Form9.DBGrid1.Columns[0].Title.Caption :=№ дор. вед.;

Form9.DBGrid1.Columns[1].Title.Caption :=Инвент. №;

Form9.DBGrid1.Columns[2].Title.Caption :=Дата;

Form9.DBGrid1.Columns[3].Title.Caption :=Время;

Form9.DBGrid1.Columns[4].Title.Caption :=Станция отпр.;

Form9.DBGrid1.Columns[5].Title.Caption :=Фронт отпр.;

Form9.DBGrid1.Columns[6].Title.Caption :=№ цеха отпр.;

Form9.DBGrid1.Columns[7].Title.Caption :=Бiеха отпр.;

Form9.DBGrid1.Columns[8].Title.Caption :=Станция заказ.;

Form9.DBGrid1.Columns[9].Title.Caption :=Фронт заказ.;

Form9.DBGrid1.Columns[10].Title.Caption :=№ цеха заказ.;

Form9.DBGrid1.Columns[11].Title.Caption :=Бiеха заказ.;

Form9.DBGrid1.Columns[12].Title.Caption :=Груз;

Form9.DBGrid1.Columns[13].Title.Caption :=Операция;

Form9.DBGrid1.Columns[14].Title.Caption :=Ед. изм.;

Form9.DBGrid1.Columns[15].Title.Caption :=Вес;

Form9.DBGrid1.Columns[16].Title.Caption :=Цена;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids;

type

TForm5 = class(TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

Button1: TButton;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Edit1Enter(Sender: TObject);

procedure Edit2Enter(Sender: TObject);

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

procedure Edit3Exit(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

Uses Unit2, Unit4, Unit3;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

ToIns := IntToStr(Edit1.Tag);

ToIns2 := IntToStr(Edit2.Tag);

ToIns3 := Edit3.Text;

)and(Edit2.Text)) then

begin

if EditMode4 then

begin

ForEdit := DataModule2.QSelUs[ST.id];

InsEdit2 := true;

InsertZapros();

ShowZapros();

end

else

begin

InsertZapros();

ShowZapros();

ForEdit := -1;

end;

Form5.Close;

end

else

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

end;

procedure TForm5.FormShow(Sender: TObject);

begin

TBL:=Stoimost;

if EditMode4 then

begin

Edit1.Text := DataModule2.QSelUs[vid_uslug];

Edit1.Tag := StrToInt(DataModule2.QSelUs[key_vid_uslug]);

Edit2.Text := DataModule2.QSelUs[ves];

Edit2.Tag := StrToInt(DataModule2.QSelUs[key_ves]);

Edit3.Text := DataModule2.QSelUs[stoimost];

Form5.Edit3.SetFocus;

end

else

begin

Edit1.Text := ;

Edit2.Text := ;

Edit2.Tag := 0;

Edit3.Text := ;

Edit3.Tag := 0;

Button1.SetFocus;

end

end;

procedure TForm5.Edit1Enter(Sender: TObject);

begin

Form3.Caption := Вид услуг;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Vid_uslug;

pole1 := id;

pole2 := vid_uslug;

pole3 := ;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Stoimost;

Form5.Edit2.SetFocus;

end;

procedure TForm5.Edit2Enter(Sender: TObject);

begin

Form3.Caption := Единица измерения;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Ves;

pole1 := id;

pole2 := ves;

pole3 := ;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Stoimost;

Form5.Edit3.SetFocus;

end;

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

begin

if EditMode4 then

begin

EditMode4:=false;

end;

TBL:=Uslugi_sv;

end;

procedure TForm5.Edit3Exit(Sender: TObject);

var ResVar : real;

E : integer;

begin

try

strtofloat(Edit3.Text);

except

ShowMessage(Здесь должно быть число!!... ну или поменяйте точку на запятую;));

Edit3.SetFocus;

end;

end;

end.

unit Unit6;

interface

uses

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

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

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

ComboBox1: TComboBox;

Edit2: TEdit;

Edit3: TEdit;

Edit5: TEdit;

Button1: TButton;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label8: TLabel;

Label10: TLabel;

Edit8: TEdit;

Label12: TLabel;

Edit9: TEdit;

Edit10: TEdit;

PopupMenu1: TPopupMenu;

ActionList1: TActionList;

add: TAction;

edit: TAction;

del: TAction;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

procedure Button1Click(Sender: TObject);

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

procedure FormShow(Sender: TObject);

procedure Edit9Enter(Sender: TObject);

procedure Edit10Enter(Sender: TObject);

procedure addExecute(Sender: TObject);

procedure editExecute(Sender: TObject);

procedure delExecute(Sender: TObject);

procedure Edit2Exit(Sender: TObject);

procedure Edit3Exit(Sender: TObject);

procedure Edit5Exit(Sender: TObject);

procedure Edit8Exit(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

Use