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;
    Database1: TDatabase;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    de1: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    de2: TDBEdit;
    dc4: TDBComboBox;
    dc6: TDBComboBox;
    dc5: TDBComboBox;
    dc7: 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;
    edt1: TDBEdit;
    Label4: TLabel;
    dc1: TDBComboBox;
    Label5: TLabel;
    dc2: TDBComboBox;
    Label6: TLabel;
    dc3: TDBComboBox;
    Label7: TLabel;
    me1: TMaskEdit;
    SpeedButton1: TSpeedButton;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TSmallintField;
    Table2BDEDesigner3: TIntegerField;
    Table2BDEDesigner4: TIntegerField;
    Table2BDEDesigner5: TIntegerField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TSmallintField;
    Table2BDEDesigner8: TSmallintField;
    Table2BDEDesigner9: TStringField;
    Table2BDEDesigner10: TDateTimeField;
    procedure dc1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure me1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure de1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure de2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dc2KeyDown(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 FormShow(Sender: TObject);
    procedure dc8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure Action1Execute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

uses rptjj;

{$R *.dfm}

procedure Tjjmain.dc1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then
 begin
 table1.Edit;
 if i in [48..51] then
   begin
     table1.FieldByName('ユ钡贺摸').asstring:=dc1.Items.Strings[strtoint(chr(i))];
     dc2.SetFocus;
     exit;
   end;
 if i in [96..99] then
   begin
     table1.FieldByName('ユ钡贺摸').asstring:=dc1.Items.Strings[strtoint(chr(i-48))];
     dc2.SetFocus;
     exit;
   end;
  end;
 dc1.Text:='';
 i:=key;
end;

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;
//       showmessage(inttostr(dbgrid1.Fields[0].AsInteger));
       query1.ParamByName('Zdh').AsInteger:=dbgrid1.Fields[0].AsInteger;
//       showmessage(table1.fields[2].AsString);
       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('钡Μ