unit_get_sp.~pas

为某绣花厂做的管理系统源码

unit Unit_get_sp;

interface

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

type
  TForm_get_sp = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Edit_query: TEdit;
    BitBtn_reshow: TBitBtn;
    BitBtn_select: TBitBtn;
    BitBtn_quit: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn_reshowClick(Sender: TObject);
    procedure BitBtn_quitClick(Sender: TObject);
    procedure BitBtn_selectClick(Sender: TObject);
    procedure Edit_queryChange(Sender: TObject);
    procedure Edit_queryKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sp_id : integer;
    sp_mc : string;
  end;

var
  Form_get_sp: TForm_get_sp;

implementation

uses Unit_main;

{$R *.dfm}

procedure TForm_get_sp.FormShow(Sender: TObject);
begin
   adoquery1.Close;
   adoquery1.Open;
   Edit_query.Text := '';
   ADOQuery1.Filter := '';
   Edit_query.SetFocus;
   sp_id := 0;
   sp_mc := '';
end;

procedure TForm_get_sp.BitBtn_reshowClick(Sender: TObject);
begin
   ADOQuery1.Close;
   ADOQuery1.Open;
end;

procedure TForm_get_sp.BitBtn_quitClick(Sender: TObject);
begin
   self.Close;
end;

procedure TForm_get_sp.BitBtn_selectClick(Sender: TObject);
begin
   if ADOQuery1.RecordCount = 0 then exit;
   sp_id := ADOQuery1.fieldbyname('t0700').AsInteger;
   sp_mc := ADOQuery1.fieldbyname('t0702').AsString;
   self.Close;
end;

procedure TForm_get_sp.Edit_queryChange(Sender: TObject);
var str : string;
begin
   str := trim(Edit_query.Text);
   if str = '' then
      ADOQuery1.Filter := ''
   else
      ADOQuery1.Filter := '(t0701 like ''%'+str+'%'') or (t0703 like ''%'+str+'%'') or (t0702 like ''%'+str+'%'') or '+
         '(t0704 like ''%'+str+'%'') or (t0707 like ''%'+str+'%'')';
end;

procedure TForm_get_sp.Edit_queryKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 27 then BitBtn_quit.Click;
   if key = 13 then BitBtn_select.Click;
   if key = 40 then ADOQuery1.Next;
   if key = 38 then ADOQuery1.Prior;
   Edit_query.SelStart := 10000;
end;

procedure TForm_get_sp.DBGrid1DblClick(Sender: TObject);
begin
   BitBtn_select.Click;
end;

end.