storage_warn.pas

delphi的一个开发实例

begin
    Close;
end;

procedure Tfrm_Storage_Warn.SpeedButton3Click(Sender: TObject);
var
    i:Integer;
begin
    if (trim(Edit_Storage_No.Text)='') and (CheckBox1.Checked=False) then
    begin
        Application.MessageBox('错误操作，请选择仓库方式！【全部仓库】或【某个仓库】请请确认！',Pchar(Application.Title),MB_ICONWarning);
        Exit;
    end;
    if (CheckBox1.Checked=False) and (Trim(Edit_Storage_NO.Text)<>'') then
    begin
        try
            for i:=0 to listview1.Items.Count-1 do
            begin
                if ListView1.Items[i].Checked=True then
                begin
                    with frm_data.ClientDataSet_Storage_Warn do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='Insert into [Storage_Warn_Limt](Storage_NO,Goods_NO,Up_amount,Down_amount) values ('''+Trim(Edit_Storage_NO.Text)+''','''+Listview1.Items.Item[i].SubItems[0]+''','''+Listview1.Items.Item[i].SubItems[2]+''','''+Listview1.Items.Item[i].SubItems[3]+''')';
                        try
                            Execute;
                        except
                            Application.MessageBox('在修该库存上下限时，出现了系统错误！需要重新修改该库存的上下限！'+#13#10#13+'请检查输入是否正确？或检查远程服务器连接是否正常？请确认！',pchar(application.Title),MB_ICONWarning);
                            Exit;
                        end;
                    end;
                end;
            end;
            Application.MessageBox('【库存上下限设置】成功！'+#13#10#13+'请确认！',pchar(application.Title),MB_ICONWarning);
        except
            Application.MessageBox('系统错误，在修改时循环出错！！'+#13#10#13+'请确认！',pchar(application.Title),MB_ICONWarning);
            Exit;
        end;
    end;
    if CheckBox1.Checked=True then
    begin
        try
            for i:=0 to listview1.Items.Count-1 do
            begin
                if ListView1.Items[i].Checked=True then
                begin
                    with frm_data.ClientDataSet_Storage_Warn do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='Insert into [Storage_Warn_Limt](Storage_NO,Goods_NO,Up_amount,Down_amount) Select Storage_NO,'''+Listview1.Items.Item[i].SubItems[0]+''','''+Listview1.Items.Item[i].SubItems[2]+''','''+Listview1.Items.Item[i].SubItems[3]+''' from [Storage] group by Storage_NO';
                        try
                            Execute;
                        except
                            Application.MessageBox('在修该库存上下限时，出现了系统错误！需要重新修改该库存的上下限！'+#13#10#13+'请检查输入是否正确？或检查远程服务器连接是否正常？请确认！',pchar(application.Title),MB_ICONWarning);
                            Exit;
                        end;
                    end;
                end;
            end;
            Application.MessageBox('所有【库存上下限设置】成功！'+#13#10#13+'请确认！',pchar(application.Title),MB_ICONWarning);
        except
            Application.MessageBox('系统错误，在修改时循环出错！！'+#13#10#13+'请确认！',pchar(application.Title),MB_ICONWarning);
            Exit;
        end;
    end;
end;

procedure Tfrm_Storage_Warn.Cmd_Storage_SelectClick(Sender: TObject);
var
    i:integer;
    ListItem:TListItem;
begin
    Check_Storage:='';
    Check_Storage_Result:='';
    CK_MC:='';
    Check_Storage:='Storage_warn_Str_all';
    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);
    CK_MC:='【'+Trim(Check_Storage_Result)+'】';
    ListView1.Clear;
    with frm_data.ClientDataSet4 do
    begin
        Close;
        CommandText:='';
        CommandText:='Select * from [V_Stock_States_Warn_limit_View] where Storage_NO='''+Trim(Check_Storage_Result_NO)+'''';
        Open;
        if frm_data.ClientDataSet4.RecordCount>0 then
        begin
            with ListView1 do
            begin
                for i:=1 to frm_data.ClientDataSet4.RecordCount 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;
                with ListView1 do
                begin
                    for i:=1 to frm_data.ClientDataSet4.RecordCount 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;
    frm_Storage_Select.Free;
end;

procedure Tfrm_Storage_Warn.ComboBox1Change(Sender: TObject);
begin
    if ComboBox1.ItemIndex=1 then
    begin
        ComboBox4.Clear;
        with frm_data.ClientDataSet4 do
        begin
            Close;
            CommandText:='';
            Commandtext:='Select Distinct Goods_No from [Goods_Information]';
            Open;
            while not eof do
            begin
                ComboBox4.Items.Add(frm_data.ClientDataSet4.FieldByName('Goods_No').AsString);
                Next;
            end;
        end;
    end;
    if ComboBox1.ItemIndex=2 then
    begin
        ComboBox4.Clear;
        with frm_data.ClientDataSet4 do
        begin
            Close;
            CommandText:='';
            Commandtext:='Select Distinct Goods_Name from [Goods_Information]';
            Open;
            while not eof do
            begin
                ComboBox4.Items.Add(frm_data.ClientDataSet4.FieldByName('Goods_Name').AsString);
                Next;
            end;
        end;
    end;
end;

procedure Tfrm_Storage_Warn.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
var
    List_Top,List_Left:integer;
begin
    SP_MC:='';
    Pan_Goods.Caption:='';
    Row_data:=Item.Index;
    Pan_Goods.Caption:='   选择的商品是：'+Listview1.Items.Item[Row_data].Caption;
    List_Top:=Listview1.Items.Item[Row_data].Top;
    SP_MC:=Listview1.Items.Item[Row_data].Caption;
    //Edit_Up.Top:=Listview1.Items.Item[Row_data].Top;
    //Edit_Down.Top:=Listview1.Items.Item[Row_data].Top;
    //Edit_Up.Visible:=True; Edit_Down.Visible:=True;
end;
procedure Tfrm_Storage_Warn.Edit_UpExit(Sender: TObject);
var
    tempstr:String;
begin
    tempstr:='';
    tempstr:=Trim(Edit_Up.Text);
    begin
        listview1.Items.Item[Row_Data].SubItems[2]:=tempstr;
        Edit_Up.Clear;
        Edit_Up.Visible:=False;
    end;
end;

procedure Tfrm_Storage_Warn.Edit_DownExit(Sender: TObject);
var
    tempstr:String;
begin
    tempstr:='';
    tempstr:=Trim(Edit_Down.Text);
    begin
        listview1.Items.Item[Row_Data].SubItems[3]:=tempstr;
        Edit_Down.Clear;
        Edit_Down.Visible:=False;
    end;
end;

procedure Tfrm_Storage_Warn.ListView1Click(Sender: TObject);
begin
    if Clock_Flag=false then
    begin
        Clock_Flag:=True;
        //Edit_Up.Visible:=True; Edit_Down.Visible:=True;
    end
    else
    begin
        Clock_Flag:=false;
        //Edit_Up.Visible:=False; Edit_Down.Visible:=False;
    end;
end;

procedure Tfrm_Storage_Warn.Cmd_XDClick(Sender: TObject);
begin
    func.Public_Do:='';
    func.Public_Do_Result:='';
    Public_Do:='Storage_Warn_guide';
    frm_storage_Guide:=Tfrm_storage_Guide.Create(self);
    frm_storage_Guide.ShowModal;
    frm_storage_Guide.Free;
end;

procedure Tfrm_Storage_Warn.ListView1DblClick(Sender: TObject);
begin
    if Public_Do='Stock_warn_all' then   //上下限设置
    begin
        Storage_Warn_Limit_Set:='';
        Storage_Warn_Limit_Set:='Up_And_Down';
        frm_Storage_warn_Limit:=Tfrm_Storage_warn_Limit.Create(self);
        frm_Storage_warn_Limit.ShowModal;
        listview1.Items.Item[Row_Data].SubItems[2]:=Storage_Up_Limit;
        listview1.Items.Item[Row_Data].SubItems[3]:=Storage_Down_Limit;
        frm_Storage_warn_Limit.Free;
    end;
    if Public_Do='Stock_warn_up' then   //上限设置
    begin
        Storage_Warn_Limit_Set:='';
        Storage_Warn_Limit_Set:='Only_Up';
        frm_Storage_warn_Limit:=Tfrm_Storage_warn_Limit.Create(self);
        frm_Storage_warn_Limit.ShowModal;
        listview1.Items.Item[Row_Data].SubItems[2]:=Storage_Up_Limit;
        frm_Storage_warn_Limit.Free;
    end;
    if Public_Do='Stock_warn_down' then   //下限设置
    begin
        Storage_Warn_Limit_Set:='';
        Storage_Warn_Limit_Set:='Only_Down';
        frm_Storage_warn_Limit:=Tfrm_Storage_warn_Limit.Create(self);
        frm_Storage_warn_Limit.ShowModal;
        listview1.Items.Item[Row_Data].SubItems[3]:=Storage_Down_Limit;
        frm_Storage_warn_Limit.Free;
    end;
end;

procedure Tfrm_Storage_Warn.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked=false then
    begin
        Cmd_Storage_Select.Enabled:=True;
    end;
    if CheckBox1.Checked=True then
    begin
        CK_MC:='';
        CK_MC:='【全部仓库】';
        Cmd_Storage_Select.Enabled:=false;
    end;
end;

procedure Tfrm_Storage_Warn.Check_GoodsClick(Sender: TObject);
var
    i:integer;
    ListItem:tListItem;
begin
    if Check_Goods.Checked=false then
    begin
        Cmd_Goods.Enabled:=True;
    end;
    if Check_Goods.Checked=True then
    begin
        Cmd_Goods.Enabled:=false;
        ListView1.Clear;
        with frm_data.ClientDataSet4 do
        begin
            Close;
            CommandText:='';
            CommandText:='Select Goods_No,Goods_Name,Base_Monad from [Goods_information]';
            Open;
            with ListView1 do
            begin
                for i:=1 to frm_data.ClientDataSet4.RecordCount 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.