selectgudang.pas

this is sample for traders

unit SelectGudang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SkinCtrls, ImgList, DB, StdCtrls, JvExStdCtrls, JvButton,
  JvCtrls, JvFooter, JvExExtCtrls, JvExtComponent, Buttons, ExtCtrls,
  Grids, DBGrids, JvExDBGrids, JvDBGrid, JvDBUltimGrid, DynamicSkinForm;

type
  TSelectGudangForm = class(TForm)
    GroupBox1: TGroupBox;
    FindItemGrid: TJvDBUltimGrid;
    Panel1: TPanel;
    edFind: TEdit;
    JvFooter1: TJvFooter;
    btnCancel: TJvFooterBtn;
    btnOk: TJvFooterBtn;
    dsFindGudang: TDataSource;
    ImageList1: TImageList;
    RadioGroup1: TspSkinRadioGroup;
    spDynamicSkinForm1: TspDynamicSkinForm;
    procedure FindItemGridDblClick(Sender: TObject);
    procedure edFindChange(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FindItemGridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edFindKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnCancelClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    function GetCODE: string;
    procedure SetCODE(NewCODE: string);
  public
    property CODE: string read GetCODE write SetCODE;
    function ShowModalCODE: integer;
  end;

var
  SelectGudangForm: TSelectGudangForm;

implementation

{$R *.dfm}

uses DataMod1;

function TSelectGudangForm.GetCODE: string;
begin
  if DM1.qFindGudang.FieldByName('GDGCODE').Value <> Null Then
    Result := DM1.qFindGudang.FieldByName('GDGCODE').Value
end;

function TSelectGudangForm.ShowModalCODE: integer;
begin
  Result:=ShowModal;
end;

procedure TSelectGudangForm.SetCODE(NewCODE: string);
begin
  NewCODE := DM1.qFindGudang.FieldByName('GDGCODE').Value;
end;

procedure TSelectGudangForm.FindItemGridDblClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

procedure TSelectGudangForm.edFindChange(Sender: TObject);
begin
  if edFind.Text='' then Exit;
  with DM1.qFindGudang do
  begin
    DisableControls;
    Close;
    SQL.Clear;
      if RadioGroup1.ItemIndex = 0 then
      begin
        SQL.Add('Select ITEM_GUDANG.GDGCODE,ITEM_GUDANG.GDGNAME,ITEM_GUDANG.LOKASI from item_gudang ');
        SQL.Add('Where ITEM_GUDANG.GDGCODE LIKE:NCari Order By ITEM_GUDANG.GDGCODE ASC');
        ParamByName('Ncari').AsString:=edFind.Text+'%';
        Open;
      end else
      begin
        SQL.Add('Select ITEM_GUDANG.GDGCODE,ITEM_GUDANG.GDGNAME,ITEM_GUDANG.LOKASI from item_gudang ');
        SQL.Add('Where ITEM_GUDANG.GDGNAME LIKE:NCari Order By ITEM_GUDANG.GDGNAME ASC');
        ParamByName('Ncari').AsString:=edFind.Text+'%';
        Open;
      end;
    EnableControls;
  end;
end;

procedure TSelectGudangForm.RadioGroup1Click(Sender: TObject);
begin
  edFind.SetFocus;
end;

procedure TSelectGudangForm.FormActivate(Sender: TObject);
begin
  edFind.SetFocus;
end;

procedure TSelectGudangForm.FindItemGridKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then ModalResult:=mrOk;
end;

procedure TSelectGudangForm.edFindKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_DOWN then FindItemGrid.SetFocus;
end;

procedure TSelectGudangForm.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TSelectGudangForm.btnOkClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

end.