mainform.pas

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

unit mainform;

interface

uses
  Windows, Messages, Classes, SysUtils,StrUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, Mask, ExtCtrls, Buttons,JPEG,
  Menus, ActnList, CheckLst;

type
  Tmain = class(TForm)
    ScrollBox: TScrollBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Zzgs: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Hd: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    DataSource2: TDataSource;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Cc: TDBEdit;
    Cl: TDBEdit;
    Bm: TDBEdit;
    Table3: TTable;
    DataSource3: TDataSource;
    Label20: TLabel;
    Label21: TLabel;
    Xd1: TDBComboBox;
    Xd2: TDBComboBox;
    Label23: TLabel;
    Label24: TLabel;
    Shape1: TShape;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label25: TLabel;
    Zdr: TDBEdit;
    Table4: TTable;
    DataSource4: TDataSource;
    SpeedButton4: TSpeedButton;
    Pg: TDBComboBox;
    Label26: TLabel;
    Zkl: TDBEdit;
    Query1: TQuery;
    Query2: TQuery;
    SpeedButton5: TSpeedButton;
    DBEdit1: TDBEdit;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Label19: TLabel;
    Js: TDBEdit;
    Label29: TLabel;
    Label15: TLabel;
    Table5: TTable;
    DataSource5: TDataSource;
    Database1: TDatabase;
    Table6: TTable;
    DataSource6: TDataSource;
    Query3: TQuery;
    Query4: TQuery;
    Label9: TLabel;
    SpeedButton11: TSpeedButton;
    Table7: TTable;
    Table1: TTable;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    PopupMenu2: TPopupMenu;
    N5: TMenuItem;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Query5: TQuery;
    Label40: TLabel;
    DBEdit15: TDBEdit;
    Query6: TQuery;
    Query7: TQuery;
    Table8: TTable;
    Table9: TTable;
    Query8: TQuery;
    Query9: TQuery;
    DBComboBox1: TDBComboBox;
    Query10: TQuery;
    Query11: TQuery;
    DBEdit16: TDBEdit;
    Label27: TLabel;
    DBEdit17: TDBEdit;
    Query12: TQuery;
    N6: TMenuItem;
    sp1: TStoredProc;
    BitBtn3: TBitBtn;
    Query13: TQuery;
    Label30: TLabel;
    DBEdit18: TDBEdit;
    Label41: TLabel;
    DBEdit19: TDBEdit;
    Label42: TLabel;
    DBEdit20: TDBEdit;
    Label22: TLabel;
    DBGrid1: TDBGrid;
    Query14: TQuery;
    sp2: TStoredProc;
    Query15: TQuery;
    Table10: TTable;
    Table11: TTable;
    PopupMenu3: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Label1: TLabel;
    DBEdit22: TDBEdit;
    Label28: TLabel;
    DBComboBox2: TDBComboBox;
    Label43: TLabel;
    DBEdit23: TDBEdit;
    DBEdit21: TDBMemo;
    DBComboBox3: TDBComboBox;
    Label44: TLabel;
    Label45: TLabel;
    DBComboBox4: TDBComboBox;
    Label46: TLabel;
    DBMemo1: TDBMemo;
    Label47: TLabel;
    DBEdit24: TDBEdit;
    Label48: TLabel;
    DBComboBox5: TDBComboBox;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BzsmClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBNavigatorClick(Sender: TObject; Button: TNavigateBtn);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Label24DblClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SlKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Xd1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Xd2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ZzgsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ZklKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure HdKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CcKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TasmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure JsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Chr1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure DdhKeyPress(Sender: TObject; var Key: Char);
    procedure Table3AfterScroll(DataSet: TDataSet);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure ClKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure Memo1Exit(Sender: TObject);
    procedure Memo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo2Exit(Sender: TObject);
    procedure Memo3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo4Exit(Sender: TObject);
    procedure Memo5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo5Exit(Sender: TObject);
    procedure Memo3Exit(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit6Exit(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBEdit8Exit(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure DBEdit11Exit(Sender: TObject);
    procedure DBEdit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit12Exit(Sender: TObject);
    procedure DBEdit13Exit(Sender: TObject);
    procedure DBEdit14Exit(Sender: TObject);
    procedure DBEdit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton11Click(Sender: TObject);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15Exit(Sender: TObject);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit16Change(Sender: TObject);
    procedure Table1BeforePost(DataSet: TDataSet);
    procedure DBEdit18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit19KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit20KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit21KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormActivate(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure DBEdit22KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit23KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { private declarations }
  public
Usxm,ding_dan,xian_dan1,xian_dan2,kan_hao,pin_ming,dian_du,pei_jian,pao_gong,zi_zhe_shi,bei_wen,hou_du,zhi_zhe_kind,chi_chen,chai_liao,yellow,zhi_zhe_shuo_ming,tu_dang,bao_zhang,zzsm1,zzsm2,bzsm1,bzsm2,bzsm3,yeshe1,yeshe2,yeshe3:string;
zhi_zhe_dan,zhi_hao,ji_shu,shu_liang,pao_shu,ku_chen:integer;jiao_huo_date:Tdatetime; chang_hao,begin_edit:string;

    { public declarations }
  end;

var
  main: Tmain;
  Mdel: string;
  count13:integer;
implementation

uses rptmake,zhi_zhe_cha1,log, part_sel, lookdata, gxsys, jjd, rptjj, sclld,zhi_zhe_dan_cha,chu_huo_query,
ding_dan_cha,cheng_pin_ku_chen_query,chu_huo_tong,zizhe,zhi_dan;

{$R *.DFM}

procedure Tmain.FormCreate(Sender: TObject);
var i,j:integer;
begin
query11.Active:=false;
query11.SQL.Clear;
query11.SQL.Add('select * from dingdan1 where (is_chuyang=:mm) or (is_chuhuo=:nn)');
query11.ParamByName('mm').AsString:='ゼ