Реферат Автоматизація складського обліку

arations};

: TOtPostMPZ;

{$ R * .dfm}

TOtPostMPZ.Button1Click (Sender: TObject); a, b, c: string; DBRadioGroup1.ItemIndex of

: c:= Допоміжні Матеріали raquo ;;

1: c:= Паливо raquo ;;

: c:= Тара raquo ;;

: c:= Запасні частини raquo ;;

: c:= Канцелярські товари raquo ;;

: c:= Інвентар raquo ;;

6: c:= Спец одяг raquo ;;

;

RadioGroup1.Itemindex of

: case Combobox1.ItemIndex of

: begin:= 01.01.12 raquo ;;:= 31.01.12 raquo ;;;

: begin:= 01.02.12 raquo ;;:= 29.02.12 raquo ;;;

: begin:= 01.03.12 raquo ;;:= 31.03.12 raquo ;;;

: begin:= 01.04.12 raquo ;;:= 30.04.12 raquo ;;;

: begin:= 01.05.12 raquo ;;:= 31.05.12 raquo ;;;

: begin:= 01.06.12 raquo ;;:= 30.06.12 raquo ;;;

: begin:= 01.07.12 raquo ;;:= 31.07.12 raquo ;;;

: begin:= 01.08.12 raquo ;;:= 31.08.12 raquo ;;;

: begin:= 01.09.12 raquo ;;:= 30.09.12 raquo ;;;

: begin:= 01.10.12 raquo ;;:= 31.10.12 raquo ;;;

: begin:= 01.11.12 raquo ;;:= 30.11.12 raquo ;;;

: begin:= 01.12.12 raquo ;;:= 31.12.12 raquo ;;;;

: Begin a:=MaskEdit1.Text;:=MaskEdit2.Text ;;;. Close; .SQL.Clear; .SQL.Add ( SELECT * FROM PostMPZ.db ) ;. SQL.Add ( WHERE Data BETWEEN + a + AND + b + AND Tip= + c) ;. Open ;;.