jjd.pas

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

unit jjd;

interface

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

type
  Tjjmain = class(TForm)
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    dc2: TDBComboBox;
    dc5: TDBComboBox;
    dc3: TDBComboBox;
    dc6: TDBComboBox;
    Label14: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    Table2: TTable;
    DataSource2: TDataSource;
    dc8: TDBComboBox;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Query1: TQuery;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    SpeedButton1: TSpeedButton;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TSmallintField;
    Table2BDEDesigner3: TIntegerField;
    Table2BDEDesigner4: TIntegerField;
    Table2BDEDesigner5: TIntegerField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TSmallintField;
    Table2BDEDesigner8: TSmallintField;
    Table2BDEDesigner9: TStringField;
    Table2BDEDesigner10: TDateTimeField;
    me: TMaskEdit;
    DBText1: TDBText;
    DBText2: TDBText;
    dt3: TDBText;
    DBEdit1: TDBEdit;
    dc1: TDBComboBox;
    dc4: TDBComboBox;
    SpeedButton2: TSpeedButton;
    Table3: TTable;
    DataSource3: TDataSource;
    DBNavigator1: TDBNavigator;
    Table3BDEDesigner: TStringField;
    Table3BDEDesigner2: TStringField;
    Table3BDEDesigner3: TStringField;
    Table3BDEDesigner4: TStringField;
    Table3BDEDesigner5: TIntegerField;
    DBEdit2: TDBEdit;
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Action1Execute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure meKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure Table3AfterPost(DataSet: TDataSet);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jjmain: Tjjmain;
  numkey:string;
  i:integer;
implementation

uses rptjj, rysz, mainform;

{$R *.dfm}

procedure Tjjmain.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
   if key=13 then
    begin
     if dbgrid1.SelectedIndex=0 then
      begin
       table2.edit;
       table2.Post;
       table2.edit;
       query1.Close;
       query1.ParamByName('Zdh').AsInteger:=dbgrid1.Fields[0].AsInteger;
       query1.ParamByName('Zbm').asstring:=table1.fields[2].AsString;
       query1.Open;
       if query1.RecordCount>0 then
        begin
         if  (table1.Fields[1].value='厨紀珇') then
            begin
              table2.FieldByName('钡Μ