stock_state.pas

delphi的一个开发实例

                    frm_data.DataSource_Stock_States_detail.Enabled:=True;
                    Dbgrid_Detail.DataSource:=frm_data.DataSource_Stock_States_detail;
                    DBGrid_Detail.Columns[0].Width:=80;  DBGrid_Detail.Columns[1].Width:=80;
                    DBGrid_Detail.Columns[2].Width:=80;  DBGrid_Detail.Columns[3].Width:=100;
                    DBGrid_Detail.Columns[4].Width:=40;  DBGrid_Detail.Columns[5].Width:=60;
                    DBGrid_Detail.Columns[6].Width:=60;  DBGrid_Detail.Columns[7].Width:=80;
                    DBGrid_Detail.Columns[8].Width:=60;  DBGrid_Detail.Columns[9].Width:=80;
                    DBGrid_Detail.Columns[0].Title.Caption:='商品编号';
                    DBGrid_Detail.Columns[1].Title.Caption:='商品名称';
                    DBGrid_Detail.Columns[2].Title.Caption:='仓库名称';
                    DBGrid_Detail.Columns[3].Title.Caption:='店面名称';
                    DBGrid_Detail.Columns[4].Title.Caption:='库存数量';
                    DBGrid_Detail.Columns[5].Title.Caption:='平均价格';
                    DBGrid_Detail.Columns[6].Title.Caption:='仓库金额';
                    DBGrid_Detail.Columns[7].Title.Caption:='规格型号';
                    DBGrid_Detail.Columns[8].Title.Caption:='生产厂家';
                    DBGrid_Detail.Columns[9].Title.Caption:='商品单位';
                end
                else
                begin
                    Pan_detail.Visible:=False;
                    frm_data.DataSource_Stock_States_detail.Enabled:=False;
                    Application.MessageBox('你选择的仓库没有该商品！'+#13#10#13+'请重新选择仓库查询，请确认！',Pchar(Application.Title),MB_ICONwarning);
                    frm_Storage_Select.Free;
                end;
            except
                Application.MessageBox('系统错误，在打开数据库【库存状况数据表】时出错！'+#13#10#13+'请检查远程服务器连接是否正常？请确认！',Pchar(application.Title),mb_ICONwarning);
                Exit;
            end;
        end;
    end;
    if Stock_States_Detail_str='Select_One' then
    begin
        Edit_Storage_Name.Text:=Trim(Check_Storage_Result);
        with frm_data.ClientDataSet_Stock_States_detail do
        begin
            Close;
            CommandText:='';
            CommandText:='Select Goods_NO,Goods_Name,Storage_Name,shop_name,Stock_amount,Costing_price,Stock_money,Norms_Type,Factory,Base_Monad from [V_Stock_States_View] where Stock_amount>0 and Storage_NO='''+Trim(Check_Storage_Result_NO)+''' and Goods_NO='''+Trim(Goods_No_Str)+'''';
            try
                Open;
                if frm_data.ClientDataSet_Stock_States_detail.RecordCount>0 then
                begin
                    Pan_detail.Visible:=True;
                    frm_data.DataSource_Stock_States_detail.DataSet:=frm_data.ClientDataSet_Stock_States_detail;
                    frm_data.DataSource_Stock_States_detail.Enabled:=True;
                    Dbgrid_Detail.DataSource:=frm_data.DataSource_Stock_States_detail;
                    DBGrid_Detail.Columns[0].Width:=80;  DBGrid_Detail.Columns[1].Width:=80;
                    DBGrid_Detail.Columns[2].Width:=80;  DBGrid_Detail.Columns[3].Width:=100;
                    DBGrid_Detail.Columns[4].Width:=40;  DBGrid_Detail.Columns[5].Width:=60;
                    DBGrid_Detail.Columns[6].Width:=60;  DBGrid_Detail.Columns[7].Width:=80;
                    DBGrid_Detail.Columns[8].Width:=60;  DBGrid_Detail.Columns[9].Width:=80;
                    DBGrid_Detail.Columns[0].Title.Caption:='商品编号';
                    DBGrid_Detail.Columns[1].Title.Caption:='商品名称';
                    DBGrid_Detail.Columns[2].Title.Caption:='仓库名称';
                    DBGrid_Detail.Columns[3].Title.Caption:='店面名称';
                    DBGrid_Detail.Columns[4].Title.Caption:='库存数量';
                    DBGrid_Detail.Columns[5].Title.Caption:='平均价格';
                    DBGrid_Detail.Columns[6].Title.Caption:='仓库金额';
                    DBGrid_Detail.Columns[7].Title.Caption:='规格型号';
                    DBGrid_Detail.Columns[8].Title.Caption:='生产厂家';
                    DBGrid_Detail.Columns[9].Title.Caption:='商品单位';
                end
                else
                begin
                    Pan_detail.Visible:=False;
                    frm_data.DataSource_Stock_States_detail.Enabled:=False;
                    Application.MessageBox('你选择的仓库没有该商品！'+#13#10#13+'请重新选择仓库查询，请确认！',Pchar(Application.Title),MB_ICONwarning);
                    frm_Storage_Select.Free;
                end;
            except
                Application.MessageBox('系统错误，在打开数据库【库存状况数据表】时出错！'+#13#10#13+'请检查远程服务器连接是否正常？请确认！',Pchar(application.Title),mb_ICONwarning);
                Exit;
            end;
        end;
    end;
    //释放窗体
    frm_Storage_Select.Free;
end;

procedure Tfrm_Stock_State.Cmd_FBClick(Sender: TObject);
begin

    Public_Do:='';
    Public_Do_Result:='';
    Public_Do:='Storage_SPFB';
    frm_Goods_Cent:=Tfrm_Goods_Cent.Create(self);
    frm_Goods_Cent.ShowModal;
    frm_Goods_Cent.Free;
end;

procedure Tfrm_Stock_State.Cmd_DetailClick(Sender: TObject);
begin
    frm_Storage_List:=Tfrm_Storage_List.Create(self);
    frm_Storage_List.ShowModal;
    frm_Storage_List.Free;
end;

procedure Tfrm_Stock_State.Cmd_SearchClick(Sender: TObject);
Var
    SqlText:String;
begin
    if Trim(Edit_Goods_NO.Text)<>'' then
    begin
        frm_Sign_Search:=Tfrm_Sign_Search.Create(self);
        frm_Sign_Search.ShowModal;
        Sign_Search_str:='';
        Sign_Search_Result_str:='';
        Goods_No_Str:='';
        Goods_Name_Str:='';
        Sign_Search_str:='Sign_Search_str_001';
        SqlText:='';
        if Sign_Search_Result_str='Sign_Search' then
        begin
            SqlText:='SELECT Goods_NO,Goods_Name,Storage_Name,shop_name,Stock_amount,Costing_price,Stock_money,Norms_Type,Factory,Base_Monad from [V_Stock_States_View]';
            with frm_data.ClientDataSet_Stock_States_detail do
            begin
                Close;
                CommandText:='';
                CommandText:=SqlText+' where Goods_NO='''+Trim(Goods_No_Str)+'''';
                try
                    Open;
                    if frm_data.ClientDataSet_Stock_States_detail.RecordCount>0 then
                    begin
                        Pan_detail.Visible:=True;
                        frm_data.DataSource_Stock_States_detail.DataSet:=frm_data.ClientDataSet_Stock_States_detail;
                        frm_data.DataSource_Stock_States_detail.Enabled:=True;
                        Dbgrid_Detail.DataSource:=frm_data.DataSource_Stock_States_detail;
                        DBGrid_Detail.Columns[0].Width:=80;  DBGrid_Detail.Columns[1].Width:=80;
                        DBGrid_Detail.Columns[2].Width:=80;  DBGrid_Detail.Columns[3].Width:=100;
                        DBGrid_Detail.Columns[4].Width:=40;  DBGrid_Detail.Columns[5].Width:=60;
                        DBGrid_Detail.Columns[6].Width:=60;  DBGrid_Detail.Columns[7].Width:=80;
                        DBGrid_Detail.Columns[8].Width:=60;  DBGrid_Detail.Columns[9].Width:=80;
                        DBGrid_Detail.Columns[0].Title.Caption:='商品编号';
                        DBGrid_Detail.Columns[1].Title.Caption:='商品名称';
                        DBGrid_Detail.Columns[2].Title.Caption:='仓库名称';
                        DBGrid_Detail.Columns[3].Title.Caption:='店面名称';
                        DBGrid_Detail.Columns[4].Title.Caption:='库存数量';
                        DBGrid_Detail.Columns[5].Title.Caption:='平均价格';
                        DBGrid_Detail.Columns[6].Title.Caption:='仓库金额';
                        DBGrid_Detail.Columns[7].Title.Caption:='规格型号';
                        DBGrid_Detail.Columns[8].Title.Caption:='生产厂家';
                        DBGrid_Detail.Columns[9].Title.Caption:='商品单位';
                    end
                    else
                    begin
                        Pan_detail.Visible:=False;
                        frm_data.DataSource_Stock_States_detail.Enabled:=False;
                        Application.MessageBox('没有符合过滤条件的商品信息！'+#13#10#13+'请重新选择输入条件查询，请确认！',Pchar(Application.Title),MB_ICONwarning);
                    end;
                except
                    Application.MessageBox('在打开数据库【库存状况数据表】时出错！'+#13#10#13+'请检查远程服务器连接是否正常？请确认！',Pchar(Application.Title),MB_ICONWarning);
                    Exit;
                end;
            end;
        end;
    end;
    frm_Sign_Search.Free;
end;

procedure Tfrm_Stock_State.DBGrid1CellClick(Column: TColumn);
begin
    Edit_Goods_NO.Text:=frm_data.ClientDataSet_Stock_States.FieldByName('Goods_NO').AsString;
    Edit_Goods_Name.Text:=frm_data.ClientDataSet_Stock_States.FieldByName('Goods_Name').AsString;
    Goods_No_Str:=frm_data.ClientDataSet_Stock_States.FieldByName('Goods_NO').AsString;
end;

end.