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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
102
DBLookupComboBox4.Visible:=True;
end
else
begin
Label8.Caption:='Накладная на отпуск № _________ от
__________';
Label5.Caption:='Цех';
DBLookupComboBox2.Visible:=True;
DBLookupComboBox4.Visible:=False;
end;
end;
procedure TfrWNakl.Button1Enter(Sender: TObject);
begin
if DBEdit6.Field.AsFloat=0 then
begin
ShowMessage('Не определена сумма накладной');
DBEdit2.SetFocus;
end
else
if TipNakl=0 then
begin
if DBLookupComboBox4.Field.IsNull then
begin
ShowMessage('Не определен поставщик');
DBLookupComboBox4.SetFocus;
end
end
else
if DBLookupComboBox2.Field.IsNull then
begin
ShowMessage('Не определено подразделение');
DBLookupComboBox2.SetFocus;
end;
end;
procedure TfrWNakl.DBEdit4Enter(Sender: TObject);
begin
Sum:=DBEdit4.Field.AsFloat;
end;
procedure TfrWNakl.DBEdit4Exit(Sender: TObject);
begin
if Sum<>DBEdit4.Field.AsFloat then
begin
Sum:=DBEdit1.Field.AsFloat;
DBEdit1.Field.AsFloat:=DBEdit2.Field.AsFloat*DBEdit4.Field
.AsFloat;
103
end;
end;
procedure TfrWNakl.DBEdit2Exit(Sender: TObject);
begin
if Sum<>DBEdit2.Field.AsFloat then
begin
Sum:=DBEdit1.Field.AsFloat;
DBEdit1.Field.AsFloat:=DBEdit2.Field.AsFloat*DBEdit4.Field
.AsFloat;
end;
end;
procedure TfrWNakl.DBEdit2Enter(Sender: TObject);
begin
Sum:=DBEdit2.Field.AsFloat;
end;
procedure TfrWNakl.DBEdit1Change(Sender: TObject);
begin
if DM1.tbNakl_1.State in [dsInsert] then
if Sum<>DBEdit1.Field.AsFloat then
DBEdit6.Field.AsFloat:=DBEdit6.Field.AsFloat
-Sum+DBEdit1.Field.AsFloat;
//}
end;
end.
Модуль «Перечень накладных»
unit uNakl;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Grids, DBGrids, ComCtrls, DBCtrls, ExtCtrls, StdCtrls,
Mask, DBCGrids,
Buttons, Menus, ToolWin;
type
TfrNakl = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
Button1: TButton;
104
N1: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
ToolBar1: TToolBar;
DBNavigator1: TDBNavigator;
ToolButton1: TToolButton;
CheckBox1: TCheckBox;
DBGrid1: TDBGrid;
Panel2: TPanel;
Panel3: TPanel;
DBText1: TDBText;
DBText2: TDBText;
DBGrid2: TDBGrid;
Bevel1: TBevel;
BitBtn1: TBitBtn;
Bevel2: TBevel;
procedure N5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure CheckBox1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frNakl: TfrNakl;
implementation
uses uDM1, uDM3;
105
{$R *.DFM}
procedure TfrNakl.N5Click(Sender: TObject);
begin
Button1.Click;
end;
procedure TfrNakl.Button1Click(Sender: TObject);
begin
close;
end;
procedure TfrNakl.N6Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbFirst);
end;
procedure TfrNakl.N7Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbPrior);
end;
//[nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,
nbPost,nbCancel,nbRefresh]
procedure TfrNakl.N8Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbNext);
end;
procedure TfrNakl.N9Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbLast);
end;
procedure TfrNakl.N10Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbInsert);
end;
procedure TfrNakl.N11Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbEdit);
end;
procedure TfrNakl.N12Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbDelete);
end;
106
procedure TfrNakl.DBGrid1TitleClick(Column: TColumn);
begin
//DM1.Nakl_1.IndexFieldNames:=Column.Field.FieldName;
end;
procedure TfrNakl.CheckBox1Click(Sender: TObject);
begin
Panel2.Visible:=CheckBox1.Checked;
end;
procedure TfrNakl.FormShow(Sender: TObject);
begin
if TipNakl=0 then
begin
caption:='Перечень приходных накладных';
BitBtn1.Caption:='Переход к переченю накладных на
отпуск';
DM1.tbNakl_1.Filter:='Tip=0';
DBGrid1.Columns[2].Title.Caption:='Поставщик';
DBGrid1.Columns[2].FieldName:='NamFirm';
end
else
begin
caption:='Перечень накладных на отпуск';
BitBtn1.Caption:='Переход к переченю приходных
накладных';
DM1.tbNakl_1.Filter:='Tip=1';
DBGrid1.Columns[2].Title.Caption:='Получатель';
DBGrid1.Columns[2].FieldName:='NamPodr';
end;
DM1.tbNakl_1.FindFirst;
end;
procedure TfrNakl.BitBtn1Click(Sender: TObject);
begin
TipNakl:=(TipNakl+1)mod 2;
FormShow(Sender);
end;
end.
Модуль «Наличие»
unit uNakl;
interface
uses
Источник: https://baza.diplomsite.ru/previewfile/1703

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

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