ucxgoods.pas

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

unit UCxgoods;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, Db, ADODB, ComCtrls;

type
  TFrmCxgoods = class(TForm)
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCxgoods: TFrmCxgoods;

implementation

uses U_DM, Ugoodsck;

{$R *.DFM}

procedure TFrmCxgoods.FormCreate(Sender: TObject);
begin
    DateTimePicker1.Date:=date;
    DateTimePicker2.Date:=date;

    if adoquery1.active=false then
    adoquery1.open;
end;

procedure TFrmCxgoods.Edit1Change(Sender: TObject);
begin
 adoquery1.Locate('ngdname',Trim(Edit1.text),[loPartialKey]);
end;

procedure TFrmCxgoods.BitBtn1Click(Sender: TObject);
begin
     close;
     modalresult:=mrok;
end;

procedure TFrmCxgoods.BitBtn2Click(Sender: TObject);
begin
     close;
end;

end.