queryproduct.pas

可对供应商,顾客,商品,信息进行添加修改查询删除.可随时统计进货量和销售量,同时统计销售额和利润等.

unit QueryProduct;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons, DB, DBTables;

type
  TQueryProductFrm = class(TForm)
    QueryCondition_GroupBox: TGroupBox;
    QueryProductReturn_BitBtn: TBitBtn;
    QueryProductOk_BitBtn: TBitBtn;
    ProductName_CheckBox: TCheckBox;
    QueryResult_GroupBox: TGroupBox;
    QueryProduct_StringGrid: TStringGrid;
    QueryProduct_Query: TQuery;
    QueryCount_Edit: TEdit;
    QueryCount_Label: TLabel;
    ProductName_ComboBox: TComboBox;
    procedure QueryProductReturn_BitBtnClick(Sender: TObject);
    procedure QueryProductOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryProductFrm: TQueryProductFrm;

implementation



{$R *.dfm}

procedure TQueryProductFrm.QueryProductReturn_BitBtnClick(Sender: TObject);
begin

   QueryProductFrm.hide;
end;

procedure TQueryProductFrm.QueryProductOk_BitBtnClick(Sender: TObject);
var querystring:string;
    i:integer;
begin
   for i:=1 to 100 do
     with QueryProduct_StringGrid do
           begin
            cells[0,i]:='';
            cells[1,i]:='';
            cells[2,i]:='';
            cells[3,i]:='';
            cells[4,i]:='';
            cells[5,i]:='';
            cells[6,i]:='';
            cells[7,i]:='';
            cells[8,i]:='';
            cells[9,i]:='';
            cells[10,i]:='';
           end;

   if ProductName_CheckBox.Checked=true  then
       begin
   //-------查询条件设定------
           querystring:='select * from product where productName='+''''+ProductName_ComboBox.text+'''';
    with QueryProduct_Query do
      begin
       close;
       sql.clear;
       sql.Add(querystring);
       open;
       first;
       for i:=1 to recordcount do
        begin
          with QueryProduct_StringGrid do
           begin
             //-------顾客商品查询------
            cells[0,i]:=fieldbyname('productID').asstring;
            cells[1,i]:=fieldbyname('productName').asstring;
            cells[2,i]:=fieldbyname('Spec').asstring;
            cells[3,i]:=fieldbyname('Unit').asstring;
            cells[4,i]:=fieldbyname('ProductRemark').asstring;
           end;
         next;
         end;
        QueryCount_Edit.Text:=inttostr(recordcount);
      end;
      end
   else
      messagebox(QueryProductFrm.handle,'请选择查询条件','警告',mb_ok+mb_iconwarning);
end;

procedure TQueryProductFrm.FormShow(Sender: TObject);
var ProductName:array[1..100] of string;
    CountFlag,i,j,flag:integer;
    ProductNameTemp:string;
begin
  QueryProduct_Query.Active:=False;
  QueryProduct_Query.Active:=True;
  with QueryProduct_StringGrid do
     begin
       colwidths[1]:=150;
       colwidths[4]:=300;
       cells[0,0]:='商品编号';
       cells[1,0]:='商品名称';
       cells[2,0]:='商品规格';
       cells[3,0]:='计量单位';
       cells[4,0]:='备注信息';
     end;

    //-------获取数据库中的商品名称的数据------
   CountFlag:=1;
   flag:=0;
   with QueryProduct_Query do
      begin
         close;
         sql.clear;
         sql.Add('select ProductName from Product');
         open;
         first;
         ProductName[CountFlag]:=fieldbyname('ProductName').asstring;
         for i:=1 to recordcount do
           begin
             ProductNameTemp:=fieldbyname('ProductName').asstring;
             for j:=1 to  CountFlag do
                if  ProductName[j]=ProductNameTemp then
                     begin
                      flag:=1;
                      break;
                     end;
             if flag<>1 then
                begin
                  CountFlag:=CountFlag+1;
                  ProductName[CountFlag]:=ProductNameTemp;
                end;
             next;
             flag:=0;
            end;
      end;
   ProductName_ComboBox.Clear;
   for i:=1 to  CountFlag do
      ProductName_ComboBox.items.insert(-1,ProductName[i]);
end;

end.