storage_guide.pas

delphi的一个开发实例

unit Storage_Guide;

interface

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

type
  Tfrm_Storage_Guide = class(TForm)
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label2: TLabel;
    Cmd_JSR: TSpeedButton;
    Cmd_Storage_Up: TSpeedButton;
    Cmd_Storage_Down: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel3: TPanel;
    Edit_Storage_Name: TLabeledEdit;
    TabSheet2: TTabSheet;
    Cmd_Goods_Select: TSpeedButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit_Goods_Name: TLabeledEdit;
    Edit_Goods_NO: TLabeledEdit;
    TabSheet3: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Panel6: TPanel;
    Edit_Start_Time: TMaskEdit;
    Edit_End_Time: TMaskEdit;
    DP1: TDateTimePicker;
    DP2: TDateTimePicker;
    TabSheet4: TTabSheet;
    GroupBox2: TGroupBox;
    Edit_Sale_amount: TLabeledEdit;
    Edit_Sale_money: TLabeledEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit_Big_sale: TMaskEdit;
    Edit_Smal_Sale: TMaskEdit;
    P_Image: TPanel;
    Image1: TImage;
    Cmd_Goods_Up: TSpeedButton;
    Cmd_Goods_Down: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Cmd_Time_Up: TSpeedButton;
    Cmd_Time_Down: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Cmd_Guide_Up: TSpeedButton;
    Cmd_Guide_End: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Edit_Storage_NO: TEdit;
    RadioButton3: TRadioButton;
    procedure FormShow(Sender: TObject);
    procedure Cmd_Storage_DownClick(Sender: TObject);
    procedure Cmd_Goods_DownClick(Sender: TObject);
    procedure Cmd_Time_DownClick(Sender: TObject);
    procedure Cmd_Guide_EndClick(Sender: TObject);
    procedure Cmd_Goods_UpClick(Sender: TObject);
    procedure Cmd_Time_UpClick(Sender: TObject);
    procedure Cmd_Guide_UpClick(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure DP1Change(Sender: TObject);
    procedure DP2Change(Sender: TObject);
    procedure Cmd_JSRClick(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Cmd_Goods_SelectClick(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Storage_Guide: Tfrm_Storage_Guide;

implementation

uses func, Storage_Select, Goods_Check;

{$R *.dfm}

procedure Tfrm_Storage_Guide.FormShow(Sender: TObject);
begin
    P_Image.Width:=140;
    if Public_Do='Storage_Warn_guide' then
    begin
        TabSheet1.TabVisible:=True;
        TabSheet2.TabVisible:=False;
        TabSheet3.TabVisible:=False;
        TabSheet4.TabVisible:=False;
    end;
end;

procedure Tfrm_Storage_Guide.Cmd_Storage_DownClick(Sender: TObject);
begin
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=True;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
end;

procedure Tfrm_Storage_Guide.Cmd_Goods_DownClick(Sender: TObject);
begin
    if (RadioButton2.Checked=True)  and (Trim(Edit_Goods_NO.Text)='')then
    begin
        Application.MessageBox('错误操作！你已经选择了【某类商品】！必须选择！请确认！',Pchar(application.Title),MB_ICONWarning);
        Exit;
    end;
    if (RadioButton3.Checked=True)  and (Trim(Edit_Goods_NO.Text)='')then
    begin
        Application.MessageBox('错误操作！你已经选择了【某一商品】！必须选择！请确认！',Pchar(application.Title),MB_ICONWarning);
        Exit;
    end;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=True;
    TabSheet4.TabVisible:=False;
end;

procedure Tfrm_Storage_Guide.Cmd_Time_DownClick(Sender: TObject);
begin
    if (Trim(Edit_Start_Time.Text)='-  -') or (Trim(Edit_End_Time.Text)='-  -') then
    begin
        Application.MessageBox('【开始时间】和【结束时间】均不能为空！请确认！',Pchar(application.Title),MB_ICONWarning);
        Edit_Start_Time.SetFocus;
        Exit;
    end;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=True;
end;

procedure Tfrm_Storage_Guide.Cmd_Guide_EndClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_Guide.Cmd_Goods_UpClick(Sender: TObject);
begin
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
end;

procedure Tfrm_Storage_Guide.Cmd_Time_UpClick(Sender: TObject);
begin
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=True;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
end;

procedure Tfrm_Storage_Guide.Cmd_Guide_UpClick(Sender: TObject);
begin
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=True;
    TabSheet4.TabVisible:=False;
end;

procedure Tfrm_Storage_Guide.SpeedButton13Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_Guide.SpeedButton3Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_Guide.SpeedButton7Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_Guide.SpeedButton10Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Storage_Guide.DP1Change(Sender: TObject);
begin
    Edit_Start_Time.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DP1.DateTime);
end;

procedure Tfrm_Storage_Guide.DP2Change(Sender: TObject);
begin
    Edit_End_Time.Text:=ForMatDateTime('yyyy''-''mm''-''dd',DP2.DateTime);
end;

procedure Tfrm_Storage_Guide.Cmd_JSRClick(Sender: TObject);
begin
    Check_Storage:='';
    Check_Storage_Result:='';
    Check_Storage:='Stock_Guide_Str';
    frm_Storage_Select:=Tfrm_Storage_Select.Create(self);
    frm_Storage_Select.ShowModal;
    Edit_Storage_Name.Text:=Trim(Check_Storage_Result);
    Edit_Storage_NO.Text:=Trim(Check_Storage_Result_NO);
    frm_Storage_Select.Free;
end;

procedure Tfrm_Storage_Guide.RadioButton2Click(Sender: TObject);
begin
    if RadioButton2.Checked=true then
    begin
        Storage_Guide_Type:='';
        Storage_Guide_Type:='02';//表示选择的是某类商品
        Edit_Goods_Name.Clear;
        Edit_Goods_Name.Text:='';
        Edit_Goods_NO.Clear;
        Edit_Goods_NO.Text:='';
        Cmd_Goods_Select.Enabled:=True;
        Edit_Goods_Name.Enabled:=True;
        Edit_Goods_NO.Enabled:=true;
        Edit_Goods_Name.EditLabel.Caption:='类别名称';
        Edit_Goods_NO.EditLabel.Caption:='类别编号';
    end;
end;

procedure Tfrm_Storage_Guide.Cmd_Goods_SelectClick(Sender: TObject);
begin
    Storage_Guide_Name:='';
    Storage_Guide_NO:='';
    Storage_Guide_Str:='Guide_Str';
    frm_Goods_Check:=Tfrm_Goods_Check.Create(self);
    frm_Goods_Check.ShowModal;
    if (RadioButton2.Checked=True) or (RadioButton3.Checked=True) then
    begin
        Edit_Goods_Name.Text:=Storage_Guide_Name;
        Edit_Goods_NO.Text:=Storage_Guide_NO;
    end;
    frm_Goods_Check.Free;
end;

procedure Tfrm_Storage_Guide.RadioButton3Click(Sender: TObject);
begin
    if RadioButton3.Checked=true then
    begin
        Storage_Guide_Type:='';
        Storage_Guide_Type:='03';//表示选择的是某一商品
        Edit_Goods_Name.Clear;
        Edit_Goods_Name.Text:='';
        Edit_Goods_NO.Clear;
        Edit_Goods_NO.Text:='';
        Cmd_Goods_Select.Enabled:=True;
        Edit_Goods_Name.Enabled:=True;
        Edit_Goods_NO.Enabled:=true;
        Edit_Goods_Name.EditLabel.Caption:='商品名称';
        Edit_Goods_NO.EditLabel.Caption:='商品编号';
    end;
end;

procedure Tfrm_Storage_Guide.RadioButton1Click(Sender: TObject);
begin
    if RadioButton1.Checked=true then
    begin
        Storage_Guide_Type:='';
        Storage_Guide_Type:='01';//表示选择的是某类商品
        Edit_Goods_Name.Clear;
        Edit_Goods_Name.Enabled:=False;
        Edit_Goods_NO.Clear;
        Edit_Goods_NO.Enabled:=False;
        Cmd_Goods_Select.Enabled:=False;
    end;
end;

end.