gxsys.~pas

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

unit gxsys;

interface

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

type
  TGxsel = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet3: TTabSheet;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    DBGrid2: TDBGrid;
    Table1no: TIntegerField;
    Table1zzzl: TStringField;
    Table1zh: TSmallintField;
    Table2: TTable;
    DataSource2: TDataSource;
    Query1: TQuery;
    Table3: TTable;
    DataSource3: TDataSource;
    TabSheet2: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Table4: TTable;
    DataSource4: TDataSource;
    DBNavigator2: TDBNavigator;
    DBNavigator3: TDBNavigator;
    DBEdit1: TDBEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBNavigator4: TDBNavigator;
    Table5: TTable;
    DataSource5: TDataSource;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBGrid3: TDBGrid;
    Table6: TTable;
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Table1BeforeDelete(DataSet: TDataSet);
    procedure Table1AfterDelete(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Gxsel: TGxsel;
  Mdel:string;
implementation

uses mainform, sclld;

{$R *.dfm}

procedure TGxsel.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
 with table1 do
  begin
    if (key=40) and (fieldbyname('no').AsInteger =recordcount) then
       begin
        i:=fieldbyname('no').asinteger;
        append;
        edit;
        fieldbyname('no').AsInteger:=i+1;
        fieldbyname('zzzl').AsString:='