lookdata.pas

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

unit lookdata;

interface

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

type
  Tlook_dat = class(TForm)
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBNavigator1: TDBNavigator;
    xm: TComboBox;
    cz: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function convxm(str:string):string;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  look_dat: Tlook_dat;

implementation

{$R *.dfm}

procedure Tlook_dat.FormCreate(Sender: TObject);
begin
table1.Open;
table2.Open;
end;

procedure Tlook_dat.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key=13) then
  if (convxm(xm.text)<>'Zdh') and (convxm(xm.Text)<>'Cdr') then
    begin
      table1.Filter :=convxm(xm.Text)+cz.Text+QuotedStr(edit1.text+'*');
      table1.Filtered:=true;
    end
  else
    if convxm(xm.text)='Zdh' then
    begin
      table1.Filter :=convxm(xm.Text)+cz.Text+edit1.text;
      table1.Filtered:=true;
    end
    else
      begin
        table1.Filter :=convxm(xm.Text)+cz.Text+QuotedStr(edit1.text);
        table1.Filtered:=true;
      end;
end;

function tlook_dat.convxm(str:string):string;
begin
  case xm.Items.IndexOf(str) of
  0:result:='Zdh';
  1:result:='Ddh';
  2:result:='Cdr';
  3:result:='Zzzl';
  4:result:='Zdr';
  else
    showmessage('mistaking');
  end;
end;
procedure Tlook_dat.SpeedButton1Click(Sender: TObject);
begin
  table1.Filtered :=false;
end;

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

end.