storage_warn.pas

delphi的一个开发实例

unit Storage_Warn;

interface

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

type
  Tfrm_Storage_Warn = class(TForm)
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Cmd_XD: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel3: TPanel;
    Panel7: TPanel;
    Label1: TLabel;
    Cmd_Goods: TSpeedButton;
    Cmd_Storage_Select: TSpeedButton;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    Panel8: TPanel;
    Panel6: TPanel;
    SpeedButton8: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Label2: TLabel;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    ComboBox2: TComboBox;
    LabeledEdit2: TLabeledEdit;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    Panel13: TPanel;
    Panel14: TPanel;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    Label3: TLabel;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    ComboBox3: TComboBox;
    LabeledEdit3: TLabeledEdit;
    CheckBox3: TCheckBox;
    Edit3: TEdit;
    Panel19: TPanel;
    Panel20: TPanel;
    Panel21: TPanel;
    DBGrid2: TDBGrid;
    Panel22: TPanel;
    DBGrid3: TDBGrid;
    ComboBox4: TComboBox;
    Edit_Storage_Name: TLabeledEdit;
    ListView1: TListView;
    Panel23: TPanel;
    Panel24: TPanel;
    Edit_Up: TEdit;
    Edit_Down: TEdit;
    Pan_Goods: TPanel;
    Edit_Storage_NO: TEdit;
    Panel25: TPanel;
    Panel26: TPanel;
    Panel27: TPanel;
    Check_Goods: TCheckBox;
    Panel28: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Cmd_Storage_SelectClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure Edit_UpExit(Sender: TObject);
    procedure Edit_DownExit(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure Cmd_XDClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Check_GoodsClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frm_Storage_Warn: Tfrm_Storage_Warn;
  Row_data:integer;
  Clock_Flag:Boolean;
implementation

uses limit, Storage_Select, Data, func, Storage_Guide, Storage_warn_Limit;

{$R *.dfm}

procedure Tfrm_Storage_Warn.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet4.Close;
    frm_data.ClientDataSet4.Active:=False;
    Action:=Cafree;
end;

procedure Tfrm_Storage_Warn.FormShow(Sender: TObject);
var
    i:integer;
    RCount:Integer;
    ListItem: TListItem;
begin
    Clock_Flag:=False;
    frm_Storage_Warn.Left:=170;
    frm_Storage_Warn.Top:=40;
    frm_Storage_Warn.Height:=690;
    frm_Storage_Warn.Width:=850;
    if Public_Do='Stock_warn_all' then   //库存上下限报警
    begin
        if Check_Goods.Checked=True then   //全部商品
        begin
            with frm_data.ClientDataSet4 do
            begin
                Close;
                CommandText:='';
                CommandText:='Select * from [V_Stock_States_Warn_limit_View]';
                open;
                if frm_data.ClientDataSet4.RecordCount>0 then
                begin
                    RCount:=frm_data.ClientDataSet4.RecordCount;
                    with ListView1 do
                    begin
                        for i:=1 to RCount do
                        begin
                            ListItem := Items.Add;
                            ListItem.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Goods_NO').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Base_Monad').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Up_amount').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Down_amount').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Stock_amount').AsString);
                            Next;
                        end;
                    end;
                end
                else
                begin
                    with frm_data.ClientDataSet4 do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='Select Goods_No,Goods_Name,Base_Monad from [Goods_information]';
                        Open;
                        RCount:=frm_data.ClientDataSet4.RecordCount;
                        with ListView1 do
                        begin
                            for i:=1 to RCount do
                            begin
                                ListItem := Items.Add;
                                ListItem.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                                ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Goods_NO').AsString);
                                ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Base_Monad').AsString);
                                ListItem.SubItems.Add('0');
                                ListItem.SubItems.Add('0');
                                ListItem.SubItems.Add('0');
                                Next;
                            end;
                        end;
                    end;
                end;
            end;
        end;
        CK_MC:='';
        CK_MC:='【全部仓库】';
        ComboBox1.ItemIndex:=0;
    end;
    if Public_Do='Stock_warn_up' then   //库存上限报警
    begin
        if Check_Goods.Checked=True then   //全部商品
        begin
            with frm_data.ClientDataSet4 do
            begin
                Close;
                CommandText:='';
                CommandText:='Select * from [V_Stock_States_Warn_limit_View]';
                open;
                if frm_data.ClientDataSet4.RecordCount>0 then
                begin
                    RCount:=frm_data.ClientDataSet4.RecordCount;
                    with ListView1 do
                    begin
                        for i:=1 to RCount do
                        begin
                            ListItem := Items.Add;
                            ListItem.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Goods_NO').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Base_Monad').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Up_amount').AsString);
                            ListItem.SubItems.Add('');
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Stock_amount').AsString);
                            Next;
                        end;
                    end;
                end
                else
                begin
                    with frm_data.ClientDataSet4 do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='Select Goods_No,Goods_Name,Base_Monad from [Goods_information]';
                        Open;
                        RCount:=frm_data.ClientDataSet4.RecordCount;
                        with ListView1 do
                        begin
                            for i:=1 to RCount do
                            begin
                                ListItem := Items.Add;
                                ListItem.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                                ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Goods_NO').AsString);
                                ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Base_Monad').AsString);
                                ListItem.SubItems.Add('0');
                                ListItem.SubItems.Add('');
                                ListItem.SubItems.Add('0');
                                Next;
                            end;
                        end;
                    end;
                end;
            end;
        end;
        CK_MC:='';
        CK_MC:='【全部仓库】';
        ComboBox1.ItemIndex:=0;
    end;
    if Public_Do='Stock_warn_down' then   //库存下限报警
    begin
        if Check_Goods.Checked=True then   //全部商品
        begin
            with frm_data.ClientDataSet4 do
            begin
                Close;
                CommandText:='';
                CommandText:='Select * from [V_Stock_States_Warn_limit_View]';
                open;
                if frm_data.ClientDataSet4.RecordCount>0 then
                begin
                    RCount:=frm_data.ClientDataSet4.RecordCount;
                    with ListView1 do
                    begin
                        for i:=1 to RCount do
                        begin
                            ListItem := Items.Add;
                            ListItem.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Goods_NO').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Base_Monad').AsString);
                            ListItem.SubItems.Add('');
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Down_amount').AsString);
                            ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Stock_amount').AsString);
                            Next;
                        end;
                    end;
                end
                else
                begin
                    with frm_data.ClientDataSet4 do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='Select Goods_No,Goods_Name,Base_Monad from [Goods_information]';
                        Open;
                        RCount:=frm_data.ClientDataSet4.RecordCount;
                        with ListView1 do
                        begin
                            for i:=1 to RCount do
                            begin
                                ListItem := Items.Add;
                                ListItem.Caption:=frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString;
                                ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Goods_NO').AsString);
                                ListItem.SubItems.Add(frm_data.ClientDataSet4.FieldByName('Base_Monad').AsString);
                                ListItem.SubItems.Add('');
                                ListItem.SubItems.Add('0');
                                ListItem.SubItems.Add('0');
                                Next;
                            end;
                        end;
                    end;
                end;
            end;
        end;
        CK_MC:='';
        CK_MC:='【全部仓库】';
        ComboBox1.ItemIndex:=0;
    end;
end;

procedure Tfrm_Storage_Warn.SpeedButton2Click(Sender: TObject);