Реферат Проектування програмного забезпечення з обліку товарів в &Мегаспорт& магазині

Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TPanel ;: TBitBtn ;: TBitBtn;:TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TFilialForm; DMSport;

{$ R * .dfm} TFilialForm.BitBtn1Click (Sender: TObject); DM.FilialTable.Modified then.FilialTable.Post;.Xranenie1Table.Insert;.Xranenie1Table.FieldByName(laquo;key_filialraquo;).AsInteger :=DM.FilialTable.FieldByName ( key_filial ). AsInteger; DM.Xranenie1Table.Modified then.Xranenie1Table.Post ;; TFilialForm.BitBtn2Click (Sender: TObject) ;;. PeopleListUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TLabel ;: TBitBtn ;: TBitBtn ;: TDBGrid; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject) ;

{Private declarations}

{Public declarations} ;: TPeopleListForm; DMSport;

{$ R * .dfm} TPeopleListForm.BitBtn1Click (Sender: TObject) ;. SaleTable.Edit; .SaleTable.FieldByName ( key_people ). AsInteger:=DM.PeopleTable.FieldByName(laquo;key_peopleraquo;).AsInteger;.SaleTable.FieldByName(laquo;dolzhnostraquo;).AsString :=DM.PeopleTable.FieldByName ( dolzhnost ). AsString; .SaleTable.Post; .PeopleTable.Filtered:=false ;; TPeopleListForm.BitBtn2Click (Sender: TObject) ;;. PeopleUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DBCtrls, StdCtrls, Mask, Buttons, ExtCtrls;=class (TForm): TPanel ;: TBitBtn ;: TBitBtn ;: TPanel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBLookupComboBox ;: TDBEdit ;: TDBEdit; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TPeopleForm; DMSport;

{$ R * .dfm} TPeopleForm.BitBtn1Click (Sender: TObject) ;. PeopleTable.Post ;; TPeopleForm.BitBtn2Click (Sender: TObject) ;;. PostavwikListUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TLabel ;: TBitBtn ;: TBitBtn ;: TDBGrid; BitBtn1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TPostavwikListForm; DMSport;

{$ R * .dfm} TPostavwikListForm.BitBtn1Click (Sender: TObject) ;. PrixodNaklTable.Edit; .PrixodNaklTable.FieldByName ( otkuda ). AsString:=DM.PostavwikTable.FieldByName(laquo;Postavwikraquo;).AsString;.PrixodNaklTable.Post;;.PostavwikUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls;=class (TForm): TPanel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TPanel ;: TBitBtn ;: TBitBtn; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TPostavwikForm; DMSport;

{$ R * .dfm} TPostavwikForm.BitBtn1Click (Sender: TObject) ;. PostavwikTable.Post ;; TPostavwikForm.BitBtn2Click (Sender: TObject) ;;. TovarListUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons, ExtCtrls;=class (TForm): TPanel ;: TBitBtn ;: TBitBtn ;: TDBGrid ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit; BitBtn1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TTovarListForm; DMSport;

{$ R * .dfm} TTovarListForm.BitBtn1Click (Sender: TObject) ;, sum: integer; Label3.Caption= 1 then.Prixod2Table.Edit; .Prixod2Table.FieldByName ( key_nakl ). AsInteger:=DM.Prixod1Table.FieldByName(laquo;key_naklraquo;).AsInteger;.Prixod2Table.FieldByName(laquo;key_tovarraquo;).AsString :=DM.TovarTable2.FieldByName(laquo;key_tovararaquo;).AsString;.Prixod2Table.FieldByName(laquo;tovarraquo;).AsString :=DM.TovarTable2.FieldByName ( tovar ). AsString; .TovarTable.Filtered:=false; .TovarTable.Filter:= key_tovara= + DM.Prixod2Table.FieldByName(laquo;key_tovarraquo;).AsString+laquo;raquo;laquo;raquo;;.TovarTable.Filtered :=True; .Prixod2Table.FieldByName ( Izmerenie ). AsString:=DM.TovarTable.FieldByName ( Izmerenie ). AsString; .TovarTable.Filtered:=false; .Prixod2Table.FieldByName ( prise ).AsInteger:=DM.TovarTable2.FieldByName(laquo;priseraquo;).AsInteger;.Prixod2Table.Post;.Prixod2Table.First;:=0;:=0;:= k + 1;:=sum + DM.Prixod2Table.FieldByName(laquo;Суммаraquo;).AsInteger;.Prixod2Table.NextDM.Prixod2Table.Eof;.Prixod1Table.Edit;.Prixod1Table.FieldByName(laquo;posicijraquo;).As...