?? goods.pas

?? delphi的一個開發實例
?? PAS
?? 第 1 頁 / 共 3 頁
字號:
12 3 下一頁
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);
12 3 下一頁
?? 文件大小 3398 K
?? 上傳用戶 wanjunsheng
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#delphi #開發實例
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? goods.pas

?? 快捷鍵說明
