zhi_zhe_dan_cha.pas

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

unit zhi_zhe_dan_cha;

interface

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

type
  Tzhi_zhe_dan_ch = class(TForm)
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    t2: TMaskEdit;
    MaskEdit1: TMaskEdit;
    Label5: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Query1: TQuery;
    Query2: TQuery;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure t2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhi_zhe_dan_ch: Tzhi_zhe_dan_ch;

implementation

{$R *.dfm}

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

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

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

end;

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

procedure Tzhi_zhe_dan_ch.t2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
maskedit1.SetFocus;
end;

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

procedure Tzhi_zhe_dan_ch.FormCreate(Sender: TObject);
begin
combobox1.Text:='';
edit1.Text:='';
t2.Enabled:=false;
maskedit1.Enabled:=false;
end;

procedure Tzhi_zhe_dan_ch.Button1Click(Sender: TObject);
var xws:string;
begin
if combobox1.Text='璹虫絪腹' then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from E where Ddh=:mm');
query1.ParamByName('mm').AsString:=edit1.Text;
query1.Prepare;
query1.Active:=true;
if query1.RecordCount>0 then
xws:=query1.FieldByName('Zdh').AsString;
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select * from EM where Zdh=:nn');
query2.ParamByName('nn').AsString:=xws;
query2.Prepare;
query2.Active:=true;
end
else
if combobox1.Text='ユ砯ら戳' then
begin
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from E where (Cdr>=:aa) and (Cdr<=:bb)');
query1.ParamByName('aa').AsDateTime:=strtodate(t2.Text);
query1.ParamByName('bb').AsDateTime:=strtodate(maskedit1.Text);
query1.Prepare;
query1.Active:=true;
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select B.Zdh,B.No,B.Gxh,B.Zh,B.Gxm,B.Epartno,B.Epartname,B.Edw,B.Egg,B.Estdqty,B.Efctqty,B.Wcq,B.fctWcq from E A inner join EM B on A.Zdh=B.Zdh where (A.Cdr>=:tt) and (A.Cdr<=:ss)');
query2.ParamByName('tt').AsDateTime:=strtodate(t2.Text);
query2.ParamByName('ss').AsDateTime:=strtodate(maskedit1.Text);
query2.Prepare;
query2.Active:=true;
end;

end;

procedure Tzhi_zhe_dan_ch.DBGrid1CellClick(Column: TColumn);
var xx:string;
begin
xx:=DBGrid1.SelectedField.AsString;
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select * from EM where Zdh=:jj');
query2.ParamByName('jj').AsString:=xx;
query2.Prepare;
query2.Active:=true;

end;

end.