part_sel.pas

产品标签管理系统：delphi+sql实现了产品标签、包装箱麦的自动生成等功能

unit part_sel;

interface

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

type
  Tpartsel = class(TForm)
    Label1: TLabel;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    ComboBox2: TComboBox;
    Database1: TDatabase;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  partsel: Tpartsel;
  dl,xl: string;
implementation

uses mainform;

{$R *.dfm}

procedure Tpartsel.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     begin
      query1.DisableControls ;
      query1.Close;
      query1.SQL.Clear;
      query1.SQL.Add('select "FMNO","FMNAME","FMGUID","FUNIT" from "dbo"."t_material" where ');
      query1.SQL.add('"t_material"."FMNAME" LIKE ''%'+edit1.text+'%''');
      query1.Prepare;
      query1.Open;
      query1.EnableControls;
     end;
end;

procedure Tpartsel.Button1Click(Sender: TObject);
begin
query1.Open;
end;

procedure Tpartsel.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure Tpartsel.ComboBox1Change(Sender: TObject);
var str:TStringList;
begin
 str:=TStringList.Create;
 if combobox1.Text <>'' then
  begin
   case combobox1.Items.IndexOf(combobox1.Text) of
    0: begin
        dl:='B';
        str.clear;
        str.add('砋');str.add('舶/絚');str.add('溅