cheng_pin_ku_chen_query.~pas

来自「产品标签管理系统：delphi+sql实现了产品标签、包装箱麦的自动生成等功能」· ~PAS 代码 · 共 78 行

unit cheng_pin_ku_chen_query;

interface

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

type
  Tcheng_pin_ku_chen_quer = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cheng_pin_ku_chen_quer: Tcheng_pin_ku_chen_quer;

implementation

{$R *.dfm}

procedure Tcheng_pin_ku_chen_quer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tcheng_pin_ku_chen_quer.FormCreate(Sender: TObject);
begin
combobox1.Text:='';
edit1.Text:='';

end;

procedure Tcheng_pin_ku_chen_quer.ComboBox1Click(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure Tcheng_pin_ku_chen_quer.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
button1.SetFocus;
end;

procedure Tcheng_pin_ku_chen_quer.Button1Click(Sender: TObject);
begin
if combobox1.Text='蹿腹' then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from cheng_pin_stroe where kuan_hao=:aa');
query1.ParamByName('aa').AsString:=edit1.Text;
query1.Prepare;
query1.Active:=true;
end
else
if combobox1.Text='瑈