umaterialname.~pas

相关的销售服务管理行业的一个软件

unit UMaterialName;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGridEh, Buttons, Db, DBTables, ExtCtrls, ComCtrls, ADODB,
  EHGrids;

type
  TFrmclmc = class(TForm)
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure DBGridEh1KeyPress(Sender: TObject; var Key: Char);
  private
    procedure OnActivate(var msg: TWMActivate); message WM_ACTIVATE;
    { Private declarations }
  public
    function Execute(HostControl: TControl; var MaterialNo: string; var Ggxh:String; var Jldw:string; var MaterialName: String):Boolean;
    { Public declarations }
  end;

var
  Frmclmc: TFrmclmc;

implementation

uses SYS_DataModal;



{$R *.DFM}

{ TForm1 }

procedure AdjustDropDownForm(AControl : TControl; HostControl: TControl);
var
   WorkArea: TRect;
   HostP, PDelpta: TPoint;
begin
   SystemParametersInfo(SPI_GETWORKAREA,0,@WorkArea,0);
   HostP := HostControl.ClientToScreen(Point(0,0));
   PDelpta := AControl.ClientToScreen(Point(0,0));

   AControl.Left := HostP.x;
   AControl.Top := HostP.y + HostControl.Height + 1;

   if (AControl.Width > WorkArea.Right - WorkArea.Left) then
     AControl.Width := WorkArea.Right - WorkArea.Left;

   if (AControl.Left + AControl.Width > WorkArea.Right) then
     AControl.Left := WorkArea.Right - AControl.Width;
   if (AControl.Left < WorkArea.Left) then
     AControl.Left := WorkArea.Left;


   if (AControl.Top + AControl.Height > WorkArea.Bottom) then
   begin
     if (HostP.y - WorkArea.Top > WorkArea.Bottom - HostP.y - HostControl.Height) then
       AControl.Top := HostP.y - AControl.Height;
   end;

   if (AControl.Top < WorkArea.Top) then
   begin
     AControl.Height := AControl.Height - (WorkArea.Top - AControl.Top);
     AControl.Top := WorkArea.Top;
   end;

   if (AControl.Top + AControl.Height > WorkArea.Bottom) then
   begin
     AControl.Height := WorkArea.Bottom - AControl.Top;
   end;

end;

function TFrmclmc.Execute(HostControl: TControl; var MaterialNo: string; var Ggxh:String; var Jldw:string; var MaterialName: String):Boolean;
var
  ss: string;
begin
  ss := DataCggl.cgddquery.FieldByName('MaterialNo').AsString;
  ss := #39 + ss + '%' + #39;
  with Adoquery1 do
  begin
    close;
    sql.clear;
    sql.add('select  nGdCode,nGdGg,nGdUnit,nGdName from s_goods where nGdCode like '+ ss + 'order by nGdCode ');//where nGdCJCode in (select * from mkind)');
    //Parameters.ParamByName('nGdCode').value := ss + '%';
    open;
  end;        //选出与在原材料编号输入的字符相匹配的原材料明细

  if MaterialNo <> '' then
    Adoquery1.Locate('nGdCode',MaterialNo,[]);
  AdjustDropDownForm(Self,HostControl);
  Visible := True;
  ModalResult := mrCancel;
  while (Visible) do Application.ProcessMessages;
  Result := False;
  if ModalResult = mrOk then
  begin
    MaterialNo := AdoQuery1.FieldByName('nGdCode').Asstring;
    Ggxh :=  AdoQuery1.FieldByName('nGdGg').Asstring;
    Jldw :=  AdoQuery1.FieldByName('nGdUnit').Asstring;
    MaterialName := Adoquery1.FieldByName('nGdName').AsString;
    Result := True;
  end;
end;

procedure TFrmclmc.SpeedButton1Click(Sender: TObject);
begin
  ModalResult := mrOk;
  Close;
end;

procedure TFrmclmc.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmclmc.DBGridEh1DblClick(Sender: TObject);
begin
  SpeedButton1Click(Sender);
end;

procedure TFrmclmc.OnActivate(var msg: TWMActivate);
begin
  inherited;
  if (msg.Active=WA_INACTIVE) then
    Close;
end;

procedure TFrmclmc.FormCreate(Sender: TObject);
begin
 { with Adoquery1 do
  begin
    close;
    sql.clear;
    sql.add('select  nGdCode,nGdGg,nGdUnit,nGdName from s_goods order by nGdCode ');//where nGdCJCode in (select * from mkind)');
    open;
  end;        }
end;

procedure TFrmclmc.DBGridEh1GetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  {if DbgridEh1.SumList.RecNo mod 2 = 1 then
    Background := $00FFC4C4
  else
    Background := $00FFDDDD;    }
end;

procedure TFrmclmc.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SpeedButton1Click(Sender);
  if Key = #27 then
    SpeedButton2Click(Sender);
end;

end.