goods.pas

delphi的一个开发实例

unit Goods;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Buttons, StdCtrls, XPMenu, Grids, DBGrids;

type
  Tfrm_Goods = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Panel2: TPanel;
    EG3: TLabeledEdit;
    Cmd__Modal: TSpeedButton;
    EG2: TLabeledEdit;
    EG5: TLabeledEdit;
    SpeedButton13: TSpeedButton;
    EG4: TLabeledEdit;
    EG7: TLabeledEdit;
    SpeedButton14: TSpeedButton;
    EG6: TLabeledEdit;
    TabSheet4: TTabSheet;
    EG14: TLabeledEdit;
    EG15: TLabeledEdit;
    EG16: TLabeledEdit;
    EG17: TLabeledEdit;
    EG18: TLabeledEdit;
    EG19: TLabeledEdit;
    EG20: TLabeledEdit;
    Edit_ID: TEdit;
    EG22: TLabeledEdit;
    EG21: TLabeledEdit;
    EG23: TLabeledEdit;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    TabSheet5: TTabSheet;
    GroupBox1: TGroupBox;
    Cmd_XH: TSpeedButton;
    CheckBox1: TCheckBox;
    EG9: TLabeledEdit;
    EG8: TLabeledEdit;
    GroupBox2: TGroupBox;
    Cmd_YS: TSpeedButton;
    CheckBox2: TCheckBox;
    EG13: TLabeledEdit;
    EG12: TLabeledEdit;
    GroupBox3: TGroupBox;
    CheckBox4: TCheckBox;
    EG10: TLabeledEdit;
    CheckBox5: TCheckBox;
    EG11: TLabeledEdit;
    CheckBox6: TCheckBox;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    CheckBox3: TCheckBox;
    P_NO: TPanel;
    P_Name: TPanel;
    Edit_KD: TEdit;
    Edit_KS: TEdit;
    Edit_JS: TEdit;
    EG1: TLabeledEdit;
    XPMenu1: TXPMenu;
    P_Image: TPanel;
    Image1: TImage;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Panel4: TPanel;
    Label3: TLabel;
    Panel5: TPanel;
    Label4: TLabel;
    Panel6: TPanel;
    Lab_XD: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton17Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure Cmd__ModalClick(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure Cmd_YSClick(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure Cmd_XHClick(Sender: TObject);
    procedure EG10Exit(Sender: TObject);
    procedure EG11Exit(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure EG12Exit(Sender: TObject);
    procedure EG8Exit(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Goods: Tfrm_Goods;
  
  B_R:Currency;//起始度数
  J_R:Currency;//截止度数
  K_R:Currency; //幅度
implementation

uses func, Goods_Select, Batch_Insert, Data;

{$R *.dfm}

procedure Tfrm_Goods.SpeedButton1Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Goods.FormShow(Sender: TObject);
begin
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
    EG1.Clear;
    Str_NO:='';
    P_Image.Width:=108;
end;

procedure Tfrm_Goods.SpeedButton2Click(Sender: TObject);
begin
    if Trim(EG3.Text)='' then
    begin
        Application.MessageBox('错误操作，【商品类别】不能为空，请确认！',Pchar(Application.Title),MB_IConWarning);
        Exit;
    end;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=True;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
    P_Name.Caption:=Trim(EG3.Text)+'->';
    Str_NO:=Trim(EG2.Text)+'_';
    EG1.Text:=Str_No;
end;

procedure Tfrm_Goods.SpeedButton5Click(Sender: TObject);
begin
    if Trim(EG5.Text)='' then
    begin
        Application.MessageBox('错误操作，【商品品牌】不能为空，请确认！',Pchar(Application.Title),MB_IConWarning);
        Exit;
    end;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=True;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
    P_Name.Caption:=P_Name.Caption+Trim(EG5.Text)+'->';
    Str_NO:=Str_NO+Trim(EG4.Text)+'_';
    EG1.Text:=Str_No;
end;

procedure Tfrm_Goods.SpeedButton8Click(Sender: TObject);
begin
    if Trim(EG7.Text)='' then
    begin
        Application.MessageBox('错误操作，【商品品种】不能为空，请确认！',Pchar(Application.Title),MB_IConWarning);
        Exit;
    end;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=True;
    TabSheet5.TabVisible:=False;
    P_Name.Caption:=P_Name.Caption+Trim(EG7.Text)+'->';
    Str_NO:=Str_NO+Trim(EG6.Text)+'_';
    EG1.Text:=Str_No;
end;

procedure Tfrm_Goods.SpeedButton18Click(Sender: TObject);
begin
    if Trim(EG17.Text)='' then
    begin
        Application.MessageBox('错误操作，【商品全名】不能为空，请确认！',Pchar(Application.Title),MB_IConWarning);
        EG17.SetFocus;
        Exit;
    end;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=True;
    P_Name.Caption:=P_Name.Caption+Trim(EG17.Text)+'->';
    Str_NO:=Str_NO+Trim(Edit_ID.Text)+'_';
    EG1.Text:=Str_NO;
end;

procedure Tfrm_Goods.SpeedButton4Click(Sender: TObject);
begin
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
end;

procedure Tfrm_Goods.SpeedButton7Click(Sender: TObject);
begin
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=True;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
end;

procedure Tfrm_Goods.SpeedButton17Click(Sender: TObject);
begin
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=True;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
end;

procedure Tfrm_Goods.SpeedButton10Click(Sender: TObject);
begin
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=True;
    TabSheet5.TabVisible:=False;
end;

procedure Tfrm_Goods.Cmd__ModalClick(Sender: TObject);
begin
    Subject_Str:='';Subject_No:='';Subject_Name:='';
    Subject_Str:='0001';//如果等于0001表示商品类别选择
    EG3.Clear; EG3.Text:='';
    frm_Goods_Select:=Tfrm_Goods_Select.Create(self);