Source code of file oscpmwin_v0.4.1.642/search.pas from the
osCommerce Product Manager for Windows.


0000:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001:   osCommerce Product Manager for Windows (oscpmwin).
0002:   0003:   
0004:   You can contact Mario A. Valdez-Ramirez
0005:   by email at mario@mariovaldez.org or paper mail at
0006:   Olmos 809, San Nicolas, NL. 66495, Mexico.
0007:   
0008:   This program is free software; you can redistribute it and/or modify
0009:   it under the terms of the GNU General Public License as published by
0010:   the Free Software Foundation; either version 2 of the License, or (at
0011:   your option) any later version.
0012:   
0013:   This program is distributed in the hope that it will be useful, but
0014:   WITHOUT ANY WARRANTY; without even the implied warranty of
0015:   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
0016:   General Public License for more details.
0017:   
0018:   You should have received a copy of the GNU General Public License
0019:   along with this program; if not, write to the Free Software
0020:   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0021:   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0022:   unit search;
0023:   
0024:   interface
0025:   
0026:   uses
0027:     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
0028:     Dialogs, StdCtrls, Buttons, ExtCtrls;
0029:   
0030:   type
0031:     Topm_Form_SearchProduct = class(TForm)
0032:       opm_ComboBox_SearchCat: TComboBox;
0033:       opm_ComboBox_SearchMan: TComboBox;
0034:       opm_Edit_SearchModel: TEdit;
0035:       opm_Edit_SearchName: TEdit;
0036:       opm_Label_SearchCat: TLabel;
0037:       opm_Label_SearchMan: TLabel;
0038:       opm_Label_SearchModel: TLabel;
0039:       opm_Label_SearchName: TLabel;
0040:       opm_BitBtn_SearchOk: TBitBtn;
0041:       opm_BitBtn_SearchCancel: TBitBtn;
0042:       opm_Label_SearchDescription: TLabel;
0043:       opm_Edit_SearchDescription: TEdit;
0044:       opm_RadioGroup_SearchSPrice: TRadioGroup;
0045:       opm_RadioGroup_SearchImgURL: TRadioGroup;
0046:       opm_RadioGroup_SearchAvailable: TRadioGroup;
0047:       procedure FormShow(Sender: TObject);
0048:       procedure opm_BitBtn_SearchOkClick(Sender: TObject);
0049:       procedure FormCreate(Sender: TObject);
0050:     private
0051:       { Private declarations }
0052:     public
0053:     end;
0054:   
0055:   var
0056:     opm_Form_SearchProduct: Topm_Form_SearchProduct;
0057:   
0058:   implementation
0059:   
0060:   {$R *.dfm}
0061:   
0062:   Uses gnugettext, main, oscpmdata, balloons;
0063:   
0064:   
0065:   
0066:   
0067:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0068:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0069:   procedure Topm_Form_SearchProduct.FormShow(Sender: TObject);
0070:   VAR
0071:     CurMan : opmR_Manufacturer;
0072:     CurCat : opmR_Category;
0073:   begin
0074:     opm_Form_SearchProduct.Caption := _('Search product');
0075:     CurCat := opm_Form_Main.FNopm_GetCategory (opmG_CategoryList, opm_Search_PCategory, opmC_FindByID);
0076:     CurMan := opm_Form_Main.FNopm_GetManufacturer (opmG_ManufacturerList, opm_Search_PManufacturer, opmC_FindByID);
0077:     opm_ComboBox_SearchCat.Items := opmG_CategoryBoxList;
0078:     opm_ComboBox_SearchCat.ItemIndex := CurCat.ListIndex;
0079:     opm_ComboBox_SearchMan.Items := opmG_ManufacturerBoxList;
0080:     opm_ComboBox_SearchMan.ItemIndex := CurMan.ListIndex;
0081:     opm_Edit_SearchModel.Text := TRIM (opm_Search_PModel);
0082:     opm_Edit_SearchName.Text := TRIM (opm_Search_PName);
0083:     opm_Edit_SearchDescription.Text := TRIM (opm_Search_PDesc);
0084:     opm_RadioGroup_SearchSPrice.ItemIndex := ABS (opm_Search_PSPrice);
0085:     opm_RadioGroup_SearchImgURL.ItemIndex := ABS (opm_Search_PImagURL);
0086:     opm_RadioGroup_SearchAvailable.ItemIndex := ABS (opm_Search_PAvailable);
0087:   end;
0088:   
0089:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0090:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0091:   procedure Topm_Form_SearchProduct.opm_BitBtn_SearchOkClick(Sender: TObject);
0092:   VAR
0093:     CurCat : opmR_Category;
0094:     CurMan : opmR_Manufacturer;
0095:   begin
0096:     CurCat := opm_Form_Main.FNopm_GetCategory (opmG_CategoryList, opm_ComboBox_SearchCat.ItemIndex, opmC_FindByIndex);
0097:     opm_Search_PCategory := CurCat.ID;
0098:     CurMan := opm_Form_Main.FNopm_GetManufacturer (opmG_ManufacturerList, opm_ComboBox_SearchMan.ItemIndex, opmC_FindByIndex);
0099:     opm_Search_PManufacturer := CurMan.ID;
0100:     opm_Search_PModel := TRIM (opm_Edit_SearchModel.Text);
0101:     opm_Search_PName := TRIM (opm_Edit_SearchName.Text);
0102:     opm_Search_PDesc := TRIM (opm_Edit_SearchDescription.Text);
0103:     opm_Search_PSPrice := ABS (opm_RadioGroup_SearchSPrice.ItemIndex);
0104:     opm_Search_PImagURL := ABS (opm_RadioGroup_SearchImgURL.ItemIndex);
0105:     opm_Search_PAvailable := ABS (opm_RadioGroup_SearchAvailable.ItemIndex);
0106:   end;
0107:   
0108:   
0109:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0110:   {%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
0111:   procedure Topm_Form_SearchProduct.FormCreate(Sender: TObject);
0112:   begin
0113:     TranslateComponent (self);
0114:   end;
0115:   
0116:   end.
 
 
NA fum/lmd: 2007.07.15
Copyright ©1994-2017 by Mario A. Valdez-Ramírez.
no siga este enlace / do not follow this link