unit_set_gys.~pas

DELPHI 编写的绣花厂管理软件

unit Unit_set_gys;

interface

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

type
  Tform_set_gys = class(Tform_jc_set)
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label10: TLabel;
    DBEdit6: TDBEdit;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    procedure Button_reshowClick(Sender: TObject);
    procedure Button_newClick(Sender: TObject);
    procedure Button_deleteClick(Sender: TObject);
    procedure Button_saveClick(Sender: TObject);
    procedure Button_quitClick(Sender: TObject);
    procedure Edit_queryChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_set_gys: Tform_set_gys;

implementation

{$R *.dfm}

procedure Tform_set_gys.Button_reshowClick(Sender: TObject);
begin
 // inherited;
  adoquery1.Close;
  adoquery1.Open;
end;

procedure Tform_set_gys.Button_newClick(Sender: TObject);
begin
//  inherited;
   adoquery2.Close;    //插入一新记录
   adoquery2.SQL.Text:='insert into t01(t0101) values('''')';
   adoquery2.ExecSQL;
   adoquery1.Close;
   adoquery1.Open;
   adoquery1.Last;  //移到最后，即刚插入的记录处
end;

procedure Tform_set_gys.Button_deleteClick(Sender: TObject);
begin
 //  inherited;
   if (adoquery1.RecordCount=0) or (not adoquery1.Active) then exit;
   if application.MessageBox('记录删除后不能恢复，真的删除吗？','删除确认',mb_yesno)=idno then exit;
   adoquery1.Delete;
end;

procedure Tform_set_gys.Button_saveClick(Sender: TObject);
begin
//  inherited;
   if adoquery1.Active then
      begin
         adoquery1.Edit;
         adoquery1.Post;
      end;
end;

procedure Tform_set_gys.Button_quitClick(Sender: TObject);
begin
 // inherited;
   self.Close;
end;

procedure Tform_set_gys.Edit_queryChange(Sender: TObject);
var str : string;
begin
   str := trim(Edit_query.Text);
   if str = '' then
      ADOQuery1.Filter := ''
   else
      ADOQuery1.Filter:= '(t0100 like ''%'+str+'%'') or (t0101 like ''%'+str+'%'') or (t0102 like ''%'+str+'%'') or '+
         '(t0103 like ''%'+str+'%'') or (t0104 like ''%'+str+'%'')';

end;

end.