lick (Sender: TObject); Button5Click (Sender: TObject); BitBtn6Click (Sender: TObject); DateTimePicker3CloseUp (Sender: TObject); N12Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TMainForm; DMSport, TovarUnit, FilialUnit, XranenieUnit, FilialListUnit ,, PostavwikUnit, PostavwikListUnit, PeopleUnit,;
{$ R * .dfm} TMainForm.FormCreate (Sender: TObject) ;. Visible:=false; .Width:=MainForm.Width; TMainForm.ToolButton1Click (Sender: TObject) ;. GroupTovarTable. First; TMainForm.ToolButton2Click (Sender: TObject) ;. GroupTovarTable.Prior; TMainForm.ToolButton3Click (Sender: TObject) ;. GroupTovarTable.Next; TMainForm.ToolButton4Click (Sender: TObject) ;. GroupTovarTable.Last; TMainForm.ToolButton8Click (Sender: TObject) ;. GroupTovarTable.Delete; TMainForm.ToolButton7Click (Sender: TObject) ;. GroupTovarTable.Insert ;; TMainForm.N2Click (Sender: TObject) ;. Visible:=true; .Pages [0] .Visible:=true ;. Pages [0] .TabVisible:=true; .ActivePageIndex:=0 ;; TMainForm.ToolButton9Click (Sender: TObject) ;. TovarTable.First; TMainForm.ToolButton10Click (Sender: TObject) ;. TovarTable.Prior; TMainForm.ToolButton11Click (Sender:TObject) ;. TovarTable.Next; TMainForm.ToolButton12Click (Sender: TObject) ;. TovarTable.Last; TMainForm.ToolButton14Click (Sender: TObject) ;. Caption .Show; TMainForm.ToolButton15Click (Sender: TObject) ;. TovarTable.Insert ; .Caption .Show; TMainForm.ToolButton16Click (Sender: TObject) ;. TovarTable.Delete; TMainForm.N3Click (Sender: TObject) ;. Visible:=true; .Pages [1] .Visible:=true; .Pages [1 ] .TabVisible:=true; .ActivePageIndex:=1 ;; TMainForm.ToolButton17Click (Sender: TObject) ;. FilialTable.First; TMainForm.ToolButton18Click (Sender: TObject) ;. FilialTable.Prior; TMainForm.ToolButton19Click (Sender: TObject) ; .FilialTable.Next; TMainForm.ToolButton20Click (Sender: TObject) ;. FilialTable.Last; TMainForm.ToolButton28Click (Sender: TObject) ;. Pages [0] .Visible:=false; .Pages [0] .TabVisible:=false ;; TMainForm.ToolButton30Click (Sender: TObject) ;. Pages [1] .Visible:=false; .Pages [1] .TabVisible:=false ;; TMainForm.ToolButton25Click (Sender: TObject) ;. Pages [2] .Visible :=false; .Pages [2] .TabVisible:=false ;; TMainForm.ToolButton24Click (Sender: TObject); Application.MessageBox (PChar.FilialTable.Delete; TMainForm.ToolButton23Click (Sender: TObject) ;. FilialTable.Insert ;. Show; TMainForm.ToolButton22Click (Sender: TObject) ;. Show; TMainForm.N4Click (Sender: TObject) ;. Visible:=true; .Pages [7] .Visible:=true; .Pages [7] .TabVisible:=true ; .ActivePageIndex:=7 ;; TMainForm.ToolButton37Click (Sender: TObject) ;. Label1.Caption:= 1 raquo ;;. Xranenie2Table.Insert; .Xranenie3Table.Insert; .Edit1.Text:= raquo ;;. Show ;; TMainForm.N7Click (Sender: TObject) ;. Xranenie2Table.Filtered:=false; .Xranenie2Table.Filter:= key_filial= + IntToStr(DM.Xranenie1Table.FieldByName(laquo;key_filialraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.Xranenie2Table.Filtered :=True; .XranenieTable.Filtered:=false; .XranenieTable.Filter:= key_filial= + IntToStr(DM.Xranenie2Table.FieldByName(laquo;key_filialraquo;).AsInteger)+laquo;raquo;laquo;raquo; +
and key_group= + IntToStr(DM.Xranenie2Table.FieldByName(laquo;key_groupraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.XranenieTable.Filtered :=True;.Visible:=True; .Pages [3] .Visible:=true; .Pages [3] .TabVisible:=true; .ActivePageIndex:=3 ;; TMainForm.DateTimePicker1CloseUp (Sender: TObject) ;. Prixod1Table.Edit ;. Prixod1Table.FieldByName ( date ). AsVariant:=DateTimePicker1.Date; .Prixod1Table.Post; TMainForm.ToolButton56Click (Sender: TObject) ;. Prixod1Table.Edit; TMainForm.ToolButton57Click (Sender: TObject) ;. Prixod1Table.Insert; ; TMainForm.ToolButton58Click (Sender: TObject) ;. Prixod1Table.Delete; .Prixod2Table.Filtered:=false; .Prixod2Table.Filter:= key_nakl= + IntToStr(DM.Prixod1Table.FieldByName(laquo;key_naklraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.Prixod2Table.Filtered :=True; .Prixod2Table.First; not DM.Prixod2Table.Eof do.Prixod2Table.Delete; .Prixod2Table.Filtered:=false ;; TMainForm.ToolButton60Click (Sender: TObject) ;. Pages [4] .Visible:=false;.Pages [4] .TabVisible:=false ;; TMainForm.N5Click (Sender: TObject) ;. Visible:=true; .Pages [2] .Visible:=true; .Pages [2] .TabVisible:=true ;. ActivePageIndex:=2 ;; TMainForm.Button1Click (Sender: TObject) ;. Label1.Caption:= 1 raquo ;;. Show ;; TMainForm.Button2Click (Sender: TObject) ;. Label1.Caption:= 2 raquo ;;.Show ;; TMainForm.N8Click (Sender: TObject) ;. Date:=Today () ;. Visible:=true; .Pages [4] .Visible:=true; .Pages [4] .TabVisible:=true ;. ActivePageIndex:=4; ; TMainForm.ToolButton66Click (Sender: TObject) ;. Label2.Caption:=DM.Prixod1Table.FieldByName ( key_nakl ). AsString; .DBEdit1.Visible:=true; .DBEdit2.Visible:=false; .DBEdit3.Visible :=false; .Label3.Caption:= 1 raquo ;;. Show; TMainForm.ToolButton67Click (Se...
