wzxx.pas

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

unit wzxx;

interface

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

type
  TForm7 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label2: TLabel;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Label2Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}
 uses rkcx;


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


        rkcx.Form4.edit7.Text:=adoquery1.Fields[0].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;
        wzxx.Form7.Close;

               end;

end;

procedure TForm7.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key=13) then
  begin
     adoquery1.Close;
            adoquery1.Active:=false;
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from wz_wzbm_v where GGXH like ''%''+'''+edit1.Text+'''+''%''');
            //adoquery1.SQL.Add('');
            adoquery1.Active:=true;
            adoquery1.Open;

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



procedure TForm7.Label2Click(Sender: TObject);
begin
      adoquery1.Close;
      adoquery1.Sql.Clear;
      adoquery1.SQL.text:='execute  工段库房非标物资导入';  //执行存储过程
      adoquery1.execsql;

       adoquery1.Close;
            adoquery1.Active:=false;
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('select * from wz_wzbm_v where GGXH like ''%''+'''+edit1.Text+'''+''%''');
            //adoquery1.SQL.Add('');
            adoquery1.Active:=true;
            adoquery1.Open;

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

end.