itemsaldo.pas

this is sample for traders

unit itemSaldo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, JvGradientCaption, Menus, JvMenus, ImgList, DB,
  StdCtrls, JvExStdCtrls, JvButton, JvCtrls, JvFooter, ExtCtrls,
  JvExExtCtrls, JvExtComponent, SkinCtrls, JvExControls, JvStaticText,
  JvDBLookup, ComCtrls, JvExComCtrls, JvStatusBar, Grids, DBGrids,
  JvExDBGrids, JvDBGrid, JvDBUltimGrid, Buttons, DynamicSkinForm;

type
  TItemSaldoForm = class(TForm)
    GroupBox3: TGroupBox;
    ItemGrid: TJvDBUltimGrid;
    StBAR: TJvStatusBar;
    RadioGroup1: TspSkinRadioGroup;
    JvFooter1: TJvFooter;
    PrintSellPrice: TJvFooterBtn;
    dsItem: TDataSource;
    IL1: TImageList;
    dsItembrand: TDataSource;
    dsItemgrup: TDataSource;
    JvPopupMenu1: TJvPopupMenu;
    EditUbahRecordItem1: TMenuItem;
    EditUbahHarga1: TMenuItem;
    N3: TMenuItem;
    PurcCard: TMenuItem;
    dsHisPurc: TDataSource;
    frxReport1: TfrxReport;
    Label1: TspSkinLabel;
    spDynamicSkinForm1: TspDynamicSkinForm;
    spSkinGroupBox1: TspSkinGroupBox;
    edFind: TEdit;
    spSkinGroupBox2: TspSkinGroupBox;
    GroupLookUp: TJvDBLookupCombo;
    spSkinGroupBox3: TspSkinGroupBox;
    BrandLookUp: TJvDBLookupCombo;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edFindChange(Sender: TObject);
  private
  public
    procedure Enter(GDGCODE: string; GDGNAME: string);
  end;

var
  ItemSaldoForm: TItemSaldoForm;
  NamaGudang: String;

implementation

{$R *.dfm}

uses DataMod1, main, funclib;

procedure TitemSaldoForm.Enter(GDGCODE: string; GDGNAME: string);
var
  sqltext: String;
begin
  try
    with DM1.qItemQTY do
    begin
      Close;
      SQL.Clear;
      sqltext:=
      ('SELECT * ')+
      ('FROM item_qty WHERE gdgcode=:gdgcode ORDER BY ITEMCODE ASC ');
      SQL.Text:=sqltext;
      Params.ParamByName('gdgcode').Value:=GDGCODE;
      Open;
    end;
    NamaGudang:=GDGNAME;
  finally
    MainForm.CreateMDIChild(TitemSaldoForm);
  end;
end;

procedure TItemSaldoForm.FormCreate(Sender: TObject);
begin
  Top:=1; Left:=1; Width := 785; Height := 490;
  DateSeparator := '-'; ShortDateFormat := 'dd/mm/yyyy';
  Label1.Caption:=' GUDANG : '+NamaGudang;
  if DM1.qItem.Active then
  RefreshRec(DM1.qItem);
end;

procedure TItemSaldoForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TItemSaldoForm.edFindChange(Sender: TObject);
var
  sqltext: String;
begin
  if edFind.Text='' then Exit;
  QueryPerformanceFrequency(Frequency);
  QueryPerformanceCounter(start);
  with DM1.qitem do
  begin
    Close;
    if RadioGroup1.ItemIndex = 0 then
    begin
        sqltext:=('SELECT ITEM.*, ')+
                 ('ITEM_UNIT.UNITNAME AS SAT,ITEM_BRAND.BRANDNAME,ITEM_GRUP.GRUPNAME ')+
                 ('FROM ITEM,ITEM_UNIT,ITEM_BRAND,ITEM_GRUP ')+
                 ('WHERE ITEM.ITEMCODE LIKE :NCari ')+
                 ('AND ITEM.UNITID=ITEM_UNIT.UNITID ')+
                 ('AND ITEM.BRANDCODE=ITEM_BRAND.BRANDCODE ')+
                 ('AND ITEM.GRUPCODE=ITEM_GRUP.GRUPCODE ')+
                 ('ORDER BY ITEM.ITEMCODE, ITEM.ITEMNAME ASC ');
    end else
    begin
        sqltext:=('SELECT ITEM.*, ')+
                 ('ITEM_UNIT.UNITNAME AS SAT,ITEM_BRAND.BRANDNAME,ITEM_GRUP.GRUPNAME ')+
                 ('FROM ITEM,ITEM_UNIT,ITEM_BRAND,ITEM_GRUP ')+
                 ('WHERE ITEM.ITEMNAME LIKE :NCari ')+
                 ('AND ITEM.UNITID=ITEM_UNIT.UNITID ')+
                 ('AND ITEM.BRANDCODE=ITEM_BRAND.BRANDCODE ')+
                 ('AND ITEM.GRUPCODE=ITEM_GRUP.GRUPCODE ')+
                 ('ORDER BY ITEM.ITEMNAME, ITEM.ITEMCODE ASC ');
    end;
    SQL.Text:=sqltext;
    Params.ParamByName('NCari').Value:=edFind.Text+'%';
    Open;
    EnableControls;
  end;
  QueryPerformanceCounter(stop);
  stBAR.Panels[1].Text := ' >> '+format('%.2f',[(stop-start)/frequency])+' detik';
end;

end.