sblx.~pas

库房管理程序,希望能给大家一点启发.这个小程序现在已经用在我们这里的工段,反应良好.

unit sblx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, StdCtrls, ADODB;

type
  TForm9 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}
uses ckjm,denglu;
procedure TForm9.Edit1Change(Sender: TObject);
begin
adoquery1.Close;
            adoquery1.Active:=false;
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from 工段设备归类');
            adoquery1.SQL.Add('where 设备代码 like '''+edit1.Text+'''+''%'' and 工段名称='''+denglu.gdlx+'''');
            adoquery1.Active:=true;
            adoquery1.Open;

        dbgrid1.Columns[0].Width:=40;
        dbgrid1.Columns[1].Width:=80;
        dbgrid1.Columns[2].Width:=300;
        dbgrid1.Columns[3].Width:=50;
end;

procedure TForm9.DBGrid1DblClick(Sender: TObject);
begin
if messagedlg('确认添加该记录吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
              begin


        ckjm.Form5.edit2.Text:=adoquery1.Fields[2].AsString+'--'+adoquery1.Fields[1].AsString;
       // rkcx.Form4.Edit8.Text:=adoquery1.Fields[1].AsString;
       // rkcx.Form4.Edit9.Text:=adoquery1.Fields[2].AsString;
       // rkcx.Form4.Edit10.Text:=adoquery1.Fields[3].AsString;
        sblx.Form9.close;

               end;

end;

end.