вопрос на delphi7

[Lu-7]

Добрый день форумчане! помогите разобраться в существующей рабочей программе.Она работает и функционирует с sql.
Нужно добавить одну строку edit и label в форму так чтобы программа эти строчки сохраняла в sql.

Мне кажется та форму куда нужно вставить поле edit и label это форма u_formZayavkaAdd.pas правда при сохранении* она ругается
первое сообщение
module u_formZayavkaAdd links to module dmmain which cannot be found in the current project. do you wish to remove/redirect the links to another module
remove (dmmain такое имя я видел в файле u_dmMain.pas в колонке object treeview)
следующее
module zayavkaadd references another module and cannot be saved until dmmain is loaded

>>>форма заполнения*(сохраняет*ся в базе sql) рис1 или
http://www.programmersforum.ru/attac...1&d=1377759127

>>>это бланк куда всё выводится и на печать (тоже сохраняетс*я в sql, потому как можно просмотрет*ь и форму и бланк в любом месяце с забитыми данными) рис2 или
http://www.programmersforum.ru/attac...1&d=1377759127

[Lu-7]

http://www.programmersforum.ru/attac...1&d=1377760931
http://www.programmersforum.ru/attac...1&d=1377760931

[Lu-7]

unit u_formZayavki;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, StdCtrls,
dxEdLib, dxDBELib, dxExEdtr, dxEditor, QT, dxDBEdtr, ComCtrls, ExtCtrls,
DB, ADODB, Buttons, FR_Class, FR_DSet, FR_DBSet;

type
TformZayavki = class(TForm)
gridZayavki: TdxDBGrid;
gridZayavkiIDZayavka: TdxDBGridMaskColumn;
gridZayavkizDate: TdxDBGridDateColumn;
gridZayavkiQuant: TdxDBGridMaskColumn;
gridZayavkizQuant: TdxDBGridMaskColumn;
gridZayavkioQuant: TdxDBGridMaskColumn;
gridZayavkiIDMoveType: TdxDBGridMaskColumn;
gridZayavkiIDBasis: TdxDBGridMaskColumn;
gridZayavkiBasis: TdxDBGridLookupColumn;
gridZayavkiIDBuyer: TdxDBGridMaskColumn;
gridZayavkiBuyer: TdxDBGridLookupColumn;
gridZayavkiPrilNum: TdxDBGridMaskColumn;
gridZayavkiIDZavod: TdxDBGridMaskColumn;
gridZayavkiZavod: TdxDBGridLookupColumn;
gridZayavkiIDConsignee: TdxDBGridMaskColumn;
gridZayavkiConsignee: TdxDBGridLookupColumn;
gridZayavkiIDProduct: TdxDBGridMaskColumn;
gridZayavkiProduct: TdxDBGridLookupColumn;
gridZayavkiIDHowOut: TdxDBGridMaskColumn;
gridZayavkiHowOut: TdxDBGridLookupColumn;
gridZayavkiIDStation: TdxDBGridMaskColumn;
gridZayavkiStation: TdxDBGridLookupColumn;
gridZayavkiIDVidDog: TdxDBGridMaskColumn;
gridZayavkiVidDog: TdxDBGridLookupColumn;
gridZayavkiDopoln: TdxDBGridMaskColumn;
gridZayavkiBlocked: TdxDBGridCheckColumn;
gridZayavkiisDropped: TdxDBGridCheckColumn;
gridZayavkiDropDate: TdxDBGridDateColumn;
gridZayavkiDropOsnov: TdxDBGridMaskColumn;
gridZayavkiisDown: TdxDBGridCheckColumn;
gridZayavkiDownDate: TdxDBGridDateColumn;
gridZayavkiDownOsnov: TdxDBGridMaskColumn;
gridZayavkiOther: TdxDBGridMaskColumn;
groupZayavka: TGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
lkpBuyer: TdxDBLookupEdit;
editPril: TdxDBEdit;
lkpConsignee: TdxDBLookupEdit;
lkpHowOut: TdxDBLookupEdit;
lkpStation: TdxDBLookupEdit;
editDopoln: TdxDBEdit;
checkDrop: TdxDBCheckEdit;
dateDownDate: TdxDBDateEdit;
editDropOsnov: TdxDBEdit;
checkDown: TdxDBCheckEdit;
dateDropDate: TdxDBDateEdit;
editDownOsnov: TdxDBEdit;
editPrim: TdxDBEdit;
Label14: TLabel;
btnMakeOtgruzki: TButton;
gridZayavkiNedogruz: TdxDBGridColumn;
cmdNewOtgruzka: TADOCommand;
cmdNewZayavka: TADOCommand;
btnReload: TBitBtn;
btnInsert: TBitBtn;
btnDelete: TBitBtn;
dsetCurOtgr: TADODataSet;
lkpRoad: TdxDBLookupEdit;
Label1: TLabel;
Label2: TLabel;
dxDBLookupEdit1: TdxDBLookupEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
btnPrint: TBitBtn;
gridOtgruzki: TdxDBGrid;
gridOtgruzkiID: TdxDBGridMaskColumn;
gridOtgruzkiIDZayavka: TdxDBGridMaskColumn;
gridOtgruzkiQuant: TdxDBGridCurrencyColumn;
gridOtgruzkioutDate: TdxDBGridDateColumn;
gridOtgruzkiisOper: TdxDBGridCheckColumn;
gridOtgruzkiOther: TdxDBGridMaskColumn;
gridOtgruzkiIDMoveType: TdxDBGridMaskColumn;
gridOtgruzkiMoveType: TdxDBGridLookupColumn;
Label7: TLabel;
StatusBar1: TStatusBar;
Label15: TLabel;
lkpConsCode: TdxDBLookupEdit;
Label16: TLabel;
lkpAdress: TdxDBLookupEdit;
gridZayavkizNum: TdxDBGridColumn;
gridZayavkiTarif: TdxDBGridMaskColumn;
gridZayavkiOwner: TdxDBGridColumn;
Label17: TLabel;
dxDBLookupEdit2: TdxDBLookupEdit;
btnNewCopy: TBitBtn;
gridZayavkizPrilZD: TdxDBGridMaskColumn;
gridZayavkizNumZD: TdxDBGridMaskColumn;
procedure gridOtgruzkiKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure gridZayavkiEnter(Sender: TObject);
procedure gridZayavkiExit(Sender: TObject);
procedure gridOtgruzkiEnter(Sender: TObject);
procedure gridOtgruzkiExit(Sender: TObject);
procedure groupOtgruzkiEnter(Sender: TObject);
procedure groupOtgruzkiExit(Sender: TObject);
procedure btnUpdateClick(Sender: TObject);
procedure gridZayavkiCustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
procedure btnMakeOtgruzkiClick(Sender: TObject);
procedure btnPrintClick(Sender: TObject);
procedure gridZayavkizQuantCustomDrawCell(Sen der: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused,
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
procedure gridZayavkiKeyUp(Sender: TObject; var Key: Word;

[Lu-7]

Shift: TShiftState);
procedure btnReloadClick(Sender: TObject);
procedure btnInsertClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure gridZayavkiNedogruzCustomDrawCell(S ender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused,
ANewItemRow: Boolean; var AText: String; var AColor: TColor;
AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
procedure gridZayavkiDblClick(Sender: TObject);
procedure gridOtgruzkiDblClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnNewCopyClick(Sender: TObject);

procedure ZaiavkaInsertIntoDB;

private
{ Private declarations }
public
{ Public declarations }
end;

var
formZayavki: TformZayavki;

implementation

uses u_dmMain, u_formOtgruzkiRaznos, u_formPreviw, u_formDownQuant,
u_formBuyers, u_formProducts, u_formConsignees, u_formStations,
u_formMain, u_formZayavkaAdd, u_form_OtgrAdd, u_formZayavkaNew;

{$R *.dfm}

procedure TformZayavki.gridOtgruzkiKeyUp(Send er: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 45) or (key = 116) then begin {insert}
if not dmMain.t_Zayavki.IsEmpty then begin
cmdNewOtgruzka.CommandText :=
'insert into t_otgruzki (IDZayavka, Quant, outDate, IDMoveType, isOper) VALUES (' +
IntToStr(dmMain.t_Zayavki['IDZayavka']) +
',0,GetDate(),7,1)';
cmdNewOtgruzka.Execute;
with dmMain.t_Otgruzki do begin
Requery();
Last;
Edit;
form_OtgrAdd.ShowModal;
if dmMain.t_Otgruzki.State = dsEdit then dmMain.t_Otgruzki.Post;
Requery();
Last;

dmMain.t_OtgrZayavki.Requery();
dmMain.t_OtgruzkiNotOperSum.Requery ();
dmMain.t_Zayavki.Edit;
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant'];
dmMain.t_Zayavki['oQuant'] := 0;
if not dmMain.t_OtgrZayavki.IsEmpty then begin
{ dmMain.t_Zayavki.Edit;}
try
{ dmMain.t_Zayavki['zQuant'] := dmMain.t_OtgrZayavki['Quant'];}
dmMain.t_Zayavki['oQuant'] := dmMain.t_OtgrZayavki['Quant'];
if dmMain.t_Zayavki['IDHowOut'] = 1 then begin // ж/д
if dmMain.t_OtgruzkiNotOperSum['SumQuant'] <= 0 then
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant']
else
if (dmMain.t_Zayavki['Quant'] - dmMain.t_OtgruzkiNotOperSum['SumQuant']) < 45 then begin
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['oQuant'];
end //45 тонн
else
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant'];
end; // ж/д
except
ShowMessage('Не удалось обновить отгрузки!')
end;
end; {if}
{ dmMain.t_Zayavki['Nedogruz'] := dmMain.t_Zayavki['zQuant'] - dmMain.t_Zayavki['oQuant'];}
dmMain.t_Zayavki.Post;


end;
end;
end;

if key = 46 then begin {delete}
if dmMain.t_Otgruzki.RecNo > 0 then begin
if Application.MessageBox('Удалить запись ?','',MB_OKCANCEL) = IDOK then begin
cmdNewOtgruzka.CommandText :=
'delete from t_otgruzki where ID = ' +
IntToStr(dmMain.t_Otgruzki['ID']);
cmdNewOtgruzka.Execute;
with dmMain.t_Otgruzki do begin
Close;
Open;
Last;

dmMain.t_OtgrZayavki.Requery();
dmMain.t_OtgruzkiNotOperSum.Requery ();
dmMain.t_Zayavki.Edit;
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant'];
dmMain.t_Zayavki['oQuant'] := 0;
if not dmMain.t_OtgrZayavki.IsEmpty then begin
{ dmMain.t_Zayavki.Edit;}
try
{ dmMain.t_Zayavki['zQuant'] := dmMain.t_OtgrZayavki['Quant'];}
dmMain.t_Zayavki['oQuant'] := dmMain.t_OtgrZayavki['Quant'];
if dmMain.t_Zayavki['IDHowOut'] = 1 then begin // ж/д
if dmMain.t_OtgruzkiNotOperSum['SumQuant'] <= 0 then
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant']
else
if (dmMain.t_Zayavki['Quant'] - dmMain.t_OtgruzkiNotOperSum['SumQuant']) < 45 then begin
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['oQuant'];
end //45 тонн
else
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant'];
end; // ж/д
except
ShowMessage('Не удалось обновить отгрузки!')
end;
end; {if}
{ dmMain.t_Zayavki['Nedogruz'] := dmMain.t_Zayavki['zQuant'] - dmMain.t_Zayavki['oQuant'];}
dmMain.t_Zayavki.Post;


end;
end; {end if - удалить запись}
end;
end;
end;

[Lu-7]

procedure TformZayavki.gridZayavkiEnter(Sende r: TObject);
begin
gridZayavki.HeaderColor := $0094D2EB;
end;

procedure TformZayavki.gridZayavkiExit(Sender : TObject);
begin
gridZayavki.HeaderColor := clSilver;
end;

procedure TformZayavki.gridOtgruzkiEnter(Send er: TObject);
begin
Label7.Color := clYellow;
gridOtgruzki.HeaderColor := $0094D2EB;
end;

procedure TformZayavki.gridOtgruzkiExit(Sende r: TObject);
begin
Label7.Color := clMoneyGreen;
gridOtgruzki.HeaderColor := clSilver;
end;

procedure TformZayavki.groupOtgruzkiEnter(Sen der: TObject);
begin
gridOtgruzki.HeaderColor := $0094D2EB;
end;

procedure TformZayavki.groupOtgruzkiExit(Send er: TObject);
begin
gridOtgruzki.HeaderColor := clBtnFace;
end;

procedure TformZayavki.btnUpdateClick(Sender: TObject);
begin
gridZayavki.DataSource.DataSet.Refr esh;
end;

procedure TformZayavki.gridZayavkiCustomDrawC ell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);

var
Value : Variant;
begin


if not ASelected and (AColumn = gridZayavkiProduct) then
begin
Value := ANode.Values[AColumn.Index];
if not VarIsNull(Value) then
begin
if trim(Value) = 'НЕ ОПРЕДЕЛЕНО' then
AColor := clYellow
end;
end;

if ASelected and (AColumn = gridZayavkiProduct) then
begin
Value := ANode.Values[AColumn.Index];
if not VarIsNull(Value) then
begin
if trim(Value) = 'НЕ ОПРЕДЕЛЕНО' then
AFont.Color := clYellow
end;
end;


if not ASelected and (AColumn = gridZayavkiVidDog) then
begin
Value := ANode.Values[AColumn.Index];
if not VarIsNull(Value) then
begin
if trim(Value) = 'ДАВ' then
AColor := $00A0EFAA {clMoneyGreen}
else { > 0 }
AColor := $0080FFFF {clYellow};
end;
end;

if not ASelected and (AColumn = gridZayavkiZavod) then
begin
Value := ANode.Values[AColumn.Index];
if not VarIsNull(Value) then
begin
if trim(Value) = 'НУНПЗ' then AColor := $00A2CDF9;
if trim(Value) = 'УНПЗ' then AColor := $00A6FFCA;
if trim(Value) = 'УНХ' then AColor := $00FFC4C4;
if trim(Value) = 'УОС' then AColor := $00DFB7EE;
if trim(Value) = 'Химпром' then AColor := $00CBCB98;
end;
end;

if not ASelected and (AColumn = gridZayavkiNedogruz) then
begin
Value := ANode.Values[AColumn.Index];
if Value > 0 then AFont.Color := clRed;
end;

end;

procedure TformZayavki.btnMakeOtgruzkiClick(S ender: TObject);
begin
formZayavki.Cursor := crHourGlass;
formOTgruzkiRaznos.Show;
formOTgruzkiRaznos.Update;
gridZayavki.Filter.Active := False;
gridZayavki.DataSource := Nil;
dmMain.t_OtgrZayavki.Requery();
dmMain.t_OtgruzkiNotOperSum.Requery ();
dmMain.t_Zayavki.First;
formOtgruzkiRaznos.ProgressBar1.Min := 0;
formOtgruzkiRaznos.ProgressBar1.Max := dmMain.t_Zayavki.RecordCount;
while not dmMain.t_Zayavki.Eof do begin
formOtgruzkiRaznos.ProgressBar1.Pos ition := dmMain.t_Zayavki.RecNo;
formOTgruzkiRaznos.Update;
dmMain.t_Zayavki.Edit;
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant'];
dmMain.t_Zayavki['oQuant'] := 0;
if not dmMain.t_OtgrZayavki.IsEmpty then begin
{ dmMain.t_Zayavki.Edit;}
try
{ dmMain.t_Zayavki['zQuant'] := dmMain.t_OtgrZayavki['Quant'];}
dmMain.t_Zayavki['oQuant'] := dmMain.t_OtgrZayavki['Quant'];
if dmMain.t_Zayavki['IDHowOut'] = 1 then begin // ж/д
if dmMain.t_OtgruzkiNotOperSum['SumQuant'] <= 0 then
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant']
else
if (dmMain.t_Zayavki['Quant'] - dmMain.t_OtgruzkiNotOperSum['SumQuant']) < 45 then begin
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['oQuant'];
end //45 тонн
else
dmMain.t_Zayavki['zQuant'] := dmMain.t_Zayavki['Quant'];
end; // ж/д
except
ShowMessage('Не удалось обновить отгрузки!')
end;
end; {if}
dmMain.t_Zayavki.Post;
dmMain.t_Zayavki.Next;
end; {while}
dmMain.t_Zayavki.Close;
dmMain.t_Zayavki.Open;
dmMain.t_PivotForZayavki.Close;
dmMain.t_PivotForZayavki.Open;
formOTgruzkiRaznos.Close;
formZayavki.Cursor := crDefault;
gridZayavki.DataSource := dmMain.ds_Zayavki;
gridZayavki.Repaint;
gridZayavki.Filter.Active := True;
gridZayavki.SetFocus;
end;