Дипломная работа: Автоматизация договорных отношений мелкооптового склада магазина ИП Шевелевой Е.В. с поставщиками и оптовыми покупателями

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

112

begin

Form12.ShowModal;

Exit;

end;

If Form4.ComboBox3.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit1.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit3.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit4.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit5.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit6.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit7.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit8.Text='' then

begin

Form12.ShowModal;

Exit;

end;

If Form4.Edit9.Text='' then

begin

Form12.ShowModal;

Exit;

end;

113

If Form4.Edit10.Text='' then

begin

Form12.ShowModal;

Exit;

end;

Form1.Table2.Append;

Form1.Table2.FieldByName('V_pl').AsString:=ComboBox1.Text;

Form1.Table2.FieldByName('Provod').AsString:=ComboBox2.Tex

Form1.Table2.FieldByName('Och_pl').AsString:=ComboBox3.Tex

Form1.Table2.FieldByName('Num').AsString:=Edit1.Text;

Form1.Table2.FieldByName('Data').AsDateTime:=StrToDate(Mas

kEdit1.Text);

Form1.Table2.FieldByName('Usl').AsString:=Edit2.Text;

Form1.Table2.FieldByName('Summa').AsString:=Edit3.Text;

Form1.Table2.FieldByName('Summa_p').AsString:=Edit4.Text;

Form1.Table2.FieldByName('Inn_plat').AsString:=Edit5.Text;

Form1.Table2.FieldByName('Plat').AsString:=Edit6.Text;

Form1.Table2.FieldByName('Sch_plat').AsString:=Edit7.Text;

Form1.Table2.FieldByName('Bank_plat').AsString:=Edit8.Text

;

Form1.Table2.FieldByName('Bik_plat').AsString:=Edit9.Text;

Form1.Table2.FieldByName('Korr_plat').AsString:=Edit10.Tex

Form1.Table2.FieldByName('Bank_pol').AsString:=Edit11.Text

;

Form1.Table2.FieldByName('Bik_pol').AsString:=Edit12.Text;

Form1.Table2.FieldByName('Korr_pol').AsString:=Edit13.Text

;

Form1.Table2.FieldByName('Pol').AsString:=Edit14.Text;

Form1.Table2.FieldByName('Sch_pol').AsString:=Edit15.Text;

Form1.Table2.FieldByName('Inn_pol').AsString:=Edit16.Text;

114

Form1.Table2.FieldByName('Naz').AsString:=Memo1.Lines[0]+M

emo1.Lines[1]+

Memo1.Lines[2];

Form1.Table2.Post;

Form1.Table2.IndexName:='numdat_p';

Form4.Close;

end;

procedure TForm4.FormActivate(Sender: TObject);

begin

Form4.ComboBox1.Text:='';

Form4.ComboBox2.Text:='';

Form4.ComboBox3.Text:='';

Form4.MaskEdit1.Text:=DateToStr(Date);

Form4.Edit1.Text:='';

Form4.Edit2.Text:='';

Form4.Edit3.Text:='';

Form4.Edit4.Text:='';

Form4.Edit5.Text:='';

Form4.Edit6.Text:='';

Form4.Edit7.Text:='';

Form4.Edit8.Text:='';

Form4.Edit9.Text:='';

Form4.Edit10.Text:='';

Form4.Memo1.Lines[0]:='';

Form4.Memo1.Lines[1]:='';

Form4.Memo1.Lines[2]:='';

Form1.Table2.IndexName:='_numprix';

Form1.Table2.Last;

Form4.Edit1.Text:=IntToStr(Form1.Table2.FieldByName('Num')

.AsInteger+1);

Form1.Table2.IndexName:='numdat_p';

Form4.Edit11.Text:=Form1.Table1.FieldByName('Bank').AsStri

ng;

Form4.Edit12.Text:=Form1.Table1.FieldByName('Bik').AsStrin

Form4.Edit13.Text:=Form1.Table1.FieldByName('Korr').AsStri

ng;

Form4.Edit14.Text:=Form1.Table1.FieldByName('Naz').AsStrin

Form4.Edit15.Text:=Form1.Table1.FieldByName('Schet').AsStr

ing;

115

Form4.Edit16.Text:=Form1.Table1.FieldByName('Inn').AsStrin

end;

end.

Модуль «Расчеты»

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs,

StdCtrls, Mask;

type

TForm5 = class(TForm)

Button1: TButton;

Button2: TButton;

StaticText1: TStaticText;

StaticText2: TStaticText;

StaticText3: TStaticText;

StaticText4: TStaticText;

StaticText5: TStaticText;

StaticText6: TStaticText;

StaticText7: TStaticText;

StaticText8: TStaticText;

StaticText9: TStaticText;

StaticText10: TStaticText;

StaticText11: TStaticText;

StaticText12: TStaticText;

StaticText13: TStaticText;

StaticText14: TStaticText;

StaticText15: TStaticText;

StaticText16: TStaticText;

StaticText17: TStaticText;

StaticText18: TStaticText;

StaticText19: TStaticText;

StaticText20: TStaticText;

StaticText21: TStaticText;

Edit1: TEdit;

MaskEdit1: TMaskEdit;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

116

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit13: TEdit;

Edit14: TEdit;

Edit15: TEdit;

Edit16: TEdit;

Memo1: TMemo;

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1, Unit12;

{$R *.DFM}

procedure TForm5.Button2Click(Sender: TObject);

begin

Form5.Close;

end;

procedure TForm5.FormActivate(Sender: TObject);

begin

Form5.ComboBox1.Text:='';

Form5.ComboBox2.Text:='';

Form5.ComboBox3.Text:='';

Form5.MaskEdit1.Text:=DateToStr(Date);

Form5.Edit1.Text:='';

Form5.Edit3.Text:='';

Form5.Edit4.Text:='';

Form5.Edit11.Text:='';

Form5.Edit12.Text:='';

Источник: https://baza.diplomsite.ru/previewfile/1703

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии