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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
117
Form5.Edit13.Text:='';
Form5.Edit14.Text:='';
Form5.Edit15.Text:='';
Form5.Edit16.Text:='';
Form5.Memo1.Lines[0]:='';
Form5.Memo1.Lines[1]:='';
Form5.Memo1.Lines[2]:='';
Form1.Table3.IndexName:='_numrasx';
Form1.Table3.Last;
Form5.Edit1.Text:=IntToStr(Form1.Table3.FieldByName('Num')
.AsInteger+1);
Form1.Table3.IndexName:='numdat_r';
Form5.Edit5.Text:=Form1.Table1.FieldByName('Inn').AsString
;
Form5.Edit6.Text:=Form1.Table1.FieldByName('Naz').AsString
;
Form5.Edit7.Text:=Form1.Table1.FieldByName('Schet').AsStri
ng;
Form5.Edit8.Text:=Form1.Table1.FieldByName('Bank').AsStrin
g;
Form5.Edit9.Text:=Form1.Table1.FieldByName('Bik').AsString
;
Form5.Edit10.Text:=Form1.Table1.FieldByName('Korr').AsStri
ng;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
If Memo1.Lines[0]='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.ComboBox1.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.ComboBox2.Text='' then
begin
Form12.ShowModal;
Exit;
118
end;
If Form5.ComboBox3.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit1.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit3.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit4.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit11.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit12.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit13.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit14.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit15.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit16.Text='' then
begin
Form12.ShowModal;
119
Exit;
end;
Form1.Table3.Append;
Form1.Table3.FieldByName('V_pl').AsString:=ComboBox1.Text;
Form1.Table3.FieldByName('Provod').AsString:=ComboBox2.Tex
t;
Form1.Table3.FieldByName('Och_pl').AsString:=ComboBox3.Tex
t;
Form1.Table3.FieldByName('Num').AsString:=Edit1.Text;
Form1.Table3.FieldByName('Data').AsDateTime:=StrToDate(Mas
kEdit1.Text);
Form1.Table3.FieldByName('Summa').AsString:=Edit3.Text;
Form1.Table3.FieldByName('Summa_p').AsString:=Edit4.Text;
Form1.Table3.FieldByName('Inn_plat').AsString:=Edit5.Text;
Form1.Table3.FieldByName('Plat').AsString:=Edit6.Text;
Form1.Table3.FieldByName('Sch_plat').AsString:=Edit7.Text;
Form1.Table3.FieldByName('Bank_plat').AsString:=Edit8.Text
;
Form1.Table3.FieldByName('Bik_plat').AsString:=Edit9.Text;
Form1.Table3.FieldByName('Korr_plat').AsString:=Edit10.Tex
t;
Form1.Table3.FieldByName('Bank_pol').AsString:=Edit11.Text
;
Form1.Table3.FieldByName('Bik_pol').AsString:=Edit12.Text;
Form1.Table3.FieldByName('Korr_pol').AsString:=Edit13.Text
;
Form1.Table3.FieldByName('Pol').AsString:=Edit14.Text;
Form1.Table3.FieldByName('Sch_pol').AsString:=Edit15.Text;
Form1.Table3.FieldByName('Inn_pol').AsString:=Edit16.Text;
Form1.Table3.FieldByName('Naz').AsString:=Memo1.Lines[0]+M
emo1.Lines[1]+Memo1.Lines[2];
Form1.Table3.Post;
Form1.Table3.IndexName:='numdat_r';
Form5.Close;
120
end;
end.
Модуль «Контроль»
unit uDog;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Grids, DBGrids, ExtCtrls, DBCtrls, ToolWin, ComCtrls,
Menus, DB, Buttons;
type
TfrDog = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
ToolBar1: TToolBar;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
Bevel1: TBevel;
SpeedButton1: TSpeedButton;
Bevel2: TBevel;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
121
end;
var
frDog: TfrDog;
implementation
uses uDM3;
{$R *.DFM}
procedure TfrDog.N2Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbFirst);
end;
procedure TfrDog.N3Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbPrior);
end;
procedure TfrDog.N4Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbNext);
end;
procedure TfrDog.N5Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbLast);
end;
procedure TfrDog.N7Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbInsert);
end;
procedure TfrDog.N8Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbEdit);
end;
procedure TfrDog.N9Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbDelete);
end;
procedure TfrDog.N10Click(Sender: TObject);
begin
Close;
Источник: https://baza.diplomsite.ru/previewfile/1703

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

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