ding_dan_cha.pas

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

unit ding_dan_cha;

interface

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

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

var
  ding_dan_ch: Tding_dan_ch;

implementation

{$R *.dfm}

procedure Tding_dan_ch.Button2Click(Sender: TObject);
begin
close;
end;

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

procedure Tding_dan_ch.ComboBox1Click(Sender: TObject);
begin
if combobox1.ItemIndex=0 then
begin
maskedit1.Enabled:=false;
maskedit2.Enabled:=false;
edit1.SetFocus;
end
else
if combobox1.ItemIndex=1 then
begin
maskedit1.Enabled:=true;
maskedit2.Enabled:=true;
maskedit1.SetFocus;
end;
end;

procedure Tding_dan_ch.Button1Click(Sender: TObject);
begin
if combobox1.Text='璹虫絪腹'then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from dingdan1 where Dh=:mm');
query1.ParamByName('mm').AsString:=edit1.Text;
query1.Prepare;
query1.Active:=true;
end
else
if combobox1.Text='