uitem_f.pas

在打沙场用的最简单

unit uitem_f;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Controls, Forms,
  Dialogs, Base, StdCtrls, Buttons, Grids, DB, DBClient,
  DBGridEh, ExtCtrls, wwdblook;

const
  WM_USER_GETTYPE = WM_USER+1024;

type
  Tfrmitem_f = class(TfrmBase)
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    Grid: TDBGridEh;
    btnclear: TBitBtn;
    btnsearch: TBitBtn;
    btnok: TBitBtn;
    btnexit: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    CDSbaseinfo: TClientDataSet;
    dsBaseinfo: TDataSource;
    CDStype: TClientDataSet;
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofsaleprice: TBCDField;
    CDSbaseinfofsalehortation: TBCDField;
    CDSbaseinfofiffew: TBooleanField;
    CDSbaseinfofminstore: TBCDField;
    itemlook: TwwDBLookupCombo;
    CDStypefid: TAutoIncField;
    CDStypefcode: TWideStringField;
    CDStypefname: TWideStringField;
    CDStypefnote: TWideStringField;
    CDSbaseinfocolor: TStringField;
    CDSbaseinfofcode: TStringField;
    CDSbaseinfofname: TStringField;
    CDSbaseinfofunit: TStringField;
    CDSbaseinfoftype: TStringField;
    CDSbaseinfofnote: TStringField;
    CDSbaseinfozs: TStringField;
    procedure btnexitClick(Sender: TObject);
    procedure btnclearClick(Sender: TObject);
    procedure btnsearchClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure GridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure gettype(var gettype:TMessage);message WM_USER_GETTYPE;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmitem_f: Tfrmitem_f;

implementation

uses common, Global;

{$R *.dfm}

procedure Tfrmitem_f.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmitem_f.gettype(var gettype: TMessage);
begin
  GetAlldata(CDStype,'vitemtype','fid',20);
  application.ProcessMessages;
end;

procedure Tfrmitem_f.btnclearClick(Sender: TObject);
begin
  inherited;
  ClearCDSData(CDSbaseinfo);
  itemlook.Text:='';
  edit1.Text:='';
  edit2.Text:='';
end;

procedure Tfrmitem_f.btnsearchClick(Sender: TObject);
var
  searcht:string;
begin
  inherited;
  if itemlook.Text<>'' then
    Searcht:='ftype='+vartosql(Trim(itemlook.Text));
  if trim(edit1.Text)<>'' then
    begin
      if trim(Searcht)<>'' then
        Searcht:=Searcht+' and fcode like '+vartosql('%'+Trim(edit1.Text)+'%')
      else
        Searcht:='fcode like '+vartosql('%'+Trim(edit1.Text)+'%');
    end;
  if trim(edit2.Text)<>'' then
    begin
      if trim(Searcht)<>'' then
        searcht:=Searcht+' and fname like '+vartosql('%'+Trim(edit2.Text)+'%')
      else
        searcht:='fname like '+vartosql('%'+Trim(edit2.Text)+'%');
    end;
  if Searcht<>'' then
    begin
      try
        getsqldata(CDSbaseinfo,'Vitem','fid',Searcht,20);
      except
        on E:exception do
          begin
            messagedlg('条件设置不正确 ! '+#13#10+E.Message,mtError,[mbok],0);
            Exit;
          end;
      end;
    end;
end;

procedure Tfrmitem_f.btnokClick(Sender: TObject);
begin
  inherited;
  itemid:=CDSbaseinfo.fieldbyname('fid').AsInteger;
  close;
end;

procedure Tfrmitem_f.FormShow(Sender: TObject);
begin
  inherited;
  postmessage(handle,WM_USER_GETTYPE,0,0);
end;

procedure Tfrmitem_f.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmitem_f:=nil;
end;

procedure Tfrmitem_f.GridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  {if char(key)=#13 then
  itemid:=CDSbaseinfo.fieldbyname('fid').AsInteger;
  close;  }
end;

end.