unit_get_gys.pas

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

unit Unit_get_gys;

interface

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

type
  TForm_get_gys = 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 }
    gys_id : integer;
    gys_mc : string;
  end;

var
  Form_get_gys: TForm_get_gys;

implementation

uses Unit_main;

{$R *.dfm}

procedure TForm_get_gys.FormShow(Sender: TObject);
begin
   if ADOQuery1.Active = false then BitBtn_reshow.Click;
   Edit_query.Text := '';
   ADOQuery1.Filter := '';
   Edit_query.SetFocus;
   gys_id := 0;
   gys_mc := '';
end;

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

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

procedure TForm_get_gys.BitBtn_selectClick(Sender: TObject);
begin
   if ADOQuery1.RecordCount = 0 then exit;
   gys_id := ADOQuery1.fieldbyname('t0200').AsInteger; //客户ID
   gys_mc := ADOQuery1.fieldbyname('t0201').AsString;  //客户名称
   self.Close;
end;

procedure TForm_get_gys.Edit_queryChange(Sender: TObject);
var str : string;
begin
   str := trim(Edit_query.Text);
   if str = '' then
      ADOQuery1.Filter := ''
   else
      ADOQuery1.Filter := '(t0201 like ''%'+str+'%'') or (t0202 like ''%'+str+'%'') or (t0203 like ''%'+str+'%'') or '+
         '(t0204 like ''%'+str+'%'') or (t0205 like ''%'+str+'%'') or (t0206 like ''%'+str+'%'')';
end;

procedure TForm_get_gys.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_gys.DBGrid1DblClick(Sender: TObject);
begin
   BitBtn_select.Click;
end;

end.