uselectprovider.~pas

天涯進銷存系統

unit uSelectProvider;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, LBCtrls, ExtCtrls, StdCtrls, Grids, LBDBGrid, DB,
  jpeg, LBDBScrollBar, LBMorphVCLBase, LBMorphButton;

type
  TfrmSelectProvider = class(TForm)
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Label3: TLabel;
    Label2: TLabel;
    LBEdit1: TLBEdit;
    LBEdit2: TLBEdit;
    Image2: TImage;
    SysCloseButton: TLBMorphButton;
    Panel6: TPanel;
    Panel4: TPanel;
    Panel3: TPanel;
    Shape1: TShape;
    Panel2: TPanel;
    Label17: TLabel;
    Label21: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    WindowCaption: TLabel;
    DataDBGrid: TLBDBGrid;
    LBDBScrollBar1: TLBDBScrollBar;
    LBSpeecButton2: TLBSpeecButton;
    LBSpeecButton1: TLBSpeecButton;
    procedure FormShow(Sender: TObject);
    procedure LBEdit1Change(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure LBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DataDBGridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Action2Execute(Sender: TObject);
    procedure SysCloseButtonClick(Sender: TObject);
    procedure LBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    procedure SelectData;
  public
    isEdit: Boolean;
  end;

var
  frmSelectProvider: TfrmSelectProvider;


const
  sql='select Code, ProviderName, LinkMan, LINKPHONE  From Providerinfo '+
           'where not Code is Null';
  
implementation

uses uPublicvar, uMain, uDataMo, uConst;

{$R *.dfm}

procedure TfrmSelectProvider.SelectData;
var
  sqltext:string;
begin
  sqltext:=sqltext+sql;
  if Trim(LBEdit1.Text)<>'' then
  sqltext:=sqltext+' and Code Like '+#39+'%'+Trim(LBEdit1.Text)+'%'+#39;
  if Trim(LBEdit2.Text)<>'' then
    sqltext:=sqltext+' Or ProviderName Like '+#39+'%'+Trim(LBEdit2.Text)+'%'+#39;
  OpenData(sqlText,dmData.sdsSelectProvider);
end;

procedure TfrmSelectProvider.FormShow(Sender: TObject);
begin
  OpenData(sql, dmData.sdsSelectProvider);
  LBEdit1.SetFocus;
end;

procedure TfrmSelectProvider.LBEdit1Change(Sender: TObject);
begin
  SelectData;
end;

procedure TfrmSelectProvider.Action1Execute(Sender: TObject);
begin
  OpenData(sql, dmData.sdsSelectProvider);
end;

procedure TfrmSelectProvider.LBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmSelectProvider.DataDBGridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then Action2Execute(Sender);
  if key=VK_NEXT then
    if dmData.sdsSelectProvider.Eof then
       dmData.sdsSelectProvider.GetNextPacket;
end;

procedure TfrmSelectProvider.Action2Execute(Sender: TObject);
begin
  if dmData.sdsSelectProvider.IsEmpty then
  begin
    Application.MessageBox('没有选择供应商。',Hintinfo,$30);
    Exit;
  end;
  OpposingCode:=dmData.sdsSelectProvider.Fieldbyname('Code').asstring;
  Close;
end;

procedure TfrmSelectProvider.SysCloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSelectProvider.LBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then DataDBGrid.SetFocus;
end;

procedure TfrmSelectProvider.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then Close;
end;

procedure TfrmSelectProvider.Image2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.